Hallo zusammen,

mir liegt eine Word-Datei mit ca. 320 Seiten vor.

Das Schlüsselwort in einer Zeile ist der Text "/main"

Nun soll VBA danach suchen und die Zeile, in der das Schlüsselwort steht, markieren.

Doch leider wird das Schlüsselwort gar nicht gefunden. Obwohl es mehrfach vorhanden ist!

Sub example()

    Dim Data As String

    Open "D:\Beispiel.docx" For Input As #1
    
    Do While Not EOF(1)
        Line Input #1, Zeile
        If Left(Zeile, 5) = "/main" Then
        Selection.Expand unit:=wdLine
        Selection.Range.HighlightColorIndex = wdYellow
        End If
    Loop

   Close #1
End Sub

In 'Zeile' steht irgendein Kauderwelsch.

Was mache ich falsch?

Danke

Thomas