[求助]下面VBA代码问题出在哪里?

ssq1109

为使下面的文本中[FJF]和[FJJ]间的汉字变为繁体字: [FJF]中华人民共和国[FJJ]全国人民代表大会 [FJF]中华人民共和国[FJJ]全国人民代表大会 [FJF]中华人民共和国[FJJ]全国人民代表大会 我用下列代码: Sub AA11() Selection.HomeKey Unit:=wdStory Do With Selection.Find .ClearFormatting .Execute FindText:="\[FJF\]([!^093]@)\[FJJ\]", _ ReplaceWith:="\1", Replace:=wdReplaceOne .MatchWildcards = True If .Found = False Then Exit Do End If End With Selection.Select With Selection WordBasic.ToolsSCTCTranslate End With Loop End Sub 但运行时总是只对第一个符合条件的文本起作用,后面的都不灵了,这是什么原因呢? 如果将: Selection.HomeKey Unit:=wdStory 加在Loop语句前,却又能完全达到要求,这又是何故? 上面的代码是否还可优化?

鑫11

Selection.HomeKey Unit:=wdStory是把光标移至文档开头，word中的查找总是从光标处开始查找，所以总是找到第一个。

鑫11

Sub AA11()
Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory

With Selection.Find

.ClearFormatting

.replacement.ClearFormatting
Do


.Execute FindText:="\[FJF\]([!^093]@)\[FJJ\]", _
ReplaceWith:="\1"
.MatchWildcards = True
If .Found = False Then
Exit Do
End If
WordBasic.ToolsSCTCTranslate
.parent.Collapse Direction:=wdCollapseEnd
Loop

End With
Application.ScreenUpdating = true
End Sub
试一试这样行不行，如果行会快些

另外请问^093代表什么

WordBasic是什么对象

[此贴子已经被作者于2006-5-23 15:56:09编辑过]

ssq1109

谢谢鑫兄,我刚才上的一台机上好像中了毒,不能回帖.

编译上代码为何通不过,报LOOP没有DO,我看明明有的,要下班了,下午再看看.

^093代码"]".

Selection.HomeKey Unit:=wdStory的意思我知道,我想知道一楼的代码后面没有这一句也应能在所有符合条件的文本中循环的,为何不行呢?

至于WordBasic, 我也不大清楚,是看VBA帮助仿写的.

[此贴子已经被作者于2006-5-23 11:32:49编辑过]

鑫11

代码改了，再试一试

word中的查找总是从光标处开始查找，如果不用该语句，光标未必在文件头。

但我觉得不只查找第一个满足条件的语句。

ssq1109

谢谢鑫兄! 你的代码确实简捷些,我刚试了下,还是要在Loop前加Selection.HomeKey Unit:=wdStory才能替换全部,我的本意正是要替换所有符合条件的文本.

鑫11

代码改了，再试一试

我知道了，因为查找完选定的是你要替换的那个的单词，接下来是对你选定的部分进行查找，这部分已被你替换，所以找不到，就退出宏，我加上这句，即把光标定位到选定的部分后面，接下去查找。

学习编程要用到调试，在你运行宏不能达到满意结果时，调试很有用，在你觉得可能出问题的语句后设一个断点，宏就会暂停，你回到文档中看看运行结果，看看哪里出了问题

ssq1109

谢谢鑫兄！我原来调试也发现了那个问题，即选中第一个符合条件的项，不然也不会想出了加上：

Selection.HomeKey Unit:=wdStory

这一句。

明知此法能达目的，但就是不知道此法是否是个笨办法，故上坛求良策，果然很有收获。

Thank you again!