Lansați fișierul Word din Excel VBA

Anonim

În acest articol, vom crea o macro pentru a deschide documentul Word.

Pentru a deschide un document Word, vom specifica calea completă a documentului în caseta de text de pe foaia principală. După specificarea căii complete, faceți clic pe butonul „Trimiteți” pentru a executa macrocomanda.

Explicarea codului

Dim WDApp Ca Word.Application

Codul de mai sus este folosit pentru a declara obiectul cuvântului cerere.

Setați WDApp = CreateObject ("word.Application")

Codul de mai sus este utilizat pentru a crea un nou obiect al cuvântului aplicație. Aplicația Word va începe să ruleze, dar în mod implicit, nu va fi vizibilă.

WDApp.Visible = Adevărat

Codul de mai sus este folosit pentru a face vizibilă fereastra aplicației cuvântului.

Setați WDDoc = WDApp.Documents.Open (FileName)

Codul de mai sus este utilizat pentru a deschide documentul Word.

Setați WDDoc = Nimic

Setați WDApp = Nimic

Codul de mai sus este utilizat pentru a elibera orice memorie ocupată de obiect.

Vă rugăm să urmați codul de mai jos

 Sub OpeningWordFile () 'Declararea variabilelor Dim FileName as String Dim WDApp As Word. aplicație Set WDApp = CreateObject ("word.Application") 'Vizibilizarea cuvântului aplicație WDApp.Visible = True' Deschiderea documentului Word necesar Set WDDoc = WDApp.Documents.Open (FileName) 'Eliberați memoria utilizată de variabila obiect Set WDDoc = Nothing Set WDApp = Nothing End Sub 

Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.

Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail