ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

求助:如何用代码自动设置标题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-11-20 11:01 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
楼主,到底问题解决了没有?-------我有 Word 2003 通用模板(元旦版),可以简单地 自动排版,你不妨搜索一下试试。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-21 16:00 | 显示全部楼层
413191246se 发表于 2014-11-20 11:01
楼主,到底问题解决了没有?-------我有 Word 2003 通用模板(元旦版),可以简单地 自动排版,你不妨搜索一 ...

谢谢!本次的问题暂时没有解决,您给出的代码可以识别字符数限制,但不能识别标点符号条件限制,我把标题打上句号后,代码仍然认作标题,目前我仍然采用替换的方法来实现这个目的。
我将搜索一下您给出的模板,先谢谢。

TA的精华主题

TA的得分主题

发表于 2014-11-21 19:54 | 显示全部楼层
楼主朋友,你弄错了!我不是 pipiludaxian(皮皮鲁大仙),我没给你代码,不过,你要是搜索到我的--Word2003 通用模板(元旦版),倒是可以用它的简单排版功能来排版。——至于标题有句号结尾,是当标题来处理,还是当正文来处理,倒好办。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-22 13:34 | 显示全部楼层
413191246se 发表于 2014-11-21 19:54
楼主朋友,你弄错了!我不是 pipiludaxian(皮皮鲁大仙),我没给你代码,不过,你要是搜索到我的--Word200 ...

谢谢,已经下载了2003通用模版,去年就下载过这个,还没研究透彻,只是觉得版面上新加的许多功能按钮,改变了默认版面,还不太习惯,其实word本身已经有这些功能了,另外提个意见:这个模板建议命名其它名字,放到word默认模板文件夹中即可,word的默认模板最好是office默认的,与其它人方讨论或工资交流时才有共同点

TA的精华主题

TA的得分主题

发表于 2014-11-22 13:53 | 显示全部楼层
已经示范到这样,并且已经告诉你坛子里早就发过现成的帖子。
你就会等先成的。甚至连搜索一下的劲都懒得费。

TA的精华主题

TA的得分主题

发表于 2014-11-23 00:38 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 413191246se 于 2014-11-23 00:40 编辑

谢谢楼主建议!但是不像过去我改变了默认模板字体/段落/页面设置等格式,现在的模板,除了加了一些WORD本身有的按钮之外,还加了一些宏按钮,但其默认的字体/段落/页面设置等格式均未改变,即使不用宏,仅仅用比如表格栏上的按钮也比不设置的默认模板好用。——楼主的问题解决没有?如果能提供示例文档,则大家会继续帮忙(另外,我的模板工具栏上有个”辅助“按钮,它的最后一项是模板使用说明,你可以看一看,一般对于不太复杂的简单文档排版,还是很方便的,希望楼主多用用)。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-24 12:14 | 显示全部楼层
pipiludaxian 发表于 2014-11-22 13:53
已经示范到这样,并且已经告诉你坛子里早就发过现成的帖子。
你就会等先成的。甚至连搜索一下的劲都懒得费 ...

大侠啊!并非我不去找,我不但在本论坛搜索,也在百度上广泛搜索,可是没有搜到能够解决我的问题的帖子。
我搜到一个帖子,这个帖子中介绍了设定特定字符数就设定为字体加粗、加大字号等明显标识的代码,该代码中设定两个条件,其中一个就是标点符号条件,但是这两个条件是二选一,不能同时作用,再说了他仅仅是设定突出标识,并没有设定成标题。
前年我在本论坛提出一个类似的问题:把非段落换行的文本自动整理成自动换行,同时可以吧带数字的多级标题自动认定为word标题,是sylun大侠给我提供的代码,能够完美地解决我的问题,但是那个问题与现在的不同,那个代码能够自动辨认带数字的以正文格式出现标题并设定为相对应的word多级标题,现在我提出的问题是标题没有多级数字,所以不能通用,我也试图改动一下编码使之能够识别不带多级数字的标题,但是不成功,因为我的VBA实在是太烂了。
我再也没有搜到类似的帖子,如果您知道哪里有,行个方便,给个地址好吗,先谢谢了!

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-24 12:27 | 显示全部楼层
413191246se 发表于 2014-11-23 00:38
谢谢楼主建议!但是不像过去我改变了默认模板字体/段落/页面设置等格式,现在的模板,除了加了一些WORD本身 ...


问题还没解决,我提供了样例,这里再提供一遍,样例1是每处理前的样子,样例2是处理后要达到的目的,谢谢帮助!

实例.zip

6.25 KB, 下载次数: 7

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-24 14:43 | 显示全部楼层
pipiludaxian 发表于 2014-11-22 13:53
已经示范到这样,并且已经告诉你坛子里早就发过现成的帖子。
你就会等先成的。甚至连搜索一下的劲都懒得费 ...

尊敬的网友,大侠!这叫做难了不会,会了不难呀,对于你们这些高手来说,我的问题既幼稚又简单,像我这样的人,既愚蠢又笨蛋,从某种意义上理解,这的确是事实,我到这里来的确就是寻求支持的,因为我不会嘛!

TA的精华主题

TA的得分主题

发表于 2014-11-24 20:39 | 显示全部楼层
楼主,你楼上之词太过谦虚!不必如此过谦!其实我也是VBA小菜鸟,虽然会修改VBA代码3、4年了,但水平和新手差不多,但会录制宏已多年了。——你提供的附件,我觉得好抽象!你示例中的”标题“,有什么特征没有?如果没有特征,怎么会自动设置呢?我的自动排版宏,都是根据每个段落开头几个字符的特征自动设置的。——建议你还是多用用我的模板。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-1-13 08:04 , Processed in 0.024801 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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