Этим макросом запускаю Word файл, но он свернут внизу экрана, как развернуть за спиной 3 часа поисков и проб типа 'AppActivate "Microsoft Word"
Код |
---|
Sub открыть_ворд(имя) On Error GoTo СОВЕТ Dim oDoc As Object путь_файл = Range("путь_серверу") & имя Set oWord = CreateObject("Word.Application") oWord.Visible = True oWord.Documents.Open путь_файл, ReadOnly:=True Set oDoc = oWord.Documents.Open(путь_файл) oDoc.Activate Exit Sub СОВЕТ: MsgBox "Ошибка действия " & Err End Sub |