Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Copy comments
I have a word document and I need to copy all the comments inserted to a new
document. |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Copy comments
The following macro should do that:
Sub ExtractComments() Dim DocA As Document Dim DocB As Document Dim comm As Variant Dim Count As Long Dim sComment As String Set DocA = ActiveDocument Set DocB = Word.Documents.Add Count = 1 For Each comm In DocA.Comments sComment = DocA.Comments(Count).Range.Text sComment = "(" & DocA.Comments(Count).Initial & Count & ") " & sComment DocB.Activate Selection.TypeText sComment & vbCr Count = Count + 1 Next comm End Sub http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org chen wrote: I have a word document and I need to copy all the comments inserted to a new document. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to copy all comments in one word document, paste into another. | Microsoft Word Help | |||
Deleted comments - any way for a 3rd party to view deleted comments? | Microsoft Word Help | |||
Copy track changes: edits, deletes, and comments to another doc | Microsoft Word Help | |||
Copy (or import) all comments from one doc to another | Microsoft Word Help | |||
How can I copy all Word2003 comments into separate document? | Microsoft Word Help |