Alt+F11,然后插入-模块: 复制下面代码到编辑窗口: Sub 半角标点符号转换为全角标点符号() '中英互译文档中将中文段落中的英文标点符号替换为中文标点符号 Dim i As Paragraph, ChineseInterpunction() As Variant, EnglishInterpunction() As Variant Dim MyRange As Range, N As Byte '定义一个中文标点的数组对象 ChineseInterpunction = Array(".…
--1.查询区分全角与半角字符--测试数据DECLARE @t TABLE(col varchar(10))INSERT @t SELECT 'aa'UNION ALL SELECT 'Aa'UNION ALL SELECT 'AA' --全角AUNION ALL SELECT 'A,A' --全角A,半角逗号(,)UNION ALL SELECT 'A,A' --全角A,全角逗号(,) --1.查大写字母SELECT * FROM @tWHERE col COLLATE Chinese_…