ISDictionary.IsDefault

Description

Returns True if the dictionary is default for the practice.

Syntax

object.IsDefault

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsDefault for the practice.

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 &_ 
  "#  Main Sing.    Main Plur.    Abbr. Sing.    Abbr. Plur."  

for i = 0 to aAllEntries.Count - 1
  set aEntry =  aAllEntries.Item(i) 
  aDictInfo = aDictInfo & vbNewLine & (i + 1) & ") " &_
    aEntry.SingleMain & "           " & aEntry.PluralMain & "        " &_
    aEntry.AbbrSingleMain & "                 " & aEntry.AbbrPluralMain         
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