Word文件转PDF
程序员文章站
2024-03-17 15:05:04
...
Sub doc2pdf()
'
' doc2pdf 宏
'
'
Dim file As String
ChangeFileOpenDirectory "F:\我的工作文档\Word文件\" '文件夹位置
file = Dir("*.docx")
Do Until file = ""
On Error GoTo MyErr '跳过
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
MyErr: '发生异常跳过中间程序至该行语句
file = Dir
Loop
End Sub
上一篇: ASCII码显示器(C++)
下一篇: ASCII码对照表
推荐阅读
-
word 转PDF 文件
-
java word操作 通过字符串生成word文件,读取word内容,word转pdf、html,pdf流输出展示到页面,file转 MultipartFile
-
实现pdf转word
-
Word文件转PDF
-
转:linux 文件系统IO性能优化 博客分类: linux-and-unix linuxiodeadlinecfq
-
ireport导出pdf文件中文问题 博客分类: jasperReport ireportjaserSoft reportitext
-
nginx服务器在IE下载时,apk文件变成zip的解决方法(转) 博客分类: androidnginx
-
网页转pdf或图片[电脑版][Android 版] 博客分类: Lab url2pdfurl2pngurl2jpgapp4u有道云笔记
-
实例讲解Java读取一般文本文件和word文档的方法
-
实例讲解Java读取一般文本文件和word文档的方法