在Word VBA中用控件数组遍历inlineshape控件

weiyingde

Dim OptionButtonAry()    'for each 的控件变量必须为变体，不能As OptionButton

Private Sub Commanon1_Click()
    OptionButtonAry() = Array(OptionButton1, OptionButton2, OptionButton3, OptionButton4, _
                            OptionButton11, _
                            OptionButton21, _
                            OptionButton31, _
                            OptionButton41, _
                            OptionButton12, _
                            OptionButton22, _
                            OptionButton32, _
                            OptionButton42)
End Sub

Private Sub Document_Open()    '建立控件数组
    Dim b  'for each 的控件变量必须为变体，这里也不能As OptionButton
    OptionButtonAry = Array(OptionButton1, OptionButton2, OptionButton3, OptionButton4, _
              OptionButton11, _
              OptionButton21, _
              OptionButton31, _
              OptionButton41, _
              OptionButton12, _
              OptionButton22, _
              OptionButton32, _
              OptionButton42)
    For Each b In OptionButtonAry
        MsgBox b.Name
    Next
End Sub

Private Sub Commanon2_Click()    '全部清空
    For Each op In OptionButtonAry()
        op.Value = False
    Next
End Sub

Private Sub Commanon3_Click()    '根据控件名操作
    Dim op
    For Each op In OptionButtonAry
        If InStr(op.Name, "OptionButton1") <> 0 Then
            op.Value = True
        End If
    Next
End Sub

Private Sub Commanon4_Click()    '测试过滤函数 Filter()
    myArray = Array(1, 2, 3, 10, 15, 21)   '创建数组
    myFilterAry = Filter(myArray, 1)    '预先在数组中筛选包含1的元素
    For Each i In myFilterAry
        MsgBox i    '显示1, 10, 15, 21
    Next
End Sub
分享：