Public Function SelectSectionByName(groupControlH, sectionName)
groupCount = groupControlH.Object.Groups.Count
For i = 0 to groupCount - 1
Set currentGroup = groupControlH.Object.Groups.Item(i)
groupName = currentGroup.Caption
If groupName = sectionName Then
groupControlH.Object.ActiveGroupName = currentGroup.Name
End If
Next End Function
评论