用正则表达式限制一些特殊符号

Function RegExpStr(str As String, Optional strType As Byte = 1) As String    
Dim objRegExp As Object    
Set objRegExp = CreateObject('VBSCRIPT.REGEXP')    
With objRegExp
   .Global = True        
  Select Case strType
       Case 1    '只返回汉字            
       .Pattern = '[^\u4e00-\u9fa5]' 
       Case 2    '返回除汉字外
       .Pattern = '[\u4e00-\u9fa5]'
    Case 3  '只回英文字母,不分大小写
    .Pattern = '[^A-Za-z]'
    Case 4  '只返回大写英文字母
    .Pattern = '[^A-Z]'
    Case 5  '只返回小写英文字母
    .Pattern = '[^a-z]'
    Case 6    '返回指定的标点符号
.Pattern = '[^-?{[|#$%@^&*() -`%,./';:~!\\d $]'
Case 7
.Pattern = '\d' '返回除数字外文本
Case 8
.Pattern = '[^\d]'    '只返回数字
Case 9   '数字并包含小数点
.Pattern = '[^\d.]'
End Select
RegExpStr = .Replace(str, '')
End With
End Function

▲问：这个我也试了，结果一样，麻烦看下是不是引用错了？

▲答：你目的是什么  只能输入汉字？

▲问：限制一些特殊的符号，但是能输入汉字，数字和字母

▲答：RegExpStr(RegExpStr(Me.收件人, 7), 6)