Udskrivning Brugerdefinerede egenskaber

Hvis du bruger brugerdefinerede dokumentegenskaber en masse i dine dokumenter, kan du ønsker en måde at udskrive deres værdier. (Brugerdefineret dokumentegenskaber er som variabler til et dokument. De har mange anvendelser i VBA programmering.) Desværre er der ingen kommando eller funktion til at udskrive dem direkte. Du kan dog kopiere egenskaberne til et nyt dokument, og udskriv derefter dokumentet.

Dybest set, alt hvad du behøver at gøre er at oprette et nyt dokument og derefter gå gennem alle de brugerdefinerede egenskaber i den gamle dokument, kopiere deres navne og værdier for det nye dokument. Du kan gøre dette ved at gøre brug af Grev ejendom CustomDocumentProperties indsamling, som vist i det følgende:

Sub PrintDocProps ()
Dim iPropCount As Integer
Dim i As Integer
Dim docSource som dokument
Dim docTarget som dokument

Set docSource = ActiveDocument
Set docTarget = Documents.Add

docTarget.Activate

iPropCount = docSource.CustomDocumentProperties.Count

Selection.TypeText Tekst: = "Der er"
Hvis iPropCount> 0 Derefter
Selection.TypeText Tekst: = iPropCount
Andet
Selection.TypeText Tekst: = "nej"
End hvis
Selection.TypeText Tekst: = "brugerdefinerede egenskaber i dokumentet."
Selection.InsertParagraph
Selection.InsertParagraph

For i = 1 til iPropCount
Selection.TypeText _
Tekst: = docSource.CustomDocumentProperties (i) .name
Selection.TypeText Tekst: = "Værdi:"
Selection.TypeText _
Tekst: = docSource.CustomDocumentProperties (i) .Value
Selection.InsertParagraph
Selection.InsertParagraph
Selection.InsertParagraph
Næste i
End Sub

Mens denne kode vil fungere fint, er det ikke særlig robust. For eksempel er det ikke kontrollere, om der er faktisk nogen brugerdefinerede egenskaber i kildedokumentet; det blot forudsætter, at der er. En sådan kodning let kunne tilføjes, dog.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (529) gælder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til menufaner Word (Word 2007 og nyere) her: Udskrivning på brugerdefineret Egenskaber.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com