Здравствуйте! Не получается сохранить вордовский файл в формате ПДФ из эксель. Я написал код, но почему-то он не работает! Я даже не знаю в чем тут ошибка. Нужна помощь профессионалов. Заранее спасибо!
Код
Sub ToPDF()
Dim i
For i = 3 To Worksheets("settings").Range("G3") + 2
Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If Err Then
Err.Clear
Set objWrdApp = CreateObject("Word.Application")
If Err Then MsgBox "Нет Ворда на машине!": Exit Sub
End If
objWrdApp.Visible = True
Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Worksheets("SURVEY").Range("IA" & i) & ThisWorkbook.Worksheets("SURVEY").Range("HZ" & i) & ".docx")
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
ThisWorkbook.Worksheets("SURVEY").Range("IB" & i) & ThisWorkbook.Worksheets("SURVEY").Range("IC" & i) & ".pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
objWrdDoc.Close SaveChanges:=True
objWrdApp.Quit
Set objWrdDoc = Nothing
Set objWrdApp = Nothing
Next i
End Sub
RAN,я вам безумно благодарен, что это объяснили, но я не знаю откуда взять эти числовые значения. Я эту часть кода записал из ворд, и тот макрос что получился просто вставил. Где я могу взять эти числовые значения в ворде?