在所有逗号后注入空格(如果缺少),除了千位分隔符

时间:2014-02-04 12:57:15

标签: vba ms-word word-vba

我正在尝试构建一个宏来查找文本中的逗号(,),如果后面没有空格,即在文本中的下一个单词之前,则添加一个空格。

我的问题是我必须用阿拉伯语写数字值,因此我通常使用逗号作为千位分隔符(1,000);因此,在搜索具有指定功能的逗号时,我需要一个代码来忽略数值。


我已经拥有以下代码(重要部分):

With Selection.Find 
 .Text = "،"
 .Replacement.Text = "، "
End With
    Selection.Find.Execute Replace:=wdReplaceAll               

但此代码不区分单词和数字

1 个答案:

答案 0 :(得分:0)

正如我在评论中写的那样,正则表达式就是你所需要的。我刚做了一些谷歌搜索,发现this Tutorial。在那里你应该得到足够的信息来解决你的问题。