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:

[sourcecode language=»vb»]
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
[/sourcecode]

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.