InfoConnect VBA Guide
Attachmate.Reflection.Objects.Productivity Library / AutoExpand Object / AddEntry Method
The entry to add, which is an abbreviation.
The definition for the new dictionary entry, which is an expansion.
Example
In This Topic
    AddEntry Method
    In This Topic
    Adds a key-value pair to the Auto Expand dictionary.
    Syntax
    expression.AddEntry( _
   ByVal abbreviation As String, _
   ByVal expansion As String _
)
    where expression is a variable that represents a AutoExpand Object

    Parameters

    abbreviation
    The entry to add, which is an abbreviation.
    expansion
    The definition for the new dictionary entry, which is an expansion.
    Remarks
    If the entry already exists, then the current entry is updated.
    Example
    This example adds a definition to the Auto Expand tool.
    Sub AddEntryToAutoExpand()
    Dim auto As AutoExpand
    
    'Get the autoExpand object
    Set auto = ThisIbmTerminal.Productivity.AutoExpand
    
    If auto.ContainsEntry("hcdt") = False Then
    
        'Add an Auto Expand definition entry
        auto.AddEntry "hcdt", "Hydrochlorothiazide"
        
    End If
    
End Sub
    See Also

    Reference

    AutoExpand Object
    AutoExpand Members

    Send Feedback