Gets the CIMTranslations collection. | |
Syntax: | Set object = object.Translations |
Description: | Gets the CIMTranslations collection. Example: Sub Translations_Example() Dim oLangMap As
CIMLangMapper.CIMLangMap Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup Dim oTranslation As
CIMLangMapper.CIMTranslation Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap") oLangMap.Load
"c:\trans.clm" Set oTranslationGroup =
oLangMap.LookupTranslationGroup("Wheel bearing") if Not oTranslationGroup Is Nothing
Then For Each oTranslation In
oTranslationGroup.Translations MsgBox
oTranslation.Value Next
oTranslation End If End Sub |