Beim Export von Word-Kommentare, wie Sie auf den Satz bezogen auf ein Kommentar?

Ich versuche zu exportieren eines Word-Dokuments Kommentare abgeben. Ich möchte zum exportieren der Satz-Auswahl, wurde kommentiert, gefolgt von dem Kommentar.

Screen-shot von dem Bild: http://jspeaks.com/mswordcomment.png

Habe ich gefunden-code, um eine Schleife durch das Dokument Kommentare, aber ich kann nicht herausfinden, wie die Referenz der Satz-Auswahl, der Kommentar war in Bezug auf die.

Die aktuelle Logik ist:

Sub ExportComments()
    Dim s As String
    Dim cmt As Word.Comment
    Dim doc As Word.Document

    For Each cmt In ActiveDocument.Comments
        s = s & cmt.Initial & cmt.Index & "," & cmt.Range.Text & vbCr
    Next

    Set doc = Documents.Add
    doc.Range.Text = s
End Sub

Ich gebastelt mit Auswahl.Bereich, allerdings kann ich nicht bestimmen, das richtige Objekt oder die Eigenschaft, enthält die referenzierten Satz.

Möchte ich eine Ausgabe wie die folgende (wenn wir das Beispiel im Bild oben):

Satz: Hier sind weitere Sätze, die enthalten interessante Fakten - Kommentar: Das ist eine interessante Tatsache.
Satz: sind Hier noch mehr Sätze, die enthalten interessante Fakten. Hier sind weitere Sätze, die enthalten interessante Fakten. - Kommentar: Das ist eine sehr interessante Tatsache

InformationsquelleAutor jspeaks | 2010-04-29

  1. 8

    Ich jemanden gefunden, an einem anderen Ort um diese Frage zu lösen.

    Den Schlüssel zu der Lösung ist: cmt.Umfang.FormattedText

    Hier ist die Funktion überarbeitet:

    Sub ExportComments()
    Dim s As String
    Dim cmt As Word.Comment
    Dim doc As Word.Document

    For Each cmt In ActiveDocument.Comments
        s = s & "Text: " & cmt.Scope.FormattedText & " -> "
        s = s & "Comments: " & cmt.Initial & cmt.Index & ":" & cmt.Range.Text & vbCr
    Next

    Set doc = Documents.Add
    doc.Range.Text = s
End Sub
    Toll, dass Sie eine Lösung haben. Sie können gehen Sie voran und akzeptieren Sie Ihre eigene Antwort als richtig (das Häkchen).

    InformationsquelleAutor jspeaks

  2. 3

    Ich sammelte mehrere Stücke von code und kam zu dieser Lösung:

    Sub CopyCommentsToExcel()
'Create in Word vba
'TODO: set a reference to the Excel object library (Tools --> Reference --> Microsoft Excel 12.0 Object library)

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim i As Integer
Dim HeadingRow As Integer
HeadingRow = 3

Dim cmtRef As Range

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Add ' create a new workbook
With xlWB.Worksheets(1)
' Create report info
    .Cells(1, 1).Formula = "Reviewed document:"

' Create Heading
    .Cells(HeadingRow, 1).Formula = "Index"
    .Cells(HeadingRow, 2).Formula = "Page"
    .Cells(HeadingRow, 3).Formula = "Line"
    .Cells(HeadingRow, 4).Formula = "Comment"
    .Cells(HeadingRow, 5).Formula = "Reviewer"
    .Cells(HeadingRow, 6).Formula = "Date"
    For i = 1 To ActiveDocument.Comments.Count
        .Cells(2, 1).Formula = ActiveDocument.Comments(i).Parent
        .Cells(i + HeadingRow, 1).Formula = ActiveDocument.Comments(i).Index
        .Cells(i + HeadingRow, 2).Formula = ActiveDocument.Comments(i).Reference.Information(wdActiveEndAdjustedPageNumber)
        .Cells(i + HeadingRow, 3).Formula = ActiveDocument.Comments(i).Reference.Information(wdFirstCharacterLineNumber)
        .Cells(i + HeadingRow, 4).Formula = ActiveDocument.Comments(i).Range
        .Cells(i + HeadingRow, 5).Formula = ActiveDocument.Comments(i).Initial
        .Cells(i + HeadingRow, 6).Formula = Format(ActiveDocument.Comments(i).Date, "dd/MM/yyyy")
        '        .Cells(i + 1, 3).Formula = ActiveDocument.Comments(i).Parent
        '        .Cells(i + 1, 3).Formula = ActiveDocument.Comments(i).Application
        '        .Cells(i + 1, 7).Formula = ActiveDocument.Comments(i).Author
    Next i
End With
Set xlWB = Nothing
Set xlApp = Nothing
End Sub

    Wertvollste Hilfe von Microsoft Antworten

    user662182: vielen Dank für den ausgezeichneten Beitrag, aber das makro wird nicht kompiliert unter Word 2007, bis der Benutzer folgt den Anweisungen in den TODO-Kommentar im VBA-source. Es ist wichtig zu beachten, dass, wenn der Benutzer führt, ohne dabei die Tools->Referenzen-option ausgegraut ist... ZURÜCKSETZEN der aktuellen makro in den VB-Editor, DANN ist die option aktiv ist!!

    InformationsquelleAutor user662182

Schreibe einen Kommentar