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

duquancai

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

Sub shishi()
    Dim p As Paragraph, s As Range, r As Range
    For Each p In ActiveDocument.Paragraphs
        Set r = p.Range
        With r
            .MoveStartUntil "“": .Start = .Start + 1
            .MoveEndUntil "”", wdBackward: .End = .End - 1
            Set s = .Duplicate
            With s.Find
                Do While .Execute("“*”", , , 1)
                    If Not s.InRange(r) Then Exit Do
                    With s
                        .SetRange .Start, .Start: .MoveEnd , 1: .Text = "‘"
                        .MoveUntil "”": .MoveEnd , 1: .Text = "’"
                        .SetRange .End, .End
                    End With
                Loop
            End With
        End With
    Next
End Sub

jiminyanyan

挺强大，抱歉，做例子的时候考虑不周，下面的还是有些问题。。。

duquancai

这题目已经没有意义了！

duquancai

jiminyanyan 发表于 2017-5-5 12:05
挺强大，抱歉，做例子的时候考虑不周，下面的还是有些问题。。。

但是我还是再写一下吧！你会发现：嵌套的 还会继续修改代码的，因为你还有考虑不周的，没完没了！！！呵呵呵

Sub shishi()
    Dim p As Paragraph, s As Range, r As Range
    For Each p In ActiveDocument.Paragraphs
        Set r = p.Range
        With r
            n = Len(r.Text)
            If .MoveStartUntil("“", n) = 0 Then GoTo 100
            .Start = .Start + 1
            .MoveEndUntil "”", -n: .End = .End - 1
            Set s = .Duplicate
            With s.Find
                Do While .Execute("“[!“”]@”", , , 1)
                    If Not s.InRange(r) Then Exit Do
                    With s
                        y = Len(s.Text)
                        .SetRange .Start, .Start: .MoveEnd , 1: .Text = "‘"
                        .MoveUntil "”", y: .MoveEnd , 1: .Text = "’"
                        .SetRange .End, .End
                    End With
                Loop
            End With
        End With
100     Next
End Sub

jiminyanyan

duquancai 发表于 2017-5-5 12:23
这题目已经没有意义了！

谢谢老师，事不过三，该问题到此为止吧…………

duquancai

jiminyanyan 发表于 2017-5-5 13:09
谢谢老师，事不过三，该问题到此为止吧…………

不是我说什么怪话，因为：第一、每一段可嵌套无数层级；第二、在每一段中又可以又多个并且不同或者相同层级的无数层级嵌套。

kerry786032

13907933959 发表于 2017-5-5 07:12
我试了9楼的手工“查找替换”可以正常替换，替换后的中文单引号不会有一边的现象。

您好，我想请教下，你这个动图怎么做出来的？

13907933959

kerry786032 发表于 2017-11-6 12:31
您好，我想请教下，你这个动图怎么做出来的？

你好！
是用屏幕录制软件 “GifgIfgiF” 录制的。

kerry786032

13907933959 发表于 2017-11-6 14:08
你好！
是用屏幕录制软件 “GifgIfgiF” 录制的。

好的，谢谢啦。

gggg5933393

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

我用 的WORD 2016,为什么这个方法行不通呢？