Открыть документ Word
Этот макрос Word VBA откроет документ Word из указанного каталога:
Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'измените путь к вашему файлу If Dir (strFile) "" Затем' Сначала мы проверяем, существует ли документ вообще на заданное местоположение Documents.Open strFile End If End Sub
Теперь вы можете взаимодействовать с недавно открытым документом с помощью объекта ActiveDocument. Этот код добавит текст в документ.
ActiveDocument.Range (0, 0) .Text = "Добавить текст"
Открыть документ в переменной
Вы также можете открыть документ Word, сразу назначив его переменной:
Sub OpenDoc () Dim strFile As String Dim oDoc as Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'изменить путь к вашему файлу If Dir (strFile) "" Затем' Сначала мы проверяем, если документ вообще существует в данном месте Set oDoc = Documents.Open strFile 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" Установить wordapp = CreateObject ("word.Application") wordapp.Documents.Open strFile wordapp.Visible = True End Sub
