由于职业的原因，经常性听到译员或者项目经理对翻译译文中英文之间，或者中文与数字之间空格不统一的抱怨。事实上，由于翻译员本身比较注重译文的本身的理解和翻译工作，对格式可能重视不够，或者即使重视了，也不太可能完全能够保持统一性。

鉴于此，本人花了一点时间，在WORD中开发两个供译员自动添加或者自动删除的小工具，彻底解决了译员或者项目经理对译文空格不统一问题的烦恼！http://www/uc/myshow/blog/misc/gif/E___6725ZHE1SIGG.gif[注: 在网上看到很多所谓一键删除空格的文章,发现多数不是针对中英文混排的,导致运行后,将所有空格都删除了,而往往是英文和英文之间,数字和数字之间,以及英文和数字之间是不可以将空格删除的。本工具不存在这些问题，确保将该删的删除，该保留的保留。]

两个工具：

自动删除空格

结果：将所有中英文之间空格，中文数字之间空格，中文和中文之间的多余空格，超过1个以上的多余空格，全部自动删除，保留英文和英文之间、数字和数字之间、特殊符号之间的空格。

部分代码参考：

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^32{1,}"
        .Replacement.Text = "^32"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([0-9])(^32)([一-龥])"
        .Replacement.Text = "\1\3"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([一-龥])(^32)([0-9])"
        .Replacement.Text = "\1\3"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

.....

自动添加空格

结果：将添加所有中英文之间，中文数字之间的半格空格，同时，也自动删除中文和中文之间的多余空格，超过1个以上的多余空格。

部分代码参考：

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^32{1,}"
        .Replacement.Text = "^32"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([0-9])([一-龥])"
        .Replacement.Text = "\1^32\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

....

鉴于版权的考虑，如果需要，请与本博主联络。mdu@igsgroup.com.cn