Word2003 通用模板宏（2017-7-7-夏季版-Win7/XP）

413191246se · 发表于 2017-7-7 20:51

* 本次更新最大亮点：排版思路转变——只排文字不排表格（表格可手动或点“表格处理”宏按钮排版）。
* 热键（两种排版方式）——F8：公文 F7：普通
* 特别感谢热心助人、功夫深厚的本坛大神——杜先生（duquancai）多次无偿提供的精彩代码！
* 热情无限，水平有限，不足之处，敬请谅解！——谢谢大家！
*

Word2003通用模板宏（2017-7-7-夏季版-Win7）.rar (17.79 KB, 下载次数: 162)
*

Word2003通用模板宏（2017-7-7-夏季版-WinXP）.rar (17.81 KB, 下载次数: 71)

Zhang.0004 · 发表于 2017-7-7 22:14

辛苦了楼主，谢谢！

gy0625mm · 发表于 2017-7-12 11:01

麻烦问下楼主这些宏都有哪些用途？求指导

413191246se · 发表于 2017-7-12 15:03

本帖最后由 413191246se 于 2017-7-12 15:07 编辑

谢谢 Zhang.0004 支持！谢谢楼上朋友！
我的宏，主要用于一键自动排版 Word 2003 文档，其它的也有《减少或增加行距》、《千分位》、《证书自动编号》等实用小程序，楼上朋友如果也用 Word 2003 的话，建议下载试用相应版本（压缩包内有使用说明），用用就知道了，介绍就免了。但由于水平较低，有的宏未能做到位，旨在给使用 Word 2003 的朋友们提供一些便利，谢谢关注！

najagay · 发表于 2017-7-13 16:26

很不错，学了！谢谢！

loquat · 发表于 2017-7-14 11:24

With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "表格满页"
.FaceId = 372
.OnAction = "表格满页"
End With
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "表格缩行"
.FaceId = 371
.OnAction = "表格缩行"
End With
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "表格自动编号"
.FaceId = 1095
.OnAction = "表格自动编号"
End With
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "减少行高热键"
.FaceId = 541
.OnAction = "减少行高热键"
End With
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "减少行高微调热键"
.FaceId = 36
.OnAction = "减少行高微调热键"
End With
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "表格行高循环"
.FaceId = 3526
.OnAction = "表格行高循环"
End With
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "表格外框加粗"
.FaceId = 1705
.OnAction = "表格外框加粗"
End With
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = "表格全选"
.FaceId = 165
.OnAction = "表格全选"
End With

复制代码

可以精简为：

Dim i&
Dim arr
arr = array("表格满页",372,"表格缩行"，371,"表格自动编号",1095,"减少行高热键",541,"减少行高微调热键",36,"表格行高循环",3526,"表格外框加粗",1705,"表格全选",165)
for i = 0 to ubound(arr) step 2
With CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton)
.Caption = arr(i)
.onAction = arr(i)
.FaceId = arr(i+1)
end with
next i

复制代码

loquat · 发表于 2017-7-14 11:29

所以整个“aaaa自定义”都可以大幅度精简
遍历文件夹，里用到的FileSearch方法，只能用在word2003上
代码里用的Selection太多啊，这样效率就不高了，建议最少with selection，并关闭屏幕刷新，如可能的化，改为range访问是最好的

给楼主点赞

413191246se · 发表于 2017-7-14 15:08

多谢老朋友 loquat！——其实我也是内心很不想让代码太多，使 Normal.dot 增大，太大易引起 Word 崩溃，但不用 VBA 又不行。Selection我知道效率不好，Range好，但限于水平太低，有时是心有余而力不足，谢谢建议！（有的宏并不管用，有的宏管用。）

praijna · 发表于 2017-7-25 10:29

非常感恩楼主的分享，祝福楼主吉祥如意！

菜菜行者 · 发表于 2017-7-26 01:05

厉害了，支持！
给楼主点赞

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

[分享] Word2003 通用模板宏（2017-7-7-夏季版-Win7/XP）

最新热点 /1