如何用复选框内容控件替换Wingdings字体的复选框符号？

你的代码核心问题是没有限定查找操作的字体为Wingdings，Word的Find功能默认匹配当前上下文字体，因此无法定位到目标符号。以下是修正后的代码，同时支持替换Wingdings字体下的空心复选框（Chr(111)）和已勾选复选框（Chr(168)）：

Sub ReplaceWingdingsCheckboxWithContentControl()
    Dim findRange As Range
    Dim cc As ContentControl
    
    ' 初始化查找范围为整个文档
    Set findRange = ActiveDocument.Content
    
    With findRange.Find
        .ClearFormatting
        ' 关键：指定查找字体为Wingdings
        .Font.Name = "Wingdings"
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        ' 开启通配符，同时匹配两种复选框符号
        .MatchWildcards = True
        .Text = Chr(111) & "|" & Chr(168)
        
        ' 循环查找并替换
        Do While .Execute
            ' 在匹配位置插入复选框内容控件
            Set cc = findRange.ContentControls.Add(wdContentControlCheckBox)
            ' 保留原符号的勾选状态
            If findRange.Text = Chr(168) Then
                cc.Checked = True
            End If
            ' 删除原Wingdings符号
            findRange.Delete
            ' 重置查找范围，避免重复处理
            Set findRange = ActiveDocument.Content
            findRange.Collapse wdCollapseEnd
        Loop
    End With
End Sub

关键修改说明 #

• 指定查找字体：通过.Font.Name = "Wingdings"让Find操作精准定位目标字体下的符号，解决无法识别的问题
• 批量匹配两种符号：启用通配符同时处理空心和已勾选的复选框，无需分两次执行
• 保留状态信息：根据原符号自动设置内容控件的勾选状态，还原原有文档逻辑
• 稳定替换逻辑：直接在匹配位置插入控件并删除原符号，替代剪切粘贴的不稳定方式

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