Private Sub W11D1_mousemove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    W11D1.BackColor = &H808080
End Sub

Sub Макрос2()
    
    Dim myObject As OLEObject
   
    Range("O505").Select
    Workbooks.Open Filename:= _
        "Z:\65_Sales\65_15_Sales_Support\01 BPO\Одно окно\ИНФОРМАЦИОННОЕ ПИСЬМО_реестр\Приложения\089_0501_Опрос магазинов 2.xlsx"
    ActiveWindow.Visible = True
    Set myObject = ActiveSheet.OLEObjects.Add(Filename:= _
        "Z:\65_Sales\65_15_Sales_Support\01 BPO\Одно окно\ИНФОРМАЦИОННОЕ ПИСЬМО_реестр\Приложения\089_0501_Опрос магазинов 2.xlsx" _
        , Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Windows\Installer\{90140000-0012-0000-0000-0000000FF1CE}\xlicons.exe", _
        IconIndex:=0, IconLabel:= _
        "Z:\65_Sales\65_15_Sales_Support\01 BPO\Одно окно\ИНФОРМАЦИОННОЕ ПИСЬМО_реестр\Приложения\089_0501_Опрос магазинов 2.xlsx" _
        )
    s = myObject.Name
    myObject.Select
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With
    
    Range("P505").Select
    ActiveSheet.Shapes(s).IncrementLeft 20
    ActiveSheet.Shapes(s).IncrementTop 60
    
    Workbooks("089_0501_Опрос магазинов 2.xlsx").Close
    
End Sub

Workbooks.Open Filename:= _
        "Z:\65_Sales\65_15_Sales_Support\01 BPO\Одно окно\ИНФОРМАЦИОННОЕ ПИСЬМО_реестр\Приложения\089_0501_Опрос магазинов 2.xlsx"
    ActiveWindow.Visible = True

Sub Ìàêðîñ3()
'
' Ìàêðîñ3 Ìàêðîñ
'

'
    Range("O504").Select
    Workbooks.Open Filename:= _
        "Z:\65_Sales\65_15_Sales_Support\01 BPO\Îäíî îêíî\ÈÍÔÎÐÌÀÖÈÎÍÍÎÅ ÏÈÑÜÌÎ_ðååñòð\Ïðèëîæåíèÿ\089_0500_Îïðîñ ìàãàçèíîâ 18 07 2017.xlsx"
    ActiveWindow.Visible = False
    ActiveSheet.OLEObjects.Add(Filename:= _
        "Z:\65_Sales\65_15_Sales_Support\01 BPO\Îäíî îêíî\ÈÍÔÎÐÌÀÖÈÎÍÍÎÅ ÏÈÑÜÌÎ_ðååñòð\Ïðèëîæåíèÿ\089_0500_Îïðîñ ìàãàçèíîâ 18 07 2017.xlsx" _
        , Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Windows\Installer\{90140000-0012-0000-0000-0000000FF1CE}\xlicons.exe", _
        IconIndex:=0, IconLabel:= _
        "Z:\65_Sales\65_15_Sales_Support\01 BPO\Îäíî îêíî\ÈÍÔÎÐÌÀÖÈÎÍÍÎÅ ÏÈÑÜÌÎ_ðååñòð\Ïðèëîæåíèÿ\089_0500_Îïðîñ ìàãàçèíîâ 18 07 2017.xlsx" _
        ).Select
    ActiveSheet.Shapes("Object 606").IncrementLeft 42.8570866142
    ActiveSheet.Shapes("Object 606").IncrementTop 17.1428346457
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With
End Sub

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