Kan man på något enkelt sätt ersätta text i sidhuvudet via VB kod?
Eller vet någon ett bra ställe där man kan läsa in sig lite på ämnet?

Jag har hållt på litegrand med att skapa word dokument via asp sidor där innehållet i word dokumentet hämtas från databaser. Dock är det RTF-format, jag vet inte om det har någon betydelse?
Jag vet inte heller hur det funkar i VB då jag är långt ifrån någon VB-expert...

Ett exempel kan se ut såhär där act=ditt doument:
'sidhuvud
act.WriteLine("{\header\pard\qc" & _
"{\fs90\i Lediga platser \par\fs22 För intern tillsätting} \i0\par\par}")
'sidfot
act.WriteLine("{\footer\pard\ql" & _
"\tab\fs16 " & utgivare & _
"\par\tab " & FormatDateTime(rs.Fields("Publ_Dat").Value, 2) & _
"\par\tab " & rs.Fields("Antal_Ar").Value & _
"\par}")

Det finns bra dokumentation här:
http://msdn.microsoft.com/library/?url=/library/en-us/dnrtfspec/html/rtfspec.asp?frame=true?frame=true

1) Antar att du menar att koden skall skrivas i Word och inte i Visual Basic.
2) Nedanstående kod infogar lite text i sidfoten på varje sida i dokumentet. Ska du leka med bilder är det mer arbete med det för att få det bra men det går.

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(-1.5)
Selection.Font.Size = 8
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME \p ", PreserveFormatting:=True
Selection.TypeText Text:="\"
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument