最近学习到Word的一个新知识,很是强大。话不多说,现在就给给为观众老爷露上一手。
1.打开一个Word文档
2.按Alt+F11打开代码处理页面
点击ThisDocument打开编辑面板
输入以下代码:
'docx转pdf
Option Explicit
Sub docx2pdf()
Dim sEveryFile As String
Dim sSourcePath As String
Dim sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "E:\DOCX文件\"
sEveryFile = Dir(sSourcePath & "*.docx")
Do While sEveryFile <> ""
Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
sNewSavePath = VBA.Strings.Replace(sSourcePath & "PDF文件\" & sEveryFile, ".docx", ".pdf")
CurDoc.SaveAs2 sNewSavePath, wdFormatPDF
CurDoc.Close SaveChanges:=False
sEveryFile = Dir
Loop
Set CurDoc = Nothing
End Sub
需要换的就是两个地方:
sSourcePath = "E:\DOCX文件\"
放word 的地方
sSourcePath & "PDF文件
放PDF的地方
修改完后点击运行
结束!