Word Document Properties

Part III: Expanding Your VBA Horizons 
16_046500 ch10.qxp 12/5/06 5:36 PM Page 232

---

Listing 10-1
Using a Dictionary Object
Public Sub WriteDictionary()
‘ Create a variable to hold the data.
Dim DataString As Variant
‘ Create the dictionary for user settings.
Dim UserSetting As Dictionary
Set UserSetting = New Dictionary
UserSetting.Add “Greeting”, “Hello”
UserSetting.Add “Language”, “English”
‘ Create the dictionary for application configuration.
Dim AppConfig As Dictionary
Set AppConfig = New Dictionary
AppConfig.Add “ShowHelpMenu”, “True”
AppConfig.Add “AllowChanges”, “True”
‘ Create the configuration file.
Dim TheConfig As TextStream
OpenWriteConfig “DictionaryDemo”, “Data.INI”,
TheConfig
‘ Write the UserSetting Dictionary.
TheConfig.WriteLine “[UserSetting]”
For Each DataString In UserSetting
TheConfig.Write DataString
TheConfig.Write “=”
TheConfig.WriteLine UserSetting.Item(DataString)
Next
‘Write the AppConfig Dictionary.
TheConfig.WriteLine “[AppConfig]”
For Each DataString In AppConfig
TheConfig.Write DataString
TheConfig.Write “=”
TheConfig.WriteLine AppConfig.Item(DataString)
Next
‘ Close the configuration file.
TheConfig.Close
End Sub
The code begins by creating two 
Dictionary
objects — one for each section
of the INI file. It fills these objects with data for the example. In your program,
you fill the 
Dictionary
objects with your program settings or other data.
The code calls the 
OpenWriteConfig
sub-procedure next. This special func-
tion that I wrote looks almost exactly the same as the beginning code in the
earlier “Writing to the file” section. When this call returns, 
TheConfig
points
to a 
TextStream
that the code can use for writing.
233