VB 版 (精华区)

发信人: zxfsnow (江南的雪), 信区: VB
标  题: 如何打开Word文档 
发信站: 哈工大紫丁香 (2000年06月18日12:14:23 星期天), 转信

发信人: HareBlue (蓝铃花), 信区: VisualBasic
标  题: Re: 如何打开Word文档
发信站: BBS 水木清华站 (Tue Dec 14 09:17:56 1999)

【 在 fuf (小炸弹) 的大作中提到: 】
: 我是用以下语句:
: dim obj as object
: set obj = GetObject("word.document.8","c:\my.doc")
: obj.application.visible = true
:
: 值打开了一个空的Word,没有显示该文档,请问还要加什么语句
:

用GetObject函数返回你想要的东西没有这么简单，你可以参考MSDN的关于GetObject
函数的示例。最简单的可能是：你的语法可能错了。
Set obj = GetObject("Your.doc","YourClass")

不过我建议你使用另一种办法来得到Document对象。
首先在程序中引用Word对象库。

Public appYours As Word.Application
Public docYours As Word.Document

Sub Yours()
    Set appYours = New Word.Application
    Set docYours = appYours.Documents.Open("Your.dos")
    appYours.Visible = True
End Sub 
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]