Otevřete dokument aplikace Word
Toto makro Word VBA otevře dokument aplikace Word ze zadaného adresáře:
Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'změna na cestu k vašemu souboru If Dir (strFile) "" Pak' Nejprve zkontrolujeme, zda dokument vůbec existuje dané umístění Documents.Open strFile End If End Sub
Nyní můžete pracovat s nově otevřeným dokumentem pomocí objektu ActiveDocument. Tento kód přidá do dokumentu nějaký text.
ActiveDocument.Range (0, 0) .Text = "Přidat nějaký text"
Otevřít dokument proměnné
Můžete také otevřít dokument aplikace Word a okamžitě jej přiřadit proměnné:
Sub OpenDoc () Dim strFile As String Dim oDoc as Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'change to path of your file If Dir (strFile) "" Then' First we check if document existuje vůbec na daném místě Nastavit oDoc = Documents.Open strFile End If End Sub
Umožňuje interakci s dokumentem pomocí proměnné oDoc .:
oDoc.Range (0, 0) .Text = "Přidat nějaký text"
Obecně je nejlepší otevřít proměnnou, což vám dává možnost snadno odkazovat na dokument v libovolném bodě.
Otevřete dokument aplikace Word z aplikace Excel
Tento postup VBA otevře dokument aplikace Word z jiného programu MS Office (např. 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
