Word文件转PDF

原创于 2019-05-31 16:31:22 发布 · 825 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#Word #office #VBA

博客涉及Word、Office和VBA相关内容，虽未给出具体内容，但推测围绕在Office环境下，利用VBA对Word进行操作或开发等信息技术相关应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub doc2pdf()
'
' doc2pdf 宏
'
'
Dim file As String
ChangeFileOpenDirectory "F:\Word文件\"   '文件夹位置

file = Dir("*.doc")
Do Until file = ""
    On Error Resume Next '忽略错误
    Documents.Open FileName:=file
    FileName = ActiveDocument.Name
    BaseName = Left(FileName, InStrRev(FileName, ".") - 1)
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
    BaseName & ".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
    
    ActiveDocument.Close wdDoNotSaveChanges
    


file = Dir
Loop

MsgBox "执行完毕：" & Date & " " & Time '执行完成后提示


End Sub