En este artículo, crearemos una macro para abrir un documento de Word.
Para abrir un documento de Word, especificaremos la ruta completa del documento en el cuadro de texto de la hoja principal. Después de especificar la ruta completa, haga clic en el botón "Enviar" para ejecutar la macro.
Explicación del código
Atenuar WDApp como Word.Application
El código anterior se utiliza para declarar el objeto de la palabra aplicación.
Establecer WDApp = CreateObject ("word.Application")
El código anterior se usa para crear un nuevo objeto de la palabra aplicación. La aplicación de Word comenzará a ejecutarse, pero de forma predeterminada, no estará visible.
WDApp.Visible = Verdadero
El código anterior se utiliza para hacer visible la ventana de la aplicación de palabras.
Establecer WDDoc = WDApp.Documents.Open (FileName)
El código anterior se usa para abrir el documento de Word.
Establecer WDDoc = Nada
Establecer WDApp = Nada
El código anterior se usa para liberar cualquier memoria ocupada por el objeto.
Siga a continuación para obtener el código
Sub OpeningWordFile () 'Declarando variables Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Obteniendo el nombre del archivo del cuadro de texto FileName = Sheets ("Main"). TextBox1.Value 'Creando el objeto de la palabra application Set WDApp = CreateObject ("word.Application") 'Hacer visible la palabra application WDApp.Visible = True' Abrir el documento de Word requerido Set WDDoc = WDApp.Documents.Open (FileName) 'Liberar la memoria utilizada por la variable de objeto Set WDDoc = Nada configurado WDApp = Nada End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico