# 是 Word 慢

Posted by 小吴 on May 27, 1998 at 01:53:23:

In Reply to: OLE 速度太慢了 posted by 刘文川 on May 26, 1998 at 00:40:42:

没办法，Word 太大了。如果 Word 己经载入的话，还有一种办法可以再快一点，就是使用现有的 Word。以下是个简单范例：

Dim objWord As Word.Application
Dim blnUseCurrentWord As Boolean

On Error Resume Next
Set objWord = GetObject (, "Word.Application")
If Err Then
Set objWord = CreateObject("Word.Application")
Else
blnUseCurrentWord = True
objWord.Visible = False　　　' 把 Word 隐藏以提升速率
End If
On Error Goto 0

＜＜开始控制 Word＞＞

If blnUseCurrentWord Then
objWord.Visible = True ' 把原来的 Word 显示出来
Else
objWord.Quit wdDotNotSaveChanges
End If

Set objWord = Nothing

Follow Ups: