如何从VB里打开一个WORD文档?谢谢

Question

RT, WORD文当和VB文件在同一路径下. WORD名字叫COSTREQUEST.  谢谢各位大虾.

Answer 1

'打开一个Word文档
'FileName为文档的路径文件名，若为""表示打开空文档
'函数返回1表示打开成功，返回0表示失败
Public Function OpenDocument(FileName As String) As Integer
    Dim oWord As Word.Application
    Dim oDocument As Word.Document
    Dim nRet As Integer
    
    On Error GoTo ErrOpen
    
    Set oWord = New Word.Application
    
    If FileName = "" Then
        Set oDocument = oWord.Documents.Add
    Else
        Set oDocument = oWord.Documents.Open(FileName)
    End If
    
    oWord.Visible = True
    
    OpenDocument = 1
    GoTo ExitOpen
    
ErrOpen:
    OpenDocument = 0ExitOpen:
    Set oDocument = Nothing
    Set oWord = Nothing
End Function

Answer 2

如果想显示在VB窗体上，可以引用可插入对象，Document（Word 文档）