Exportar comentarios

Hola:
Puedes probar la siguiente 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

Te exporta el contenido de los comentarios a un nuevo archivo de Word.
Marta PM
Saúdos/Saludos
MVP Office


Gracias por votar si el post te parece útil

http://www.fermu.com


"Neglo" wrote:

Como se hace para exportar únicamente los comentarios de un documento de
word, a un nuevo archivo o copiar unicamente los comentarios
NEGL