word分页生成pdf-好几百页分开独立的网页,如何做成一个PDF文件? - 百...

先单独制作pdf文件，

接着用foxit pdf page organizer（pdf页面组织者） v2.93合并

下载页面 http://www.xdowns.com/soft/softdown.asp?softid=40697

利用word的排版功能，把word设置成不分页的，然后把word转换为pdf即可，具体方法是：安装e书部落电子书制作器后，直接打开word文档，对word进行不分页的排版（这个不用我教吧），然后按工具栏的黄色“e”即可把word转为pdf,并且是带书签的。pdf制作教程： http://www.ebookpk.com/help/how_pdf.htme 书部落（ebookpk）可以把jar,word,txt,pdf,umd,chm等文档进行互转，功能十分强大。 ebookpk是一款集内容采集，制作，分享于一体的多功能制作器。目前能导入和制作txt,jar,umd,chm,pdf,doc,html和博客blog八种电子书。利用本地导入功能，可合并各类文件,是标准的jar,umd,chm,word“反编译器”和“txt电子书合并器”；利用网络导入功能，可自动爬行并抓取各类网页文字，成名副其实的“网络印刷机”。 下载地址： http://www.ebookpk.com/download/index.html 视频教程： http://www.ebookpk.com/help/index.html

option explicit
sub saveasfilebypage()
'分页保存,适用于word97及其以上版本
dim objshell as object, objfolder as object, strnamelenth as integer
dim myselection as selection, myfolder as string, myarray() as string
dim thisdoc as document, mydoc as document, strname as string, n as integer
dim myrange as range, pagestring as string, pgorientation as wdorientation
dim sinleft as single, sinright as single, sintop as single, sinbottom as single
dim errchar() as variant, ochar as variant, sinstart as single, sinend as single
const mymsgtitle as string = "excelhome_shourou"
dim vbyn as vbmsgboxresult
sinstart = timer
on error goto errhandle '设置错误处理
'创建一个shell.application对象
set objshell = createobject("shell.application")
'取得文件夹浏览器
set objfolder = objshell.browseforfolder(0, "请选择一个文件夹", 0, 0)
if objfolder is nothing then exit sub
myfolder = objfolder.self.path & ""
set objfolder = nothing: set objshell = nothing
set thisdoc = activedocument '定义一个document对象,以利用本程序作为加载宏
set myselection = thisdoc.activewindow.selection
'文件自动命名时必须规避的字符
errchar = array("", "/", ":", "*", "?", """", "<", ">", "|")
'一些特列字符
for n = 0 to 31
redim preserve errchar(ubound(errchar) + 1)
errchar(ubound(errchar)) = chr(n)
next
strnamelenth = val(vba.inputbox(prompt:="请输入您需要设置的文件名长度,0或者取消将自动命名!", title:=mymsgtitle, default:=10))
if strnamelenth > 255 then strnamelenth = 0
vbyn = msgbox("是否需要处理页尾的分隔符(分页符/分节符)?它可能会影响文档结构.", vbyesno + vbinformation + vbdefaultbutton2, mymsgtitle)
application.screenupdating = false '关闭屏幕更新
'在文档的每页中循环
for n = 1 to myselection.information(wdnumberofpagesindocument)
myselection.goto what:=wdgotopage, which:=wdgotonext, name:=n
set myrange = thisdoc.bookmarks("page").range
if vbyn = vbyes and vba.asc(myrange.characters.last.text) = 12 then _
myrange.setrange myrange.start, myrange.end - 1
'取得一个以段落标记为分隔符的一维数组
myarray = vba.split(myrange.text, chr(13))
'将所有文本合并为一个字符串
pagestring = vba.join(myarray, "")
'取得文档中每节的页面设置
with myrange.sections(1).pagesetup
sinleft = .leftmargin '左页边距
sinright = .rightmargin '右页边距
sintop = .topmargin '上边距
sinbottom = .bottommargin '下边距
pgorientation = .orientation '纸张方向
end with
for each ochar in errchar '进行一系列替换,即删除无效字符
pagestring = vba.replace(pagestring, ochar, "")
next
if strnamelenth = 0 then
strname = thisdoc.name
strname = vba.replace(lcase(strname), ".doc", "")
strname = strname & "_" & n
else
strname = vba.left(pagestring, strnamelenth) '取得文件名
end if
strname = strname & ".doc"
myrange.copy '复制
set mydoc = documents.add(visible:=false) '新建一个隐藏的空白文档
with mydoc
.content.paste '粘贴
.content.paragraphs.last.range.delete '删除最后一个段落标记
with .pagesetup '进行页面设置
.orientation = pgorientation
.leftmargin = sinleft
.rightmargin = sinright
.topmargin = sintop
.bottommargin = sinbottom
end with
'如果有相同的文档,则自动命名
if vba.dir(myfolder & strname, vbdirectory) <> "" then strname = "page_" & n & ".doc"
.saveas myfolder & strname '另存为
.close '关闭文档
end with
next
thisdoc.characters(1).copy '变相清空剪贴板
application.screenupdating = true '恢复屏幕更新
sinend = timer '取得代码运行结束的时间
if msgbox("分页保存结束,用时:" & sinend - sinstart & _
"秒,是否打开指定文件夹查看分页保存后的文档情况?", vbyesno, mymsgtitle) = vbyes then _
thisdoc.followhyperlink myfolder
exit sub
errhandle:
msgbox "错误号:" & err.number & vblf & "出错原因:" & err.description, mymsgtitle
err.clear
application.screenupdating = true '恢复屏幕更新
end sub

word文档，默认是一节，而每节页面设置是相同的，插入的页码也是连续的，要想改变，必须分节，插入---->分隔符----->分节符。
插入页码：视图---->页眉和页脚，把光标放在第二节的页脚处，在页眉和页脚工具栏中，单击“链接到前一个”，断开与前节的联系，这样就可以单独设立页码了。
插入页码： 插入--->页码--->格式--->起始页码选择“1”