Forum Discussion
How to copy & paste multiple comments' balloons from one word doc to another on MacBook air?
As far as I know, this would require a macro, both on a Mac and a PC.
The following simple VBA code would insert comment text and the commented text in a new document:
Sub InsertCommentTextInNewDoc() 'Macro created by Stefan Blom, MVP, June 2022 Dim c As Comment Dim doc As Document Dim currdoc As Document Set currdoc = ActiveDocument Set doc = Documents.Add For Each c In currdoc.Comments doc.Content.InsertParagraphAfter doc.Content.InsertAfter "Commented text: " & c.Scope.Text doc.Content.InsertParagraphAfter doc.Content.InsertAfter "Comment: " & c.Range.FormattedText Next c End Sub
Thanks for the response Stefan_Blom
Yeah, I am not interested in copying the entire commented text. I want to be able to perform the following using word doc on my MacBook air:
1- select the content of all comment balloons instead of just selecting a single comment manually,
2- copy and then paste the content of the comment balloons into another doc without the commented texts
I hope I made it clearer to you... I saw a video of a person performing the same procedure on a PC. I couldn't find any resources on how to perform the same thing on Mac.
As far as I know, this would require a macro, both on a Mac and a PC.
The following simple VBA code would insert comment text and the commented text in a new document:
Sub InsertCommentTextInNewDoc()
'Macro created by Stefan Blom, MVP, June 2022
Dim c As Comment
Dim doc As Document
Dim currdoc As Document
Set currdoc = ActiveDocument
Set doc = Documents.Add
For Each c In currdoc.Comments
doc.Content.InsertParagraphAfter
doc.Content.InsertAfter "Commented text: " & c.Scope.Text
doc.Content.InsertParagraphAfter
doc.Content.InsertAfter "Comment: " & c.Range.FormattedText
Next c
End Sub
Thank you very much Stefan_Blom
I will try it out!