將下述代碼保存到txt文件中，
然后修改文件擴(kuò)展名為.vbs文件
方案一：把多個(gè)待轉(zhuǎn)換的word文件拖到該vbs文件上進(jìn)行轉(zhuǎn)換，就可以把轉(zhuǎn)換的PDF保存到指定文件夾中
1磷雇、保存路徑中不包含中文：
'Convert .doc or .docx to .pdf files via Send To menu
Const savePath = "E:\zhuomian\PDF\"
Set fso = CreateObject("Scripting.FileSystemObject")
For i= 0 To WScript.Arguments.Count -1
? docPath = WScript.Arguments(i)
? docPath = fso.GetAbsolutePathName(docPath)
? If LCase(Right(docPath, 4)) = ".doc" Or LCase(Right(docPath, 5)) = ".docx" Then
? ? ? Set objWord = CreateObject("Word.Application")
? ? ? pdfPath =savePath & _
? ? ? ? ? ? ? fso.GetBaseName(docpath) & ".pdf"
? ? ? objWord.Visible = False
? ? ? Set objDoc = objWord.documents.open(docPath)
? ? ? objDoc.saveas pdfPath, 17
? ? ? objDoc.Close
? ? ? objWord.Quit?
? End If?
Next
MsgBox "success!"
2偿警、保存路徑中可以包含中文
'Convert .doc or .docx to .pdf files via Send To menu
Const savePath = "E:\zhuomian\PDF開發(fā)\"
Set fso = CreateObject("Scripting.FileSystemObject")
For i= 0 To WScript.Arguments.Count -1
? docPath = WScript.Arguments(i)
? docPath = fso.GetAbsolutePathName(docPath)
? If LCase(Right(docPath, 4)) = ".doc" Or LCase(Right(docPath, 5)) = ".docx" Then
? ? ? Set objWord = CreateObject("Word.Application")
? ? ? pdfPath =savePath & _
? ? ? ? ? ? ? fso.GetBaseName(docpath) & ".pdf"
? ? ? objWord.Visible = False
? ? ? Set objDoc = objWord.documents.open(docPath)
? ? ? objDoc.saveas pdfPath, 17
? ? ? objDoc.Close
? ? ? objWord.Quit?
? End If?
Next
MsgBox "success!"
方案二：將該vbs文件放到一個(gè)含有待轉(zhuǎn)換的word文件夾內(nèi)，雙擊該vbs文件唯笙，就可以把轉(zhuǎn)換的PDF保存到指定文件夾中
1螟蒸、保存路徑中不包含中文：
On Error Resume Next
Const savePath = "E:\zhuomian\PDF\"
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject("Word.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")
Set ffs=fds.Files
For Each ff In ffs
? ? If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
? ? ? ? Set oDoc=oWord.Documents.Open(ff.Path)
? ? ? ? odoc.ExportAsFixedFormat Left(savePath+ff.Name,InStrRev(savePath+ff.Name,"."))&"pdf",wdExportFormatPDF
? ? ? ? oDoc.Close
? ? ? ? If Err.Number Then
? ? ? ? MsgBox Err.Description
? ? ? ? End If
? ? End If
Next
oWord.Quit
Set oDoc=Nothing
Set oWord =Nothing
MsgBox "success!"
2盒使、保存路徑中可以包含中文
On Error Resume Next
Const savePath = "E:\zhuomian\PDF開發(fā)\"
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject("Word.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")
Set ffs=fds.Files
For Each ff In ffs
? ? If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
? ? ? ? Set oDoc=oWord.Documents.Open(ff.Path)
? ? ? ? odoc.ExportAsFixedFormat Left(savePath+ff.Name,InStrRev(savePath+ff.Name,"."))&"pdf",wdExportFormatPDF
? ? ? ? oDoc.Close
? ? ? ? If Err.Number Then
? ? ? ? MsgBox Err.Description
? ? ? ? End If
? ? End If
Next
oWord.Quit
Set oDoc=Nothing
Set oWord =Nothing
MsgBox "success!"
