如何从vb中向文档插入文字，并设置格式？

[stuman]

Private Sub CommandButton1_Click()

Dim doc As Document
Set doc = ActiveDocument
Set myRange = doc.Range(Start:=0)
myRange.InsertAfter TextBox1.Text

ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter
Set myRange = ActiveDocument.Paragraphs(1).Range
With myRange.Font
'.Bold = True
.Name = "方正小标宋简体"
.Size = 48
End With

End Sub
===================================
以上代码是利用vba将文本框里的文字插入当前文档中，请问如果在vb中应该怎么做？谢谢

[stuman]

自己顶一下

[Hassle]

引用Word.Application

dim oApp as Word.Application

set oApp =new Word.Application

oApp.ActiveDocument

...

[northwolves]

引用WORD APPLICATION后按1楼代码如法炮制即可。

[jam021]

在VB里new出word对象
set oApp =new Word.Application
然后在vba代码前,加上word对象名
Set doc = oApp.ActiveDocument
..........
oApp.ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter

[jam021]

o,错了
set oApp = createobject("Word.Application")

[cangwu_lee]

路过