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.

ArrowMainSheet

Explicación del código

Dim WDApp As Word.Application El código anterior se utiliza para declarar el objeto de la palabra aplicación.

Establezca WDApp = CreateObject («word.Application»)

El código anterior se usa para crear un nuevo objeto de la palabra aplicación. La aplicación Word comenzará a ejecutarse, pero de forma predeterminada, no estará visible.

WDApp.Visible = Verdadero El código anterior se usa para hacer visible la ventana de la aplicación de palabras.

Establezca 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 el código a continuación

Sub OpeningWordFile()

'Declaring variables

Dim FileName As String

Dim WDApp As Word.Application

Dim WDDoc As Word.Document

'Getting the file name from the text box

FileName = Sheets("Main").TextBox1.Value

'Creating object of the word application

Set WDApp = CreateObject("word.Application")

'Making visible the word application

WDApp.Visible = True

'Opening the required word document

Set WDDoc = WDApp.Documents.Open(FileName)

'Release the memory used by object variable

Set WDDoc = Nothing

Set WDApp = Nothing

End Sub

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]