Woorden automatisch van format voorzien in Word

[anoniem]

Ik wil graag in MS Word in 1 bepaald document bepaalde woorden van een andere format voorzien (bijvoorbeeld lettertype Courier New en bold). Als ik autocorrect gebruik dan worden deze woorden in alle documenten veranderd, en dat wil ik dus niet. Volgens mij moet het met VBA ook lukken, maar ik weet niet hoe. Wie helpt?

[anoniem]

[code:1:539cc1fa2c]Sub verv() Dim zoekwoord zoekwoord = InputBox("Zoekwoord: ") Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:=zoekwoord, Forward:=True If myRange.Find.Found = True Then myRange.Font.Name = "Arial" myRange.Font.Bold = True End If While myRange.Find.Found = True myRange.Find.Execute FindText:=zoekwoord, Forward:=True If myRange.Find.Found = True Then myRange.Font.Name = "Arial" myRange.Font.Bold = True End If Wend End Sub [/code:1:539cc1fa2c] Dit lijkt te werken. Pas het font e.d. aan naar jou wens. De aanpassing zit er op twee plaatsen in maar ik wist niet hoe ik anders door het hele document moest komen. Wim