关于word文档分割的

13907933959 · 发表于 2016-6-23 21:22

dafanshu1 发表于 2016-6-23 16:27
我的是07版的，没出错，可以运行哦。
这句oSrcDoc.Bookmarks("\page").Range.Copy的作用是将当前页的内 ...

前辈请看附件！

dafanshu1 · 发表于 2016-6-23 22:45

13907933959 发表于 2016-6-23 21:22
前辈请看附件！

我在家里的2010版也没出错。你是oSrcDoc.Bookmarks("\page").Range.Copy这句出错吗？如果是这句，那对于任意一文档，运行ActiveDocument.Bookmarks("\page").Range.copy也会出错吗？

13907933959 · 发表于 2016-6-24 07:25

本帖最后由 13907933959 于 2016-6-24 09:22 编辑

dafanshu1 发表于 2016-6-23 22:45
我在家里的2010版也没出错。你是oSrcDoc.Bookmarks("\page").Range.Copy这句出错吗？如果是这句，那对于 ...

前辈好！
我也不知道是不是这句oSrcDoc.Bookmarks("\page").Range.Copy代码出错，运行时提示错误’4605 ’ 宏运行不了，进代码窗口查看、空箭头指向该句代码，代码为黄色突出显示状，（代码窗口内其它多个代码均能正常运行）。

删除这句oSrcDoc.Bookmarks("\page").Range.Copy代码则能运行，但结果不是拆分文档，而是复制几遍要拆分的文档。

前辈、能否再恳求您把这个宏代码全部注释一下，由于本人还是个外行，水平仅仅停留在免强使用的阶段，代码好多都看不懂，另外、最上面这句Option Explicit在代码中起什么作用，是否一定要它？还请前辈多帮忙！谢谢！

dafanshu1 · 发表于 2016-6-24 09:49

13907933959 发表于 2016-6-24 07:25
前辈好！
我也不知道是不是这句oSrcDoc.Bookmarks("\page").Range.Copy代码出错，运行时提示错误’4605 ...

其实我也是一个外行，老实说这段代码我还未详细逐句看透呢。
平时见到论坛上的代码我一般都是查看VBA的帮助或VBA的书籍来学习的，所以建议你先查看帮助或书籍，或百度，有哪句不明白的再提问吧。
我的问题你还未回答呢，就是ActiveDocument.Bookmarks("\page").Range.Copy这句在一般的文档会否出错？或者你干脆将这句替换掉原来出错的那句试试。

13907933959 · 发表于 2016-6-24 10:20

dafanshu1 发表于 2016-6-24 09:49
其实我也是一个外行，老实说这段代码我还未详细逐句看透呢。
平时见到论坛上的代码我一般都是查看VBA的 ...

前辈好！
罪过！忙昏了头了，忘了说了。用这句ActiveDocument.Bookmarks("\page").Range.Copy替换掉原来出错的那句oSrcDoc.Bookmarks("\page").Range.Copy 运行时也一样提示错误’4605 ’ 宏运行不了，进代码窗口查看、空箭头指向该句ActiveDocument.Bookmarks("\page").Range.Copy代码，代码为黄色突出显示状。

dafanshu1 · 发表于 2016-6-24 10:26

13907933959 发表于 2016-6-24 10:20
前辈好！
罪过！忙昏了头了，忘了说了。用这句ActiveDocument.Bookmarks("\page").Range.Copy替换掉原来 ...

对于一般的文档，单独运行一句ActiveDocument.Bookmarks("\page").Range.Copy也会出错吗？

dafanshu1 · 发表于 2016-6-24 11:21

13907933959 发表于 2016-6-24 10:20
前辈好！
罪过！忙昏了头了，忘了说了。用这句ActiveDocument.Bookmarks("\page").Range.Copy替换掉原来 ...

我刚刚在百度搜了一下，也有人用这段代码出现同样的错误提示，不过未找到解决方法。是不是你是用03版的问题啊。

13907933959 · 发表于 2016-6-24 11:40

dafanshu1 发表于 2016-6-24 10:26
对于一般的文档，单独运行一句ActiveDocument.Bookmarks("\page").Range.Copy也会出错吗？

前辈好！
我这样单独运行了（不知对不对？）没出错也没什么反应。
Sub SplitEveryFivePagesAsDocuments()
ActiveDocument.Bookmarks("\page").Range.Copy
End Sub

拆分的代码运行不了，也不知是版本低的原因，还是其它的原因，唉！自已的水平低了没有办法，看能否有运气碰到像您一样的前辈解答！谢谢前辈您的多次回复！！！

dafanshu1 · 发表于 2016-6-24 13:41

本帖最后由 dafanshu1 于 2016-6-24 13:43 编辑

13907933959 发表于 2016-6-24 11:40
前辈好！
我这样单独运行了（不知对不对？）没出错也没什么反应。
Sub SplitEveryFivePagesAsDocuments ...

您好！我的水平也很低的，大家探讨一下是好事。近两天手头上工作稍放缓，才能在这里跟你们一起探讨，挺有趣的。但下周起烦锁工作又来了，到时可能不能及时回复，还请见谅！
ActiveDocument.Bookmarks("\page").Range.Copy这句作用只是将内容复制进剪贴板，当然没反应了，要是将Copy换成Select就会有反应了，即是选择当前页内容。
既然这句单独运行没报错，证明这句出错还涉及其它语句，你试试这样，从最简单的这句起，逐渐添加原宏中在这句之前的其它关键语句，看看加到哪句会报错，如下面的简单几句试试：
Set oSrcDoc = ActiveDocument
Set oNewDoc = Documents.Add
oSrcDoc.Activate
ActiveDocument.Bookmarks("\page").Range.Copy

13907933959 · 发表于 2016-6-24 14:16

dafanshu1 发表于 2016-6-24 13:41
您好！我的水平也很低的，大家探讨一下是好事。近两天手头上工作稍放缓，才能在这里跟你们一起探讨，挺 ...

前辈好！

我把这几句放在一起运行了。
Sub SplitEveryFivePagesAsDocuments()
Set oSrcDoc = ActiveDocument
Set oNewDoc = Documents.Add
oSrcDoc.Activate
ActiveDocument.Bookmarks("\page").Range.Copy
End Sub

要到拿掉了这2句后才不会报错，不然运行时也一样提示错误’4605 ’ 宏运行不了。
Set oNewDoc = Documents.Add
oSrcDoc.Activate

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

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