7691.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 30 行

HTML
30
字号
<html>
  <head>
    <title>救救我,我很急!</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>救救我,我很急!</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:chjichin@mail2.intellect.com.tw">chjichin</a> on November 26, 1998 at 23:28:49:<p>
 Dim word1 As Object<br> Dim ww As Document<br> Set word1 = CreateObject("Word.Application")<br> Documents.Add ("c:\tt.doc")<br> word1.Selection.PageSetup.LeftMargin = CentimetersToPoints(1.9)<br> word1.Selection.PageSetup.TopMargin = CentimetersToPoints(1.9)<br> word1.Visible = True<br> AppActivate word1.Application.Caption<br> Set word1 = Nothing<br> Set ww = Nothing<p>以上这个程式,为何第一次执行,它正常地开启word,但关闭word后,再执行一次,就会出现错误(只是关闭word,但没有关闭程式)
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7691-->
<!--top: 7716--><li><a href="7716.html">Re: 救救我,我很急!</a> <b>ChenNet</b> <i>10:51:00 11/27/98</i>
(<!--responses: 7716-->1)
<ul><!--insert: 7716-->
<!--top: 7732--><li><a href="7732.html">Re: 救救我,我很急!</a> <b>chjichin</b> <i>17:04:11 11/27/98</i>
(<!--responses: 7732-->0)
<ul><!--insert: 7732-->
</ul><!--end: 7732-->
</ul><!--end: 7716-->
</ul><!--end: 7691-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?