VB打开一个WORD文档后，如何令其活动？

Question

Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Open("F:\简索.doc")我用上述代码打开一个WORD文档后，它总是在后台操作，处于非活动状态，用什么语句可令其变成活动状态呢？

Answer 1

你在VB中引用word对象后，输入以下语句即可：Dim wrd As New Word.Application
With wrd    .Documents.Open "F:\简索.doc"
    .Visible = True
    .Selection.HomeKey Unit:=wdStory
    .Selection.TypeText "第一行"
End Withwrd.ActiveDocument.Save
wrd.QuitSet wrd = Nothing
用上面的方法比CreateObject("Word.Application")更方便，可以将word宏录制后，在其前面增加Wrd对象即可实现利用VB操作Wordwrd.visible=true
该句使打开的文件处于活动状态。