Private Profile Strings using Words System.PrivateProfileString
2000-04-07 VBA programming 0 183
If you don't want to use API-functions you can use Words object library to read and write Private Profile Strings. Using the Word applications System.PrivateProfileString can read from and write to both INI-files and the Registry. In other applications than Word you have to add a reference to Words object library. You can add the reference by opening the Visual Basic Editor (VBE) and activate your VB Project. Then you select Tools, References... and check the option Microsoft Word x.x Object Library.
Write information to INI-files
With the macro below you can save information in a text file:Function SetIniSetting(FileName As String, Section As String, Key As String, KeyValue) As Boolean Dim wd As Word.Application SetIniSetting = False Set wd = New Word.Application ' create the Word application object On Error Resume Next wd.System.PrivateProfileString(FileName, Section, Key) = CStr(KeyValue) On Error GoTo 0 wd.Quit Set wd = Nothing ' destroy the Word application object SetIniSetting = True End FunctionUse the macro like this to save the value 100 in the file C:\FolderName\FileName.ini in the section MySectionName for the key TestValue:
MyBooleanVar = SetIniSetting("C:\FolderName\FileName.ini", "MySectionName", "TestValue", 100)The text file will look like this:
[MySectionName] TestValue=100
Read information from INI-files
With the macro below you can read information from a text file:Function GetIniSetting(FileName As String, Section As String, Key As String) As String Dim wd As Word.Application GetIniSetting = vbNullString Set wd = New Word.Application ' create the Word application object On Error Resume Next GetIniSetting = wd.System.PrivateProfileString(FileName, Section, Key) On Error GoTo 0 wd.Quit Set wd = Nothing ' destroy the Word application object End FunctionUse the macro like this to return the value for the key TestValue in the section MySectionName from the file C:\FolderName\FileName.ini:
MyStringVar = GetIniSetting("C:\FolderName\FileName.ini", "MySectionName", "TestValue")
Write information to the Registry
With the macro below you can save information in the Registry:Function SetRegistrySetting(Section As String, Key As String, KeyValue) As Boolean Dim wd As Word.Application SetRegistrySetting = False Set wd = New Word.Application ' create the Word application object On Error Resume Next wd.System.PrivateProfileString("", Section, Key) = CStr(KeyValue) On Error GoTo 0 wd.Quit Set wd = Nothing ' destroy the Word application object SetRegistrySetting = True End FunctionUse the macro like this to save a new value in HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel for the key DefaultPath:
MyStringVar = "HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel" MyBooleanVar = SetRegistrySetting(MyStringVar, "DefaultPath", "C:\FolderName")
Read information from the Registry
With the macro below you can read information from the Registry:Function GetRegistrySetting(Section As String, Key As String) As String Dim wd As Word.Application GetRegistrySetting = vbNullString Set wd = New Word.Application ' create the Word application object On Error Resume Next GetRegistrySetting = wd.System.PrivateProfileString("", Section, Key) On Error GoTo 0 wd.Quit Set wd = Nothing ' destroy the Word application object End FunctionUse the macro like this to read the value from the key DefaultPath from HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel:
MyStringVar = "HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel" MyStringVar = SetRegistrySetting(MyStringVar, "DefaultPath")