Cómo Extraer y Enumerar Comentarios de un Documento de Word usando VBA

Pasos para Extraer y Enumerar Comentarios en Word

1. Abre el documento de Word

Inicia Microsoft Word y abre el documento del cual deseas extraer los comentarios.

2. Accede al Editor de Visual Basic

Presiona ALT + F11 para abrir el Editor de Visual Basic para Aplicaciones (VBA).

3. Inserta un nuevo módulo

En el Editor de VBA, ve al menú “Insertar” y selecciona “Módulo”. Se abrirá un nuevo módulo donde podrás escribir el código.

4. Introduce el siguiente código VBA

Copia y pega el siguiente código en el módulo:

Sub ExportarComentarios()
    Dim cmt As Comment
    Dim RutaArchivo As String
    Dim ArchivoTexto As Integer
    Dim TextoComentario As String
    Dim FechaComentario As String
    Dim PaginaComentario As Long
    Dim AutorComentario As String
    Dim TextoSalida As String
    Dim NumeroComentario As Integer

    ' Especifica la ruta y nombre del archivo de texto de salida
    RutaArchivo = Environ("USERPROFILE") & "\Desktop\Comentarios.txt"

    ' Abre el archivo de texto para escritura
    ArchivoTexto = FreeFile
    Open RutaArchivo For Output As #ArchivoTexto

    ' Inicializar el contador de comentarios
    NumeroComentario = 1

    ' Recorre todos los comentarios del documento
    For Each cmt In ActiveDocument.Comments
        ' Obtener el texto del comentario
        TextoComentario = cmt.Range.Text

        ' Obtener la fecha del comentario
        FechaComentario = Format(cmt.Date, "dd/mm/yyyy hh:mm:ss")

        ' Obtener el número de página del comentario
        PaginaComentario = cmt.Scope.Information(wdActiveEndAdjustedPageNumber)

        ' Obtener el autor del comentario
        AutorComentario = cmt.Author

        ' Construir la cadena de salida
        TextoSalida = "Comentario No: " & NumeroComentario & vbCrLf & _
                      "Página: " & PaginaComentario & vbCrLf & _
                      "Fecha: " & FechaComentario & vbCrLf & _
                      "Autor: " & AutorComentario & vbCrLf & _
                      "Comentario: " & TextoComentario & vbCrLf & _
                      "----------------------------------------" & vbCrLf

        ' Escribir la información en el archivo de texto
        Print #ArchivoTexto, TextoSalida

        ' Incrementar el contador de comentarios
        NumeroComentario = NumeroComentario + 1
    Next cmt

    ' Cerrar el archivo de texto
    Close #ArchivoTexto

    ' Mensaje de confirmación
    MsgBox "Los comentarios han sido exportados a:" & vbCrLf & RutaArchivo, vbInformation, "Exportación Completa"
End Sub

Ejemplo de resultado del script

Comentario Nº: 1
Página: 2
Fecha: 04/11/2024 10:15:30
Autor: María López

Conclusión

Con este sencillo script de VBA, puedes extraer y enumerar eficientemente todos los comentarios de un documento de Word, incluyendo detalles como el número de página, la fecha y el autor. Esta herramienta es especialmente útil para revisar y gestionar comentarios en documentos colaborativos, facilitando la comunicación y el seguimiento de las sugerencias y cambios propuestos. Al automatizar este proceso, ahorrarás tiempo y mejorarás la productividad en tus proyectos.