ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

求一个获得标题编号的代码

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-3 13:02 | 显示全部楼层
本帖最后由 limshanb 于 2013-5-3 13:03 编辑
sylun 发表于 2013-4-28 15:53
就附件格式而言,可试试如下代码:


SYlun网友
     您设计的获得标题编号的代码非常有用,最近我在应用的时候发现一个现象,就是有时候得到的不是本章节的标题编号,而是上一个章节的某条款序号编号,该序号编号也是应用的自动编号,经过我不太专业的试验发现,只要文章中存在“圆点”列项符号,在下一个章节中代码就不能正确得到标题号,得到是往往是上一章节的条款序号编号。能否解决这一问题,就是说,无论文章中用的什么符号,都能获得所在章节的标题编号。
例子这里挂不上,我放在论坛了。
    期待您回复。
   limshanb
   2013-05-03

获得标题标号宏的问题.rar

8.35 KB, 下载次数: 14

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-4 12:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
sylun 您好
      您提供的代码无疑是非常实用、非常有效,也能解决我工作中的问题,但是在前天处理文档时,发现文中遇到有自动列项符号“圆点或方块符号”时,在下一个章节中不能正确获得所在章节的标题编号,若上节(本处说的节指文章章节不是word分节符的节)还有自动编号,则代码得到的是自动编号,若无自动编号则得到的是空格。
样例如下
希望代码能忽略自动的列项符号“”的存在,无论文中有哪种自动列项符号,都能正确获得本章节的标题编号。

样例.rar

6.54 KB, 下载次数: 14

TA的精华主题

TA的得分主题

发表于 2013-5-4 13:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
limshanb 发表于 2013-5-1 16:38
谢谢你提供这个信息,找到你的介绍网页再仔细看。我的工作经常整理大型文档,写作倒是不算主要,因为自己写 ...

我在设计软件时遇到实现途径的选择问题,你现在的思路是我曾经考虑过的,与你交流一下。
首先说一下你的图表的编号方式,比如表2.1.1-1,表2.1.1-2 这种同时还有表3.1-1、表3.1-2,一般来说是不规范的,一般是一级标题或者二级标题+编号的形式,另外合并他人文档为一个文档统稿时,主要问题不是移动一个表或者图导致对图说和表说丢失的问题,而是编号和对编号的引用的问题是否统一,顺序是否正确的问题。
我的途径是无论是什么子文档,无论是否是通过文本编号还是自动编号,先将他们转换为自动编号(我的软件中有自动转换的功能,转换过程中包括对编号顺序的检查),转换的结果中图表编号是不包含章节的形式,合并到一起后,更新域后整个文档中编号不会有问题了,之后可以一次性对图说和表说进行排版(可以一次性全选图说和表说),在图表式交叉引用中可以方便查找、选中和交叉引用图说和表说,最后完成合并时,将图表编号转变为包含章节的形式。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-4 15:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 limshanb 于 2013-5-4 16:02 编辑

感谢13楼的交流
     就这个话题,我首先要抱怨一下中国人做事不认真、不实事求是的态度,我指的是企业对技术工作者的要求。大型工程投标、大型项目实施方案策划,这类文件都是数百页,上千页的文档,在没有计算机的时代,通常单位里会组织一个临时小组,例如十几个人,用几个月的时间来完成。现在有了计算机,企业有时候几天时间就要拿出结果,逼的人去“组装”文档,若真正的编写,真的需要一个月或几个月的时间。组装文档几天就够了。
    我对word应用技术都是从工作实际需要出发提出来的。在组装文档时,技术业务方面的就省略了,这里主要是编纂排版方面的探讨。文章快,其中带有图表机器编号,组到新文档中时,图说表说(我叫表头和图名)中的编号需要重新修改。我的思路是,文档本身用的是多级标题自动编号,要求表说图说在文章移动时自动与新文档的标题编号适应。用交叉引用所在章节的标题编号的方法,可以达到这个目的,只要更新域(可设置打印时自动更新域)就好了。
     你开发的软件中有自动将表说图说编号转化为自动编号的功能,这个功能实在是太好了,但是合成的新文档除了表头和图名中有这个编号外,在正文中还有引用它们的文字,如XXX见表2.2.1等等,还是要人工调整。
     看到你花费精力开发这个系统,其实要让人们熟练应用,得心应手的运用还要花费时间来学习,对一般人来说没有积极性,因为各有各自习惯的方法。您有这个兴趣,我到有个好课题,你可以开发一个“大型专题文件生成器”(这个名称是我临时起的),就如同网上曾经传过的“情书生成器”一样,不过那个东西是用来消遣的,我说这个“大型专题文件生成器”是真正用来解决一个工作需求的,例如“大型工程项目技术标书生成器”、“项目实施规划生成器”、“执行计划生成器”等等。这个系统就是个数据库,只要点一点鼠标,一个大型专业文档就形成了,再做一些必要的修改就能应急应用,正好迎合了中国人这种追求形式急于求成的坏毛病。你也可以先做成一个空壳,只有数据结构和生成机制,让用户自己自定义各种文档模块,例如“组织机构模块”、“职责分工模块”、“进度控制模块”、“质量管理模块”……毕竟各行各业的业务是不同的。

TA的精华主题

TA的得分主题

发表于 2013-5-4 16:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
limshanb 发表于 2013-5-4 15:55
感谢13楼的交流
     就这个话题,我首先要抱怨一下中国人做事不认真、不实事求是的态度,我指的是企业对技 ...

这几年我编写了几本教材。我的软件是随着自己写教材逐步完善的,大型工程投标、大型项目实施方案策划基本就和一般书差不多。所以我的需求与要求基本与你相同。
组装文档过程中,你遇到的基本各个方面我都遇到且比较好的解决了。比如标题的排版,多级文本编号的标题转为多级自动编号,文本编号的图表和公式转自动编号(包括常见表*.*之类的交叉引用都可以自动转换,不需要人工调整),标题编号和图表公式编号的检查(文本或自动编号的都可以)。
关于你提出的“大型专题文件生成器”,其实去年我给一个大型的研究设计院开发了一个一键排版的工具(包括标题、图说和表说、图和表,以及编号检查),十几分钟就可以将主要的部分排版好。
我公布的软件是十几年开发积累的一个通用工具,需要学习后使用,而且对word功能越熟悉,越知道他的好处。如果你走过弯路,看到我的东西会感兴趣,学习的成本比你自己摸索的过程的成本还是小些。
这些年一直想写本书来告诉人们应该如何利用word进行长文档写作与排版,试写了几章,认为自己语文水平不够,达不到自己的要求,一直停滞。地道的使用word进行长文档写作主要要用好自动编号与交叉引用,排版主要要充分利用模板、样式,分类排版,注意排版的顺序。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-6 15:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 limshanb 于 2013-5-6 15:11 编辑

cuteword 网友
      谢谢您有兴趣和耐心讨论这些。我看市面上或网络上有关word应用技术,大都是没有针对特殊用途、场合、或特定要求的。如果没有工作时间限制,用word排出一个漂亮的文档一点问题没有,问题是有时间限制,例如2天必须完成供打印出版的稿件。我的特定要求就是:排版要漂亮,效率要高,我们单位人们称呼“手快”的小姑娘,调整别人编写好的大型文档(几百页)说需要两天时间,我认为方法得当只需要几分钟或几十分钟。我的目的就是一要快,二要好。我所有的word技术探讨都是围绕这个目的。我看到有个网友开发了一个复杂的word模板,他的样品文章排版不能说漂亮正规,例如,有时候用空格代替首行缩进,有时候用TAB键缩进,有时候标题下面空一行,诸如此类,都是排版没有严格质量要求。更主要的是,他采用强制替换word默认模板(Normal.dot )的方式,这对用户是一种不尊重,一般没有word基本知识的人不知道如何恢复原样,这些都是不可取的。
       一键就实现某某功能对于小段文章非常实用,例如一键排版,对于大型文档有点不太可靠,因为你不知道文档中有什么特殊设置或格式对这个一键功能不起作用或起到其它意想不到的作用。
      有些人提交过来的文档根本没有章法,没有规律,一篇文章中前后不一致,这是我最头痛的,例如,上一节1.2.1XXX是标题,下一节1.2.2就直接为正文叙述了,有时候标题用正文格式,有时候正文也用标题样式,有时候图名在图的上方,有时候没有图名,有时候发现图名或表名与正文混在一起了,诸如此类借助于word技术对这种情况还是没办法处理的。
     我想到的就是针对各类问题分别处理,前面提到的表头图名编号,就是解决其中一个问题的,你说开发的工具已经解决了表说图说自动化问题,果真如此真实太好了,但现实中的图有各种类型,就板式来说,有嵌入型、四周型、上浮型、下浮型等,就图的属性来说有位图、矢量图,就图的存放方式来说,有的放在文本框内,有的放在画布上,有的没有画布,有的放在文本框后再放在画布上,有的是链接在别处,如此等等不一,其实我不太相信有一种方法所有情况通吃,一下就处理好,表格也与此类似。
     说道编写word应用方面的书,其实这类书太多了,台湾人侯建编写的《word排版艺术》就很不错,但是他也没有针对快速高效给出什么建议,那些技术掌握好了自然会提高效率,我的目的不是一般的提高效率,是要大幅度提高,我们在某个工程投标期间,7天完成7个大型标书,我认为这个效率已经比较高了,但是人总是不满足,高了还要再 高,领导看到你能够完成就认为这是正常的,可惜我的VBA知识能力不够,我真的想搞一个“一键排版”的功能,这里面要考虑到现实中人们在word使用上各种不规范的纠正功能并重新格式化。你若果真达到这个功能,我建议挂靠到文字编辑行业商业化推广。

TA的精华主题

TA的得分主题

发表于 2013-5-6 15:23 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
软件能处理的是有规律的东西,没有规律的是不能处理的。你的想法和我一致,就是针对各类问题分别处理,不是一点点的提高,而是大幅度提高效率。我相信,对于处理你当前的问题,你看了我的软件说明书比侯建编写的《word排版艺术》更有收获:http://club.excelhome.net/thread-664005-1-1.html,说明书有200多页(如果有需要我可以传给你),建议你先看帮助文档的排版部分,最新版本的word灵感百宝箱请在360软件管家中下载。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-9 10:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
cuteword 发表于 2013-5-6 15:23
软件能处理的是有规律的东西,没有规律的是不能处理的。你的想法和我一致,就是针对各类问题分别处理,不是 ...

谢谢您,一定会好好学习学习

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-9 15:45 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 limshanb 于 2013-5-10 14:12 编辑

cuteword 网友
      下载了您的百宝箱共享版,感觉您开发的功能就是我利用率高的功能,不过大部分这些功能我都有,都是用一个宏来解决的,有的宏代码是录制后修改的,有的是网友提供的代码,每个功能都是一键排版方式,使用频率高的都用一个快捷键定义好了,使用频率不高的就保留在模板里用菜单调用,全部代码装进DOT文件不超过80K,我很注重绿色特性,模板是反复优化的,冗余全部剔除,每次编辑完成后都重新导出再导入代码,这样代码本身在库里是顺序排列的,体积最小速度最快,尽管减少的是几个K ~几十个K的体积,我也很在意,我是个追求完美的人,对排版也很挑剔,有人用空格代替缩进、用空行代替行间距调整、用空格调整字符间距,诸如此类的小毛病我都要在整理时全部格式化,规范化。
      看了您的软件还需要安装,写注册表,体积有6~10个M,这些都与我的追求不同。我还是比较喜欢论坛这种气氛和“互联网精神”,这里特指网络时代网友互相切磋、交流看法、共享经验……
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-22 21:42 , Processed in 0.034525 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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