2985.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 22 行
HTML
22 行
<html>
<head>
<title>是 Word 慢</title>
</head>
<BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
<center>
<h1>是 Word 慢</h1>
</center>
<HR><p>
Posted by <a href="mailto:yfwu@iname.com">小吴</a> on May 27, 1998 at 01:53:23:<p>
In Reply to: <a href="2973.html"><b>OLE 速度太慢了</b></a> posted by 刘文川 on May 26, 1998 at 00:40:42:<p>
没办法,Word 太大了。如果 Word 己经载入的话,还有一种办法可以再快一点,就是使用现有的 Word。以下是个简单范例:<p>Dim objWord As Word.Application<br>Dim blnUseCurrentWord As Boolean<p>On Error Resume Next<br>Set objWord = GetObject (, "Word.Application")<br>If Err Then<br> Set objWord = CreateObject("Word.Application")<br>Else<br> blnUseCurrentWord = True<br> objWord.Visible = False ' 把 Word 隐藏以提升速率<br>End If<br>On Error Goto 0<p><<开始控制 Word>><p>If blnUseCurrentWord Then<br> objWord.Visible = True ' 把原来的 Word 显示出来<br>Else<br> objWord.Quit wdDotNotSaveChanges<br>End If<p>Set objWord = Nothing
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2985-->
</ul><!--end: 2985-->
<br><HR><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?