神马文学网将Word文件转换为Pdf格式文件
来源：百度文库 编辑：神马文学网 时间：2024/04/30 07:30:38
将Word文件自动转换为Pdf格式文件脚本
1、前置条件：
a）安装必须的工具MS Office2003,Adobe Acrobat 7.0Professional,postscrīpt.exe,gs811w32.exe
postscrīpt.exe：是一个PDF转换时所需要的脚本
gs811w32.exe：是一个PDF虚拟打印机的驱动
b）配置虚拟打印机
进入Windows的控制面板,进入打印机,点击"添加打印机"图标.在安装对话框上按"下一步",出现选择打印机时,在制造商一栏中选择"Generic",在打印机一栏中,选择"MS Publisher Color Printer",然后一路按下一步,直到结束
2、Code如下：
Function WordToPdf(DocFile , PdfFile , Printer)
.j B O u(D.a5~"z I0 '函数功能：将WORD文件自动转换为PDF文件
:a+M e-E e%e:[4n H0 '参数说明：
:e5s { V0QSE0 'DocFile：需要被转换的DOC文件路径
s |2[ F&a d s0`7A0 'PdfFile：转换后的PDF文件路径
W P&P E g0N d v q8J0 'Printer：PDF虚拟打印机名称
E.r V0u8M w0 Dim PsFile '转换时所产生的PS脚本
&O7U d G \ X0 Dim PsLogFile '转换时所产生的PS脚本日志文件
d c @ [5M W0 51Testing软件测试网 {-b,N j%G-m L2j a
'建立对象51Testing软件测试网 P O:_"E%} I/H [ j*Y
Set ōWord = CreateObject("Word.Application")
2U f9d n z Z/Y0 Set ōPdf = CreateObject("PDFDistiller.PDFDistiller.1")
V Z U `6c5p p0x Y0 Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网 m { P-G(y6W W
P4w"`*{ G i0 '获取临时文件名
r J3w W _1F f%`0 Arr = Split(DocFile , ".")
.@ e D+y Y!| Q"_0 PsFile = Arr(0) & ".ps"51Testing软件测试网 K e A F(F _ w$d T
PsLogFile = Arr(0) & ".log"
y g/H:M,f5_ x0 51Testing软件测试网"K2t#l4or z6u ?4? Y
If fso.FileExists(PdfFile) Then51Testing软件测试网2M9H2v,m n o [+u y2v `
fso.DeleteFile PdfFile , True
t ~ Q s { t z b0 End If51Testing软件测试网 K0G | x$p"[ |)[
51Testing软件测试网2h I D \,r H
'设置虚拟打印机
$G } t;QK0 oWord.ActivePrinter = Printer
1@ S4`2N8x8D l.e0
\+Z0S m*P9] b F J0 '打开一个WORD文件51Testing软件测试网'h @ g E x,s W
oWord.Documents.Open DocFile51Testing软件测试网 ^ w ? c-} a Q }
o4~ b&q,~ P:_+J4@0 '转化DOC文件为PS文件51Testing软件测试网1l R.P*d*R1s/u
oWord.PrintOut False , False , 0 , PsFile 51Testing软件测试网 ~.M n,W e l R
oWord.Documents.Close51Testing软件测试网 m a z I v Z ko:z
51Testing软件测试网 e1X(a'w/I c!c
'转化PS文件为PDF文件51Testing软件测试网 N ~ R b u ^ m"k A
oPdf.FileToPDF PsFile , PdfFile , ""
2Q h)I a$^7} K S9U0 oWord.Quit51Testing软件测试网3|:^9U ? B b"p:_2x5I:R4g
;x d l b8v i0 '删除PS和LOG文件51Testing软件测试网:R {r t m6?5]
fso.GetFile(PsFile).Delete51Testing软件测试网 O d/} ~ C R U3c
fso.GetFile(PsLogFile).Delete
8U E z A h&I0
:H+J v J4Q!o0 '释放对象
V p | |1U K f0 Set fso = Nothing51Testing软件测试网 q%U ^ p!\ t K!O,M
Set ōPdf = Nothing51Testing软件测试网"\ n7A&s,D3R
Set ōWord = Nothing
l x { E H _ l V v9I0End Function PDF转换Word文档 ScanSoft PDF Converter Pro V4.0
PDF Converter是卖得最好的即时PDF转换为Microsoft Word 文档的工具，PDF Converter 2 包含强大的新功能以允许使用者快速转换协议、契约、信件等到Microsoft Word 文档，这样就可以编辑，从而节省宝贵的时间和金钱。PDF Converter也可以用来提取pdf文件中的表格和图表，以便于在Microsoft PowerPointreg;等应用程序中使用。主要功能：精确的转换PDF文档到Microsoft Word格式；转换PDF窗体；PDF转换向导；PDF所略图预览和指定页面范围；pdf密码和加密；PDF图片文件处理；图表和表格处理；同应用程序集成；无须额外的软件或者Adobe Acrobat
下载：http://www.downwa.com/Softinfo/3722.html
1、前置条件：
a）安装必须的工具MS Office2003,Adobe Acrobat 7.0Professional,postscrīpt.exe,gs811w32.exe
postscrīpt.exe：是一个PDF转换时所需要的脚本
gs811w32.exe：是一个PDF虚拟打印机的驱动
b）配置虚拟打印机
进入Windows的控制面板,进入打印机,点击"添加打印机"图标.在安装对话框上按"下一步",出现选择打印机时,在制造商一栏中选择"Generic",在打印机一栏中,选择"MS Publisher Color Printer",然后一路按下一步,直到结束
2、Code如下：
Function WordToPdf(DocFile , PdfFile , Printer)
.j B O u(D.a5~"z I0 '函数功能：将WORD文件自动转换为PDF文件
:a+M e-E e%e:[4n H0 '参数说明：
:e5s { V0QSE0 'DocFile：需要被转换的DOC文件路径
s |2[ F&a d s0`7A0 'PdfFile：转换后的PDF文件路径
W P&P E g0N d v q8J0 'Printer：PDF虚拟打印机名称
E.r V0u8M w0 Dim PsFile '转换时所产生的PS脚本
&O7U d G \ X0 Dim PsLogFile '转换时所产生的PS脚本日志文件
d c @ [5M W0 51Testing软件测试网 {-b,N j%G-m L2j a
'建立对象51Testing软件测试网 P O:_"E%} I/H [ j*Y
Set ōWord = CreateObject("Word.Application")
2U f9d n z Z/Y0 Set ōPdf = CreateObject("PDFDistiller.PDFDistiller.1")
V Z U `6c5p p0x Y0 Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网 m { P-G(y6W W
P4w"`*{ G i0 '获取临时文件名
r J3w W _1F f%`0 Arr = Split(DocFile , ".")
.@ e D+y Y!| Q"_0 PsFile = Arr(0) & ".ps"51Testing软件测试网 K e A F(F _ w$d T
PsLogFile = Arr(0) & ".log"
y g/H:M,f5_ x0 51Testing软件测试网"K2t#l4or z6u ?4? Y
If fso.FileExists(PdfFile) Then51Testing软件测试网2M9H2v,m n o [+u y2v `
fso.DeleteFile PdfFile , True
t ~ Q s { t z b0 End If51Testing软件测试网 K0G | x$p"[ |)[
51Testing软件测试网2h I D \,r H
'设置虚拟打印机
$G } t;QK0 oWord.ActivePrinter = Printer
1@ S4`2N8x8D l.e0
\+Z0S m*P9] b F J0 '打开一个WORD文件51Testing软件测试网'h @ g E x,s W
oWord.Documents.Open DocFile51Testing软件测试网 ^ w ? c-} a Q }
o4~ b&q,~ P:_+J4@0 '转化DOC文件为PS文件51Testing软件测试网1l R.P*d*R1s/u
oWord.PrintOut False , False , 0 , PsFile 51Testing软件测试网 ~.M n,W e l R
oWord.Documents.Close51Testing软件测试网 m a z I v Z ko:z
51Testing软件测试网 e1X(a'w/I c!c
'转化PS文件为PDF文件51Testing软件测试网 N ~ R b u ^ m"k A
oPdf.FileToPDF PsFile , PdfFile , ""
2Q h)I a$^7} K S9U0 oWord.Quit51Testing软件测试网3|:^9U ? B b"p:_2x5I:R4g
;x d l b8v i0 '删除PS和LOG文件51Testing软件测试网:R {r t m6?5]
fso.GetFile(PsFile).Delete51Testing软件测试网 O d/} ~ C R U3c
fso.GetFile(PsLogFile).Delete
8U E z A h&I0
:H+J v J4Q!o0 '释放对象
V p | |1U K f0 Set fso = Nothing51Testing软件测试网 q%U ^ p!\ t K!O,M
Set ōPdf = Nothing51Testing软件测试网"\ n7A&s,D3R
Set ōWord = Nothing
l x { E H _ l V v9I0End Function PDF转换Word文档 ScanSoft PDF Converter Pro V4.0
PDF Converter是卖得最好的即时PDF转换为Microsoft Word 文档的工具，PDF Converter 2 包含强大的新功能以允许使用者快速转换协议、契约、信件等到Microsoft Word 文档，这样就可以编辑，从而节省宝贵的时间和金钱。PDF Converter也可以用来提取pdf文件中的表格和图表，以便于在Microsoft PowerPointreg;等应用程序中使用。主要功能：精确的转换PDF文档到Microsoft Word格式；转换PDF窗体；PDF转换向导；PDF所略图预览和指定页面范围；pdf密码和加密；PDF图片文件处理；图表和表格处理；同应用程序集成；无须额外的软件或者Adobe Acrobat
下载：http://www.downwa.com/Softinfo/3722.html
将Word文件转换为Pdf格式文件
Word转换为pdf文件！
Word转换为pdf文件cs
将WDL（华康）等电子文件转换为PDF后转换其它格式文件的方法 - 悟空-简单就好 - 博...
利用word将PDF转换DOC文件的方法 --电脑高手
如何将word文档、pdf文件相互转换(全）
轻松将PDF文件转换成Word文档 - 科学堂
利用word将PDF转换DOC文件的方法--
如何将PDF文件转换为TXT文件!
如何将PDF文件转换为TXT文件(转载
注意将ppt文件转换为word文件
各种格式文件转换成word文件的方法
各种格式文件转换成word文件的方法
如何把pdf文件转换成word?
怎样将PPT文件转换为Word文档
怎样将PPT文件转换为Word文档
怎样将PPT文件转换为Word文档?
xuexi 怎样将PPT文件转换为Word文档?
怎样将PPT文件转换为Word文档
如何将PDF文件转换为TXT文件(转载)很不错的资料哟
如何将PDF文件转换为TXT文件很不错的资料哟!
如何将PDF文件转换为TXT文件(转载)很不错的资料 鹧鸪啼处
如何将PDF文件转换为TXT文件(转载)很不错的资料哟! 资源
如何将PDF文件转换为TXT文件(转载)很不错的资料哟!