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

Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Open("F:\简索.doc")

我用上述代码打开一个WORD文档后，它总是在后台操作，处于非活动状态，用什么语句可令其变成活动状态呢？ --------------------编程问答--------------------
你在VB中引用word对象后，输入以下语句即可：

Dim wrd As New Word.Application


With wrd

    .Documents.Open "F:\简索.doc"
    .Visible = True
    .Selection.HomeKey Unit:=wdStory
    .Selection.TypeText "第一行"
End With

wrd.ActiveDocument.Save
wrd.Quit

Set wrd = Nothing


用上面的方法比CreateObject("Word.Application")更方便，可以将word宏录制后，在其前面增加Wrd对象即可实现利用VB操作Word

wrd.visible=true
该句使打开的文件处于活动状态。




--------------------编程问答--------------------

引用楼主 william_xuan 的帖子:

Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Open("F:\简索.doc")

我用上述代码打开一个WORD文档后，它总是在后台操作，处于非活动状态，用什么语句可令其变成活动状态呢？

不会，我拷贝你的代码，能前台打开 --------------------编程问答-------------------- 谢谢两位！
待我试试~~

补充：VB ,  基础类