你写的宏里用ChrW(2013)引用长破折号（U+2013）是完全正确的，没生效大概率是这两个原因：

• 仅选中了部分文本，目标字符不在选中范围内
• Wrap参数设为wdFindAsk，遍历到文档末尾时弹窗询问，中断了全文档替换

修改后的基础替换宏 #

调整宏逻辑，先全选文档，同时把Wrap改成wdFindContinue，确保遍历整个文档：

Sub Clean_Unicode()
' 替换不常见Unicode字符为常用文本
    ' 先全选整个文档内容
    ActiveDocument.Content.Select
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(2013) ' 目标Unicode字符：长破折号U+2013
        .Replacement.Text = "-" ' 替换为标准短破折号U+002D
        .Forward = True
        .Wrap = wdFindContinue ' 遍历完整个文档，不弹窗询问
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

批量替换多个Unicode字符 #

如果有大量需要替换的字符，用数组循环处理更高效，不用重复写多个宏：

Sub Batch_Clean_Unicode()
' 批量替换多种不常见Unicode字符
    Dim replacePairs As Variant
    ' 定义替换对：每个子数组是(目标Unicode码, 替换文本)
    replacePairs = Array( _
        Array(2013, "-"), _
        Array(2014, "--"), ' 把长破折号U+2014替换成双短破折号
        Array(8220, """")  ' 把左双引号U+201C替换成标准双引号
    )
    
    ActiveDocument.Content.Select
    Dim i As Integer
    For i = LBound(replacePairs) To UBound(replacePairs)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = ChrW(replacePairs(i)(0))
            .Replacement.Text = replacePairs(i)(1)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
End Sub

关键注意点 #

• 确认目标字符的Unicode码：在Word里选中字符，按Alt+X就能看到十六进制码，转成十进制传给ChrW()即可；也可以直接用十六进制写法，比如ChrW(&H2013)，更直观
• 手动查找替换时可以用^u2013定位字符，但宏里必须用ChrW()或ChrW(&Hxxxx)的格式

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