Открываем Word из Excel

[barbus]

Задача заключается вот в чем.
Есть два файла Excel и Word в одной папке. В файле ворда есть шаблон текста с ссылка из ячеек Excel-а.Файл Excel-а открыт а ворд закрыт, в ячейках есть данные которые отражаются в документе ворд. После того как будут изменены данные, надо с помощью кнопки из документа Excel открыть документ ворд и напечатать страницы введенные в макрос кнопки, после чего документ ворд снова закроется.

Как из Excel с помощью макроса открыть файл Word-а и задать параметры для печати.

[bdfy]

Public Sub open_word(myDoc As String)

    Dim WordApp As Object
    Dim wrdDoc As Object
    Dim tmpDoc As Object
    Dim WDoc As String
'   Dim myDoc As String
'    myDoc = "óñòîé÷èâîñòü-àâòî"
    WDoc = ThisWorkbook.Path & "\" & myDoc & ".doc"
'    Debug.Print WDoc
    Err.Number = 0
    On Error Resume Next

    Set WordApp = GetObject(, "Word.Application")
 
'   Debug.Print "WordApp " & WordApp
   
    'If WordApp Is Nothing Then
    If Err.Number <> 0 Then
         ' no current word application
        Set WordApp = CreateObject("Word.application")
        Set wrdDoc = WordApp.Documents.Open(WDoc)
   ' WordApp.Visible = True
    Else
         ' word app running
        For Each tmpDoc In WordApp.Documents
            If StrComp(tmpDoc.FullName, WDoc, vbTextCompare) = 0 Then
                 ' this is your doc
                Set wrdDoc = tmpDoc
                Exit For
            End If
        Next
        If wrdDoc Is Nothing Then
             ' not open
            Set wrdDoc = WordApp.Documents.Open(WDoc)
        End If
    End If
    WordApp.Visible = True
WordApp.DisplayAlerts = False
WordApp.ActiveWindow.Selection.WholeStory
'open_word = WordApp
End Sub

wordfile = "имя без расширения"

Call open_word(wordfile)
Set WordApp = GetObject(, "Word.Application")

    WordApp.Windows(wordfile & ".doc").Activate
     WordApp.ActiveWindow.Selection.WholeStory
    
    WordApp.ActiveWindow.Selection.Fields.Update
        With WordApp
               .ActiveDocument.PrintOut
       End With

как то так я обычно делаю )

[doober]

Такой метод для обработки 1000 документов не подойдет.
На каждое открытие и обработку несколько секунд ,в итоге больше часа работы,не считая всего остального

[doober]

bdfy Прошу прощения,ответил не в ту тему.
Рядом очень похожая.Попутал

[barbus]

Прошу посматрите в закрепленном файле, код не работает.
Там я перевел на русский те кнопки которые будут работать под этот код.

В файле есть форма настройки печати, как сделать чтобы, при активации документа Word данная форма была бы активна на этом документе (посмотрите код Forma_2, и Forma_5 и паймете почему)

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
ActiveSheet.PrintOut from:=TextBox1.Value, To:=TextBox1.Value, copies:=TextBox3.Value
Forma_5.Show
Else:
ActiveSheet.PrintOut from:=TextBox1.Value, To:=TextBox1.Value, copies:=TextBox3.Value
End If
Sheet5.Select
Unload Me
 End Sub

код выделенный красным думаю менять для ворда, пока не знаю как чтобы работало и для Excel-а и для Word-а



Еще как можно сделать так чтобы sheet "Hajtararagir" сохранилься в том же каталоге как отдельный файл под именем "Номер"-а.