как сделать слово в PDF с VBA

Question

я хочу сделать саб

Sub Word2pdf(document As document)
    Dim objApp As Word.Application
    Dim doc As Object
    Set doc = Documents.Open(Filename:=document.Name)
    doc.ExportAsFixedFormat document.Name & ".pdf", wdExportFormatPDF
    doc.ExportAsFixedFormat OutputFileName:=document.Name, _
            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
    MsgBox "word 2PDF file finished！"
End Sub

Answer 1

Непонятно из вашего вопроса, но здесь работает следующий пересмотренный код:

Sub Word2pdf(docName As String)
    Dim doc As Object
    Set doc = Documents.Open(FileName:=docName)
    doc.ExportAsFixedFormat docName & ".pdf", wdExportFormatPDF
    MsgBox "word 2PDF file finished!"
End Sub

Это создает PDF-файл с файлом, заканчивающимся на .docx.pdf , поэтому Вы можете захотеть немного поработать со строками, чтобы избавиться от .docx