半角的曲引号变成全角

rainbow_gg

我想问一下，将文章中多个半角的曲引号变成全角的，有什么更简便的方法，因我不会VBA，就录制了一个宏，但一次只能更改一个，怎么能让它快速地一次更改完哪？

我录制的宏代码如下：

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(8220) & ChrW(8221) & "]"
        .Replacement.Text = ""
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Range.CharacterWidth = wdWidthFullWidth
End Sub

先谢谢各位斑竹了！！

c81

查找替换法也很快。

另外我在WordVBA帮助中看到这样一段代码：

With Selection.Find
    .ClearFormatting
    .Text = "hi"
    .Replacement.ClearFormatting
    .Replacement.Text = "hello"
    .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
End With

请楼主自行修改之。

konggs

感觉楼主的代码有点问题。请上传附件。

rainbow_gg

可能我没有表达清楚，我是在查找框中输入[“”]，再选上通配符，查找到一个，再单击“更改大小写”-“全角”，这样半角的曲引号就变为全角的了，我就把这个过程录制了一个宏，但每次只能更改一个，我希望运行一次能都更改完，不知道怎么让此语句循环。

konggs

试试这个行否？

Sub tempkgs()
Dim arange As Range
    Set arange = ActiveDocument.Range
   
    Application.ScreenUpdating = False
   
    With arange.Find
        .Text = """(*)"""
        .Replacement.Text = "“\1”"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
   
    Application.ScreenUpdating = True

End Sub

lungtanyong

？？新手路过,不懂！

konggs

新手暂停

再学习一段时间

就会懂的。

rainbow_gg

不好意思呀，konggs 还是不好用，你查找的是半角的直引号，不是半角的曲引号。

若要查找到半角的曲引号，得在查找栏中输入双引号(在中文输入法状态下输入的全角双引号)才能搜索到，若输入半角的引号好像不行。我担心我表达的不清楚，在顶楼上传了一个文件，文件中的引号，就是我需要替换的半角曲引号。

谢谢 konggs 和各位楼主。

konggs

你可以改一下查找条件嘛 。

不要什么都要我说的。对吧？