Dag allen,
Ik wil graag dat mijn Excel VBA code een tekst zoekt in de voettekst en vervangt met een eigen tekst. De code die ik al heb, zoekt en vervangt al een aantal zaken, dit is (een klein deel van) de code die ik nu heb:
Zoals je ziet, heb ik een standaard Word document als sjabloon, waarin teksten worden gezocht en vervangen. Dit zoekt echter alleen in de body, maar niet header/footer.
Waar ik nu naar op zoek ben is iets als dit:
Kortom: dezelfde code, maar dan die gaat zoeken en vervangen in de voettekst. Uiteraard heb ik het internet al afgezocht, maar het is mij nog niet gelukt.
Alvast bedankt!
Ik wil graag dat mijn Excel VBA code een tekst zoekt in de voettekst en vervangt met een eigen tekst. De code die ik al heb, zoekt en vervangt al een aantal zaken, dit is (een klein deel van) de code die ik nu heb:
Code:
Sub genereerworddocument()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add(Template:="C:\tijdelijk\document.docx", NewTemplate:=False, DocumentType:=0)
With wdDoc.Content.Find
.Text = "<vervangdezetekst>"
.Replacement.Text = Range("vervangendetekst").Value
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
With wdApp.Activate
End With
Set wdApp = Nothing: Set wdDoc = Nothing: Set wdsave = Nothing
End Sub
Zoals je ziet, heb ik een standaard Word document als sjabloon, waarin teksten worden gezocht en vervangen. Dit zoekt echter alleen in de body, maar niet header/footer.
Waar ik nu naar op zoek ben is iets als dit:
Code:
With wdDoc.Content.Find IN VOETTEKST
.Text = "<voettekst>"
.Replacement.Text = Range("vervangendevoettekst").Value
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
Kortom: dezelfde code, maar dan die gaat zoeken en vervangen in de voettekst. Uiteraard heb ik het internet al afgezocht, maar het is mij nog niet gelukt.
Alvast bedankt!