Microsoft Word es un programa procesador de texto utilizado para crear y formatear documentos. Visual Basic para Aplicaciones ( VBA) es comúnmente utilizado para automatizar tareas repetitivas entre las aplicaciones de Microsoft Office como Word, Excel y Access. En pocos pasos se puede escribir un pequeño sub para leer un documento de Word en VBA. Instrucciones
1
Abra Microsoft Excel 2007 . Haga clic en la pestaña de " desarrolladores" y seleccione "Visual Basic ". Tipo " readWordDocuemnt Sub ()" y presionar "Enter " para crear un nuevo sub
2
Escriba lo siguiente para declarar las variables : .
WordApplication As Word.Application < br >
Dim wordDocument Como Word.Document
pText dévil como secuencia
PRANGE As Word.Range
PCOUNT Dim As Long
rXLRow Dim As Long
3
Escriba lo siguiente para crear un nuevo libro de Excel y abra el documento de Word que se lea :
Workbooks.Add
Set wordApplication = CreateObject ( " Word.Application " )
Set wordDocument = wordApplication.Documents.Open ("C: \\ Texto en Word.doc ")
4
Escriba el siguiente bucle a través de los párrafos en el documento de Word y añadirlos al nuevo libro de Excel : .
rXLRow = 2
wordDocument
para PCOUNT = 1 para Paragraphs.Count < br . > Set
PRANGE = Range ( inicio: . = párrafos ( PCOUNT ) Range.Start , _
finales: . . . = párrafos ( PCOUNT ) Range.End )
pText = pRange.Text
ActiveSheet.Range ("A" y rXLRow ) . Fórmula = pText
rXLRow = rXLRow + 1
Siguiente PCOUNT
. Close to
End con fotos de 5
Escriba lo siguiente para guardar el nuevo libro , salga de Word y las variables claras :
wordApplication.Quit
Set wordDocument = Nothin :
wordApplication Set = Nothing
ActiveWorkbook.Saved = True
6
Ejecutar los sub
< br . >