Ako ne želite koristiti API-funkcije, možete koristiti biblioteku objekata Words za čitanje i pisanje nizova privatnog profila.
Riječi System.PrivateProfileString mogu čitati i pisati u INI datoteke i Registar i pisati u njih.
U drugim aplikacijama osim Worda morate dodati referencu na biblioteku objekata Words.
Referencu možete dodati otvaranjem Visual Basic Editor -a (VBE) i aktiviranjem vašeg VB projekta. Zatim odaberete Alati, Reference … i potvrdite opciju Knjižnica objekata Microsoft Word x.x.
Zapišite podatke u INI-datoteke
Pomoću donje makronaredbe možete spremiti podatke u tekstualnu datoteku:
Funkcija SetIniSetting (Ime datoteke kao niz, odjeljak kao niz, _ ključ kao niz, ključna vrijednost) Kao logičko zatamnjenje wd kao Word.Application SetIniSetting = False Set wd = New Word.Application 'stvorite objekt aplikacije Word na Error Resume Next wd.System. PrivateProfileString (Ime datoteke, odjeljak, ključ) = CStr (Ključna vrijednost) On Error GoTo 0 Set wd = Nothing 'uništiti objekt aplikacije Word SetIniSetting = True End Funkcija
Pomoću ovog makronaredbe spremite vrijednost 100 u datoteku C: \ Ime mape \ Ime datoteke.ini u odjeljak
MySectionName za ključ TestValue:
MyBooleanVar = SetIniSetting ("C: \ Ime mape \ Ime datoteke.ini", "ImeSjekacije", "TestValue", 100)
Tekstualna datoteka će izgledati ovako:
[MySectionName]
TestValue = 100
Pročitajte informacije iz INI-datoteka
Pomoću donje makronaredbe možete pročitati podatke iz tekstualne datoteke:
Funkcija GetIniSetting (Ime datoteke kao niz, odjeljak kao niz, _ ključ kao niz) Kao niz Dim dim wd Kao Word.Application GetIniSetting = "" Postavi wd = Nova Word.Application 'kreirajte objekt aplikacije Word Pogreška Nastavi Sljedeći GetIniSetting = wd.System .PrivateProfileString (Ime datoteke, odjeljak, ključ) On Error GoTo 0 Set wd = Nothing 'uništi objekt aplikacije Word Kraj funkcija
Pomoću ovog makronaredbe vratite vrijednost ključa TestValue u odjeljku MySectionName
iz datoteke C: \ Ime mape \ Ime datoteke.ini:
MyStringVar = GetIniSetting ("C: \ Ime mape \ Ime datoteke.ini", _ "ImeSjekcije", "TestValue")
Zapišite podatke u Registar
Pomoću dolje navedene makronaredbe možete spremiti podatke u Registar:
Funkcija SetRegistrySetting (Odjeljak kao niz, _ ključ kao niz, ključna vrijednost) Kao logičko zatamnjenje wd Kao Word.Application SetRegistrySetting = Netačan skup wd = Nova Word.Application 'kreirajte objekt aplikacije Word na Pogreška Nastavi Sljedeći wd.System.PrivateProfileString ("" , Odjeljak, ključ) = CStr (KeyValue) On Error GoTo 0 Set wd = Nothing 'uništiti objekt aplikacije Word SetRegistrySetting = True End Funkcija
Pomoću ovog makronaredbe spremite novu vrijednost u HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft
Excel za ključ DefaultPath:
MyStringVar = "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft Excel" MyBooleanVar = SetRegistrySetting (MyStringVar, _ "DefaultPath", "C: \ Ime mape")
Čitanje podataka iz registra Pomoću dolje navedene makronaredbe možete pročitati podatke iz registra:
Funkcija GetRegistrySetting (Odjeljak kao niz, ključ kao niz) Kao niz Zatamni wd Kao Word.Application GetRegistrySetting = "" Postavi wd = Novi Word.Application 'stvori objekt aplikacije Word Pogreška Nastavi Sljedeće GetRegistrySetting = wd.System.PrivateProfileString ("" , Odjeljak, Ključ) On Error GoTo 0 Set wd = Nothing 'uništiti Word aplikaciju Objekt End Funkcija
Koristite ovakvu makronaredbu za čitanje vrijednosti s ključa DefaultPath
iz 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")