Ако не желите да користите АПИ-функције, можете користити библиотеку објеката Вордс за читање и писање низова приватног профила.
Вордс Систем.ПриватеПрофилеСтринг може читати и писати у ИНИ датотеке и Регистар и писати у њих.
У другим апликацијама осим Ворда морате додати референцу у библиотеку објеката Вордс.
Референцу можете додати отварањем Висуал Басиц Едитор -а (ВБЕ) и активирањем вашег ВБ пројекта. Затим изаберете Алатке, Референце … и означите опцију Мицрософт Ворд к.к Објецт Либрари.
Запишите информације у ИНИ-датотеке
Помоћу макроа испод можете сачувати информације у текстуалној датотеци:
Функција СетИниСеттинг (Име датотеке као низ, одељак као низ, _ кључ као низ, кључна вредност) Као логичко затамњење вд као Ворд.Апплицатион СетИниСеттинг = Фалсе Сет вд = Нев Ворд.Апплицатион 'креирајте објект апликације Ворд на Еррор Ресуме Нект вд.Систем. ПриватеПрофилеСтринг (Име датотеке, одељак, кључ) = ЦСтр (КеиВалуе) Он Еррор ГоТо 0 Сет вд = Нотхинг 'уништава објект апликације Ворд СетИниСеттинг = Труе Енд функција
Користите овакав макро да бисте сачували вредност 100 у датотеци Ц: \ Име фасцикле \ Име датотеке.ини у одељку
МиСецтионНаме за кључ ТестВалуе:
МиБоолеанВар = СетИниСеттинг ("Ц: \ Име фасцикле \ Име датотеке.ини", "ИмеСјекције", "ТестВалуе", 100)
Текстуална датотека ће изгледати овако:
[МиСецтионНаме]
ТестВалуе = 100
Прочитајте информације из ИНИ-датотека
Помоћу макроа испод можете прочитати информације из текстуалне датотеке:
Функција ГетИниСеттинг (Име датотеке као низ, одељак као низ, _ кључ као низ) Као низ Затамњивање вд Као Ворд.Апплицатион ГетИниСеттинг = "" Постави вд = Нова Ворд.Апплицатион 'креирај објекат апликације Ворд на грешци Настави даље ГетИниСеттинг = вд.Систем .ПриватеПрофилеСтринг (Име датотеке, одељак, кључ) Он Еррор ГоТо 0 Сет вд = Нотхинг 'уништи Ворд апликацију Објекат Крај Функција
Користите овај макро за враћање вредности кључа ТестВалуе у одељку МиСецтионНаме
из датотеке Ц: \ Име фасцикле \ Име датотеке.ини:
МиСтрингВар = ГетИниСеттинг ("Ц: \ Име фасцикле \ Име датотеке.ини", _ "ИмеСјекције", "ТестВалуе")
Упишите податке у Регистар
Помоћу макроа испод можете сачувати податке у регистру:
Функција СетРегистриСеттинг (Одсек као низ, _ кључ као низ, кључна вредност) Као логичко затамњење вд Као Ворд.Апплицатион СетРегистриСеттинг = Нетачно Сет вд = Нова Ворд.Апплицатион 'креирајте Ворд апликацију објекта Настави грешку Следећи вд.Систем.ПриватеПрофилеСтринг ("" , Одељак, кључ) = ЦСтр (КеиВалуе) Он Еррор ГоТо 0 Сет вд = Нотхинг 'уништи објект апликације Ворд СетРегистриСеттинг = Труе Енд функција
Користите овакав макро да бисте сачували нову вредност у ХКЕИ_ЦУРРЕНТ_УСЕР \ Софтваре \ Мицрософт \ Оффице \ 8.0 \ Екцел \ Мицрософт
Екцел за кључ ДефаултПатх:
МиСтрингВар = "ХКЕИ_ЦУРРЕНТ_УСЕР \ Софтваре \ Мицрософт \ Оффице \ 8.0 \ Екцел \ Мицрософт Екцел" МиБоолеанВар = СетРегистриСеттинг (МиСтрингВар, _ "ДефаултПатх", "Ц: \ Име фасцикле")
Читање информација из регистра Помоћу макроа испод можете прочитати податке из регистра:
Функција ГетРегистриСеттинг (Одељак као низ, кључ као низ) Као низ Затамни вд Као Ворд.Апплицатион ГетРегистриСеттинг = "" Постави вд = Нова Ворд.Апплицатион 'створи објект апликације Ворд на грешци Настави даље ГетРегистриСеттинг = вд.Систем.ПриватеПрофилеСтринг ("" , Одељак, кључ) Он Еррор ГоТо 0 Сет вд = Нотхинг 'уништи Ворд апликацију Објекат Енд Функција
Користите овај макро за читање вредности са кључа ДефаултПатх
из ХКЕИ_ЦУРРЕНТ_УСЕР \ Софтваре \ Мицрософт \ Оффице \ 8.0 \ Екцел \ Мицрософт Екцел:
МиСтрингВар = "ХКЕИ_ЦУРРЕНТ_УСЕР \ Софтваре \ Мицрософт \ Оффице \ 8.0 \ Екцел \ Мицрософт Екцел" МиСтрингВар = СетРегистриСеттинг (МиСтрингВар, _ "ДефаултПатх")