Question

用VBA在Word中的每一页都插入9个文本框，而且让文本框排成如图队列

http://zhidao.baidu.com/question/459959225.html?quesup2

Answer 1

分类：办公软件 | 浏览126次

Answer 2

Sub main()
Dim Txt1 As Shape
Dim Txt2 As Shape
Dim Txt3 As Shape
Dim Txt4 As Shape
Dim Txt5 As Shape
Dim Txt6 As Shape
Dim Txt7 As Shape
Dim Txt8 As Shape
Dim Txt9 As Shape
Set Txt1 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=20, Top:=50, Width:=70, Height:=20)
Set Txt2 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=50, Width:=70, Height:=20)
Set Txt3 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=200, Top:=50, Width:=70, Height:=20)
Set Txt4 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=20, Top:=100, Width:=70, Height:=20)
Set Txt5 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=100, Width:=70, Height:=20)
Set Txt6 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=200, Top:=100, Width:=70, Height:=20)
Set Txt7 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=20, Top:=150, Width:=70, Height:=20)
Set Txt8 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=150, Width:=70, Height:=20)
Set Txt9 = ThisDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=200, Top:=150, Width:=70, Height:=20)
Txt1.TextFrame.TextRange = "1-1"
Txt2.TextFrame.TextRange = "1-2"
Txt3.TextFrame.TextRange = "1-3"
Txt4.TextFrame.TextRange = "1-1"
Txt5.TextFrame.TextRange = "2-2"
Txt6.TextFrame.TextRange = "2-3"
Txt7.TextFrame.TextRange = "3-1"
Txt8.TextFrame.TextRange = "3-2"
Txt9.TextFrame.TextRange = "3-3"
End Sub