[已解决]vba打开word，赋值，并且另存一份pdf，结果PDF打不开！

billyzhang0609 · 发表于 2014-4-22 14:23

本帖最后由 billyzhang0609 于 2014-4-22 15:11 编辑

Dear 各位老师

为什么我让word另存为PDF，这个PDF文件的打不开呢？
我手动word另存为，是可以打开的。

请问如何让我另存为的PDF也能打开？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-22 14:45

If doc.Version >= 12 Then
doc.ExportAsFixedFormat ThisWorkbook.path & "" & Cells(i, 3).Value & "_EN.PDF", 17
End If
doc.Close False

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2014-4-22 14:36

你这个只是改个名字，还是WORD
我记得2010好像可以导出为PDF。

hwc2ycy · 发表于 2014-4-22 14:37

Word 开发人员参考
Document.ExportAsFixedFormat 方法
将文档保存为 PDF 或 XPS 格式。
版本信息
已添加版本： Word 2007

语法

表达式.ExportAsFixedFormat(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, Range, From, To, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO19005_1, FixedFormatExtClassPtr)

hwc2ycy · 发表于 2014-4-22 14:39

doc.ExportAsFixedFormat ThisWorkbook.path & "" & Cells(i, 3).Value & "_EN.PDF", 17
doc.Close False

复制代码

hwc2ycy · 发表于 2014-4-22 14:40

03版本没这功能，只有用07以上版本才可用。
建议在word对象中先检测下版本，避免错误。

hwc2ycy · 发表于 2014-4-22 14:45

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

If doc.Version >= 12 Then
doc.ExportAsFixedFormat ThisWorkbook.path & "" & Cells(i, 3).Value & "_EN.PDF", 17
End If
doc.Close False

复制代码

billyzhang0609 · 发表于 2014-4-22 15:07

hwc2ycy 发表于 2014-4-22 14:45

谢谢，厉害！

hwc2ycy · 发表于 2014-4-22 15:07

如果只是导出WORD，其实用邮件合并应该比代码更胜一筹。

su45 · 发表于 2014-4-22 15:45

还没用过2010中的PDF呢！进来看下！

su45 · 发表于 2014-4-22 15:46

还没用过2010中的PDF呢！进来看下！

		自动登录	找回密码
密码			注册