审计报告小帮手【Word加载项】

為何

自己开发的刷审计报告相关的Word加载项，有兴趣的可以试用一下
正确的使用方式是把常用的功能点右键-添加到快速访问工具栏，即可用快捷键直接使用
部分gif图挂了，完整的演示以及下载地址都在我的主页
传送门：审计茶馆
安装
压缩包里有一个一键安装的bat文件，关闭所有word文档后，双击该bat即可
如果没有效果的话，则需要手动替换Normal模板
1、原理（注意！！如果你的电脑没有打开查看扩展名的话，你看到的文件名是“Normal”，那么你重命名的文件名也是“Normal”，不用再加后面的“.dotm”）
打开压缩包中的“Normal.dotm”文件可以看到选项卡中的加载项“底稿小帮手”，但是在新建的Word文档中却没有该加载项，是因为新Word会引用Microsoft安装路径下的名为“Normal.dotm”的文件，因此只需将压缩包中的“Normal.dotm”替换掉目录下的文件即可在每个Word文档中加载出来。
2、步骤
①找到Microsoft模板存放路径：一次打开word中的“文件”- “选项”-“文件位置”




②点击修改后，将默认的路径复制出来（不要修改默认路径！！） 下图的第一个框就是路径：




③打开我的电脑，并将刚复制的路径粘贴上去，打开Microsoft模板存放路径：
④关闭Word软件，将路径中的Normal.dotm替换为压缩包中的Normal.dotm即可。

<hr/>
一、段落
1.一键调整
功能说明：选中一定的区域，点击按钮之后可以，可以按预置的格式，分别设置各个级次所对应的格式




目前预置的格式为某头部券商要求的招股书格式：
1、一级标题：指“第一节 释义”等，黑体，三号，加粗；段前0.5行，段后1.5行，行距1.5倍（模板是如此，不用改动）
2、二级标题：指：“一、常用词语”等，黑体，四号，加粗；段前、段后都为0.5行间距，行距1.5倍。
3、三级标题：指“（一）董事、监事、高级管理人员及核心技术人员简介”等，黑体，小四，加粗；段前、段后都为0.5行间距，行距1.5倍。首行缩进。
4、四级标题：指“1、董事会成员简介”等，宋体/Times New Roman，小四，加粗；段前、段后都为0.5行间距，行距1.5倍。
5、五级标题：指“（1）国家集成电路基金”等，宋体/Times New Roman，小四，不加粗；段前、段后都为0.5行间距，行距1.5倍。
6、以后级别标题及正文：宋体/Times New Roman，小四，不加粗，段前、段后都为0.5行间距，行距1.5倍

所有的格式支持自己修改，具体操作如下：
①打开VBA编辑器，按ALT+F11（部分笔记本要加Fn）
②找到normal模板并双击对应的模块→“a段落处理”
③修改各个级次下对应的参数，具体的参数我已经标记在后面了




2.表前单位
功能说明：调整为表格上面的单位段落格式，不会调整级次




3.表后注释
功能说明：调整为表后的注释所用的格式




上述格式均可以自己在VBA中修改参数，设置为自己需要的格式。
4.修复编号
功能说明：可以将样式为（一）（二）这样的非自动编号变为自动编号




5.编号转文本
功能说明：将整个文档下的所有自动编号转为非自动编号（文本）




二、单表处理
1.一键调整
功能说明：一键将光标所在的表格调整为预置的格式




目前预置的格式为某头部券商的招股书格式，具体的格式需要自己手动修改




2.列宽刷
功能说明：对于多期的报告，可能同一个科目的表格有3-4个，想把每个表格的列宽都对齐，可以用这个列宽刷
操作说明：先选中一个表，点击读取列宽，再选中要调整的表，点击释放列宽




注意：这个代码的逻辑是把第一个表的每一列的列宽都分别存起来，所以表格中不能有横向的合并单元格（合并的话就认不出第几列了），每个表的行数可以不一样，只要列数一样即可

3.格宽刷
功能说明：如果表格用有合并单元格，且多个表的单元格数量完全一致的话，就用这个刷子，他是将每个单元格的列宽都存起来再释放，因此可以解决合并单元格的问题，但是两表的单元格数量必须完全一致
这里就不演示了，和上方的操作是一模一样的

三、数字
1.千分符
功能说明：将选中的数字转换为千分符的格式




2.除万添万
功能说明：将选中的数字除以一万，并且添加“万”的单位




3.乘百添%
功能说明：将选中的数字变为百分数




四、文字
1.中英宋体、宋体罗马
功能说明：把选中的文字分别设置为中文/西文→宋体；中文/西文→宋体/Times New Roman




2.楷体加粗
功能说明：顾名思义
这个就不演示了
3.去处空白
功能说明：去除选中内容的空格




4.中英标点
功能说明：将选中内容的中文标点与英文标点互换




5.高亮显示
功能说明：将选中内容的底色设置为亮黄色




五、级次调整
功能说明：将光标所在的段落设置为指定的级次




这个其实就是用来偷懒的…当然，工具的所有功能都是用来偷懒的

六、Excel贴数
1.匹配格式粘贴
功能说明：在Excel复制表格数据后，贴到Word表格，通常需要选中对应的范围，并且会破坏Word表格的原有格式，还有可能会出现空格，这个功能可以实现在Word中直接适应Word表格的原格式粘贴，且不用选范围，直接点击第一个单元格就行，还有去除空格的功能




这个图的按钮就是这个工具的按钮.. 懒得重新录了
2.单双下划线
功能说明：直接对选中的内容添加对应的下划线
这里就不演示了
七、批注
1.添加/删除批注
功能说明：就是原有的功能，为了方便就放一起
2.修订上色
功能说明：将被修订的内容，设置填充背景色为亮黄色




比如这样修订过的内容↑，选中点击按钮以后，可以关掉标记，显示被修订的内容↓




八、行列校验
1.选行/列校验
功能说明：选中表格的一行或者一列，点击按钮将最后一个单元格与前面单元格之和作差，结果将显示在左下角状态栏，这里被进度条挡住了




2.区域求和
功能说明：对表格选中的单元格进行求和，结果将显示在左下角状态栏，这里被进度条挡住了




九、多表处理
1.一键调整
功能说明：对文档下所有的表格执行表格调整的操作，慎用，如果表格特别多的话需要处理很久，可能会假死，电脑配置不高的同学建议不要用
这里就不演示了，和单表调整是一样的
2.全选表格
功能说明：可以全选文档下的所有表格，再手动对表格做一些设置





十、页面
1.页边距调整
功能说明：将文档调整为预置格式的页边距




其他参数需要自己在VBA中进行设置




2.插入横页
功能说明：能在竖页中插入一张横页，不更改下面页码的方向




注意：页尾不能是表格，否则会出错
3.插入页码
功能说明：插入页码并设置格式，格式也可以自己去vba中修改




十一、访谈提纲
功能说明：预置了很多的内控访谈模板，点击就可以直接生成对应的访谈提纲，也欢迎大家把其他的模板发我进行整合，比如走访的提纲等等




BUG及建议可以在评论区留言
wordVBA相关格式的设置课程，我设置为了免费，如果不会设置VBA参数的话，可以直接点到我的课堂（主页右上角：财审VBA从零入门），听第78节课
工具都是用VBA写的，想学学VBA可以听听我的财审VBA从零入门课
链接：

华南飞虎

终于有人想起为我们审计狗写程序了[调皮]