报告小帮手

作者

目前最新的版本为V2.6，更新时间为：2022-08-14

正确的使用方式是把常用的功能点右键-添加到快速访问工具栏，即可用快捷键直接使用

下面是详解

安装

压缩包里有一个一键安装的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即可。

一、段落

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节课

《报告小帮手》有105条评论

  2. 如果是word 2016版本可能安装后仍然不显示该插件，解决方法是将下载的Normal文件复制到C:\Users\（用户名）\AppData\Roaming\Microsoft\Word\STARTUP，参考了https://www.likecs.com/show-204339485.html此文中的方法，亲测有效。

    回复

  8. 解压之后一键安装不成功，复制替换normal文件也没成功。现在就是出不来加载项，不知道什么原因，2019版的office

    回复

  9. 您好，关于报告小助手安装，我是通过选项-加载项-管理-word加载项 然后添加normal文件就可以使用了，不知这个方法是否便捷一些？

    回复

  10. 您好，如果替换，以及将下载的Normal文件复制到C:\Users\（用户名）\AppData\Roaming\Microsoft\Word\STARTUP，这两个方法都无法用，点任何功能都是The macro cannot be found or has been disabled because of your Macro security settings，还有救吗

    回复

  13. 问几个题外问题：1、这些选项卡的符号是怎么添加的？功能区设置重命名里面没有这些符号。2、安装完之后在自定义功能区找不到“报告小帮手”的选项卡，想添加一些自己习惯的功能。

    回复

  15. 请教如下情况的具体原因：
    表格调整中单元格边距左右间距调整失效，将下述两个“0”更换为其他数，比如7.5或者7，依然按照0的边距来运行
    .LeftPadding = PixelsToPoints(0, True)
    .RightPadding = PixelsToPoints(0, True)

    回复

  16. 安装方式是：将下载的Normal文件复制到C:\Users\（用户名）\AppData\Roaming\Microsoft\Word\STARTUP。这种方式下，打开word【十一、访谈提纲】功能无法使用，这是什么原因

    回复

  19. 你好，麻烦问一下单表处理中，数字靠右，文字靠左之后有些太靠近边线了，想要缩进0.2个字符的话，需要在哪里添加代码呢

    回复

  20. 设置word表格中的上下线框为双实线，然后这是表格属性为行高最小值0.6，下框双实线会变成单实线，改成行高最小值0.7就会变为双实线，这是为什么呢？

    回复

  28. 非常感谢老师回复，报告小帮手单表操作和多表操作，序号列如何设置为居中对齐，我发现仍然是文字居左，数字居右

    回复

  29. 柳老师，底稿小帮手中匹配格式粘贴，我如果想把识别并粘贴成单双下划线的格式改成加粗要怎么改，我试着改了下好像并没有效果

    回复

      • 我在双下划线和单下划线分别加了这个语句
        ElseIf Selection.Font.Underline = wdUnderlineDouble Then
        Selection.Font.Bold = True
        ElseIf Selection.Font.Underline = wdUnderlineSingle Then
        Selection.Font.Bold = True
        测试的时候他还是将加粗的数字直接粘贴成常规格式了

        回复

          • 最后我直接改成这样：Sub 粘贴格式文本(control As IRibbonControl)
            Set xl = GetObject(, “excel.application”)
            xlr = xl.Selection.Rows.Count
            xlc = xl.Selection.Columns.Count
            With Selection
            wdc = .Information(16)
            wdr = .Information(13)
            rangeselect wdr, wdc, xlr, xlc
            ReDim arr(1 To 1)
            For Each sht In .Cells
            i = i + 1
            ReDim Preserve arr(1 To i)
            arr(i) = sht.Range.Font.Bold ‘将下划线存储为是否加粗的布尔值
            Next
            .CopyFormat
            .PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
            .PasteFormat
            With .Find
            .Text = ” ”
            .Replacement.Text = “”
            .Forward = True
            .Wrap = wdFindStop
            .Execute Replace:=wdReplaceAll
            End With
            rangeselect wdr, wdc, xlr, xlc
            For Each sht In .Cells
            j = j + 1
            sht.Range.Font.Bold = arr(j) ‘通过布尔值确定要应用的字体是否加粗
            Next
            End With
            End Sub

  31. 你好，麻烦问一下单表处理中，数字靠右，文字靠左之后有些太靠近边线了，想要缩进0.2个字符的话，需要在哪里添加代码呢

    回复

    回复

  33. Normal方式安装插件太爽了，完美适配Mac版本的word，终于告别无插件可用的处境了。希望楼主是否可以用相同的方式将Mac的Excel也可以使用底稿插件。

    回复

  34. 请问下，点击下载后，出现的压缩文件，根本打不开，显示的是“该文件是非压缩文件，无法打开”这个是什么状况，我该怎么下载呢？

    回复

  35. 老师您好。昨天下午还可以正常使用，晚上就不行了，点击报告小帮手，WORD就自动退出了，重启了电脑还是这样。是什么问题呢？

    回复

  36. 老师您好，word表格首行第一个单元格如果是合并多行的，表格一键调整会把全部表格判断为首行，这个是否有办法更进？

    回复

  43. 老师，关于行间距、缩进字符、段前段后的设置，比如行距固定值28磅，应该如何用变成语言表达？比如，首行缩进2字符，编程语言为何是CentimetersToPoints(0.35)，有时是CentimetersToPoints(1)？不同单位在编程语言中是如何换算的？

    回复

发表评论