Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
imsite imsite is offline
external usenet poster
 
Posts: 29
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
Shauna Kelly Shauna Kelly is offline
external usenet poster
 
Posts: 571
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
Lene Fredborg Lene Fredborg is offline
external usenet poster
 
Posts: 1,291
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
imsite imsite is offline
external usenet poster
 
Posts: 29
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
Lene Fredborg Lene Fredborg is offline
external usenet poster
 
Posts: 1,291
Default 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

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Using comments in a table inserted in word Leslie Microsoft Word Help 3 August 3rd 06 02:57 PM
Word should let me review comments out of order lisarenay2 Microsoft Word Help 1 March 14th 06 07:42 PM
Printing comments without markup MarkM Microsoft Word Help 4 November 15th 05 10:33 AM
Saving comments in review Mike Smith Microsoft Word Help 1 October 14th 05 08:06 PM
Hiding comments should be customizable by time of insertion. thedavidmo Microsoft Word Help 0 August 25th 05 12:25 AM


All times are GMT +1. The time now is 01:27 AM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"