脚本求分析，关于右键菜单调用 .vbs转换文件格式

robbielj

13行
Set MyPress = wordApp.Presentations.Open( ls_file)

改成
Set MyPress = wordApp.Documents.Open( ls_file)

试试，很明显presentation应该是ppt特有的方法

gofbayrf

你的WORD版本支持轉PDF嗎?

robbielj

宏 发表于 2013-10-27 17:26
修改后，出现windows找不到指定转换的文件路径的对话框（把最后的32改成5此时有PDF文件生成了，也有word ...

Const wdFormatDocument                    =  0
Const wdFormatDocument97                  =  0
Const wdFormatDocumentDefault             = 16
Const wdFormatDOSText                     =  4
Const wdFormatDOSTextLineBreaks           =  5
Const wdFormatEncodedText                 =  7
Const wdFormatFilteredHTML                = 10
Const wdFormatFlatXML                     = 19
Const wdFormatFlatXMLMacroEnabled         = 20
Const wdFormatFlatXMLTemplate             = 21
Const wdFormatFlatXMLTemplateMacroEnabled = 22
Const wdFormatHTML                        =  8
Const wdFormatPDF                         = 17
Const wdFormatRTF                         =  6
Const wdFormatTemplate                    =  1
Const wdFormatTemplate97                  =  1
Const wdFormatText                        =  2
Const wdFormatTextLineBreaks              =  3
Const wdFormatUnicodeText                 =  7
Const wdFormatWebArchive                  =  9
Const wdFormatXML                         = 11
Const wdFormatXMLDocument                 = 12
Const wdFormatXMLDocumentMacroEnabled     = 13
Const wdFormatXMLTemplate                 = 14
Const wdFormatXMLTemplateMacroEnabled     = 15
Const wdFormatXPS                         = 18

17？