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 + -
显示快捷键?