Hallo,

ich möchte per VBA in Excel ein Word Dokument öffnen. Dort sind mehrere Textstellen farbig markiert (derzeit zwei mit "Rot" und eine mit "Grün"). Ich möchte, dass zuerst die roten Textstellen gesucht werden und untereinander in eine Spalte geschrieben werden. Danach sollen die Grünen in die Spalte daneben geschrieben werden. Mein derzeitiger Code:

Sub DatenUebertragen()
    Dim WordPfad As String
    Dim Zeile As Integer
    Dim Spalte As Integer
    Dim i As Integer
    Dim AnzahlFarben As Integer
    Dim Farbe As String
        
    AnzahlFarben = 2
    Zeile = 6
    Spalte = 1
    i = 0
    
    WordPfad = Range("B1").Value
    Dim AppWD As Object
    Set AppWD = CreateObject("Word.Application")
    AppWD.Visible = True
    AppWD.documents.Open WordPfad
    
    Do While i < AnzahlFarben
    
    If i = 0 Then
        Farbe = wdColorRed
    End If
    
    If i = 1 Then
        Farbe = wdColorGreen
    End If
    '
    With AppWD.ActiveDocument.Find
        .Forward = True
        .Format = True
        .Font.Color = Farbe
    '
    End With
    If True Then

        
  
    End If
    '
    Do While True
    Zeile = Zeile + 1
    objwd.Find.Execute
    If objwd.Find.Found Then
    Print #1, Format(CStr(Z), "000") & ". "; objwd.Text
    'MsgBox objSelection.Text
    Else
    Exit Do
    End If
    
    Loop
    Spalte = Spalte + 1
    i = i + 1
    
    Exit Do
    Loop

End Sub

Mein Problem ist, dass er einen Fehler bei

    With AppWD.ActiveDocument.Find
        .Forward = True
        .Format = True
        .Font.Color = Farbe

ausgibt. Er öffnet das Dokument einwandfrei. Dass nachfolgender Code noch falsch sein kann, ist mir bewusst, den konnte ich noch nicht testen. Habe ich einen Syntax-Fehler oder ist der Ansatz schon komplett falsch? Ist es überhaupt so möglich?

Gruß

Niels