Question

word 中用vba ，如何实现控件数组，textbox1~textbox10赋值？

采用
for i=1 to 10
cotronl（“textbox”&i）=XXX
next
貌似不行，只在form中行，在docment中不行

Answer 1

'我给你一个例子，枚举文档中的Textbox对象，这里只适合嵌入型的对象。
Sub EnumTextbox()
Dim i As Integer
Dim t As InlineShape '嵌入型，若是其它的则改用Shape，下同
For Each t In ThisDocument.InlineShapes
If t.Type = wdInlineShapeOLEControlObject Then
If t.OLEFormat.ClassType = "Forms.TextBox.1" Then
t.OLEFormat.Object.Text = i + 1
i = i + 1
End If
End If
Next
End Sub

Answer 2

http://www.360doc.com/content/10/0112/14/406571_13343606.shtml