Word VBA中用集合(Collection)遍历inlineshape控件━━━━━━━━━━━━━━━━━━━━━━━━━胡子注：在word中插入多个单选按钮制作选择题，问卷调查等很方便。但由于vba不支持控件数组，所以写代码很麻烦。网上有许多VBA玩家用类方法实现控件数组，我看了一下还是不简单，于是用集合试了一下，实在是太方便了！Dim col As New CollectionPrivate Sub Document_Open()col.Add OptionButton1col.Add OptionButton2col.Add OptionButton3col.Add OptionButton4col.Add OptionButton11col.Add OptionButton21col.Add OptionButton31col.Add OptionButton41col.Add OptionButton12col.Add OptionButton22col.Add OptionButton32col.Add OptionButton42End SubPrivate Sub Commanon2_Click() '清空所有选项Dim op As OptionButtonFor Each op In colop.Value = FalseNextEnd SubPrivate Sub Commanon3_Click() '根据控件名称操作Dim op As OptionButtonFor Each op In colMsgBox InStr(op.Name, 'OptionButton1')If InStr(op.Name, 'OptionButton1') <> 0 Thenop.Value = TrueEnd If'MsgBox op.Name 'op.Name 为只读属性，可用NextEnd Sub