Word VBA - makro Word dokumenta atvēršanai

Atveriet Word dokumentu

Šis Word VBA makro atvērs Word dokumentu no norādītā direktorija:

Apakš OpenDoc () Dim strFile Kā virkne strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'mainīt faila ceļu Ja Dir (strFile) "" Tad "Vispirms pārbaudām, vai dokuments vispār eksistē norādītā atrašanās vieta Dokumenti. Atvērt strFile End If End Sub

Tagad jūs varat mijiedarboties ar tikko atvērto dokumentu, izmantojot ActiveDocument objektu. Šis kods dokumentam pievienos tekstu.

ActiveDocument.Range (0, 0) .Text = "Pievienot tekstu"

Atvērt dokumentu mainīgajam

Varat arī atvērt Word dokumentu, nekavējoties piešķirot to mainīgajam:

Apakš OpenDoc () Dim strFile Kā virkne Dim oDoc kā dokuments strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'mainīt faila ceļu Ja Dir (strFile) "" Tad "Vispirms pārbaudām, vai dokuments pastāv vispār noteiktā vietā Set oDoc = Documents.Open strFile End If End Sub

Ļauj mijiedarboties ar dokumentu, izmantojot mainīgo oDoc:

oDoc.Range (0, 0) .Text = "Pievienot tekstu"

Parasti labākā prakse ir atvērt mainīgo, dodot jums iespēju jebkurā brīdī viegli atsaukties uz dokumentu.

Atveriet Word dokumentu no Excel

Šī VBA procedūra atvērs Word dokumentu no citas MS Office programmas (piemēram, Excel):

Apakš 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 = Patiess gals Sub