SaveAsDefault Example
Sub Example_SaveAsDefault()
' This example sets the TextHeight setting to 0.25
' and saves it as the default.
Dim dbPref As AeccDatabasePreferences
Set dbPref = AeccApplication.ActiveDocument.preferences
dbPref.TextHeight = 0.25
dbPref.SaveAsDefault
MsgBox "The new default value for TextHeight is: " & dbPref.TextHeight, _
vbInformation, "SaveAsDefault Example"
End Sub