我刚才看了一下,那个通配符更费事,等于把所有非引号的句号,也就是前后都跟着非引号的句号,那前后有可能是任意非引号的文字,字母,数字,标点,这样排列起来太麻烦了。不如编一个宏:
Sub ReplaceOutsideBrackets()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
Dim strText As String
strText = para.Range.Text
Dim i As Long
Dim newText As String
newText = ""
For i = 1 To Len(strText)
Dim currentChar As String
currentChar = Mid(strText, i, 1)
If currentChar = "“" Then
(待续)