请问如何用最快的方法找到文档中不匹配的双引号？

irischenxi

请问如何用最快的方法找到文档中不匹配的双引号，并将其改为匹配形式，例如，有的双引号为””，应改为“”。

c81

替换法

不过有个问题，你得肯定不对称引号中的文字不超过多少个才好下手

例如其内不过10个字，这样替换：

"?{1,10}" “?{1,10}”

守柔

我未经严格测试，请楼主检验：

注意按我的要求去做！

CTRL+A，CTRL+H，勾选通配符

查找：(“[!”]@)“

替换：\1”

全部替换

CTRL+A，CTRL+H，勾选通配符

查找：(“*”[!“]@)”(*”)

替换：\1“\2

全部替换

andy95800

经过研究发现，想要实现此目的用查找替换的基本操作是行不通的，除非你愿意一处一处替换

只有使用VBA才能够完美解决，但仍然不能用 Selection.Find.Execute Replace:=wdReplaceAll 的语句，否则完蛋

经测试代码如下(左撇不用此代码 使用(“[!“”]@)“ 查找即可)：

Sub 查找右撇错误引号()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Highlight = True '加此语句便于突出所替换之处，可不用
.text = "”([!“”]@”)"
.Replacement.text = "“\1"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
Do While .Execute(Replace:=wdReplaceAll) = True
Exit Do
Loop
End With
End Sub

Enjoy!!!!

andy95800

补充一点：如果 .Replacement.text ＝"" 或没有更正”*”的错误,则 .Wrap = wdFindContinue 应改为.Wrap = wdFindStop, 否则将无响应。

刚又试验了一下，发现若是替换时更正了”*”的错误则通过简单查找替换的方法也可以成功，这个Bug word2k和word2003版本下都存在。

tangqingfu

以下是引用[I]守柔[/I]在2006-1-20 19:11:52的发言：[BR]

我未经严格测试，请楼主检验：

注意按我的要求去做！

CTRL+A，CTRL+H，勾选通配符

查找：(“[!”]@)“

替换：\1”

全部替换

CTRL+A，CTRL+H，勾选通配符

查找：(“*”[!“]@)”(*”)

替换：\1“\2

全部替换

在网吧,没word,收藏,下次试试

linlifei

我不懂VBA，守柔斑竹的方法我也没看懂，试了一下没反应，恳请解释一下。

linlifei

我自己想了一个笨办法,不过要查找三次,不嫌麻烦的可一试

1.先在“自动更正”--“自动套用格式”里面把“直引号变成弯引号”前面的钩去掉；

2.查找：”*” （记得使用通配符）

替换：“^&”

3.查找：””

替换：”

4.查找：“”

替换：“