Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Woorden automatisch van format voorzien in Word

None
2 antwoorden
  • 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?
  • [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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.