Set MyPress = wordApp.Presentations.Open( ls_file)
改成
Set MyPress = wordApp.Documents.Open( ls_file)
试试，很明显presentation应该是ppt特有的方法 你的WORD版本支持轉PDF嗎? 宏 发表于 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？
页:
[1]