Word 2007 - Macro - Zoeken en vervangen

[Flicc]

Beste allemaal,

Ik ben voor mijn werk Service Level Agreements aan het maken, deze SLA's zijn voor veel relaties hetzelfde en derhalve dient alleen de naam van het bedrijf te veranderen. Ik heb de SLA geschreven en de andere partij door het gehele document Opdrachtgever genoemd. Het is nu dus de bedoeling dat ik deze SLA opsla als een sjabloon, wanneer mijn collega's hem dan openen moet het volgende gebeuren:
- Popup met de vraag: Naam opdrachtgever
- Vervangen van 'Opdrachtgever' door de opgegeven naam, door het hele document

Ik krijg het niet voor elkaar in Word 2007.. Wat is de code die ik hiervoor zou gebruiken?

MVG,

Nick

 

[Warme bakkertje]

Deze misschien

Private Sub Document_Open()
     With Selection.Find
        .Text = "Opdrachtgever"
        .Replacement.Text = InputBox("Naam opdrachtgever")
        .Execute Replace:=wdReplaceAll
    End With
End Sub

 

[snb]

Deze zeker:

Sub tst()
  ActiveDocument.Content.Find.Execute "opdrachtgever", , , , , , , , , InputBox("welke opdrachtgever"), 2
End Sub