Hvordan legge en eiendom til et Word-dokument i VBA
Hver Microsoft Word-dokument inneholder mer informasjon enn hva en bruker eksplisitt typer eller limer inn i den. Den ekstra informasjonen vises i dokumentets egenskaper, som er et sett med felt som angir dokumentets produksjon og modifikasjon datoer, tittel, brukerkommentarer og administrative data. Word-brukere kan legge til nye dokumentegenskaper med Word standardmenyer. Eller kan de bruke Word skriptspråk, Visual Basic for Applications (VBA). Bruke VBA å legge en eiendom som gjør det mulig å automatisk legge data relatert til dokumentets innhold. For eksempel kan VBA-kode destillere dokumentets innhold i en liste over tag ord, å gjøre å finne dokumentet senere lettere.
Bruksanvisning
Legg til en ny eiendom
1 Åpne Word og trykk "Alt-F11" for å gå inn i Visual Basic integrert utviklingsmiljø (IDE).
2 Klikk på "Insert" -menyen overskriften, klikk på "Module" for å legge til en ny modul som å gå inn i programkoden for å lage en ny eiendom.
3 Skriv inn følgende kode i den nye modulen vindu:
Public Sub AddProperty ()
ActiveDocument.CustomDocumentProperties.Add _
Navn: = "newproperty", LinkToContent: = False, Verdi: = "SomeValue", _
Type: = msoPropertyTypeString
End Sub
Dette programkode kaller "Legg til" metode for innsamling av eksisterende dokumentegenskaper for å legge til en ny eiendom, "newproperty," til den samlingen.
4 Klikk hvor som helst inne i AddProperty subrutine, og trykk "F5" for å kjøre programmet.
5 Trykk "Alt-F11" for å gå tilbake til Word. Klikk Microsoft Office-knappen øverst til venstre på skjermen, og deretter plassere musen over "Forbered".
6 Klikk på "Properties", velg deretter "Custom" -kategorien for å vise listen over egendefinerte egenskaper for dokumentet. Den "Properties" -panelet viser "newproperty" eiendom og tilhørende verdi, "SomeValue", som du har lagt i trinn 3 og 4.
Spør brukeren om en eiendom navn
7 Trykk "Alt-F8" for å vise en liste over makroer (dvs. VBA programmer). Klikk på "AddProperty" element, og klikk "Rediger" -knappen. Denne handlingen tar deg tilbake til subrutine som legger til egendefinerte egenskapen.
8 Velg uttalelsene mellom "Public Sub" og "End Sub" uttalelser, og trykk "Delete" for å slette dem.
9 Skriv inn følgende nye opplysninger i mellom "Public Sub" og "End Sub" uttalelser:
dim PROPERTY, PropertyValue som streng
PROPERTY = InputBox ( "Skriv inn navnet på en ny eiendom.")
PropertyValue = InputBox ( "Angi en verdi for den nye eiendommen.")
ActiveDocument.CustomDocumentProperties.Add _
Navn: = PROPERTY, LinkToContent: = False, _
Verdi: = PropertyValue, Type: = msoPropertyTypeString
Disse uttalelsene spør brukeren om en ny eiendom og dens verdi, og deretter opprette den nye eiendommen fra brukerens input.
10 Trykk "Alt-F8" for å gå tilbake til Word-dokumentet, og trykk deretter "Alt-F8" for å vise listen over VBA subrutiner.
11 Dobbeltklikk på "AddProperty" element for å kjøre revidert subrutine, som vil be deg om navn og verdien av et nytt dokument eiendom. Skriv inn en tekst for begge elementene.
12 Kontroller etableringen av den nye egenskapen ved å se etter den i dokumentegenskaper vinduet, som du gjorde i punkt 1, trinn 6.