请教如何把双引号换成单引号

小花鹿

zhanglei1371 发表于 2017-5-4 06:38
直接查找替换就可以啊：
查找 “([!“”]{1,})”
替换为 ‘\1’

楼主是要保留最外层的双引号

jiminyanyan

小花鹿 发表于 2017-5-3 23:23
规律就是，每段最外层的双引号保留，内层的双引号，替换为单引号，是吧？

老师，是这个意思。。。。。

791344806

查找替换  两次  呵呵

791344806

zhanglei1371 发表于 2017-5-4 06:38
直接查找替换就可以啊：
查找 “([!“”]{1,})”
替换为 ‘\1’

这个方法 棒  一次搞定 呵呵

jiminyanyan

zhanglei1371 发表于 2017-5-4 06:38
直接查找替换就可以啊：
查找 “([!“”]{1,})”
替换为 ‘\1’

两个小问题：
１.左加的单上号方向不对
２.只有一个"　　"，也会被替换掉了，我想保留一个双引号的情况

jiminyanyan

duquancai 发表于 2017-5-2 22:34
那就用正则合适点。

存在没有嵌套的双引号，就不替换   
杜老师，我这题看起来简单，实现起来还挺麻烦，有空帮忙看一下……。

duquancai

jiminyanyan 发表于 2017-5-4 22:16
存在没有嵌套的双引号，就不替换   
杜老师，我这题看起来简单，实现起来还挺麻烦，有空帮忙看一下…… ...

没感觉有好麻烦啊？？？？请你测试如下代码》》》》》》

Sub shishi()
    Dim p As Paragraph, s As Range, r As Range, k As Range
    For Each p In ActiveDocument.Paragraphs
        Set r = p.Range
        With r
            .MoveStartUntil ChrW(8220): .Start = .Start + 1
            .MoveEndUntil ChrW(8221), wdBackward: .End = .End - 1
            Set s = .Duplicate
            With s.Find
                Do While .Execute(ChrW(8220) & "*" & ChrW(8221), , , 1)
                    If Not s.InRange(r) Then Exit Do
                    Set k = s.Duplicate
                    With s
                        .Collapse: .MoveEnd , 1: .Text = ChrW(8216)
                        k.Collapse 0: k.MoveStart , -1: k.Text = ChrW(8217)
                        .Collapse 0
                    End With
                Loop
            End With
        End With
    Next
End Sub

duquancai

jiminyanyan 发表于 2017-5-4 22:16
存在没有嵌套的双引号，就不替换   
杜老师，我这题看起来简单，实现起来还挺麻烦，有空帮忙看一下…… ...

楼上代码已经审核通过，本图片删除！

小花鹿

我也献个丑：
Sub test()
Dim p As Range, ar(), n&, i&, t
t = Timer
With ThisDocument.Paragraphs(1).Range
    .Collapse
    Do
        .MoveEnd , 1
        If .Text = Chr(13) Then Exit Do
        If .Text = "“" Or .Text = "”" Then
            n = n + 1
            ReDim Preserve ar(1 To n)
            ar(n) = .Start
        End If
        .Collapse 0
    Loop
End With
With ThisDocument
For i = 2 To n - 1
    Set p = .Range(ar(i), ar(i) + 1)
    If p.Text = "“" Then p.Text = "‘"
    If p.Text = "”" Then p.Text = "’"
Next i
End With
MsgBox Timer - t
End Sub

13907933959

jiminyanyan 发表于 2017-5-4 20:22
两个小问题：
１.左加的单上号方向不对
２.只有一个"　　"，也会被替换掉了，我想保留一个双引号的情况 ...

我试了9楼的手工“查找替换”可以正常替换，替换后的中文单引号不会有一边的现象。