如何查找右撇引号错误如”速度”？

andy95800

难题：如何查找引号方向的错误？比如”速度” word所有版本好像都有这个 BUG ：”[!“”]@”能够查得到，但若全部替换则总是无响应， 查左撇没这个毛病：“[!“”]@“ 不知何故， 各位还有啥好招能查右撇的引号，要求可以进行全部替换！

andy95800

用”[!^13]@” 与”*” 这两个公式都可以进行全部替换，但它的查找范围不够局限不够准确 比如：“速度”和“速度” 这个正常的句子也会被查“错”。 使用VBA的ChrW(8220) 和 ChrW(8221) 替代“”也不行 暂时还没想到好法子，想到了再来报告。

[此贴子已经被作者于2006-1-26 10:53:23编辑过]

守柔

正好上次有个网友也有类似问题，请楼主一并测试。

http://club.excelhome.net/viewthread.php?tid=147154

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版本下都存在。

syj123

为何您的问题在我的WORD2002中不存在呢?

konggs

老话题了。如果不勾选上面的那个选项能替换成功。否则，替换不成功。 我认为： 这说明：Word在替换的同时，或者说每一次替换都要运行一次自动更正。所以，出现上面的情况。也可能是为什么替换的速度慢的原因！

[此贴子已经被作者于2006-2-7 13:30:36编辑过]