求一全字匹配正则表达式，谢谢

Question

分不多了，请大家帮帮我我想全字匹配替换字符串 例如  字符符：“ 中国人 中国） （中国－中国： 中国％ a中国” 把 中国 全字匹配 替换成 广东 后 变成  “ 中国人 广东） （广东－广东： 广东％ a中国”即 中国 前后如果是 标点 不是汉字和英文则 替换 ，如果是 则不替换 ，谢谢在线等

Answer 1

楼主的题目 我不太理解但是类似这类替换字符的要使用使用replace 函数:
函数使用方法:Replace(字符串,"原字符串","替换字符串")例题:dim a as string
dim b as string
a="000125489024579543"
for i = 1 to len(a) '循环字符个数的次数,这样就能把整段字符所有要替换的都替换掉了
   b=Replace(a,"0","零")
   b=Replace(a,"1","壹")
   b=Replace(a,"2","贰")
   b=Replace(a,"3","叁")
   b=Replace(a,"4","肆")
   b=Replace(a,"5","伍")
   b=Replace(a,"6","陆")   
   b=Replace(a,"7","柒")
   b=Replace(a,"8","捌")
   b=Replace(a,"9","玖")
next i 
   ==================
这个例题演示了 字串a 的数字全部变换成中文大写  若配合 个 十 百千万等就可以做一个 数字转换大写金额的 小程序了

Answer 2

楼上正解.
Sub tihuan()
Const s As String = "“   中国人   中国）   （中国－中国：   中国％   a中国”"
MsgBox Replace(s, "中国", "广东")
End Sub当然使用正则也可以.
Sub test()
Const s As String = "“   中国人   中国）   （中国－中国：   中国％   a中国”"
With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "(中国)"
    MsgBox .Replace(s, "广东")
End With
End Sub