Создание нового документа Word в коде VBA Excel осуществляется с использованием метода Documents.Add:
Sub Test1 ( )
Dim myWord As New Word . Application
Dim myDocument As Word . Document
Set myDocument = myWord . Documents . Add
myWord . Visible = True
End Sub
Вы можете объявить переменную myDocument как тип Object, однако в этом случае не будет ранней привязки к типу Word.Document, и вы не получите подсказок при написании кода (Auto List Members).
Открытие существующего документа
Sub Test2 ( )
Dim мойСлово As New Word.Application
Dim мойДокумент As Word.Document
Set мойДокумент = _
мойСлово.Visible = True
End Sub
Подключение к открытому документу
Подпрограмма Test3 ( ) Объявляем переменные myWord как объект, myDoc как документ Word. При ошибке переход к метке Instruk
Set myWord = GetObject ( , "Word.Application" )
myDoc . Range . InsertAfter "Вставляем новый текст, который подтверждает соединение с текущим документом."
Exit Sub
К сожалению, вы не предоставили текст для перефразировки. Пожалуйста, напишите текст, который нужно изменить, и я помогу вам с этим.
MsgBox "Произошла ошибка: " > References…
Да, спасибо, все работает. К тому же, хотел спросить, почему у меня отсутствует метод saveas, а есть saveas2? Евгений 07.01.2021 в 22:42
Это нормально. В Excel используется метод Workbook.SaveAs, а в Word – метод Document.SaveAs2. Хотя метод Document.SaveAs тоже функционирует, правильнее применять именно Document.SaveAs2. Я также скорректировал статью, чтобы избежать подобных путаниц.
Подскажите, пожалуйста, я подключил библиотеку Microsoft Word 12.0 (у меня MS Excel 2007), но при выполнении процедуры появляется сообщение об ошибке: Run-time error ‘429’: Невозможно создать объект ActiveX. Как это можно исправить?
Открытие word через excel
Откройте определенный документ Word через Excel с кодом VBA
Чтобы открыть конкретный документ Word через Excel, сделайте следующее.
1. В книге Excel нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Модули. Затем скопируйте и вставьте ниже код VBA в окно кода.
Код VBA: открыть определенный документ Word через Excel
3. нажмите F5 или нажмите кнопку «Выполнить», чтобы запустить код.
Тогда указанный документ Word откроется автоматически.
Разблокируйте магию Excel с помощью Kutools AI
Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!
Как открыть Word из Excel макросом VBA? Запуск Word из Excel
Если есть необходимость обратиться к данным, хранящимся в текстовом файле приложения Word, или наоборот, передать данные из Excel в такой файл, то возникнет необходимость запуска приложения, в формате которого сохранен файл. Ниже приведен п рограммный код макроса VBA для Microsoft Excel, запускающий приложение Word.
Макрос, запускающий Word из Excel и открывающий новый документ
Если вам нужно перенести данные из Excel в новый документ Word, вы можете использовать следующий код. Макрос проверяет, запущен ли Word. Если он уже открыт, добавляется новый документ, в противном случае сначала запускается Word, а затем создается новый документ.
Sub Zapusk_Word_iz_Excel_01() Dim objWrdApp As Object Dim objWrdDoc As Object On Error Resume Next Set objWrdApp = GetObject(, "Word.Application") If objWrdApp Is Nothing Then Set objWrdApp = CreateObject("Word.Application") Set objWrdDoc = objWrdApp.Documents.Add objWrdApp.Visible = True End If Set objWrdDoc = objWrdApp.Documents.Add Set objWrdDoc = Nothing Set objWrdApp = Nothing End Sub
Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом, нажмите на одну из двух кнопкок в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).
Макрос, запускающий Word из Excel и открывающий существующий документ
Если для передачи данных из Word в Excel, необходимо открыть файл с заданным именем, то можно использовать аналогичный код, в котором вместо добавления нового документа открывается документ существующий:
При копировании этого кода на свой компьютер, не забудьте изменить путь к файлу и его имя. Запуск приложения можно сделать невидимым, если в коде изменить True на False.
Макрос для передачи данных из Excel в Word
Ниже приведен программный код макроса, копирующий в активной рабочей книге Excel диапазон с данными A1:E2 и вставляющий его в открытый документ Word. После передачи данных из Excel в Word производится закрытие документа с сохранением изменений и выход из приложения.
