Jos et halua käyttää API-toimintoja, voit käyttää Words-objektikirjastoa yksityisten profiilijonojen lukemiseen ja kirjoittamiseen.
Words System.PrivateProfileString voi lukea ja kirjoittaa sekä INI-tiedostoista että rekisteristä.
Muissa sovelluksissa kuin Wordissa sinun on lisättävä viittaus Words -objektikirjastoon.
Voit lisätä viitteen avaamalla Visual Basic Editorin (VBE) ja aktivoida VB -projektisi. Valitse sitten Työkalut, viitteet… ja valitse vaihtoehto Microsoft Word x.x Object Library.
Kirjoita tiedot INI-tiedostoihin
Alla olevan makron avulla voit tallentaa tiedot tekstitiedostoon:
Funktio SetIniSetting (tiedostonimi nimellä merkkijono, jakso merkkijonona, _ avain merkkijonona, avainarvo) Boolen Dim wd kuten Word.Application SetIniSetting = False Set wd = New Word.Application 'luo Word -sovellusobjektin On Error Resume Next wd.System. PrivateProfileString (tiedostonimi, osio, avain) = CStr (KeyValue) On Error GoTo 0 Set wd = Nothing 'tuhoa Word -sovellusobjekti SetIniSetting = True End Function
Tallenna tämän makron avulla arvo 100 tiedostoon C: \ FolderName \ FileName.ini osiossa
MySectionName avaimelle TestValue:
MyBooleanVar = SetIniSetting ("C: \ FolderName \ FileName.ini", "MySectionName", "TestValue", 100)
Tekstitiedosto näyttää tältä:
[MySectionName]
Testiarvo = 100
Lue tiedot INI-tiedostoista
Alla olevan makron avulla voit lukea tietoja tekstitiedostosta:
Funktio GetIniSetting (tiedostonimi nimellä merkkijono, jakso merkkijonona, _ avain merkkijonona) merkkijonona himmeä wd kuin Word.Application GetIniSetting = "" Set wd = New Word.Application "luo Word -sovellusobjekti Virhe Jatka seuraavaksi GetIniSetting = wd.System .PrivateProfileString (tiedostonimi, osio, avain) On Error GoTo 0 Set wd = Nothing 'tuhoa Word -sovellusobjekti End Function
Käytä tätä makroa palauttaaksesi TestValue -avaimen arvon osassa MySectionName
tiedostosta C: \ FolderName \ FileName.ini:
MyStringVar = GetIniSetting ("C: \ FolderName \ FileName.ini", _ "MySectionName", "TestValue")
Kirjoita tiedot rekisteriin
Alla olevan makron avulla voit tallentaa tiedot rekisteriin:
Funktio SetRegistrySetting (jakso merkkijonona, _ avain merkkijonona, avainarvo) Boolen Dim wd: nä Word.Application SetRegistrySetting = False Set wd = New Word.Application 'luo Word -sovellusobjekti Virheessä Jatka seuraava wd.System.PrivateProfileString ("" , Section, Key) = CStr (KeyValue) On Error GoTo 0 Set wd = Nothing 'tuhoa Word -sovellusobjekti SetRegistrySetting = True End Function
Käytä tätä makroa tallentaaksesi uuden arvon HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft
Excel for the DefaultPath:
MyStringVar = "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft Excel" MyBooleanVar = SetRegistrySetting (MyStringVar, _ "DefaultPath", "C: \ FolderName")
Tietojen lukeminen rekisteristä Alla olevan makron avulla voit lukea rekisterin tiedot:
Funktio GetRegistrySetting (jakso merkkijonona, avain merkkijonona) merkkijonona himmeä wd kuin Word.Application GetRegistrySetting = "" Set wd = New Word.Application "luo Word -sovellusobjekti Virhe Jatka seuraavaan GetRegistrySetting = wd.System.PrivateProfileString (" " , Jakso, avain) On Error GoTo 0 Set wd = Nothing 'tuhoaa Word -sovellusobjektin End Function
Käytä tätä makroa lukemaan arvo DefaultPath -avaimesta
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")