请教：如何将一个word文档按页保存为多个word文档？？？

fwjjjj · 发表于 2007-1-30 16:02

我使用了这个代码，但是拆分出来的文档总是带一个空白页，能不能自动删除这个空白页面呢，急盼回复，谢谢！

笨笨新 · 发表于 2007-1-30 16:17

守柔大哥可是我们领导的偶像，他老叫我们上这个论坛来学习，哈哈，看了几个贴子，真的是有太多东西可以学习了，希望某天我也能小有所强……

xuanhf · 发表于 2007-3-23 06:51

的确有一个空白页，如何去掉呢？

sgrshh29 · 发表于 2007-3-23 16:06

注意这里：

...................

Selection.GoToNext (wdGoToPage) '否则,将下一页的起始位置赋值于EndRange(等同于本页的最后位置)
EndRange = Selection.Start － 1
End If
....................

增加一个减一就可以了。

守柔 · 发表于 2007-3-24 06:27

请参考此贴：

suki8 · 发表于 2013-10-27 21:00

守柔发表于 2004-7-8 16:49
我未认真考虑你的思路，只做了一个将一个WORD文档按楼主所说每页分成一个文档的办法，请参考并运行以下代码 ...

学习你所写的代码每页分成一个文档是成功的，谢谢你。
但请问，如果我的一个Word文档是按每6页（或其他数字）来分成多个Word文档，那VBA怎么写呢？请指教！！

泥虫 · 发表于 2014-9-5 17:01

经典，实用，看不懂还是学习下

suihuas · 发表于 2021-1-31 09:10

改成三页生成一个文档的话，又该怎么改呢?

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