Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
extracting comments inserted during a review process
hi,
does Word provide an option for extracting the review comments (only the comments inserted) into a separate document? thanks for any suggestions. |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
extracting comments inserted during a review process
Hi imsite
The answer depends on what you mean by extracted. That is, where do you want these extracted comments to appear? In a document, on paper, in code? The following may help: http://groups.google.com.au/group/mi...4f22adab5631e1 Hope this helps. Shauna Kelly. Microsoft MVP. http://www.shaunakelly.com/word "imsite" wrote in message ... hi, does Word provide an option for extracting the review comments (only the comments inserted) into a separate document? thanks for any suggestions. |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
extracting comments inserted during a review process
Maybe you can use the macro included below.
The macro creates a new document with a 4-column table which will be filled with information about the comments found in the document that is active when you start the macro. The following information will be inserted in the table: Column 1: Page number where the comment is found Column 2: The commented text (i.e. the text that was selected when the comment was inserted) Column 3: The comment itself Column 4: Comment author You may want to adjust the table layout (this could be done by the macro too). Sub CreateCommentsDoc() Dim oDoc As Document Dim oNewDoc As Document Dim oTable As Table Dim nCount As Long Dim n As Long Set oDoc = ActiveDocument nCount = ActiveDocument.Comments.Count 'Create a new document for the comments Set oNewDoc = Documents.Add 'Insert a 4-column table for the comments With oNewDoc .Content = "" Set oTable = .Tables.Add _ (Range:=Selection.Range, _ numrows:=nCount + 1, _ NumColumns:=4) End With With oTable.Rows(1) .Range.Font.Bold = True .Cells(1).Range.Text = "Page" .Cells(2).Range.Text = "Comment scope" .Cells(3).Range.Text = "Comment text" .Cells(4).Range.Text = "Author" End With 'Get info from each comment from oDoc and insert in table For n = 1 To nCount With oTable.Rows(n + 1) 'Page number .Cells(1).Range.Text = _ oDoc.Comments(n).Scope.Information(wdActiveEndPage Number) 'The text marked by the comment .Cells(2).Range.Text = oDoc.Comments(n).Scope 'The comment itself .Cells(3).Range.Text = oDoc.Comments(n).Range.Text 'The comment author .Cells(4).Range.Text = oDoc.Comments(n).Author End With Next n oNewDoc.Activate MsgBox "Finished creating comments document." Set oDoc = Nothing Set oNewDoc = Nothing Set oTable = Nothing End Sub -- Regards Lene Fredborg DocTools - Denmark www.thedoctools.com Document automation - add-ins, macros and templates for Microsoft Word "imsite" wrote: hi, does Word provide an option for extracting the review comments (only the comments inserted) into a separate document? thanks for any suggestions. |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
extracting comments inserted during a review process
Amazing! Works absolutely the way I want! Thank you very much, Lene. "Lene Fredborg" wrote: Maybe you can use the macro included below. The macro creates a new document with a 4-column table which will be filled with information about the comments found in the document that is active when you start the macro. The following information will be inserted in the table: Column 1: Page number where the comment is found Column 2: The commented text (i.e. the text that was selected when the comment was inserted) Column 3: The comment itself Column 4: Comment author You may want to adjust the table layout (this could be done by the macro too). Sub CreateCommentsDoc() Dim oDoc As Document Dim oNewDoc As Document Dim oTable As Table Dim nCount As Long Dim n As Long Set oDoc = ActiveDocument nCount = ActiveDocument.Comments.Count 'Create a new document for the comments Set oNewDoc = Documents.Add 'Insert a 4-column table for the comments With oNewDoc .Content = "" Set oTable = .Tables.Add _ (Range:=Selection.Range, _ numrows:=nCount + 1, _ NumColumns:=4) End With With oTable.Rows(1) .Range.Font.Bold = True .Cells(1).Range.Text = "Page" .Cells(2).Range.Text = "Comment scope" .Cells(3).Range.Text = "Comment text" .Cells(4).Range.Text = "Author" End With 'Get info from each comment from oDoc and insert in table For n = 1 To nCount With oTable.Rows(n + 1) 'Page number .Cells(1).Range.Text = _ oDoc.Comments(n).Scope.Information(wdActiveEndPage Number) 'The text marked by the comment .Cells(2).Range.Text = oDoc.Comments(n).Scope 'The comment itself .Cells(3).Range.Text = oDoc.Comments(n).Range.Text 'The comment author .Cells(4).Range.Text = oDoc.Comments(n).Author End With Next n oNewDoc.Activate MsgBox "Finished creating comments document." Set oDoc = Nothing Set oNewDoc = Nothing Set oTable = Nothing End Sub -- Regards Lene Fredborg DocTools - Denmark www.thedoctools.com Document automation - add-ins, macros and templates for Microsoft Word "imsite" wrote: hi, does Word provide an option for extracting the review comments (only the comments inserted) into a separate document? thanks for any suggestions. |
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
extracting comments inserted during a review process
Thank you for the feedback. I am glad I could help you.
-- Regards Lene Fredborg DocTools - Denmark www.thedoctools.com Document automation - add-ins, macros and templates for Microsoft Word "imsite" wrote: Amazing! Works absolutely the way I want! Thank you very much, Lene. "Lene Fredborg" wrote: Maybe you can use the macro included below. The macro creates a new document with a 4-column table which will be filled with information about the comments found in the document that is active when you start the macro. The following information will be inserted in the table: Column 1: Page number where the comment is found Column 2: The commented text (i.e. the text that was selected when the comment was inserted) Column 3: The comment itself Column 4: Comment author You may want to adjust the table layout (this could be done by the macro too). Sub CreateCommentsDoc() Dim oDoc As Document Dim oNewDoc As Document Dim oTable As Table Dim nCount As Long Dim n As Long Set oDoc = ActiveDocument nCount = ActiveDocument.Comments.Count 'Create a new document for the comments Set oNewDoc = Documents.Add 'Insert a 4-column table for the comments With oNewDoc .Content = "" Set oTable = .Tables.Add _ (Range:=Selection.Range, _ numrows:=nCount + 1, _ NumColumns:=4) End With With oTable.Rows(1) .Range.Font.Bold = True .Cells(1).Range.Text = "Page" .Cells(2).Range.Text = "Comment scope" .Cells(3).Range.Text = "Comment text" .Cells(4).Range.Text = "Author" End With 'Get info from each comment from oDoc and insert in table For n = 1 To nCount With oTable.Rows(n + 1) 'Page number .Cells(1).Range.Text = _ oDoc.Comments(n).Scope.Information(wdActiveEndPage Number) 'The text marked by the comment .Cells(2).Range.Text = oDoc.Comments(n).Scope 'The comment itself .Cells(3).Range.Text = oDoc.Comments(n).Range.Text 'The comment author .Cells(4).Range.Text = oDoc.Comments(n).Author End With Next n oNewDoc.Activate MsgBox "Finished creating comments document." Set oDoc = Nothing Set oNewDoc = Nothing Set oTable = Nothing End Sub -- Regards Lene Fredborg DocTools - Denmark www.thedoctools.com Document automation - add-ins, macros and templates for Microsoft Word "imsite" wrote: hi, does Word provide an option for extracting the review comments (only the comments inserted) into a separate document? thanks for any suggestions. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using comments in a table inserted in word | Microsoft Word Help | |||
Word should let me review comments out of order | Microsoft Word Help | |||
Printing comments without markup | Microsoft Word Help | |||
Saving comments in review | Microsoft Word Help | |||
Hiding comments should be customizable by time of insertion. | Microsoft Word Help |