Macro voor wijzigen voettekst in 100den documenten

[Weeijk]

Hallo, al onze analyse centificaten worden per product/klant in Word gemaakt. Onderin staan de bedrijfsgegevens in de voettekst. Nu zijn de bankgegevens veranderd en moet ik per product/klant de voettekst handmatig aanpassen, dmv Ctrl C/Ctrl V.
Is hier een "macro" knop voor te maken die dit ineens kan doen?

Voor de duidelijkheid heb ik hieronder de huidige tekst (fictief) neergezet.
Naast de vervanging van "ABN Amro Bank N.V." in "Rabobank" verdwijnt de "Postbank 111 111" op regel 3, waarna de "Vat code" van regel 4, op die plaats terugkeert.

huidig:
B.V. fabriek “ W” Tel. ++ 0033333333/ Fax ++31 11111111
P.O.-box 00, 0000 AA Hoxxxxx, The Netherlands ABN Amro Bank N.V. rek no. 11 11 11 111
Kopark 15, 0000 AA Nn, The Netherlands Postbank 111 111
VAT code NL 00000000B01

Wie kan/wil mij hiermee helpen?

Alvast bedankt, mvg Wessel

 

[Weeijk]

Inmiddels heeft een handige collega de oplossing gevonden en kan ik simpel met de druk op een knop de voettekst wijzigen, scheelt toch 3,4 handelingen pst.
Om anderen met een zelfde probleem te helpen, hier de oplossing:


mvg Wessel

Sub WijzigenVoettekst()

'

' WijzigenVoettekst Macro

'

'

ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "P.O.-box 00, 0000 CA Plaats, The Netherlands" & vbTab & vbTab & "ABN Amro Bank N.V. rek no. 00 00 00 000"

.Replacement.Text = "P.O.-box 0, 0000 CA Plaats, The Netherlands" & vbTab & vbTab & "Rabobank. rek no.00 00 00 000"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "VAT code NL 000000000X01"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Kpark 15, 0000 PW Plaats, The Netherlands" & vbTab & vbTab & "Postbank 000 000"

.Replacement.Text = "Kpark 15, 0000 PW Plaats, The Netherlands" & vbTab & vbTab & "VAT code NL 00000000X01"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

 

[OctaFish]

Zou je VBA code willen opmaken met de CODE tag? (Knop #) Dat leest een stuk makkelijker.