请教一个多文档顺序合并的问题

jiminyanyan · 发表于 2016-7-14 23:20

本帖最后由 jiminyanyan 于 2016-7-15 12:37 编辑

请教一个多文档顺序合并的问题

小花鹿 · 发表于 2016-7-15 01:54

怎么你的效果文档还不如其它文档数据多.........................................................................

jiminyanyan · 发表于 2016-7-15 12:38

小花鹿发表于 2016-7-15 01:54
怎么你的效果文档还不如其它文档数据多................................................................ ...

谢谢提醒，附件做错了，己更新。。。

小花鹿 · 发表于 2016-7-15 13:15

jiminyanyan 发表于 2016-7-15 12:38
谢谢提醒，附件做错了，己更新。。。

你不说规则，别人怎么理解，也就是说，分表中的每一页，在总表中也占一页，是这个意思吗

jiminyanyan · 发表于 2016-7-15 13:20

小花鹿发表于 2016-7-15 13:15
你不说规则，别人怎么理解，也就是说，分表中的每一页，在总表中也占一页，是这个意思吗

假如有3个文件08。。。09。。。 10。。。。分别有a ,b,c 页
则总表就是a + b + c 页
08开头的最后那页可能只有半页，09开头的那个文件要另起一页粘贴，不知这样能明白不？

jiminyanyan · 发表于 2016-7-15 13:31

Sub Macro1()
Dim p$, f$, w As Object
Application.Visible = False
Set w = ActiveDocument
p = w.Path & ""
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
f = Dir(p & "*.doc")
Do While f <> ""
If f <> w.Name Then
With Documents.Open(p & f)
Selection.WholeStory
Selection.Copy
w.Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.InsertBreak Type:=wdPageBreak
.Close
End With
End If
f = Dir
Loop
Application.Visible = True
End Sub

复制代码

这样好像可以， word 中的代码。。。。

小花鹿 · 发表于 2016-7-15 13:53

jiminyanyan 发表于 2016-7-15 13:20
假如有3个文件08。。。09。。。 10。。。。分别有a ,b,c 页
则总表就是a + b + c 页
08开头的最后那页 ...

插入分页符不就行了

jiminyanyan · 发表于 2016-7-15 14:21

小花鹿发表于 2016-7-15 13:53
插入分页符不就行了

嗯，己通过插入分页符解决。。。

xzh_yzcn · 发表于 2017-4-15 09:29

老师，谢谢你！！！
我想仍保持各文档为独立文档，不将各文档粘贴到一个文档中。仅通过修改各文档的起始页码，打印装订到一体，页码边贯，看上去象一个文档。因为一个大文档操作处理变得很困难，而各个文档独立为一个文档，易操作，也好分工协作。我的问题关键是如何获取word文档的起始页码，如何修改文档的起始页码。请老师指点。

xzh_yzcn · 发表于 2017-4-15 09:30

我的回复需要审核，什么原因

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

[求助] 请教一个多文档顺序合并的问题