[求助]关于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标记,就是要建立一个模板,不知道这个模板应该怎么样建啊,有没有现关的电子,发一个,学习学习。谢谢 首先要引用word类型库 首先要引用word类型库?是什么意思啊?能不能说得详细一点,最好给个生成word文件中有一两行文字的例子,
word模板文件倒是知道怎么建,根据自己的需要把一些VBA中不能输入的字符先输入进去就行了,我是这个意思。就是不知道怎么用VBA引用WORD模板文件。
不需要前期引用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
doc.SaveAs App.Path & "\aaa.doc"
这句提示错误,要求对象
什么意思?楼上的语句达到一个什么样的效果?
页:
[1]