Cómo leer y escribir documentos de Word en Excel VBA: pasos
Por lo tanto, primero debe introducir la biblioteca de palabras. Los pasos son los siguientes:
1.1 Abra la interfaz de Excel VBA
1.2 Seleccione uno de los módulos<. /p>
1.3 Seleccione el menú Herramientas --> Referencias
En el cuadro de diálogo que se abre, seleccione algo como "Biblioteca de objetos de Microsoft Word 14.0".
1.4 Haga clic Aceptar para guardar la configuración.
2. Abra el documento
Establezca wordApplication = CreateObject("Word.Application")
wordApplication.Visible = False
Dim hasOpenDoc As Boolean
hasOpenDoc = IsOpen(filePath) ' es una función autodefinida para comprobar que el archivo está abierto
Si hasOpenDoc = True entonces
Establece wordDoc = GetObject (filePath)
Finalizar si
Si hasOpenDoc = False Entonces
Establecer wordDoc = wordApplication.Documents.Open(filePath)
Finalizar si
wordDoc.Active
Con wordApplication
Atenuar un párrafo como Word.Paragraph
Para cada párrafo en wordDoc.Paragraphs
' hace algo en cada párrafo.
Siguiente aPárrafo
Termina con
wordDoc.Cerrar
Establecer wordDoc = nada
' El siguiente código se refiere a cierta persona increíble, muchas gracias.
No se puede proporcionar el enlace porque falta la ruta, lo siento
' El siguiente método de búsqueda puede averiguar correctamente si el archivo está abierto
Función IsOpen(fileName As String) As Boolean
p>IsOpen = False
Dim findFile As Integer
findFile = FreeFile()
En caso de error, Ir a ErrOpen
Abrir nombre de archivo para bloqueo binario Leer Escribir como findFile
Cerrar findFile
Salir de la función
ErrOpen:
Si Err.Number < > 70 Entonces
Msg = "Error # " & Str(Err.Number) & "fue generado por " & Err.Source & Chr(13) & Err.Description
MsgBox Msg, " Error", Err.HelpFile, Err.HelpContext
Else
IsOpen = True
Finalizar si
Finalizar función