excel打开word的Document有几种方法

ningyong58

Excel主要是以下两种方法与Word取得通信联系.
CreatObject("Word.Application")
GetObject(,"Word.Application"
以下打开Document的常用三种方法
1 Documents.Add
2 ActiveDocument
3 Documents.Open
此帖讨论的目的,打开wrod还有几种Document几种方法
如:
与一个word文件建立通信联系,进行数据交换,但这个word文件不打开(不显示)
有一个指定的word文件已经打开,如text.doc,将text.doc文件激活为当前的document.

谢谢.

ningyong58

前三种方法的组合应用,效果不是太好.


Function ConnectWordDocument(FileStr) '连接Word文件
  Dim App As Word.Application
  On Error Resume Next
  Set App = GetObject(, "Word.Application")
  If FileStr = "" Then
    If Err Then
      Err.Clear
      Set App = CreateObject("Word.Application")
      Set ConnectWordDocument = App.Documents.Add
    Else
      Set ConnectWordDocument = App.ActiveDocument
    End If
    App.Visible = True
  Else
    Set ConnectWordDocument = App.Documents.Open(FileName:=FileStr)
    'App.Visible = True
  End If
End Function

ningyong58

又找到一种方法.
WordApp.Windows(Doc).Selection

大笨豆6

这帖子是好东西，收藏了