Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: ruzzzer am Februar 10, 2015, 11:49:28 Vormittag

Titel: VBA - Word aus Excel aufrufen und die Word-Kommentare nach der Excel ID-Durchsu
Beitrag von: ruzzzer am Februar 10, 2015, 11:49:28 Vormittag

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

Titel: Antw: VBA - Word aus Excel aufrufen und die Word-Kommentare nach der Excel ID-Durchsu
Beitrag von: kgs-ks am Februar 18, 2015, 09:37:46 Vormittag

Hallo

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

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

kgs