Microsoft Word es un procesador de textos utilizado para crear y formatear documentos. Visual Basic para Aplicaciones (VBA) se utiliza habitualmente para automatizar tareas repetitivas entre las aplicaciones de Microsoft Office como Word, Excel y Access. En unos pocos pasos se puede escribir un pequeño subconjunto de leer un documento de Word en VBA.
Instrucciones
1 Abra Microsoft Excel 2007. Haga clic en la pestaña "desarrolladores" y seleccione "Visual Basic". Tipo "Sub readWordDocuemnt ()" y pulse "Enter" para crear un nuevo sub.
2 Escribe lo siguiente para declarar sus variables:
Dim wordApplication Como Word.Application
Dim WordDocument Como Word.Document
Dim como secuencia pText
Dim PRANGE Como Word.Range
PCOUNT Dim As Long
Dim rXLRow As Long
3 Escribe lo siguiente para crear un nuevo libro de Excel y abra el documento de Word para ser leído:
Workbooks.Add
Establecer wordApplication = CreateObject ( "Word.Application")
Establecer WordDocument = wordApplication.Documents.Open ( "C: \ Texto en Word.doc")
4 Escriba lo siguiente para recorrer los párrafos en el documento de Word y añadirlos al nuevo libro de Excel:
rXLRow = 2
con WordDocument
Para PCOUNT = 1 Para .Paragraphs.Count
Establecer PRANGE = .Range (Inicio:. = Los párrafos (PCOUNT) .Range.Start, _
Fin:. = Los párrafos (PCOUNT) .Range.End)
pText = pRange.Text
ActiveSheet.Range ( "A" y rXLRow) .Formula = pText
rXLRow = rXLRow + 1
Siguiente PCOUNT
.Cerca
Terminar con
5 Escribe lo siguiente para guardar el nuevo libro, salir de Word y las variables claras:
wordApplication.Quit
Establecer WordDocument = Nada:
Establecer wordApplication = Nada
ActiveWorkbook.Saved = True
6 Ejecutar el sub.