Word VBA - makro do otwierania dokumentu programu Word

Otwórz dokument Word

To makro Word VBA otworzy dokument Word z określonego katalogu:

Sub OpenDoc() Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'zmień ścieżkę pliku If Dir(strFile) "" Następnie 'Najpierw sprawdzamy, czy dokument w ogóle istnieje podana lokalizacja Documents.Open strFile End If End Sub

Teraz możesz wchodzić w interakcję z nowo otwartym dokumentem za pomocą obiektu ActiveDocument. Ten kod doda tekst do dokumentu.

ActiveDocument.Range(0, 0).Text = "Dodaj trochę tekstu"

Otwórz dokument do zmiennej

Możesz także otworzyć dokument Word, natychmiast przypisując go do zmiennej:

Sub OpenDoc() Dim strFile As String Dim oDoc as Document strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'zmień na ścieżkę pliku If Dir(strFile) "" Następnie 'Najpierw sprawdzamy, czy dokument w ogóle istnieje w podanej lokalizacji Set oDoc = Documents.Open strFile End If End Sub

Umożliwienie interakcji z dokumentem poprzez zmienną oDoc.:

oDoc.Range(0, 0).Text = "Dodaj trochę tekstu"

Generalnie najlepszą praktyką jest otwarcie na zmienną, co daje możliwość łatwego odwoływania się do dokumentu w dowolnym momencie.

Otwórz dokument Word z Excela

Ta procedura VBA otworzy dokument Word z innego programu MS Office (np. 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 Pod