Макрос запускается из программы "Excel", создает документ word и сохраняет его на Рабочий стол.
Проблема в том, что первый раз макрос срабатывает как нужно, второй раз выдает ошибку, третий раз срабатывает, четвертый раз выдает ошибку и т.д.
Не могу понять, в чем проблема, все форумы излазил уже.
В VBA я подключил библиотеку Ворда: Tools - References... - Microsoft Word 16.0 Object Library.
Макрос
Sub Макрос()
Dim oWord As Word.Application
Dim oDoc As Word.Document
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()
oWord.Visible = True
With oWord
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.TypeText Text:="Текст"
End With
ActiveDocument.SaveAs Filename:="C:\Users\User\Desktop\1.doc" ' ЗДЕСЬ ОШИБКУ ВЫДАЕТ.
oWord.Application.Quit
End Sub