Автор Тема: проблема сохранения файла word из excel макросом  (Прочитано 232 раз)

Оффлайн Посетитель 14.10.2021

  • Посетитель форума
  • Сообщений: 2
Доброго времени!
помогите пожалуйста, сил моих больше нет....

Суть: макрос создает документ word, и автоматически сохраняет его в эту же папку, проблема в том что первый раз макрос срабатывает как нужно, второй раз выдает ошибку, третий срабатывает, четвертый- ошибку и т.д.

не могу понять в чем проблема, все форумы излазил уже.

Sub телеграмма()

    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Set oWord = CreateObject("Word.Application")
    Set oDoc = oWord.Documents.Add()
    oWord.Visible = True
    oDoc.Activate
   
    With oWord
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'текст по центру
        .Selection.TypeText Text:="ТЕЛЕГРАММА НР"
    End With

   
    ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\" & "1.doc" ' ЗДЕСЬ ОШИБКУ ВЫДАЕТ (((((


    Set appWord = Nothing 'заканчиваем работу с приложением Word
    Set oDoc = Nothing
   
    Word.Application.Quit
   

 
End Sub



ПОМОГИТЕ ПЖАЛУЙСТА!

Оффлайн Администратор

  • Administrator
  • Сообщений: 1939
В этой строке:
ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\" & "1.doc" ' ЗДЕСЬ ОШИБКУ ВЫДАЕТ

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

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

Оффлайн Посетитель 14.10.2021

  • Посетитель форума
  • Сообщений: 2
Большое спасибо!