[VB]
rem ★正規表現による文字列置換関数(VBA)
rem 引数
rem 第1 ･･･ source ･･･ 置換対象文字列
rem 第2 ･･･ pattern ･･･ 検索文字(正規表現)
rem 第3 ･･･ dest ･･･ 置換文字
Public Function regexp_replace(source, pattern, dest)
On Error GoTo err_proc
rem On Error Resume Next
Dim Reg As Object
Set Reg = CreateObject(“VBScript.RegExp”)
Reg.pattern = pattern
Reg.IgnoreCase = False
Reg.Global = True
regexp_replace = Reg.Replace(source, dest)
Exit Function
err_proc:
regexp_replace = “#Error”
End Function
[/VB]
