Moving Comments to another Document

Question

Moving Comments to another Document

Anonymous

How do I move comments from one Word document into another Word document? I received feedback and comments from a second party, but now I need to have those comments shown on another Word document. I also want the commentator's name to show, including the original date and time.

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

2 additional answers

Answer 1

Hello,

My name is EngineTyme, an Independent Advisor and a Microsoft user like you and I would be glad to help you.

I understand that you want to move comments from one word document to another.

Kindly try suggested steps below to move comments from one Word document to another:

Method 1: Copy and Paste:

Open both documents: Have both the document containing the comments and the destination document open in Word. Select the comments: In the document with the comments, highlight the individual comments you want to move or use "Ctrl + A" to select all comments. Copy the comments: Right-click on the selected comments and choose "Copy." Alternatively, press "Ctrl + C." Switch to the destination document: Click on the tab of the destination document where you want to paste the comments. Paste the comments: Right-click where you want the comments to appear and choose "Paste." Alternatively, press "Ctrl + V." Adjust the comments: After pasting, you can adjust the position of the comments by dragging them to the desired location.

Method 2: Use the Review Pane:

Open both documents: Have both documents open in Word. Show the Review Pane: In the document with the comments, go to the "Review" tab and click on "Show Reviewing Pane." Select the comments: Choose the comments you want to move by clicking on the comment balloon or the comment itself. Click "Move to": In the Review Pane, click on the "Move To" button and select "Another Document." Choose the destination document: Browse and select the destination document where you want to paste the comments. Click "Copy": In the "Move Comments" dialog box, choose the option "Copy comments to the selected document" and click "Copy." Adjust the comments: In the destination document, the comments will be pasted. You can adjust their position by dragging them to the desired location.

“Give back to the Community. Help the next person who has this issue by indicating if this reply solved your problem. Click Yes or No below. “

Please let me know if you have any questions or concern.

Best regards, EngineTyme.

Answer 2

Anonymous

Thank you so much. This worked and saved me an incredible amount of time and frustration.

Stan

0 comments

Answer 3

Try a macro such as the one below. It will create a new document in which each comment and some additional info is placed. For installation instructions, see https://www.gmayor.com/installing_macro.htm.

Sub CollectCommentsInCurrentDoc() 

'Code provided by the Microsoft Community 

  Dim i As Integer 

  Dim actDoc As Document 

  Dim newDoc As Document 

  Dim myTable As Table 

  If ActiveDocument.Comments.Count = 0 Then 

    MsgBox "No comment in this document", vbInformation, "Comment Collector" 

    Exit Sub 

  End If 

  Set actDoc = ActiveDocument 

  Set newDoc = Documents.Add 

  Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _ 

NumRows:=actDoc.Comments.Count + 1, NumColumns:=5) 

  'Table Titles 

  With myTable 

    .Cell(1, 1).Range.Text = "page" 

    .Cell(1, 2).Range.Text = "line" 

    .Cell(1, 3).Range.Text = "target" 

    .Cell(1, 4).Range.Text = "comment" 

    .Cell(1, 5).Range.Text = "author" 

    .Rows(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter 

  End With 

  'Data Entry 

  For i = 1 To actDoc.Comments.Count 

    With actDoc.Comments(i) 

      myTable.Cell(i + 1, 1).Range.Text = .Scope.Information(wdActiveEndPageNumber) 

      myTable.Cell(i + 1, 2).Range.Text = .Scope.Information(wdFirstCharacterLineNumber) 

      myTable.Cell(i + 1, 3).Range.Text = .Scope.Text 

      myTable.Cell(i + 1, 4).Range.Text = .Range.Text 

      myTable.Cell(i + 1, 5).Range.Text = .Author 

    End With 

  Next i 

  'Table Style 

  With myTable 

    .Style = -155 

    .AutoFitBehavior (wdAutoFitContent) 

  End With 

  MsgBox "Copying complete. Please save!" 

End Sub

Share via

Moving Comments to another Document

2 additional answers