请大神帮把doc文件切割成一个个doc文件，谢谢！

413191246se

认真阅读了一下 gbgbxgb 老师的代码，我有感触的有三点：一是，针对 ThisDocument 对象，而我只是会针对 ActiveDocument 对象。二是，在超级链接中循环，我一般只在表格和段落中循环。三是，重新声明二级数组。我连一级数组都怕得要命，更别说二级了，根本不懂。再次向老师学习、致敬！

gbgbxgb

413191246se 发表于 2020-7-28 12:25
认真阅读了一下 gbgbxgb 老师的代码，我有感触的有三点：一是，针对 ThisDocument 对象，而我只是会针对 Ac ...

妄自菲薄，要不得。

这代码没什么价值，或许因为超链接新颖了点，仅此而已。

1.ThisDocument和ActiveDocument基本没区别。若非得较真，前者把代码限死在代码所在文档上运行，后者针对的是当前活动文档。事实上，由于Word宏呈现的特殊性，当你切换到别的文档，代码所在文档的代码通过常规手段（指通过菜单中的”宏“命令）无法调用它，因为它不可见，从这个角度看，绝大多数代码中的ActiveDocument其实就是ThisDocument；
2.（承上），你可能产生疑问，既然如此，为什么Word既提供ThisDocument，又提供ActiveDocument呢？因为二者毕竟存在区别。举个例子，某人是一文员，她（他）的每份Word文档的最后段落必定是某一特殊内容，该特殊内容依实际需要有三种，有时这样，有时那样。她（他）对此不胜其烦，于是建了个文档并把它保存为模板（mu'ban，普及下普通话^_^），此模板文档含了点代码，代码的功能是在当前活动文档的末尾快速插入前述的特殊内容。模板建好后，她（他）利用菜单中的”模板和加载项“命令（这里指Word 2003版本的菜单项）加载了上述模板，此后，她（他）通过”宏“命令可以看到该代码所在的宏并调用它了。综上所述，该代码中的ActiveDocument不可以用ThisDocument来替代；
3.数组一维和二维有大区别么？

最后，在我印象中，您多年前好象说过岁数不小了，学VBA既不用于工作，亦不用于生活，只是爱好它，喜欢鼓捣鼓捣它，既然如此，那就没必要纠结自已与他人在VBA学习上或水平上的差距。古人说得好：闻道有先后；又说，朝闻道，亦足矣（^_^，换下味道）。总之，发现他人的代码有长处，借鉴之；自己的代码不足处，警醒之。没必要动不动高估他（她）人。

gbgbxgb

413191246se 发表于 2020-7-28 12:25
认真阅读了一下 gbgbxgb 老师的代码，我有感触的有三点：一是，针对 ThisDocument 对象，而我只是会针对 Ac ...

（承楼上）
若不想把含ActiveDocument关键字的代码所在的文档保存为模板并以加载宏的方式让其生效，有一简单方法可测试ActiveDocument的功效：
步骤一：打开上述代码所在的文档；
步骤二：打开另一个不相干的文档并使之成为当前活动文档；
步骤三：按Alt+F11（当然，别的方法也行，你只要能进入VBE编辑界面都可以）进入VBE；
步骤四：在VBE界面下运行上述的宏。

试试下列含ActiveDocument关键字的代码的附件。
在文档屁股后面追加特定内容.rar (6.78 KB, 下载次数: 10)

2020-7-28 14:41 上传

点击文件名下载附件

gbgbxgb

413191246se 发表于 2020-7-28 12:25
认真阅读了一下 gbgbxgb 老师的代码，我有感触的有三点：一是，针对 ThisDocument 对象，而我只是会针对 Ac ...

瞧你求知若渴，故花了点时间为你添加了代码注释，若还有兴趣，就下载看看，或许你因此不再觉得这代码难懂了。
拆分文档的代码（添加了注释）.rar (472.17 KB, 下载次数: 28)

2020-7-28 15:39 上传

点击文件名下载附件

413191246se

    gbgbxgbd 老师，讲解得太好了！我一个是不太小了，二是感觉可能比魏老师小(weiyingde)，三是VBA代码实际上我也用于工作中排版，要不我也不费心一直折腾自动排版了！四是不管大小（年纪），总之，三人行必有我师，比我厉害、能耐，就是老师！我现在真的认识到了，不如别人就要向别人学习，这才是虚心的态度。
    老师的文档已经下载，等明日再学习。最近，由于天气太热，我不打算用电脑太久。过去，冬天，我一直是用十几个小时，现在，到 11点左右 我马上关机，省得把我好电脑热坏了；随后，我用小霸王Q700PSP掌机看看电子书，等过一段时间，天凉了，再多用时间。我太愚笨，无法跟老师比啊！（二维数组就更难懂了，一维都用不利索。）谢谢老师的鼓励！（老师打了不少字，挺辛苦的！过去，我一直在网上练习五笔打字，所以，我打字不成问题。）

413191246se

昨晚，读了一遍老师的代码注释；今天，又读了一遍。关于超级链接集合，我还是似懂非懂。二维数组，也不懂。但无妨。我也用不上二维的。我现在能基本上用VBA基本方法查找到所要找的字符，但这也是费了好几年时间。我2011年6月上线本坛，一直是在录制宏的基础上有所进步，向各位老师学到了不少知识技巧。但与各位老师掌握VBA知识之全面（如：函数、模块、窗体、数组、字典、正则、递归等方法）无法相比，虽天资愚钝，但也乐此不疲。也谢谢各位老师的帮助、鼓励和指导、贡献。

abcttud

gbgbxgb 发表于 2020-7-28 02:03
试试附件。

gbgbxgb老师：

为什么出现运行错误“5152”
https://abcttud.lanzous.com/i1jFxf4n2nc

abcttud

gbgbxgb 发表于 2020-7-28 02:03
试试附件。

老师：
另外，下面同样两种如何分割
https://abcttud.lanzous.com/ip3xhey02di

https://abcttud.lanzous.com/iiT6mexy89i

abcttud

gbgbxgb 发表于 2020-7-28 02:03
试试附件。

老师：请帮看下
出现错误
https://abcttud.lanzous.com/i1jFxf4n2nc

小花鹿

我也学习写一个：Sub xiaohualu()
Dim hl As Hyperlink, ar, n&, i&
ReDim ar(1 To ThisDocument.Hyperlinks.Count + 1, 1 To 2)
For Each hl In ThisDocument.Hyperlinks
    n = n + 1
    ar(n, 1) = hl.Range.Text
    hl.Follow
    ar(n, 2) = Selection.Start
Next hl
ar(n + 1, 2) = ThisDocument.Range.End
For i = 1 To n
    MsgBox ar(i, 1)
    ThisDocument.Range(ar(i, 2), ar(i + 1, 2)).Select
Next i
End Sub