版主，我试了一下你的代码，有点问题帮看一下

Sub 两个以上半字空换一个()   '两个以上半字空换成一个


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^32{2,}"                          '查找两个以上的空格
        .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
End Sub


Sub 删除汉字空格()   '试了几次不太好用啊'
' Macro1 Macro
' 宏在 2011-03-24 由 MC SYSTEM 录制
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([!a-z,A-Z])( )([!a-z,A-Z])"      '查找空格的前
        .Replacement.Text = " \1\3"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

转换前的文字：
在开    发Palm 和无  线   电 应用程序时，Symbian EPOC操 作系统是一个强大的开发平台。 The Symbian EPOC operating system is a  powerful  platform for the    development  of palmtop and wireless applications .

转换后的文字：
在 开发Palm 和 无线  电应用程序时，Symbian EPOC 操作系统是一个强大的开发平台。 The Symbian EPOC operating system is a powerful platform for the development of palmtop and wireless applications .
运行了几遍有时汉字间的空格还会多
另外英文和汉字之间的空格能去掉吗？
还有数字和字母之间能能加空吗？如2M换成2 M（只换以数字开头的，以字母开头的不换，如M2,这样的不能换）该如何去写代码？

[ 本帖最后由 fangxu 于 2011-3-25 05:40 编辑 ]

自己顶一下哟！

高手在吗？？？？？？？