[求助]怪问题：VB中如何由Range对象生成Eq域

xlf512

我的文档的前14个字符为 eq \f(\r(2),3),我想将它生成eq域。 dim myRange as Range Set myRange = ActiveDocument.Range(0, 14) MyRange.Fields.Add Range:=MyRange, Type:=wdFieldEmpty, Text:=MyRange.Text, PreserveFormatting:=False 上面代码在word中可以正确地生成eq域，但我把上面代码在vb中使用，则总是出现空格。没有生成域。 生成域在VB中与word中的用法不同吗？ 请各位高手指点。

守柔

这是我在VB中用的代码，请楼主参考一下：

Sub Example()
Dim WdApp As Word.Application, WdDoc As Word.Document, WdRange As Word.Range
Set WdApp = GetObject(, "Word.Application")
Set WdDoc = WdApp.ActiveDocument
Set MyRange = WdDoc.Range(0, 14)
MyRange.Fields.Add Range:=MyRange, Type:=wdFieldEmpty, Text:=MyRange.Text, PreserveFormatting:=False
End Sub