Word VBA - Макрос за отваряне на Word документ

Отворете Word документ

Този макрос на Word VBA ще отвори документ на Word от посочената директория:

Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'променете пътя на вашия файл Ако Dir (strFile) "" Тогава' Първо проверяваме дали документът изобщо съществува на дадено местоположение Документи. Отворете strFile End If End Sub

Сега можете да взаимодействате с новооткрития документ с обекта ActiveDocument. Този код ще добави текст към документа.

ActiveDocument.Range (0, 0) .Text = "Добавяне на текст"

Отворете документа към променлива

Можете също така да отворите документ на Word, като веднага го присвоите на променлива:

Sub OpenDoc () Dim strFile As String Dim oDoc като Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'промяна към пътя на вашия файл If Dir (strFile) "" Тогава' Първо проверяваме дали документът съществува изобщо на дадено местоположение Задайте oDoc = Документи. Отворете strFile End End If End Sub

Позволява ви да взаимодействате с документа чрез променливата oDoc .:

oDoc.Range (0, 0) .Text = "Добавяне на текст"

Като цяло е най -добрата практика да отворите променлива, което ви дава възможност лесно да препращате към документа във всеки един момент.

Отворете Word документ от Excel

Тази процедура VBA ще отвори Word документ от друга програма на MS Office (напр. 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 Под