Reflection Desktop VBA Guide
Attachmate.Reflection.Objects Library / 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