作者:乔山办公网日期:
返回目录:word文档
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select
四个 数字是坐标
用vba在抄word中插入百一个文本框度:
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select
四个 数字问是坐答标
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 30, 20, 20).Select '------2
ActiveDocument.Shapes.TextFrame.TextRange = ym + 1
当前页插入文本zhidao框
第一行是位版置
第二权行是内容
Sub newTextbox()
Dim docNew As Document
Dim newTextbox As Shape
'Create a new document and add a text box
Set docNew = Documents.Add
Set newTextbox = docNew.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=300, Height:=200)
'Add text to the text box
newTextbox.TextFrame.TextRange = "Test"
End Sub