CIMLangMap.TranslationGroups (read-only property)

Gets the TranslationGroups collection object.

Syntax:

Set object = object.TranslationGroups

Description:

Gets the TranslationGroups collection object.

Example:

Sub TranslationGroups_Example()

    Dim oLangMap As
CIMLangMapper.CIMLangMap

    Dim oTranslationGroups As
CIMLangMapper.CIMTranslationGroups

    Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup

    Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap")

    oLangMap.Load
"c:\trans.clm"

    Set oTranslationGroups =
oLangMap.TranslationGroups

    For each oTranslationGroup in
oTranslationGroups

      MsgBox
oTranslationGroup.Key

Next oTranslationGroup

End Sub