VBA - Word aus Excel aufrufen und die Word-Kommentare nach der Excel ID-Durchsu

[ruzzzer]

Hallo zusammen.
Ich versuche aus einer Excel-Tabelle mit IDs ein Word-Dokument aufzurufen und dort die aus der Excel-Tabelle ausgelesene ID in den Kommentaren zu finden und an die entsprechende Stelle im Text zu springen. Jedoch gelingt es mir nicht.
Der Aufruf der Suchfunktion funktioniert, die Suche besränkt sich jedoch nur auf den Text und nicht auf die Kommentare.

Hat jemand einen Tip wie man die Kommentare dursuchen kann?

Vielen Dank im Voraus!


Quelltext:

    sPathFile = ThisWorkbook.Path & "\Test.docx"
    On Error Resume Next
    Set appWord = GetObject(, "Word.Application")
    If Err <> 0 Then Set appWord = CreateObject("Word.Application")
    On Error GoTo 0
    appWord.Visible = True
        With appWord
        For Each Doc In .Documents
        If Doc.Name = Mid(sPathFile, InStrRev(sPathFile, "\") + 1) Then
            Offen = True
            Exit For
        End If
        Next Doc
        If Not Offen Then .Documents.Open sPathFile
        .Activate

    With appWord.Selection.Find
        .Text = "SID_00001"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

[kgs-ks]

Hallo

das ist ja wohl ein Word-Thema (anderes Forum)!   

und was  mit "Kommentaren" gemeint ist solle erklärt werden.

kgs