Office中的循環(huán)操作控件本質(zhì)相同，由于Excel工作簿有多個(gè)工作表，PowerPoint有多個(gè)幻燈片，Word中只有單個(gè)文檔，因此具體表述略不同：
　　Word:ActiveDocument.InlineShapes.Itme()....
　　PowerPoint:ActivePresentation.Slides(“Slide號(hào)”).Item()....
　　Excel:Sheets(“工作表名”).Shapes.Item()….
　　在Excel中設(shè)置控件屬性參數(shù)的一般語(yǔ)句如下：
　　Dim 控件變量名As Object
　　For i = 1 To 10
　　 Set 控件變量名 = Sheets("工作表名").Shapes.Item("控件變量名" & i).OLEFormat.Object.Object控件變量名.屬性名 = 參數(shù)值
　　Next i
　　其中“控件變量名”可以取：TextBox、ChecxBox、ComboBox等，“屬性名”和“參數(shù)值”則隨控件而變化。
　　略加修改即可擴(kuò)展到其他控件。以設(shè)置12道“是非題”對(duì)應(yīng)的組合框選項(xiàng)為例，相應(yīng)事件與語(yǔ)句如下：
　　Private Sub Worksheet_Activate()
　　 Dim ComboBox As Object: Dim i As Integer: Dim c(1 To 3) As String'變量聲明
　　 c(1) = "":c(2) = "正確":c(3) = "錯(cuò)誤" '數(shù)組賦值
　　 For i = 1 To 12 '循環(huán)對(duì)12個(gè)“是非題組合框”賦值
　　Set ComboBox = Sheets("基于控件的試卷").Shapes.Item("ComboBox2_" & i).OLEFormat.Object.Object
　　ComboBox.List() = c()
　　 Next i
　　End Sub