Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte Word a stlačte " Alt - F11 " zadať Visual Basic integrované vývojové prostredie ( IDE ) . 
 2 
 Kliknite " Vložiť " menu hlavičky, kliknite na tlačidlo " modul " pridať nový modul , v ktorom sa vstúpiť programový kód pre vytvorenie novej vlastnosti . 
 3 
 Zadajte nasledujúci kód do nového okno modulu : 
 
 Public Sub AddProperty ( ) 
 
 ActiveDocument.CustomDocumentProperties.Add _ 
 
 Name : = " newproperty " , LinkToContent : = False , Value : = " SomeValue " , _ 
 
 Type : = msoPropertyTypeString 
 
 End Sub 
 
 Tento programový kód volá metódu " Pridať " zhromažďovanie existujúcich vlastností dokumentu pridať novú vlastnosť , " newproperty , " k tejto kolekcii . 
 4 
 Kliknite na ľubovoľné miesto vnútri AddProperty podprogram , potom stlačte " F5 " pre spustenie programu . 
 5 
 Stlačte tlačidlo " Alt - F11 " na návrat do aplikácie Word . Kliknite na tlačidlo Microsoft Office v ľavom hornom rohu obrazovky , umiestnite kurzor myši nad " Pripravte sa . " 
 6 
 Kliknite na tlačidlo " Vlastnosti " kliknite na kartu " Vlastné " , zobrazí sa zoznam vlastných vlastnosti dokumentu . " Properties " panel zobrazuje " newproperty " majetok a jeho pridružené hodnoty , " SomeValue " , ktorý ste pridali v kroku 3 a 4. 
 Vyzvať užívateľa na zadanie mena objektu 
 
 7 
 Stlačte tlačidlo " Alt - F8 " sa zobrazí zoznam makier ( tj programy VBA ) . Kliknite na " AddProperty " položku, kliknite na tlačidlo " Upraviť " . Táto akcia vás vráti do podprogramu , ktorý pridáva vlastné majetok . 
 8 
 Vyberte príkazy medzi " Public Sub " a " End Sub " vyhlásenie , potom stlačte tlačidlo " Delete " na ich odstránenie . 
 
 9 
 Zadajte nasledujúce nové príkazy v medzi " Public Sub " a " End Sub " vyhlásenie : 
 
 dim propertyName , propertyvalue ako reťazec 
 
 propertyName = InputBox ( " prosím , zadajte názov pre novú vlastnosť . " ) 
 
 PropertyValue = InputBox ( " Zadajte hodnotu pre novú vlastnosť . " ) 
 
 ActiveDocument.CustomDocumentProperties.Add _ 
 
 Name : = PropertyName , LinkToContent : = False , _ 
 
 Hodnota : = PropertyValue , Type : = msoPropertyTypeString 
 
 Tieto výkazy vyzve užívateľa na zadanie nového majetku a jeho hodnoty , potom vytvorte nový majetok od vstupu užívateľa . 
 10 
 tlačidlo " Alt - F8 " sa vrátite do dokumentu programu Word , kliknite na tlačidlo " Alt - F8 " sa zobrazí zoznam VBA podprogramov . 
 11 
 Double - kliknite na " AddProperty " položku , ktorú chcete spustiť svoje revidované podprogram , ktorý vás vyzve na zadanie názvu a hodnoty novej nehnuteľnosti dokumente . Zadajte ľubovoľný text na oboch položiek . 
 12 
 Overte vytvorenie nového majetku , pri pohľade na ňu v okne Vlastnosti dokumentu , rovnako ako v bode 1 , krok 6.