Red de conocimiento informático - Material del sitio web - Cómo leer y escribir documentos de Word en Excel VBA: pasos

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