Vanuit VBA in Excel open ik een Word document dat ik als template gebruik m.b.v.:
Dit gaat prima. Met de volgende code zoek en vervang ik aan aantal zelfgemaakte velden:
Wat ik hier dus doe is zoeken naar: [[ref2]] en dit vervangen door de variabele string ORef.
Ook dit gaat goed.
Echter dit veld [[ref2]] staat ook in de header (koptekst) en daar moet hij ook aangepast worden. Die kan hij niet vinden. Ik vind in fora wel iets over StoryRanges. Maar hoe gebruik ik dit in mijn code vanuit Excel?
Code:
On Error GoTo w
AppActivate "Microsoft Word"
Set WordObj = Word.Application
GoTo n
w:
Set WordObj = CreateObject("Word.Application")
n:
On Error GoTo 0
Set WordDoc = WordObj.Documents.Open(TemplateDoc)
WordObj.Visible = True
Dim DocuObj As Object
Set DocuObj = WordObj.ActiveDocument.Content
Code:
DocuObj.Find.ClearFormatting
DocuObj.Find.Execute FindText:="[[ref2]]", ReplaceWith:=ORef, Replace:=wdReplaceAll
Ook dit gaat goed.
Echter dit veld [[ref2]] staat ook in de header (koptekst) en daar moet hij ook aangepast worden. Die kan hij niet vinden. Ik vind in fora wel iets over StoryRanges. Maar hoe gebruik ik dit in mijn code vanuit Excel?