关于在VB调用WORD程序打开多个文档时窗口焦点的处理问题！急急急，高分求救！

Question

在一VB模块中需要实现如下功能：
　　1、调用WORD打开文档；
　　2、将窗口最大化并置于最前端；
　　3、若同时有多个WORD文档被打开，则要求最后被打开的仍须窗口最大化并置于最前端；
　　实现此功能的过程中，我查阅了大批的API窗口函数，然始终不能保证在任何情况下实现此功能，有时能正常实现，有时又不能，特别是在不同的操作系统环境下（我主要在WIN98、WIN2000、WIN　XP下）进行调度，结果相差很大。
　　这是一个在自动化办公系统中要实现的功能，等着出货哪！哪位高手有此经验请速告之在下，不甚感激！

Answer 1

Option Explicit
Private Sub Command1_Click()
    Dim x As Object, xdoc As Object, mytable As Object, c As Object
    Dim i%
    Set x = CreateObject("word.application")   '启动WORD应用程序
    Set xdoc = x.documents.Add                 '新建WORD文档
    x.Visible = True                           '让WORD应用程序可见
    Set mytable = xdoc.Tables.Add(xdoc.range, 13, 3)  '插入一个13*3的表格
    i = 1
    For Each c In mytable.range.Cells          '扫描所有的单元格
        c.range.insertafter "Cell " & i        '在每一个单元格中写入内容
        i = i + 1
    Next c
    mytable.rows(mytable.rows.Count).Select    '将表格的最后一行选中
    x.selection.InsertRowsBelow 1              '在最后一行的下面插入一行
End Sub