ISDictionaryEntry.AbbrSingleTransl

Description

The singular form of the abbreviation of the translated word from the dictionary entry.

Syntax

object.AbbrSingleTransl

Part	Attribute	Type	Description
`object`	Required	ISDictionaryEntry	The `object` always implements the ISDictionaryEntry interface

Restriction: This property is readonly.

Return Value

string

Example

Display the name of the dictionary and the short information about its entries, including the singular forms of the abbreviations of the translated words.

Dim aDictionary
Dim aAllEntries, aEntry
Dim aDictInfo
Dim i  

Set aDictionary = Profile.GetDictionary("Legal")
set aAllEntries = aDictionary.AllEntries  

aDictInfo = _
  "Dictionary name: " & aDictionary.Name & vbNewLine & _  
  "Entry Count: " & aAllEntries.Count & vbNewLine & vbNewLine & _ 
  "Transl.Sing.     Transl.Plur.    Abbr.Transl.Sing.    Abbr.Transl.Plur."  

for i = 0 to aAllEntries.Count - 1
  set aEntry =  aAllEntries.Item(i) 
  aDictInfo = aDictInfo & vbNewLine &_
    aEntry.SingleTransl & "                " &_
    aEntry.PluralTransl & "            " & aEntry.AbbrSingleTransl &_
    "                        " & aEntry.AbbrPluralTransl          
next

Profile.MsgBox(aDictInfo)

Note:

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

Version information

Added in v7.8.0