[求助]如何引用文本框？

zsdat

如何引用下面代码产生的文本框，完成文字编辑和输入？

Set mytbox = ActiveDocument.Shapes _ .AddTextbox(Orientation:=msoTextOrientationHorizontal, _ Left:=100, Top:=100, Width:=300, Height:=200)

守柔

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-17 4:38:30 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyTbox As Shape '添加一个水平文本框 Set MyTbox = ActiveDocument.Shapes _ .AddTextbox(Orientation:=msoTextOrientationHorizontal, _ Left:=100, Top:=100, Width:=300, Height:=200) With MyTbox '文本框文本为"IT'S A EXAMPLE" .TextFrame.TextRange = "IT'S A EXAMPLE" '段落水平居中 .TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter '无线条颜色 .Line.Visible = msoFalse End With End Sub '----------------------