删除汉字之间的半角空格

ke3088

以下代码可删除汉字之间的一个半角空格，汉字之间二个及以上空格就不行了：   
    zmRange.Select
    Selection.Find.Text = ""
    Selection.Find.Replacement.Text = ""
    For Each i In Selection.Paragraphs '删除半角空格
        If Not i.Range.Information(12) Then '如果不在表格中（此行代码是跟杜老师学的）
           With Selection.Find
            .Execute "([一-﨩]) ([一-﨩])", , , 1, , , , , , "\1\2", 2 '汉字间
         End With        
        Selection.Font.Color = wdColorBlack '字体颜色，黑色 wdColorBlack  红色 wdColorRed
        End If
    Next
现向各位老师求助，将代码修改为删除汉字之间所有的半角空格。谢谢

413191246se

楼主，汉字和英文字符之间的空格，删不删？
Sub test_删除汉字之间空格()
    ActiveDocument.Content.Find.Execute "([一-﨩])([ 　^s^t]{1,})([一-﨩])", , , 1, , , , , , "\1\3", 2
    ActiveDocument.Content.Find.Execute "([一-﨩])([ 　^s^t]{1,})([一-﨩])", , , 1, , , , , , "\1\3", 2
End Sub

ke3088

413191246se 发表于 2019-10-24 14:13
楼主，汉字和英文字符之间的空格，删不删？
Sub test_删除汉字之间空格()
    ActiveDocument.Content.Fi ...

413191246se老师，您好！效果很好，谢谢您。只是重复ActiveDocument.Content.Find.Execute "([一-﨩])([ 　^s^t]{1,})([一-﨩])", , , 1, , , , , , "\1\3", 2这句有什么作用，我尝试只用一句，效果也是一样的。您能解答一下，重复这一句有什么作用？

413191246se

当一个汉字前后都有若干空格时（半角空格/全角空格/不间断空格/制表符），必须得来两遍才能删除干净。

ke3088

受教了，谢谢！