9585.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 35 行
HTML
35 行
<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:yehu@tpts6.seed.net.tw">yeong huann</a> on January 26, 1999 at 18:27:12:<p>
In Reply to: <a href="9582.html">Re: 烦请高手救我!</a> posted by 小白痴 on January 26, 1999 at 16:56:11:<p>
Dim objWord As Object<p>Private Sub Command1_Click()<br>objWord.Visible = True<br>objWord.ActiveWindow.Close<p>objWord.Documents.Open FileName:=Me.Text1.Text '填入欲开启的word档的路径及档名<p>End Sub<p>Private Sub Form_Load()<br>Set objWord = CreateObject("Word.Application")<br>objWord.Documents.Add<br> <p>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9585-->
<!--top: 9590--><li><a href="9590.html">Re: 我写个范例,你参考看看</a> <b>小白痴</b> <i>08:04:19 1/27/99</i>
(<!--responses: 9590-->2)
<ul><!--insert: 9590-->
<!--top: 9592--><li><a href="9592.html">Re: 可否再完美一点</a> <b>Lai</b> <i>08:37:30 1/27/99</i>
(<!--responses: 9592-->1)
<ul><!--insert: 9592-->
<!--top: 9619--><li><a href="9619.html">Re: 可否再完美一点</a> <b>yehu@tpts6.seed.net.tw</b> <i>02:51:38 1/28/99</i>
(<!--responses: 9619-->0)
<ul><!--insert: 9619-->
</ul><!--end: 9619-->
</ul><!--end: 9592-->
</ul><!--end: 9590-->
</ul><!--end: 9585-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?