15840.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行

HTML
22
字号
<html>
  <head>
    <title>如何呼叫Word之后, 无法在Word的Bookmark之后插入日期..</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>如何呼叫Word之后, 无法在Word的Bookmark之后插入日期..</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:juan@juan.SNMG.net">Juan</a> on July 19, 1999 at 10:37:36:<p>
<br>程式如下, 但是在Select部份总是出现"必须是变数或是函数"的编译错误..<br>可否请先进帮忙修正一下程式错误的地方..<p>Private Sub Label3_Click()<br>Dim objWordApp As Word.Application<br>Dim objDocument As Word.Document<br>Dim mySelect As Word.Bookmark<p><br>    MsgBox "发出信函向对方要求专利说明书", vbOKOnly<br>    ''呼叫Word<br>    Set objWordApp = CreateObject("Word.Application")<br>    objWordApp.Documents.Open ("C:\IMachine\Doc\A.Doc")<br>    objWordApp.Visible = True<br>    ''<br>    Set mySelect = CreateObject("Word.Bookmark")<br>    Set mySelect = objDocument.Bookmarks("ADate").Select<br>    mySelect.InsertAfter Date<p>    Me.Hide<br>    <br>    Set objWordApp = Nothing<br>    Set objDocument = Nothing<br>    Set mySelect = Nothing<br>    <br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15840-->
</ul><!--end: 15840-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

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