最近在做word vba项目遇到个需求，需偠根据条件判断批量输出打√的方框和不打√的方框类似如下图所示：

本来以为是个很容易的事情，没想到阻碍不小

首先，我们先看看如何在word文档中手动输入带√的框

对于在word中输入打√的方框，只要打开百度搜索一下就可以找到一系列教程，教怎么在Word中输入打√的方框

这里，小编推荐本人最喜欢的2种方法也是最容易记住和操作的方法。

第一种用搜狗拼音输入法，打一个√符号然后在“开始”选项卡下的“字体”组中选择“带圈字符”，圈号选择“方框”

第二种，输入一个大写的R然后字体选择“Wingdings 2”即可。

在word中手动插入带√的方框看上去就是这么简单，但是当你要把这个字符放到vba中去会发现变样了。

通过带圈字符生成的打√的方框复制到vba中被拆分成叻方框和√两个字符。

通过字体显示的打√方框拷贝到vba中显示的是原来的字符R

怎么办，怎么办如何才能通过vba在word文档中输出打√的方框呢？

这里提供一种思路仅供参考，如果您有更好的方法请在评论区告诉我们。

回想刚才手动插入的过程既然可以通过输入一个大写嘚R，然后字体选择“Wingdings 2”即可显示为打√的方框我们为何不能在vba中先用大写的R代替该字符，然后输出在word中再批量设置字体为“Wingdings 2”呢？

为此我们将整个算法写成如下的形式：

 将打√的方框表示为一个复杂的字符串（这个字符串不可能与整个word文档中的其它字符串重复，不能僅仅表示为大写字母R因为有可能其它word字符串中也含有大写字母R），然后用word的查找替换批量查找该复杂的字符串，替换为大写的R同时替换设置字体格式为Wingdings 2。

Arr = Array(“1、重大决策□”, “2、重要干部任免、奖惩□”, “3、重大项目安排□”, “4、大额资金使用□”, “5、其他□”)

‘将满足条件的项目的无√框替换为一个特殊的字符串,这里是8个美元符号组成的生僻词在word文档中不可能出现这样的词”

当然，除了上述方法還可以用vba模拟第一种手动插入的方法，生成带圈的字符的方式但是用上述代码可以非常完美的解决在word文档的任意位置插入打√的方框的問题，从而不用去考虑打√的方框在word文档中的位置灵活性较好。