Sub BatchConvertToPDF() Dim destFolderPath As String destFolderPath = GetFolderPath If destFolderPath <> Empty Then Dim path As Variant For Each path In GetFilePaths() Dim indexOfSlash, indexOfDot As Integer indexOfSlash = InStrRev(path, "\&quo
最近在工作中因为要遇到大量的Word文件转化为PDF文件来实现平台的迁移.但是由于文件太多,手动很费力,想到了用代码的方式: 复制下面的代码,保存的记事本,另存为vbs文件:然后把这个vbs文件放到你要转PDF的文件夹里(doc和docx文件都可以).双击运行,等待 Word文件已全部轩换为PDF格式! 的对话框 代表已经全部转化完成. 如果各位复制执行有问题,下面留言,我会第一时间帮助大家解决问题. On Error Resume Next Set oWord = WScript.Create
office 2013很强大. import os import sys import re import comtypes.client wdFormatPDF = 17 def covx_to_pdf(infile, outfile): """Convert a Word .docx to PDF""" print('making:',outfile) word = comtypes.client.CreateObject('Word.App
本文适用于Word 2007 + Windows 7,造冰箱的大熊猫@cnblogs 2018/8/3 一.Word文档转PDF文档 把Word文档转换为PDF,有两个免费解决方案 1.Microsoft “XPS or PDF”插件 微软为Microsft Office 2007提供了“Microsoft Save As PDF or XPS”插件,可从微软官网找到. 下载并安装这个插件后,Word的“另存为”选项中会出现“PDF或XPS”的选项.选择该选项即可将文档转换为PDF格式. 2.F