Cómo exportar todos los comentarios de un word 365 con una macro?

Question

Cómo exportar todos los comentarios de un word 365 con una macro?

mercedesDeu 0

Necesito exportar los comentarios de un word a otro word porque son un resumen de muchas páginas. Tengo una macro para exportar comentarios de un documento word a otro word, pero sale un mensaje de error " Microsoft Visual Basic para aplicaciones

                           Error de compilación 

                           se esperaba End Sub

LA MACRO es

Sub ExportarComentariosAWord()

Dim c As Comment

Dim i As Long

Dim docNuevo As Document

Set docNuevo = Documents.Add

i = 1

For Each c In ActiveDocument.Comments

    docNuevo.Content.InsertAfter "Comentario " & i & vbCrLf

    docNuevo.Content.InsertAfter "Autor: " & c.Author & vbCrLf

    docNuevo.Content.InsertAfter "Texto: " & c.Range.Text & vbCrLf

    docNuevo.Content.InsertAfter "Referencia: " & c.Scope.Text & vbCrLf & vbCrLf

    i = i + 1

Next c

docNuevo.SaveAs2 FileName:="ComentariosExtraidos.docx"

docNuevo.Close

MsgBox "Los comentarios se han exportado."

End Sub

Por favor me pueden ayudar? o quizá hay otro camino para exportar TODOS los comentarios?

Jeronimo Fuerte 46,845 Puntos de reputación Asesor independiente

2025-08-20T23:35:22.5766667+00:00

Hola! El error “se esperaba End Sub” suele pasar por alguna línea rota, un carácter extraño o la macro pegada en un lugar incorrecto (por ejemplo, dentro de otra Sub/Function, o en ThisDocument en medio de otro procedimiento).

¿Podrías compartir una captura de pantalla de como luce cuando lo tratas de utilizar en Word?

2 respuestas

Su respuesta

Jeronimo Fuerte 46,845 Puntos de reputación Asesor independiente

2025-08-20T23:35:22.5766667+00:00

Hola! El error “se esperaba End Sub” suele pasar por alguna línea rota, un carácter extraño o la macro pegada en un lugar incorrecto (por ejemplo, dentro de otra Sub/Function, o en ThisDocument en medio de otro procedimiento).

¿Podrías compartir una captura de pantalla de como luce cuando lo tratas de utilizar en Word?

Answer 1

mercedesDeu 0

Quería saber tu opinión sobre este macro para exportar comentarios que me ha funcionado varios años pero que ahora sale un mensaje que dice:
Se ha producido el error '4605' en tiempo de ejecución:

                      Este comando no está disponible

El macro que ha dejado de funcionar es

Dim oRango As Range

If ActiveDocument.Comments.Count >= 1 Then

Set oRango = ActiveDocument.Comments(1).Range

oRango.WholeStory

oRango.Copy

Documents.Add.Content.Paste

End If

End Sub

0 comentarios

Answer 2

mercedesDeu 0

Jerónimo muchas gracias por responder.

Así queda en la pantalla Imagen del usuario

0 comentarios