Si alguna vez han tenido que revisar todos los comentarios de un libro de Excel y quisieran copiarlos a otro documento para poder editarlos, clasificarlos, responderlos, etc. A continuación encontraremos una interesante técnica para hacerlo.

Supongamos que tenemos un libro de Excel llamado “prueba.xlsx” ubicado en la ruta C:\Scripts y que en este hemos puesto algunos comentarios:

Comentarios Excel

Comentarios Excel

Entonces la magia para obtener los comentarios esta en el siguiente script:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\prueba.xlsx")
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set colComments = objWorksheet.Comments

For Each objComment in colComments
strComments = strComments + objComment.Text + vbCrlf + vbCrLf
Next

objExcel.Quit

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

objSelection.TypeText strComments

Copiamos el texto usando un editor de texto como Notepad y lo salvamos con el nombre CopyComments.vbs. Dentro de este nos aseguraremos de que la ruta y nombre de archivo correspondan con el que queremos procesar. Una vez lo tengamos salvado basta con hacer doble click en el archivo y se generará un archivo de Word con todos los comentarios encontrados en nuestro libro.

Comentarios Encontrados

Comentarios Encontrados

Espero que esta información les sea útil en sus labores.