【StarSuite Basic/OpenOffice.org Basic】

[244 デフォルトの名無しさん 2008/07/10(木) 18:52:04]

>>243
こうか？
Sub retest
Dim Re As Object
Re = CreateObject("VBScript.RegExp")

Re.Pattern = "A."
Re.Ignorecase = True
Re.Global = True
sResult = Re.Replace("abc", "12")

msgbox sResult
Re = nothing
End Sub