Word中括号字符转换的问题

七金五星

上图中有三种类型的括号，
第一种括号是在英文的输入状态下，Times New Roman字体格式的括号，这种括号可以用键盘直接输入。这种括号在纯英文的Word中，排版比较美观，但是在中英文混合的word中全部使用这种括号，排版就不怎么美观(括号比文字矮一点)。
第二种括号是在中文输入状态下，宋体字体格式的括号，这种括号也可以用键盘输入，这种括号在中英文混合的word中排版比较美观，但是这个中括号有一个缺点，那就是一个括号占去两个字符，浪费排版空间。
第三种括号，是在英文的输入状态下，Times New Roman字体格式的括号，然后再选中这个括号，将Times New Roman字体转换为宋体格式字体，这种括号和第二种括号一样美观，但是所占字符比第二种括号要小，但是这种括号，没有办法用键盘直接输入。
所以我在写文章是一般一般都是用的第三种括号，篇幅短一点我自己手动修改就可以了，篇幅长一点，可以用查找和替换的方法完成。但是这种操作比较烦。
我想问一下怎样用VBA编程的方式将一片文章中所有的第一种类型的括号和第二种类型的括号全部转换成第三种类型的括号！

413191246se

楼主太厉害了！平时真没注意到，但楼主图片中第三种括号看着不像，我倒明白了楼主的意思，现提供一下 2003 版本 VBA 宏（不知在 2010中是否可用）：

Sub 中文宋体半角括号()

' 中文宋体全角括号全部替换为英文半角括号
    ActiveDocument.Content.Find.Execute FindText:="（", replacewith:="(", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute FindText:="）", replacewith:=")", Replace:=wdReplaceAll

' 光标至文首
    Selection.HomeKey Unit:=wdStory

' 查找英文半角括号，全部变为中文宋体半角括号（即第三种括号）
    Do
        Selection.Find.Execute FindText:="(", Forward:=True, Wrap:=wdFindStop
        Selection.Font.NameAscii = "宋体"
        Selection.Font.Color = wdColorRed    '此语句可删除！
        If Selection.Find.Found = False Then Exit Do
    Loop

' 光标至文首
    Selection.HomeKey Unit:=wdStory

' 查找英文半角括号，全部变为中文宋体半角括号（即第三种括号）
    Do
        Selection.Find.Execute FindText:=")", Forward:=True, Wrap:=wdFindStop
        Selection.Font.NameAscii = "宋体"
        Selection.Font.Color = wdColorRed    '此语句可删除！
        If Selection.Find.Found = False Then Exit Do
    Loop

End Sub

七金五星

413191246se 发表于 2014-6-21 23:46
楼主太厉害了！平时真没注意到，但楼主图片中第三种括号看着不像，我倒明白了楼主的意思，现提供一下 2003  ...

多谢大神指点，我在office 2010 64位的VBA上测试过，完全没有问题！多谢大哥的指点

banjinjiu

413191246se 发表于 2014-6-21 23:46
楼主太厉害了！平时真没注意到，但楼主图片中第三种括号看着不像，我倒明白了楼主的意思，现提供一下 2003  ...

Selection.Find.Execute FindText:="(" , Forward:=True , Wrap:=wdFindStop,查找模式匹配问题，错误。