Article ID: 162520
Article Last Modified on 1/19/2007
Sub GetAllSettingsExample()
Dim vMySet As Variant
Dim iCount As Integer
' Get registry settings.
vMySet = GetAllSettings(AppName:="MyProjectName", _
Section:="MySection")
' Make sure the variable is not empty.
If Not IsEmpty(vMySet) Then
'Display the Key Names and Values.
For iCount = LBound(vMySet, 1) To UBound(vMySet, 1)
MsgBox vMySet(iCount, 0), vMySet(iCount, 1)
Next
End If
End Sub
Part Description
-----------------------------------------------------------------
appname Required. String expression containing the name of the
application or project whose key settings are requested.
section Required. String expression containing the name of the section
whose key settings are requested. GetAllSettings returns a
Variant whose contents are a two-dimensional array of strings
containing all the key settings in the specified section and
their corresponding values.
For more information about GetAllSettings, click the Office Assistant while
in the Visual Basic Editor, type "GetAllSettings",
click Search, and then click to view GetAllSettings Function.
176476 OFF: Office Assistant Not Answering Visual Basic Questions
173707 OFF97: How to Run Sample Code from Knowledge Base Articles
163435 VBA: Programming Resources for Visual Basic for Applications
Additional query words: wordcon vb vba vbe
Keywords: kbbug kbdtacode kbmacroexample KB162520