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类型库的方法
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