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
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
By.
Share
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
Share