Помогите
Вот шаблон макроса(может кому-то пригодится) при нажатии на кнопку который сохраняет файл в PDF с тем же именем и закрывает его.
Sub DirectlySaveDocxToPdf()
   Dim objDoc As Document
   Set objDoc = ActiveDocument
       objDoc.ExportAsFixedFormat _
       OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
       ExportFormat:=wdExportFormatPDF, _
       OptimizeFor:=wdExportOptimizeForPrint, _
       Range:=wdExportAllDocument, _
       Item:=wdExportDocumentContent
ChangeFileOpenDirectory "D:\Client-Base\Договора\"
ActiveWindow.Close
End Sub

Я хочу чтобы все файлы которые открыты у меня в Word чаще всего их 3. При нажатии на кнопку по очереди каждый файл сохранялися в PDF закрывался с после закрытия всех файлов Word закрывался сам. И я написал вот такой макрос, но проблема в том что он делает все кроме сохранения второго и третьего файла в PDF не пойму где ошибка как соединить. Он мне пишет ошибку
Sub DirectlySaveDocxToPdf()
   Dim objDoc As Document
   Set objDoc = ActiveDocument
       objDoc.ExportAsFixedFormat _
       OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
       ExportFormat:=wdExportFormatPDF, _
       OptimizeFor:=wdExportOptimizeForPrint, _
       Range:=wdExportAllDocument, _
       Item:=wdExportDocumentContent
ChangeFileOpenDirectory "D:\Client-Base\Договора\"
ActiveWindow.Close
ActiveDocument.ExportAsFixedFormat
Sub DirectlySaveDocxToPdf()
Dim objDoc As Document
   Set objDoc = ActiveDocument
       objDoc.ExportAsFixedFormat _
       OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
       ExportFormat:=wdExportFormatPDF, _
       OptimizeFor:=wdExportOptimizeForPrint, _
       Range:=wdExportAllDocument, _
       Item:=wdExportDocumentContent
ChangeFileOpenDirectory "D:\Client-Base\Договора\"
   ActiveWindow.Close
ActiveDocument.ExportAsFixedFormat
Sub DirectlySaveDocxToPdf()
Dim objDoc As Document
   Set objDoc = ActiveDocument
       objDoc.ExportAsFixedFormat _
       OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
       ExportFormat:=wdExportFormatPDF, _
       OptimizeFor:=wdExportOptimizeForPrint, _
       Range:=wdExportAllDocument, _
       Item:=wdExportDocumentContent
ChangeFileOpenDirectory "D:\Client-Base\Договора\"
ActiveWindow.Close
Application.Quit
End Sub