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