COPIAR COMENTARIOS DE EXCEL A WORD

Hola, Susana.

Una posibilidad es que envíes los comenarios a un archivo de texto, digamos:

C:\Comenarios.txt

Luego puedes en tu documento de Word copiarlos y pegarlos todos de un solo,
o ejecutar el comando "Insertar" - "Archivo". El código que genera el
archivo de texto podría ser algo como esto:

Sub MisComentarios()
Dim x As String, j As Long
Open "C:\Comentarios.txt" For Output As #1

Set cmt = ActiveSheet.Comments
For Each c In cmt
Print #1, Replace(c.Shape.TopLeftCell.Address, "$", "") & ":"
x = ""
For j = 1 To Len(c.Text)
If Mid(c.Text, j, 1) <> Chr(10) Then
x = x & Mid(c.Text, j, 1)
Else
Print #1, x
x = ""
End If
Next j
Print #1, x
Print #1, " "
Next

Close #1
End Sub


Comenta si el resultado te fue adecuado.

Saludos.



"susana" escribió:

deseo tener capturados en word todos los comentarios de una hoja de excel,
sin tener que hacerlo uno por uno