Hi,
I have been using a Macro for some time that extracts all text in a Word that had been covered/highlighted by a comment, and inserts it into a new, separate Word document. However, the only issue is that the extracted text does not maintain the existing formatting of the original document, i.e. same font, same font size etc.. I'm not quite sure how best to edit my Macro for that function?
Code:
Sub AnalyseComments()
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(wdActiveEndPageNumber)
'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
Alternatively, I thought about another Macro that would delete all text in the original document, but specifically excluding any text that had been covered/highlighted by a comment. This would therefore create a document with just the commented text and maintain the formatting. However, I'm a bit of a loss of creating this code.
I'd be grateful for any advice if anyone is able to help.