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

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

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

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

首先要引用word类型库

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

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

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

不需要前期引用word类型库的方法
Dim wd As Object
Dim doc As Object
Dim rng As Object
Set wd = CreateObject("word.Application")
'Set wd = New word.application
Set doc = wd.Documents.Add
Set rng = doc.Content

'Clipboard.SetText Text1.Text
'
'rng.Paste
doc.range.Insertafter "小把戏" & Chr(13)
doc.range.Insertafter "nknklklmlkm小人物" & Chr(13)
doc.SaveAs App.Path & "\aaa.doc"
doc.Close
Set wd = Nothing
Set doc = Nothing
End Sub

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

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