ISDictionary.Translate

Description

This function translates the specified text to the dictionary lexicon.

Syntax

object.Translate(Text)

Part	Attribute	Type	Description
`object`	Required	ISDictionary	The `object` always implements the ISDictionary interface
`Text`	In, Required	string	The specified text for translation

Return Value

string

Returns the translation of the specified text to the dictionary lexicon.

Example

Display the name of the dictionary and the translation of the specified text to the dictionary lexicon.

Dim aDictionary
Dim aAllEntries, aEntry
Dim aDictInfo
Dim i
 
Set aDictionary = Profile.GetDictionary("Legal")
set aAllEntries = aDictionary.AllEntries  

aDictInfo = _
  "Dictionary name: " & aDictionary.Name & vbNewLine & vbNewLine &_  
  "Before translation   After translation"
  
for i = 0 to aAllEntries.Count - 1
  set aEntry =  aAllEntries.Item(i) 
  aDictInfo = aDictInfo & vbNewLine & aEntry.SingleMain &_
    "                      " & aDictionary.Translate(aEntry.SingleMain)         
next

Profile.MsgBox(aDictInfo)

Note:

In Profile Client v8 on User Interface the dictionary can be found in Maintain > Lexicon.

Version information

Added in v7.8.0