Question

vb 怎么向已打开的word中插入域？

word已打开，路径是未知的。关键是怎么插入一个域？
插入一个eq域

Answer 1

演示代码：

Private Sub Command1_Click()
    Dim objWordApp As Object
    
    Const wdFieldFormula = 49
    
    Set objWordApp = GetObject(, "Word.Application")
    
    objWordApp.Selection.Fields.Add objWordApp.Selection.Range, _
                                    wdFieldFormula, _
                                    "{EQ \b \bc\{ (\r(3,x))}", _
                                    False
    
    Set objWordApp = Nothing
End Sub

演示效果：

更多域代码请参考：

http://office.microsoft.com/zh-cn/word-help/field-codes-eq-equation-field-HP005186148.aspx

追问

不好意思再请教一个问题：如何向一个eq域中插入一个图片，如

追答

首先切换域代码（光标放到 EQ 域）：

Selection.Fields.ToggleShowCodes

然后（光标依然在 EQ 域）：

Selection.InlineShapes.AddPicture "D:\1.jpg", False, True