Eine Familie von Microsoft-Softwareprodukten für die Textverarbeitung zum Erstellen von Web-, E-Mail- und Druckdokumenten.
Hallo Friedrich,
nix "na und". Dein Screenshot führt immerhin zu der Erkenntnis, dass deine Liste aus einzeiligen Absätzen besteht. Wären es tatsächlich Zeilen, wäre der Suchaufwand erheblich höher.
Da Burkhards Suchstring das ganze Dokument als 1 Treffer behandelt und ich nicht weiß, warum, steuere ich folgende Makrolösung bei, die alle Absätze einzeln durchschleift und das Vorkommen der zwei Teilbegriffe "Abdm" und "Altersheim" in jedem Absatz highlightet.
Das Durchlaufen des ganzen Dokuments kann bei 120 Seiten eine Weile dauern, weil eben alle Absätze einzeln durchsucht werden.
Sub absatzweise()
Dim i As Long
Dim markerFarbe As Long
'highlightfarbe feststellen:
markerFarbe = Options.DefaultHighlightColorIndex
'highlightfarbe neu setzen:
Options.DefaultHighlightColorIndex = wdBrightGreen
'Absatzweise suchen und Treffer highlighten:
For i = 1 To ActiveDocument.Paragraphs.Count
With ActiveDocument.Paragraphs(i).Range.Find
.MatchWildcards = True
.Text = "Abdm*Altersheim"
.Replacement.Highlight = True
.Execute Replace:=wdReplaceAll
End With
Next i
'highlightFarbe wieder auf Originalfarbe setzen:
Options.DefaultHighlightColorIndex = markerFarbe
End Sub