[求助]如何让下面的代码重复多次运行？

ssq1109

Sub AA1() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "%f\(([!}]@),([!}]@)\)" .Replacement.Text = "[SX（]\1[]\2[SX）]" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub 实际应用中，上面的代码运行时，对像下面的文本要运行2次： %f(a,b+%f(A, B)) 运行一次得：[SX（]a[]b+%f(A, B[SX）]) （这不符合要求） 再运行一次得：[SX（]a[]b+[SX（]A[] B[SX）][SX）] （这符合要求） 而像下面的则要运行3次才能符合要求： \f(a,b+\f(A, \f(A,B))) 更复杂的要运行更多次，怎样才能让文档中类似不论多么复杂的符合条件的字串都一次搞定。是不是要做一个循环语句，怎样实现？请高手指点。

ssq1109

不好意思，上一帖中倒数第3行“\f(a,b+\f(A, \f(A,B)))”应为“%f(a,b+%f(A,%f(A,B)))”

守柔

以下是引用[I]ssq1109[/I]在2006-2-14 9:38:39的发言：[BR]Sub AA1() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "%f\(([!}]@),([!}]@)\)" .Replacement.Text = "[SX（]\1[]\2[SX）]" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub 实际应用中，上面的代码运行时，对像下面的文本要运行2次： %f(a,b+%f(A, B)) 运行一次得：[SX（]a[]b+%f(A, B[SX）]) （这不符合要求） 再运行一次得：[SX（]a[]b+[SX（]A[] B[SX）][SX）] （这符合要求） 而像下面的则要运行3次才能符合要求： \f(a,b+\f(A, \f(A,B))) 更复杂的要运行更多次，怎样才能让文档中类似不论多么复杂的符合条件的字串都一次搞定。是不是要做一个循环语句，怎样实现？请高手指点。

能不能看看楼主的WORD文档，是否什么样的查找内容？

ssq1109

fWQqfbqo.rar (3.17 KB, 下载次数: 31)

2006-2-15 09:18 上传

点击文件名下载附件
[求助]如何让下面的代码重复多次运行？

当然可以，请看附件。

守柔

你能不能直接考虑上次代码获得文本的基础上，直接使用VBA.REPLACE函数?

你的格式设置非要保留吗?(上次的),我记得好象是,你最终的目的是什么?

xlf512

呵呵,楼主是要将word中用域代码打出的数学公式转换成方正书版格式的形式.

楼主的这个思路不是很好,一方面正如上所述,替换次数不好确定.

二方面这还只是分式,还有很多如根式,等很难达到预定的目的.

一个好的做法是用公式编辑器mathtype来将数学公式转换成文本后,再替换成方正书版的格式.

ssq1109

格式可以不保留,最后只得纯文本即可。怎样直接使用VBA.REPLACE函数？

ssq1109

6楼所说的方法我原试过,但它不支持全角字符只得再通过VBA代码实现,也好进一步学习VBA。有些已能很好的转换,但完美转换的确不易.

守柔

以下是引用[I]ssq1109[/I]在2006-2-15 13:57:01的发言：[BR]格式可以不保留,最后只得纯文本即可。怎样直接使用VBA.REPLACE函数？

我记得我好象帮谁是楼主吧处理过一个EQ域转为带格式文本的代码贴子，这个贴子哪儿去了？ 有的话，把你的上次我写的代码粘上来。 [em06]

ssq1109

对不起，今天一天很忙，现在才看到此帖。马上又要去值班了，明天我再写个详细说明。

源码是在精英网那边。

测试一下以下代码
Option Explicit

Sub SetEQCodes()
Dim oField As Field, myRange As Range
Dim TF As Boolean, myDup As Font
'返回选项中的智能剪切与粘贴复选框状态(针对域代码中的空格有影响)
TF = Options.PasteSmartCutPaste
Options.PasteSmartCutPaste = False '清除复选框
Application.ScreenUpdating = False '关闭屏幕更新
For Each oField In ActiveDocument.Fields '遍历活动文档所有域
With oField
If .Type = wdFieldFormula Then '如果有EQ (公式域)域
.ShowCodes = True '显示域代码
.Select '选中
With Selection
Set myRange = .Range '定义一个RANGE对象
myRange.SetRange .Start + 1, .End - 1 '去除域标志后的RANGE对象
myRange.Cut '剪切(目的是保留原有格式)
.Delete '删除域
End With
With myRange
.Paste '粘贴
.InsertBefore "{"
.InsertAfter "}"
Set myDup = .Characters.Last.Font.Duplicate '取得最后一个字符的字体格式("}")
'它总是继承原有域中) 的格式
.Characters.First.Font = myDup '设置"{"的字体格式与"}"一致
End With
End If
End With
Next
Application.ScreenUpdating = True '恢复屏幕更新
Options.PasteSmartCutPaste = TF
End Sub