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:
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.
Espero que esta información les sea útil en sus labores.
Siguenos en: