Макрос для открытия файла word

Если есть необходимость обратиться к данным, хранящимся в текстовом файле приложения Word, или наоборот, передать данные из Excel в такой файл, то возникнет необходимость запуска приложения, в формате которого сохранен файл. Ниже приведен программный код макроса VBA для Microsoft Excel, запускающий приложение Word.

Если для передачи данных из 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, необходимо открыть файл с заданным именем, то можно использовать аналогичный код, в котором вместо добавления нового документа открывается документ существующий: 

Sub Zapusk_Word_iz_Excel_02()
    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.Open("C:Doc1.doc")
            objWrdApp.Visible = True
        End If
    Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

При копировании этого кода на свой компьютер, не забудьте изменить путь к файлу и его имя. Запуск приложения можно сделать невидимым, если в коде изменить True на False.

Макрос для передачи данных из Excel в Word

Ниже приведен программный код макроса, копирующий в активной рабочей книге Excel диапазон с данными A1:E2 и вставляющий его в открытый документ Word. После передачи данных из Excel в Word производится закрытие документа с сохранением изменений и выход из приложения.

Sub Peredacha_Dannyh_iz_Excel_v_Word()
    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.Open("C:Doc1.doc")
            objWrdApp.Visible = False
        End If
    Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
    Range("A1:E2").Copy
    objWrdDoc.Range(0).Paste
    objWrdDoc.Close True
    'True - с сохранением, False - без сохранения
    objWrdApp.Quit
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

Ребята, подскажите пожалуйста, как сделать так, чтобы макрос открывал документ Word не свёрнутым, а развёрнутым на весь экран

Private Sub CommandButton1_Click()Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
        If Err Then
            Err.Clear
            Set objWrdApp = CreateObject("Word.Application")
            If Err Then MsgBox "Нету Ворда на машине!": Exit Sub
        End If
objWrdApp.Visible = True
Set objWrdDoc = objWrdApp.Documents.Open("C:DOCUMENTS1.doc")
End Sub

analitica.jimdo.com

Открыть Word из Excel — Макросы в Excel

3-4 минуты

Когда вы работаете в рамках одного приложения, нет необходимости прописывать название приложения. Другое дело работа в нескольких программах.

Чтобы открыть Word из Excel пишем:

    ‘ запустить Word им сделать его видимым 

    Set wa = CreateObject(«Word.Application»)

        wa.Visible = True

    ‘ открыть конкретный файл, wd_full_name — полное имя файла, включая путь к нему

    Set wd = wa.Documents.Open(wd_full_name)

Теперь любые операции с этим файлом возможны при обращении к нему по заданному нами имени — wd. Например,

    wd.Save

    wd.Close

Собственно, таким образом можно открыть Word из любого приложения, а не только из Excel. Аналогично обстоит дело и с другими приложениями. Например, вот так открывается Excel.

    Set xl = CreateObject(«Excel.Application»)

    xl.Visible = True

    Set xlfile = xl.Workbooks.Open(xlfile_full_name)

Не забываем определять переменные xl и xlfile (хотя иногда это не приводит к ошибке). Причем лучше определять их не как объекты конкретного класса ( Dim xlfile As Workbook), а как просто абстрактный объект — Dim xlfile AsObject. Практика показывает, что так возникает гораздо меньше ошибок.

Слияние Word и Excel нужно, когда нужно делать много стандартных документов. Создаем шаблон документа, настраиваем слияние, проставляем поля. Теперь заполняем строки в Excel. Создание 10 шаблонных документов потребует от нас следующих действий:

— нажать на стрелку для перехода на нужную строку

— сохранить Word как новый документ в нужную папку

и так 10 раз.

А если нужно сделать 50 документов?

Чтобы не заниматься глупым нажатием на стрелку, можно доверить генерацию макросу (до этого назовем нужный вордовский файл myfile):

    With myfile.MailMerge

        .MainDocumentType = wdFormLetters

        .OpenDataSource Name:=myfile_name, SQLStatement:=»SELECT * FROM     `’тут_название_excel-файла$’`», _

        ConfirmConversions:=True, ReadOnly:=False, LinkToSource:=True, _

             Revert:=False, _

        SubType:=wdMergeSubTypeAccess

        .ViewMailMergeFieldCodes = False

    End With

    ‘ открываем нужную запись в рассылке, допустим n-ную

    myfile.MailMerge.DataSource.ActiveRecord = n

    ‘ сохраняем в нужную папку

    myfile.SaveAs Filename:=myfile_new_name, FileFormat:=wdFormatDocument, LockComments:=False, Password:=»»,addToRecentFiles:=True, WritePassword:=»», ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False

    myfile.Close

Обратите внимание, что слияние должно быть предварительно настроено. Нет смысла проставлять поля слияния макросом, это долго и неэффективно. Использовать же готовый шаблон можно легко и быстро.