在Microsoft Word中用ActiveX复选框替换Wingdings项目符号模拟复选框

看起来你已经有了一个不错的开头，我来帮你补全这个VBA脚本，完美实现把Wingdings项目符号替换成ActiveX复选框的需求。

首先，先上完整的可运行代码：

Sub RemoveBulletsInsertCB()
    Dim objParagraph As Paragraph
    Dim objDoc As Document
    Dim cbCheckBox As CheckBox
    Dim targetBullet As String
    Dim bulletFormatRange As Range
    
    ' 关闭屏幕更新，提升脚本运行效率
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
    
    ' 定义你要替换的Wingdings复选框字符：
    ' 空心复选框（Wingdings里的□）对应ChrW(&H00A8)，选中的复选框（☑）对应ChrW(&H00FC)
    ' 根据你实际使用的符号修改这个值
    targetBullet = ChrW(&H00A8)
    
    For Each objParagraph In objDoc.Paragraphs
        With objParagraph.Range.ListFormat
            ' 检查当前段落是否是Wingdings字体的项目符号列表
            If .ListType = WdListType.wdListBullet And _
               .ListTemplate.ListLevels(1).Font.Name = "Wingdings" Then
                
                ' 获取项目符号的格式文本
                Set bulletFormatRange = .ListTemplate.ListLevels(1).NumberFormat
                ' 匹配目标复选框字符
                If bulletFormatRange.Text = targetBullet Then
                    ' 移除当前段落的项目符号
                    .RemoveNumbers
                    
                    ' 在段落开头插入ActiveX复选框
                    Set cbCheckBox = objDoc.Shapes.AddOLEObject( _
                        ClassType:="Forms.CheckBox.1", _
                        Left:=objParagraph.Range.Left, _
                        Top:=objParagraph.Range.Top, _
                        Width:=14, Height:=14).OLEFormat.Object
                    
                    ' 调整复选框属性：隐藏标题，避免和文本冲突
                    cbCheckBox.Caption = ""
                    ' 调整段落左缩进，让文本和复选框保持合适间距
                    objParagraph.LeftIndent = objParagraph.LeftIndent + 18
                End If
            End If
        End With
    Next objParagraph
    
    ' 恢复屏幕更新并提示完成
    Application.ScreenUpdating = True
    MsgBox "Wingdings项目符号已全部替换为ActiveX复选框！", vbInformation
End Sub

关键细节说明： #

• 目标字符匹配：你需要确认自己报告里用的是Wingdings的哪个复选框字符，脚本里默认是空心框（ChrW(&H00A8)），如果是已选中的框，改成ChrW(&H00FC)即可。
• 复选框位置与缩进：插入复选框后调整段落左缩进，是为了避免复选框和段落文本重叠，你可以根据自己的文档样式调整18这个数值（单位是磅）。
• 兼容性提示：保存文档时要选择.docm格式（启用宏的Word文档），否则ActiveX控件和宏会丢失。
• 批量处理：脚本会遍历文档所有段落，自动匹配符合条件的项目符号并替换，不用手动逐个操作。

运行这个脚本前，记得先保存你的文档，然后在Word的开发工具选项卡中打开VBA编辑器，把代码粘贴进去执行就行。

内容的提问来源于stack exchange，提问作者Bill Woodward