VBA操作word 的文本框

Question

形如“
With ThisDocument
.Shapes("SubjectText").Visible = msoTrue ”

在 word里文本框"SubjectText" 如何设置？？？
上面是在word 的vb编辑器里的一段代码，我想问，name"SubjectText" ，在word页面添加的文本框，是如何设置这个名称的？
=====================
只能使用代码的方式命名吗？ 我是想知道 界面上如何给这个文本框命名？？？

=====================

楼下的这个，意思是 写这个宏 执行添加 文本框并命名吗？ 但是这个得到的文本框 名称都是一样的？

word操作界面上添加 文本框 的话，如何给她命名呢？？

Answer 1

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