Deschideți documentul Word
Această Macro Word VBA va deschide un document Word din directorul specificat:
Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'schimbați calea fișierului dvs. Dacă Dir (strFile) "" Apoi' Mai întâi verificăm dacă documentul există deloc la locație dată Documents.Open strFile End If End Sub
Acum puteți interacționa cu documentul nou deschis cu obiectul ActiveDocument. Acest cod va adăuga text în document.
ActiveDocument.Range (0, 0) .Text = "Adăugați text"
Deschideți documentul la variabilă
De asemenea, puteți deschide un document Word, atribuindu-l imediat unei variabile:
Sub OpenDoc () Dim strFile As String Dim oDoc as Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'schimbați calea fișierului dvs. Dacă Dir (strFile) "" Apoi' Mai întâi verificăm dacă documentul există la toate la locația dată Set oDoc = Documents.Open strFile End If End Sub
Vă permite să interacționați cu documentul prin intermediul variabilei oDoc .:
oDoc.Range (0, 0) .Text = "Adăugați text"
În general, este cea mai bună practică să vă deschideți la o variabilă, oferindu-vă posibilitatea de a face referire cu ușurință la document în orice moment.
Deschideți documentul Word din Excel
Această procedură VBA va deschide un document Word dintr-un alt program MS Office (ex. Excel):
Sub OpenDocFromExcel () Dim wordapp Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" Set wordapp = CreateObject ("word.Application") wordapp.Documents.Open strFile wordapp.Visible = True End Sub
