Atidarykite „Word“ dokumentą
Ši „Word VBA“ makrokomanda atidarys „Word“ dokumentą iš nurodyto katalogo:
Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'pakeisti failo kelią Jei Dir (strFile) "" Tada "Pirmiausia patikriname, ar dokumentas apskritai egzistuoja nurodyta vieta Dokumentai. Atidaryti strFile End If End Sub
Dabar galite sąveikauti su naujai atidarytu dokumentu naudodami „ActiveDocument“ objektą. Šis kodas į dokumentą pridės šiek tiek teksto.
ActiveDocument.Range (0, 0) .Text = "Pridėti šiek tiek teksto"
Atidaryti dokumentą kintamajam
Taip pat galite atidaryti „Word“ dokumentą, iš karto priskirdami jį kintamajam:
Sub OpenDoc () Dim strFile Kaip eilutė Dim oDoc kaip dokumentas strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'pakeisti failo kelią Jei Dir (strFile) "" Tada "Pirmiausia patikriname, ar dokumentas iš viso egzistuoja nurodytoje vietoje. Nustatykite oDoc = Documents.Nuimkite strFile End if End Sub
Leidžia jums bendrauti su dokumentu per kintamąjį oDoc:
oDoc.Range (0, 0) .Text = "Pridėti šiek tiek teksto"
Paprastai geriausia praktika yra atidaryti kintamąjį, suteikiant jums galimybę bet kuriuo metu lengvai pateikti nuorodą į dokumentą.
Atidarykite „Word“ dokumentą iš „Excel“
Ši VBA procedūra atvers „Word“ dokumentą iš kitos „MS Office“ programos (pvz., „Excel“):
Sub OpenDocFromExcel () Dim wordapp Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" Nustatyti wordapp = CreateObject ("word.Application") wordapp.Documents.Open strFile wordapp.Visible = Tikroji pabaiga Sub