Здравствуйте!
Для запуска документа word из Excel использую несколько макросов:
Код |
---|
Sub Zapusk_Word_iz_Excel()
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:\Users\mrche\Desktop\1.docx")
objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\mrche\Desktop\1.docx")
Set objWrdDoc = Nothing
Set objWrdApp = Nothing
End Sub
|
Код |
---|
Sub Zapusk_Word_iz_Excel2()
Dim objWord As Object, objDocument As Object
Set objWord = CreateObject("word.application")
Set objDocument = objWord.Documents.Open(Filename:="C:\Users\mrche\Desktop\1.docx")
objWord.Visible = True
Set objDocument = Nothing: Set objWord = Nothing
End Sub
|
Но открываемый word открывается позади Excel. Есть ли возможность, чтобы после выполнения макроса, word файл открывался поверх всех окон? Т.е., чтобы открываемый файл был сразу перед глазами.