怎么在程序中调用office 的word?

Question

怎么在程序中调用office 的word?

Answer 1

先添加对word的引用
然后，我记不清了，好象是这样：
dim myword as object,mydoc as objectSet myword= CreateObject("word.application")
Set mydoc = word.documents.Open(App.Path & "\temp.doc")
mydoc.visible=true

Answer 2

dim wrd as word.Application
On Error Resume Next '忽略错误
    Set Wrd = GetObject(, "Word.Application") '查找一个正在运行的Word拷贝
    If Err.Number <> 0 Then '如果 Word 没有运行则
    Set Wrd = CreateObject("Word.Application") '运行它
    End If
    Err.Clear '清除发生错误的 Err 对象
    On Error GoTo 0 '保留普通错误进程
    
    Dim dot As String
    
    dot = "FilePathAndFileName"
  
    Documents.Open FileName:=dot, _
            ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                0
        Wrd.Visible = True