luda 贴报告笔记的时候要把各种数据贴在word上，其中最头疼的是调整word的格式，调整数字的千分子(挤眼睛打逗号)，然后把数字转换成万元，手动调整的时候觉得自己是傻瓜(当然这个黄瓜不是比比)，所以自己写了两个小工具，这次一起。放心，不用装什么工具箱，没有例行费用。
1
三个按钮：千分子、数字除法、数字除法、只有“万”
首先，我们来看看三个按钮的效果。
安装方法很简单。请跟着步骤走。两分钟就可以了。
第一步是首先在所有word文档中按ALT F11以弹出VBE编辑器。
第2步，找到左侧的normal模板；如果没有模块，请右键单击模块插入
步骤3，双击模块1粘贴代码
代码如下：
仅Sub除()
Dim I As Single
A=False
If Selec=2 Then
If IsNumeric) Then
I=Selec
P=I/10000
Q=格式(round (p，2)、' #、# # 0.00；-#，# # 0.00；')。
Selec=仅q ' '
End If
ElseIf Selec=5 Then
For Each Acell In Selec
Set CR=Ac，Acell。Range.End-1)
MsgBox CR
If IsNumeric) Then
I=CR。Text
P=I/10000
Q=格式(round (p，2)、' #、# # 0.00；-#，# # 0.00；')。
CR。Text=仅q ' '
End If
next
ElseIf Selec=4 Then
For Each Acell In Selec
Set CR=Ac，Acell。Range.End-1)
MsgBox CR
If IsNumeric) Then
I=CR。Text
P=I/10000
Q=格式(round (p，2)、' #、# # 0.00；-#，# # 0.00；')。
CR。Text=仅q ' '
End If
next
End If
A=真
End Sub
Sub除以()
Dim I As Single
A=False
If Selec=2 Then
If IsNumeric) Then
I=Selec
P=I/10000
Q=格式(round (p，2)、' #、# # 0.00；-#，# # 0.00；')。
Selec=q
End If
ElseIf Selec=5 Then
For Each Acell In Selec
Set CR=Ac，Acell。Range.End-1)
MsgBox CR
If IsNu
meric) Then i = CR.Text p = i / 10000 q = Format(Round(p, 2), "#,##0.00;-#,##0.00; ") CR.Text = q End If Next ElseIf Selec = 4 Then For Each Acell In Selec Set CR = Ac, Acell.Range.End - 1) 'MsgBox CR If IsNumeric) Then i = CR.Text p = i / 10000 q = Format(Round(p, 2), "#,##0.00;-#,##0.00; ") CR.Text = q End If Next End If A = True End Sub Sub 千分符() '选定千分位 On Error Resume Next Dim i As Range, Acell As Cell, CR As Range On Error Resume Next A = False If Selec = 2 Then For Each i In Selec If IsNumeric(i) Then If i Like "####*" = True Then If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End NC = Format(i, "#,##0.00;-#,##0.00; ") i.Text = NC Else NC = Format(i, "#,##0.00;-#,##0.00; ") i.Text = NC End If End If End If Next i ElseIf Selec = 4 Or Selec = 5 Then ' For Each Acell In Selec Set CR = Ac, Acell.Range.End - 1) ' MsgBox CR If CR Like "-####*" Or "-####.#*" = True Then Yn = Format(CR, "#,##0.00;-#,##0.00; ") CR.Text = Yn Else If CR Like "####*" Or "####.#*" = True Then Yn = Format(CR, "#,##0.00;-#,##0.00; ") CR.Text = Yn End If End If Next Acell Else MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation End If A = True A End Sub第四步、设置快速访问栏
第五步、修改一下名称以及图标，搞定
至此，这3个按钮已经被添加到了word快速访问栏了，大家可以测试一下~
注意：这个模块内的代码有一定几率会被杀毒软件定期清理（防止宏病毒），如果哪天失效了，照上述步骤复制一遍代码就行了（到第三步即可），按钮已经不用设置了。
2
word格式刷
本文的格式刷，依旧在后台回复“软件”获取下载地址，
请用OFFICE的Word打开
按所里的要求，我预置了一些格式做成了一个小窗体，展示如下：
总共只有3个功能，界面如下：
1、表格格式调整，分为单选和多选调整，如果你只需要调一个表，那么把光标点在这个表格的任意位置，点单选调整即可。如果要同时调多个表，那就要选中连续的几个表，点多选调整。
默认是没有勾“窗口和内容自动调整”的两个选项，勾了以后调出来的表可能会比较丑。
（表格建议用单选调整，而且这个工具只能大致粗略的调一遍，肯定是要自己再细致调整的。）
2、段落格式调整，也是分为单选和多选，逻辑与上述一致，调单个段落只用点中段落中的任意位置，无需全选。多段调整则要连续全选段落。
（段落可以一次性多选调整）
3、小标题的级次调整，无需多说
4、这些格式我已经写死在VBA代码里面了，如果想更改的话，可以打开VBE编辑器，自己去里面翻翻代码，找到格式相关的关键字自己设置一下，代码都没有加密。
使用注意：这个格式刷文档打开以后点“启动”，建议将弹出主窗体移至屏幕的一边，因为点完按钮后会弹出“完成”的提示框，这个框可能被主窗体挡住，造成假死的感觉（即你看不到提示框，因为它被挡住了，但是不关掉完成提示框，你就操作不了文档），如果假死，按一下回车把“完成”提示框关掉即可。
3
公众号：茶瓜子的休闲馆
接下来我还是会慢慢开始做VBA和Excel方面的小教程了，由于平时工作也比较忙，这两天晚上高强度的写稿、排版、找图、录gif、传网盘、设计封面等等，让我有点窒息，开始做公众号才发现有如此多的细节要注意，先稍微缓缓，保证不会断更，请谅解。
有什么疑问或想与作者聊聊，可以后台回复我，我只要看到了有时间都会回复。