Показать документ Word на мониторе из Excel vba

Мой монитор показывает электронную таблицу Excel 2013, я использую ALT+F8 для отображения списка макросов и запускаю один. Это последняя часть кода этого макроса. Вкратце, я хочу, чтобы при условии, что переменная с именем "lista" была не пустой, макрос открывает документ Word, записывает в него содержимое этой переменной, затем мой монитор должен показывать открытый документ Word, и, наконец, макрос должен останавливаться.,

If lista <> "" Then
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open ("\\SERVER-PDC\Archivi\DOCUMENTI SU SERVER\LAURA\pianificazione produzione\cicli mancanti.doc")
Set objWord = GetObject(, "Word.Application")
Set objSelection = objWord.Selection
With objSelection.Paragraphs(1).Range
    .InsertAfter "Promemoria mancanti della settimana " & suffisso & "senza ciclo:" & Chr(13) & lista & Chr(13)
    .InsertParagraphAfter
End With
objWord.Application.Visible = True
Set objWord = Nothing
End
End If
End Sub

Макрос открывается и корректно изменяет документ Word. Однако в конце макроса на моем мониторе компьютера все еще отображается электронная таблица Excel, а документ Word свернут на панели задач.

Источник

0 ответов

Другие вопросы по тегам