在MS Office中实现对“控件”的循环操作

samichang

我们在MS Office中基于“控件”编程时，经常需要对“控件”进行“循环操作”，例如需要连续清除若干个“文本框”的内容（Text属性），对连续的若干个“是非题”的答题“组合框”统一赋值（Text属性）。

令人遗憾的是，与常用的编程语言不一样，用户在MS Office的VBA中通常无法用“循环变量”直接对“控件名称”中的“尾数字”进行操作。

一、基本思路与方法

MS Office中的“控件循环”操作本质相同，但由于Word只有单个“文档”（“控件”在其中可按InlineShapes的成员被管理）、PowerPoint有多个“幻灯片”（在某个Slades具体成员中的“控件”可按Shapes的成员被管理），Excel有多张“工作表”（在某张具体的“工作表”中的“控件”可按Shapse的成员被管理），从而导致三个软件包中具体的“循环操作”语句略有差别。

⑴Word：“控件”变量名可设为ActiveDocument.InlineShapes.Item(序号i).OLEFormat.Object.Object
　　其中：i是全部InlineShapes成员的大排序，ActiveDocument可以省略。

⑵PowerPoint：“控件”变量名可设为ActivePresentation.Slides(“Slides号”).Shapes.Item(“控件变量名” & i).OLEFormat.Object.Object
　　其中：i是“控件名称”中的“尾数字”，ActivePresentation不可以省略。

⑶Excel：“控件”变量名可设为ActiveWorkbook.Sheets(“工作表名”) Shapes.Item(“控件变量名” & i).OLEFormat.Object.Object
　　其中：i是“控件名称”中的尾数字，ActiveWorkbook可以省略。

于是，用户可以用“循环变量i”通过Word中的InlineShapes项（序号i）、对PowerPoint（或Excel）中的Shapes项（“控件名称”中的“尾数字i”）进行循环操作。

二、案例

Word、PowerPoint幻灯片Slide1和Excel工作表Sheet1中均从上到下（或从左到右）顺序放置有两个命令按钮（CommandButton1和CommandButton2）和三个标签（Label1～Label3）。

㈠在Word中单击“循环赋值（CommandButton1）”按钮和单击“循环清除（CommandButton2）”按钮事件对应的语句

Dim i As Integer
　　Dim Label As Object

Private Sub CommandButton1_Click()
　　 For i = 1 To 3
　　  Set Label = InlineShapes.Item(i + 2).OLEFormat.Object.Object
　　  Label.Caption = i
　　 Next i
　　End Sub

Private Sub CommandButton2_Click()
　　 For i = 1 To 3
　　  Set Label = InlineShapes.Item(i + 2).OLEFormat.Object.Object
　　  Label.Caption = ""
　　 Next i
　　End Sub

㈡在PowerPoint中单击“循环赋值（CommandButton1）”按钮和单击“循环清除（CommandButton2）”按钮事件对应的语句

Dim i As Integer
　　Dim Label As Object

Private Sub CommandButton1_Click()
　　 For i = 1 To 3
　　  Set Label = ActivePresentation.Slides("Slide1").Shapes.Item("Label" & i).OLEFormat.Object.Object
　　  Label.Caption = i
　　 Next i
　　End Sub

Private Sub CommandButton2_Click()
　　 For i = 1 To 3
　　  Set Label = ActivePresentation.Slides("Slide1").Shapes.Item("Label" & i).OLEFormat.Object.Object
　　  Label.Caption = ""
　　 Next i
　　End Sub

㈢在Excel中单击“循环赋值（CommandButton1）”按钮和单击“循环清除（CommandButton2）”按钮事件对应的语句

Dim i As Integer
　　Dim Label As Object

Private Sub CommandButton1_Click()
　　 For i = 1 To 3
　　  Set Label = ActiveWorkbook.Sheets("Sheet1").Shapes.Item("Label" & i).OLEFormat.Object.Object
　　  Label.Caption = i
　　 Next i
　　End Sub

Private Sub CommandButton2_Click()
　　 For i = 1 To 3
　　  Set Label = Sheets("Sheet1").Shapes.Item("Label" & i).OLEFormat.Object.Object
　　  Label.Caption = ""
　　 Next i
　　End Sub

三、变化与扩展

大家可在理解MS Office各个软件包中控件循环基本原理的基础上，自己作出各种变化。也只有在你能作出各种变化时，才说明你真的理解了。

wxmaster

十分感谢！推荐加入精华帖！

banjinjiu

我没看出来这种循环有什么不同，也许是自己的水平低，请后来者评判。Word、excel、PowerPoint文件都有，是2003的。

添加我的

用了3年发现还是没玩透