Игорь, спасибо, посмотрел код VBA, если разберусь, то из него нужное наковыряю.
А ещё нашёл Макрос, запускающий 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
|
