Excel Word VBA Макросы. Проблема сохранения файла word из excel макросом.

[Посетитель]

Макрос запускается из программы "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

[свернуть]

[Администратор]

В этой строке:
ActiveDocument.SaveAs Filename:="C:\Users\User\Desktop\1.doc" ' ЗДЕСЬ ОШИБКУ ВЫДАЕТ.

ActiveDocument относится к программе "Word".

Поэтому нужно обращаться к программе "Word":
oWord.ActiveDocument.SaveAs Filename:="C:\Users\User\Desktop\1.doc"

[Посетитель]

Большое спасибо!