Hoe alle exemplaren van hetzelfde woord in een Word-document vetgedrukt?

Als uw Word-bestand meerdere Outlook-teksten bevat, moet u nu alle Outlook-teksten vetgedrukt opmaken. Hoe kon je alle exemplaren van hetzelfde woord in een groot Word-document zo snel mogelijk vet maken?

Vet alle exemplaren van hetzelfde woord in een Word-document met VBA-code in

Vet alle exemplaren van hetzelfde woord in een Word-document met VBA-code in

De volgende VBA-code kan u helpen om alle instanties van een specifiek woord snel en gemakkelijk vet te maken, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: vet alle instanties van hetzelfde woord in

Sub BoldAll()
    Dim xStr As String
    xStr = InputBox("Please enter the word that you want to bold:", "KuTools for Word")
    If Trim(xStr) = "" Then
        MsgBox "Cann’t be empty!", vbInformation, "KuTools for Word"
    End If
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = xStr
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .Replacement.Text = "^&"
        .Wrap = wdFindStop
        .Format = True
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

3. Nadat u de code hebt ingevoerd, drukt u op F5 toets om het uit te voeren, en er verschijnt een dialoogvenster om u eraan te herinneren het woord in te voegen dat u vet wilt maken, zie screenshot:

4. En klik dan OK knop, en alle specifieke woorden zijn in één keer vet opgemaakt.

Aanbevolen Word-productiviteitstools