如何将word文档按照分节符保存为单个的PDF文件？

xiamochuqiu · 发表于 2013-12-5 16:28

本帖最后由 xiamochuqiu 于 2013-12-5 17:43 编辑

非常抱歉，发帖之前没有看版规，发的帖子不符合要求而且没有带附件，给版主带了麻烦，请见谅！
大家好，我是个新人，对编程不是很懂，现在遇到的问题是想将word文档按照分节符保存为一个一个的PDF文件，并对PDF文件按要求命名，具体内容请见附件

拆分PDF具体说明.zip (271.38 KB, 下载次数: 98) ，
我自己尝试解决过这个问题，在网上找了别人的宏文件，修改了一点点，具体宏文件如下：

Sub spliterASPDF()

Const strFileExtension = ".doc"

Dim oSection As Section
Dim strTargetFileName As String

For Each oSection In ActiveDocument.Sections
strTargetFileName = Replace(ActiveDocument.FullName, strFileExtension, "_" & oSection.Index & ".PDF")
oSection.Range.ExportFragment strTargetFileName, wdExportFormatPDF = 17

Next

MsgBox "完成"

End Sub

但是这样运行的结果是，虽然可以按照分节符拆成一个一个的PDF，但是只是后缀名改成了pdf，pdf工具不能打开，只能用word打开，我想不明白是什么原因，也想麻烦大家帮忙修改下代码，能够实现这个拆分成PDF并命名的效果。

kuangben8 · 发表于 2013-12-5 16:57

欢迎加入E家庭，请欣赏：

在ExcelHome技术论坛的最佳学习方法
http://club.excelhome.net/thread-117862-1-1.html

dafanshu1 · 发表于 2013-12-5 16:59

试试把那句“oSection.Range.ExportFragment strTargetFileName, wdExportFormatPDF = 17”改成：“oSection.Range.ExportAsFixedFormat strTargetFileName, wdExportFormatPDF”

xiamochuqiu · 发表于 2013-12-5 17:58

本帖最后由 xiamochuqiu 于 2013-12-5 18:16 编辑

dafanshu1 发表于 2013-12-5 16:59
试试把那句“oSection.Range.ExportFragment strTargetFileName, wdExportFormatPDF = 17”改成：“oSectio ...

谢谢，这样真可以，{:soso_e100:}，我下午用的oSection.Range.ExportFragment strTargetFileName, wdFormatPDF“，但是调试的时候一直出现错误提示。
非常感谢！还是有一个问题啊，这样保存好的PDF，最后都会有一个空白页是为什么呢？

dafanshu1 · 发表于 2013-12-6 09:20

xiamochuqiu 发表于 2013-12-5 17:58
谢谢，这样真可以，，我下午用的oSection.Range.ExportFragment strTargetFileName, wdForm ...

之所以最后有空白页，估计是oSection.Range 代表了整节的内容,包含最后的分节符，把整节内容抽出来后此分节符就会分多一页出来。水平很有限，采用笨点的方法，就是别把此分节符选中，试试把原来的“oSection.Range.ExportFragment strTargetFileName, wdExportFormatPDF = 17”代替成以下的几句：
oSection.Range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.ExportAsFixedFormat strTargetFileName, wdExportFormatPDF

心如止W · 发表于 2014-1-1 10:57

为什么用这种方式不能显示页码啊

psystyle · 发表于 2014-1-1 11:15

dafanshu1 发表于 2013-12-5 16:59
试试把那句“oSection.Range.ExportFragment strTargetFileName, wdExportFormatPDF = 17”改成：“oSectio ...

如何将word文档按照分节符保存为单个的doc文件，该如何修改代码，谢谢

dafanshu1 · 发表于 2014-3-14 11:42

心如止W 发表于 2014-1-1 10:57
为什么用这种方式不能显示页码啊

因为这种方式是将所选择的正文内容输出到PDF文件，没有包含页眉页脚的内容。或者用别的VBA语句用PDF虚似打印机来打印才行。

dafanshu1 · 发表于 2014-3-14 11:48

psystyle 发表于 2014-1-1 11:15
如何将word文档按照分节符保存为单个的doc文件，该如何修改代码，谢谢

用ExportAsFixedFormat方法只能输出为PDF文件。而用ExportFragment方法保存为wdFormatDocument格式是可以生成文件，但不知为什么生成后打不开，提示不能识别格式。若保存为wdFormatDocumentDefault格式，我的机子是可以打开，但会弹出提示没找到转换器，还未搞懂是什么原因。

eorgfr6358 · 发表于 2014-12-30 17:51

免费下载http://www.ddooo.com/softdown/51986.htm

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

[求助] 如何将word文档按照分节符保存为单个的PDF文件？