ActiveSheet.Shapes("Object 605").IncrementTop 27.8571653543

Set wa = CreateObject("Word.Application") 
wa.Visible = True

Company = Cells(2, 1).Value
  
Set wd = wa.documents.Open("C:\Файл1.docx") 

'Вставляем название компании из экселя в место, на которое ссылается заранее сделанная закаладка "Название_компании"
 wd.Bookmarks("Название_компании").Range.Text = Company

'Это сохраняет файл как ворд под другим именем в ту же папку, это работает:
wd.SaveAs Filename:="C:\Файл2.docx"

'Это я взял из вордовского макроса, это в экселе не работает:
'wd.ChangeFileOpenDirectory "C:\"
    'wd.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Файл2.pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=False, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    
'Это я пробовал варианты кода, это в экселе тоже не работает:
    'wd.ExportAsFixedFormat OutputFileName:="C:\Файл2.pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=False, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

'Это вариация, которую я тоже попробовал, и которая тоже не работает:   
wd.ExportAsFixedFormat OutputFileName:="C:\Файл2.pdf", ExportFormat:=wdExportFormatPDF

wd.Close True
wa.Quit
Set wa = Nothing