Lors de l'exportation de Parole des commentaires de révision, comment faites-vous référence à la phrase liée à un commentaire?

Je suis en train d'exporter un document Word en revue les commentaires. Je veux exporter la phrase de sélection qui a été commenté suivi du commentaire.

Capture d'écran de l'image: http://jspeaks.com/mswordcomment.png

J'ai trouvé le code d'une boucle sur le document des commentaires, mais je ne peux pas comprendre comment faire référence à la phrase de sélection que le commentaire a été relative à.

La logique actuelle est:

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

J'ai bricolé avec la Sélection.Large, cependant je ne peut pas déterminer le bon objet ou une propriété qui contient référencé dans la phrase.

Je voudrais pour produire une sortie comme suit (si nous utilisons l'exemple dans l'image ci-dessus):

Phrase: Voici plus de phrases qui contiennent des faits intéressants - Commentaire: C'est un fait intéressant.
Phrase: Voici plus de phrases qui contiennent des faits intéressants. Voici plus de phrases qui contiennent des faits intéressants. - Commentaire: C'est un fait très intéressant

OriginalL'auteur jspeaks | 2010-04-29

  1. 8

    J'ai trouvé quelqu'un sur un autre site pour résoudre cette question.

    La clé de la solution est: cmt.La portée.FormattedText

    Ici est la fonction de révision:

    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
    Grand que vous avez une solution. Vous pouvez aller de l'avant et d'accepter votre propre réponse comme correcte (la coche).

    OriginalL'auteur jspeaks

  2. 3

    J'ai recueilli plusieurs morceaux de code et arrivés à cette solution:

    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

    Les plus précieux de l'aide de Réponses De Microsoft

    user662182: Merci pour l'excellente contribution, mais cette macro ne compile pas sous Word 2007 jusqu'à ce que l'utilisateur suit les instructions dans la TODO commentaire de la source VBA. Il est important de noter que si l'utilisateur exécute sans cela, les Outils->Références de l'option est grisée... remettre le macro dans l'Éditeur VB, PUIS l'option est active!!

    OriginalL'auteur user662182