ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 5792|回复: 23

[分享] Word2003 通用模板宏(2018元旦版)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-1-1 20:06 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
* 功能:通过VBA宏代码增加一些内置工具栏按钮或宏按钮到工具栏上,以方便编辑、排版、打印等应用,能够进行初级一键快速自动排版,还有一些小应用程序。
* 祝论坛各位版主、守柔版主、CuteWord龚先生、duquancai(杜全才)杜先生、loquat老师(朋友)及论坛各位坛友——2018元旦快乐!合家欢乐!
* 特别感谢大公无私的 duquancai(杜先生)赐予不少代码,特别是正则表达式代码,非常感谢!
* 特别感谢 loquat 老师的忠告,尽了最大努力,优化、重写了不少代码。
* 请各位需要VBA应用的朋友下载后,认真阅读使用说明,以便更好地掌握使用本模板宏(不会宏的朋友只要照着说明做也可以使用宏)。
* 自动排版分为两种:公文排版(热键:F8)、普通排版(热键:F7),工具栏上也有相应按钮。
* 公文标题四个层次:标题2:形如“一、XX”,三号黑体;标题3:形如“(一)XX”,三号楷体;标题4:形如“1.XX“,三号仿宋;标题5:形如”(1)XX“,三号仿宋。
* 热情无限,水平有限,不足之处,敬请谅解!谢谢大家!
* Word2003通用模板宏(2018元旦版-Win7).rar (17.11 KB, 下载次数: 404)
* Word2003通用模板宏(2018元旦版-WinXP).rar (17.13 KB, 下载次数: 154)

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-1-2 13:55 | 显示全部楼层
多谢杜老师慷慨分享好代码!
      Oooo
      (___)
  oooO    )_/
  (___)   (_/
   \_(
   \_)

TA的精华主题

TA的得分主题

发表于 2018-1-2 14:18 | 显示全部楼层
本帖最后由 13907933959 于 2018-1-2 14:53 编辑
wdpfox 发表于 2018-1-2 13:55
多谢杜老师慷慨分享好代码!
      Oooo
      (___)

你好!
这个你也弄错了,他也不是杜前辈,他是413191246se前辈,杜前辈的网名是duquancai

TA的精华主题

TA的得分主题

发表于 2018-1-2 14:22 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-1-3 15:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
请问支持Word2010吗?

TA的精华主题

TA的得分主题

发表于 2018-1-3 15:52 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-1-3 15:54 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
另外,请问做成这样的成品,学习起来有没有对应的指导资料呢?
我现在正在纠结一个事情,用简单的vba把公司常用的一些格式设置,怎么变成加载项,每次启动word就可以直接使用。。。

TA的精华主题

TA的得分主题

发表于 2018-1-3 16:11 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-1-3 16:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
se神辛苦了~~这个东西可以大幅提高公司的公文处理效率啊~
刚才仔细使用了下,暂时发现以下几点公文排版格式上面和2012年版本要求的不同。
1、大标题是二号方正小标宋简体;
2、一、 这个标题是三号黑体,看文件说明里面写了是处理了,但是实际用了发现还是三号宋体。
3、最后的落款和日期处理,感觉有时候对不上。
4、落款日期,不标虚位,暨2017年01月01日应该为2017年1月1日。
5、多页未添加页码。用4号半角阿拉伯数码标识,置于版心下边缘之下一行,数码左右各放一条4号一字线,一字线距版心下边缘7mm。单页码居右空1字,双页码居左空1字。空白页和空白以后的页不标识页码。

TA的精华主题

TA的得分主题

发表于 2018-1-4 07:49 | 显示全部楼层
413191246se:
辛苦了!
不在论坛发言久矣,然关注Word版块之心不变。看到你不断的为通用宏代码(模板)付出的努力和汗水,表示敬意!论坛的成长,需要更多的象你这样的会员持久的探索和归纳。
我只是下载了“Word2003通用模板宏(2018元旦版-Win7).rar”,粗看了一下,给您几个建议,您可以考虑一下:
全模块2823行代码113个过程。
1,将宏代码(模块)置于Word文档中,另存为dot/dotm文件格式,即真正意义上的模板。用户通过加载这个模板,可使之成为加载宏。如将其放在Application.StartupPath路径下,可随Word启动而自动加载该模板;
2,在WORD 2003中,为这个模板自定义宏命令及按钮,此操作无需使用VBA代码来完成(aaaa自定义),这个做法一则可以规避大量的代码,二是有利于通过自定义操作,调整按钮的组织形式;
3,对于每个过程,需要考虑容错,比如未打开文档时,则ActiveDocument对象并不存在。
比如下面的函数:
Public Function IsOpened() As Boolean
''''判断是否有打开的活动文档
    IsOpened = (Application.Documents.Count > 0)
End Function
4,对于需要反复更改文档内容者(姑且认为3次以上者),请先关闭屏幕更新,过程结束之前再恢复屏幕更新,有利于代码更快执行。(Application.ScreenUpdating)
5,要善于使用变量。比如“Title1”的宏过程,反复使用了.Paragraphs(2).Range,则要么定义一个对象变量比如rngSecend(Word.Range),要么定义一个strSecend(String),因为此处你的本意是.Paragraphs(2).Range.Text。
6,可能要求有些高。作为一些常用格式设置,可以通过样式来定义,从而为目标文档应用样式来处理或者批量处理文档中的格式问题。这些样式,我们称之为“内置样式”,可以保存在我们的模板中(就是1提及的模板),当需要为活动文档应用某个样式时,则先复制到目标文档中。用户也可以根据自身要求,修改模板中的“内置样式”而不必修改VBA代码。
7,大量的代码,需要增加一个专门的错误处理过程。
啰嗦了几句,请勿见外。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 07:43 , Processed in 0.059522 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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