Extract comments from a doc file using this easy macro

Posted: August 6, 2014 in extracting information, TICs, Tools, www resources

Word-icon

 

Tools>Macro
Sub Exportarcomentarios()
Dim miRango As Range
If ActiveDocument.Comments.Count >= 1 Then
Set miRango = ActiveDocument.Comments(1).Range
miRango.WholeStory
miRango.Copy
Documents.Add.Content.Paste
End If
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s