本示例在新文档中添加一个包含文字“Test”的文本框。

Dim docNew As Document
Dim newTextbox As Shape
'创建一个新文档,并添加一个文本框
Set docNew = Documents.Add
Set newTextbox = docNew.Shapes.AddTextbox _
(Orientation:=ksoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=300, Height:=200)
'为文本框添加文字“Test”
newTextbox.TextFrame.TextRange = "Test"