Sub test() Dim RE As Object Set RE = CreateObject("VBScript.RegExp") RE.ignoreCase = True RE.Global = True RE.Pattern = "\b[a-z]+\b" Debug.Print RE.
確定! 回上一頁