WPS这种特殊方框打钩功能，WORD如何实现

阿诺斯瓦星呆

如图，输入方框□，同一个文件，用WPS打开，则可以在方框位置点一下，自动打钩或取消
但是用OFFICE的，就不行，所以想问问，假如要在OFFICE中实现，有什么办法（我知道可以开放工具，插入ACT复选框打钩控件，但是没有黑色外框，而且排版类似于图片，而不是WPS那种类似于文字）

zpy2

这种中国特色的大概是wps的优势，word没有吧

xiaoyouxi01

你附件里的这个控件不是可以吗？


=========================================

你试下这个



WPS的方块自带打钩（Word2013）.rar (18.43 KB, 下载次数: 17)

2019-6-19 16:04 上传

点击文件名下载附件

阿诺斯瓦星呆

xiaoyouxi01 发表于 2019-6-19 15:48
你附件里的这个控件不是可以吗？

爱死你了，我附件里面的控件原来只能打X，所以郁闷能否改成打钩，百度了半天都找不到方法顺便问问，有办法把原来文件中的方框集体替换成打钩控件不？？？
或者只能人工一个一个的添加（我试验了替换法，把原来的方框替换成做好的控件，失败。。。。。）

xiaoyouxi01

阿诺斯瓦星呆 发表于 2019-6-20 09:09
爱死你了，我附件里面的控件原来只能打X，所以郁闷能否改成打钩，百度了半天都找不到方法顺便问问，有办 ...

试下这个VBA，这个可以把所有的"复选框内容控件"改成打勾的复选框内容控件。

1. Sub 修改控件()
   
2.     Dim oContentControl As ContentControl
   
3.     For Each oContentControl In ActiveDocument.ContentControls
   
4.         With oContentControl
   
5.             If .Type = wdContentControlCheckBox Then
   
6.                 .Appearance = wdContentControlHidden
   
7.                 .SetCheckedSymbol 9745
   
8.                 .SetUncheckedSymbol 9744
   
9.             End If
   
10.         End With
    
11.     Next
    
12. End Sub

复制代码

如果是把文本的方框替换成控件，这个可能要用其他VBA了~
或者你可以在替换的时候，先复制一下控件到剪贴板中，再在“替换为”处输入"^c"，也就是代表剪贴板内容。这样就可以替换了。