

我们可以使用如下VBA代码批量Word中所有的复选框选中样式:
Sub 修改控件()
Dim oContentControl As ContentControl
For Each oContentControl In ActiveDocument.ContentControls
With oContentControl
If .Type = wdContentControlCheckBox Then
.SetCheckedSymbol 9745
.SetUncheckedSymbol 9744
End If
End With
Next
End Sub
效果如图:

网友评论