groovy 发表于 2007-1-11 16:20:00

[求助]关于VBA和Word的问题，请指教

<font face="宋体" size="2">Private Sub CommandButton1_Click()<br/>Option Explicit<br/>Dim wrdapp As word.Application<br/>Set wrdapp = New word.Application<br/>With wrdapp<br/>.Visible = ture<br/>.Documents.Add<br/>.ActiveDocument.content.Text = "Hi"<br/>.ActiveDocument.content.Text = "This is a test example"<br/>End With<br/>End Sub<br/><br/>以上代码我输到了VBA的CommandButton控件中了，<br/>可是不管用啊，提示有错误，无效编译过程<br/>是不是跟VB调用Word不同啊<br/>应该怎么写那<br/>还有用word编写计算书时，要想在word中的特定位置放置特定的文本，需要有一个bookmark标记，就是要建立一个模板，不知道这个模板应该怎么样建啊，有没有现关的电子教程，发一个，学习学习。谢谢</font>

wyj7485 发表于 2007-1-12 09:08:00

首先要引用word类型库

groovy 发表于 2007-1-26 18:31:00

<p>首先要引用word类型库？是什么意思啊？能不能说得详细一点，最好给个生成word文件中有一两行文字的例子，</p><p>word模板文件倒是知道怎么建，根据自己的需要把一些VBA中不能输入的字符先输入进去就行了，我是这个意思。就是不知道怎么用VBA引用WORD模板文件。</p>

waley111 发表于 2007-1-27 12:36:00

<p>不需要前期引用word类型库的方法</p><p></p><p>Dim wd As Object<br/>Dim doc As Object<br/>Dim rng As Object</p><p><br/>Set wd = CreateObject("word.Application")</p><p>'Set wd = New word.application</p><p>Set doc = wd.Documents.Add</p><p>&nbsp;Set rng = doc.Content<br/>&nbsp;<br/>'Clipboard.SetText Text1.Text<br/>'<br/>'rng.Paste</p><p><br/>doc.range.Insertafter "小把戏" &amp; Chr(13)</p><p>doc.range.Insertafter "nknklklmlkm小人物" &amp; Chr(13)</p><p><br/>doc.SaveAs App.Path &amp; "\aaa.doc"</p><p>doc.Close</p><p>Set wd = Nothing<br/>Set doc = Nothing</p><p>End Sub</p>

groovy 发表于 2007-1-29 11:23:00

<p>doc.SaveAs App.Path &amp; "\aaa.doc"</p><p>这句提示错误，要求对象</p><p>什么意思？楼上的语句达到一个什么样的效果？</p>
页: [1]
查看完整版本: [求助]关于VBA和Word的问题，请指教