WORD VBA Text suchen und fett machen
23.08.2019 10:11:54
Erik
Vorab: Ich weiß das dieses ein Excel Forum ist, aber vielleicht kann mir ja rotzdem jemand helfen der sich auch mit Word VBA auskennt.
Vielen Dank! Die anderen bitte diese Anfrage einfach ignorieren :-)
Ich habe diese VBA Code hier im Forum ;-) gefunden.
Sub Format()
Dim vList1 As Variant, vList2 As Variant
Dim intI As Integer
Dim myRange As Range
Dim aWord As Range
vList1 = Array("Winter-Paket", "cool sound", "maus")
vList2 = Array("auto")
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
For Each aWord In myRange.Words
For intI = 0 To UBound(vList1)
If LCase(vList1(intI)) = Trim$(LCase(aWord)) Then
aWord.Bold = True
aWord.Font.Color = wdColorBlue
Exit For
End If
Next
For intI = 0 To UBound(vList2)
If LCase(vList2(intI)) = Trim$(LCase(aWord)) Then
aWord.Bold = True
aWord.Font.Color = wdColorRed
Exit For
End If
Next
Next
Set myRange = Nothing
End Sub
Ich habe nun das Problem, das die Wörter: maus und auto gefunden und auch wie gewünscht formatiert werden.
Allerdings die Wörter: Winter-Paket und cool sound nicht.
Hängt das an den "Doppelwörtern" bzw am Bindestrich?
Wie muß das Makro geändert werden.
Liebe Grüße
Erik
Anzeige