高分请教：：：用vb6，嵌入ole中的word文档的保存问题

Question

我在ole1中嵌入一个word模版，在控制word保存时总是报错，百思不得其解，郁闷死了，究竟是那里错了？？？请执教，高分奉送，在线等待解答！！！！报错提示：“FileSaveAs命令因 该文档正在另一个应用程序中进行编辑 而无效”源代码：
OLE1.CreateEmbed "c:\111\111.dot", "word.application"
Private Sub Form_Load()   '这段代码正常通过
''载入模版，编辑模式，隐藏菜单
OLE1.CreateEmbed "c:\111\01案卷封面.dot", "word.application"
OLE1.Update
OLE1.Action = 7
    ActiveWindow.ActivePane.View.ShowParagraphs = Not ActiveWindow.ActivePane. _
        View.ShowParagraphs
    ActiveWindow.View.TableGridlines = Not ActiveWindow.View.TableGridlines
    
End Sub
Private Sub Command6_Click()   '这段代码出错
    Dim Wordobj As Object
    OLE1.Action = 7，  '我用参数action=7，action=9都不行
    Set Wordobj = OLE1.object.Application.WordBasic
    With Wordobj
        .FileSaveas "222.doc"
    End With
    
        
End Sub

Answer 1

源代码：
OLE1.CreateEmbed "c:\111\111.dot", "word.application"
Private Sub Form_Load()   '这段代码正常通过
''载入模版，编辑模式，隐藏菜单
OLE1.CreateEmbed "c:\111\01案卷封面.dot", "word.application"
OLE1.Update  
End Sub
Private Sub Command6_Click()   '这段代码出错
    Dim Wordobj As Object
    Set Wordobj = OLE1.object.Application.WordBasic
    With Wordobj
        .FileSaveas "e:\222.doc"
    End With  
        
End Sub

Answer 2

这样我试过, .FileSaveas "e:\222.doc"不行,还有其它方法吗?