ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: lan_yu

[求助] word中的一页自动生成一个文件

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-10-19 23:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 lan_yu 于 2010-10-19 20:57 发表

非常感谢!就是要达到您这个结果。但这段代码运行后无法拆分,总是显示“活动文档不具备指定的拆分条件”,请教一下怎么解决!

再将代码复制一次,应该可以啦

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-10-20 15:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 szqhb 于 2010-10-19 23:56 发表

再将代码复制一次,应该可以啦


这个没弄明白,复制到哪儿去?谢谢!!

TA的精华主题

TA的得分主题

发表于 2010-10-21 00:35 | 显示全部楼层
你前面不是说“这段代码运行后无法拆分,总是显示“活动文档不具备指定的拆分条件”吗?说明你已经会使用代码了。因为原来的代码在注释时用了中文的单引号,所以出现问题,现已修正(还是9楼的代码)。如果还不能拆分,说明你拆分的文档各标题不是“二号”“宋体”了。

是有点问题哦

问题找到了,原来是文档中存在含二号宋体的空行,造成提取到为空(即空行对应的页)文档无法为本身命名保存

[ 本帖最后由 szqhb 于 2010-10-21 18:47 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-10-21 08:39 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 szqhb 于 2010-10-21 00:35 发表
你前面不是说“这段代码运行后无法拆分,总是显示“活动文档不具备指定的拆分条件”吗?说明你已经会使用代码了。因为原来的代码在注释时用了中文的单引号,所以出现问题,现已修正(还是9楼的代码)。如果还不能拆分 ...

再次复制,还是不能拆分。仍然出现“活动文档不具备指定的拆分条件”!

TA的精华主题

TA的得分主题

发表于 2010-10-21 14:37 | 显示全部楼层
同样的代码,在家里运行的时候不行,在单位就OK了,给你个附件,运行里面的宏看看行不

再把各标题设置一下,也许文档里的“字体字号”与宏里面的不一致

[ 本帖最后由 szqhb 于 2010-10-21 14:38 编辑 ]

按标题拆分文档.rar

10.53 KB, 下载次数: 73

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-10-22 22:08 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 szqhb 于 2010-10-13 21:54 发表
这个是“守柔”大师的杰作,稍微“润色”了一下
务必讲代码将代码粘贴于活动文档的“THISDOCUMENT”模块中才能运行哦

还有一个就是每页的首行不能为空及文档命名系统不允许的符号

Sub shouroude()
Dim PageC ...

这个可以完成,但不支持页面设置为横向的文档。因为默认生成的文档都是竖向的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-10-22 22:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 szqhb 于 2010-10-21 14:37 发表
同样的代码,在家里运行的时候不行,在单位就OK了,给你个附件,运行里面的宏看看行不

再把各标题设置一下,也许文档里的“字体字号”与宏里面的不一致

还是一样的问题,运行时出错!

TA的精华主题

TA的得分主题

发表于 2010-10-22 23:39 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
15楼的附件不行吗?我这可以运行啊,系统是Word2003
其他同仁下载的附件可以运行吗?

[ 本帖最后由 szqhb 于 2010-10-22 23:54 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-10-22 23:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-3-5 08:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复 4楼 szqhb 的帖子

很好用,谢谢
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-13 07:29 , Processed in 0.037841 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表