关于word文档分割的

dafanshu1 · 发表于 2016-6-25 17:35

13907933959 发表于 2016-6-25 06:51
前辈好！
单独运行了这2句，可运行，并看到新建了一个空白页。
Sub SplitEveryFivePagesAsDocuments()
...

既然改用Documents.Add不会出错的话，那你试试将原宏中的Set oNewDoc = Documents.Add替换为这两句：
Documents.Add
Set oNewDoc = ActiveDocument
另外，我们俩在这相互讨论这问题，感觉上好像不是太好，毕竟楼主没有出现你所说的问题，讨论太多好像反而掩盖楼主本身要问的问题了，建议你针对你的问题开过新贴，我们可以有更多的交流。
还有，真正的高手前辈loquat兄终于现身了！你可以多请教他，嘻嘻

13907933959 · 发表于 2016-6-25 18:03

dafanshu1 发表于 2016-6-25 17:35
既然改用Documents.Add不会出错的话，那你试试将原宏中的Set oNewDoc = Documents.Add替换为这两句：
Do ...

前辈好！
单独运行了这2句，可运行，并看到新建了一个空白页。
Sub SplitEveryFivePagesAsDocuments()
Documents.Add
Set oNewDoc = ActiveDocument
End Sub

好的。请见http://club.excelhome.net/thread-1284425-1-1.html
求前辈们编写一个“将大型Word文档拆分为多个小文档”的代码

loquat · 发表于 2016-6-25 20:29

13907933959 发表于 2016-6-25 14:16
前辈好！
感谢前辈多次出手相助！
25楼的代码一复制粘贴进代码窗口，这句tmpRange.MoveEnd(wdCharacter ...

多了一对括号：
tmpRange.MoveEnd wdCharacter,-1

loquat · 发表于 2016-6-25 20:33

13907933959 发表于 2016-6-25 14:57
前辈好！
单个文件调用：运行后提示“运行时错误 ’4608’，数值超出范围” 宏运行不了。进代码窗口查看 ...

单个文件我这里似乎没有问题，但是发现生成的文档丢失信息比较严重，现在重新更正。
多个文件那个只是我做的一个例子，你的arr里没有内容，肯定会报错的嘛

loquat · 发表于 2016-6-25 20:42

好像楼主的代码遇到表格也没有特殊处理，也有问题

13907933959 · 发表于 2016-6-26 08:18

loquat 发表于 2016-6-25 20:29
多了一对括号：
tmpRange.MoveEnd wdCharacter,-1

前辈好！

把这句的tmpRange.MoveEnd(wdCharacter,-1)括号去掉了变成了 tmpRange.MoveEnd wdCharacter,-1还是运行不了，提示“运行时错误’4605 ’此方法或属性无效，因为没有选定文字”，进代码窗口查看、空箭头还是指向该句tmpRange.Copy代码，代码为黄色突出显示状，但自建了一个空白页。

请前辈再看看，谢谢！

13907933959 · 发表于 2016-6-26 08:34

本帖最后由 13907933959 于 2016-6-26 08:36 编辑

loquat 发表于 2016-6-25 20:33
单个文件我这里似乎没有问题，但是发现生成的文档丢失信息比较严重，现在重新更正。
多个文件那个只是我 ...

前辈好！
单个文件调用：运行后还是提示“运行时错误 ’4608’，数值超出范围” 宏运行不了。进代码窗口查看、空箭头指向该句Set aRange = aDoc.Range(aStart, aEnd)代码，代码为黄色突出显示状。但看到有一个新建的空文件夹。

loquat · 发表于 2016-6-26 13:14

我这里都已经运行OK了
实在搞不清你那里怎么会有问题，奇怪

13907933959 · 发表于 2016-6-27 07:15

loquat 发表于 2016-6-26 13:14
我这里都已经运行OK了
实在搞不清你那里怎么会有问题，奇怪

前辈好！
谢谢回复！我也为此困惑，莫非是我用的office2003版本低的原因？能否再请问前辈你用的版本是？谢谢！

loquat · 发表于 2016-6-27 09:40

我用的是2010

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

[求助] 关于word文档分割的