自动虚拟打印生成pdf

466798177

           想把文件夹下的所有word文件，通过虚拟打印机按文件名自动生成pdf，一个一个打印每次都要点确定和保存，求一个快速自动的办法

fyjin

wps不是有word转pdf

466798177

直接转的pdf不能直接调用，需要虚拟打印机输出的格式

wdpfox

Option Explicit
Sub docx2other()
On Error Resume Next
Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "C:\Users\59949\Desktop\word_1\"
sEveryFile = Dir(sSourcePath & "*.docx")
Do While sEveryFile <> ""
   Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
   sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".docx", ".pdf")
   CurDoc.SaveAs2 sNewSavePath, wdFormatPDF
   CurDoc.Close SaveChanges:=False
   sEveryFile = Dir
Loop
Set CurDoc = Nothing
End Sub
网上查找的，自己修改一下