Vorgegebene Dokumenteigenschften mit Werten füllen
Es werden die Dokumenteigenschaften Titel, Author, und Firma mit Werten gefüllt.
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
Sub DokEigenschaftenSetzen()
Dim strTitel As String
Dim strFirma As String
Dim strAutor As String
'
Dim oDoc As Document
Set oDoc = ActiveDocument
strAutor = "Wordwelt"
strTitel = "Testdokument mit Dokumenteigenschaften"
strFirma = "VBA Wordwelt"
With oDoc
.BuiltInDocumentProperties(wdPropertyTitle) = strTitel
.BuiltInDocumentProperties(wdPropertyAuthor) = strAutor
.BuiltInDocumentProperties(wdPropertyCompany) = strFirma
End With
Set oDoc = Nothing
End Sub
Dim strTitel As String
Dim strFirma As String
Dim strAutor As String
'
Dim oDoc As Document
Set oDoc = ActiveDocument
strAutor = "Wordwelt"
strTitel = "Testdokument mit Dokumenteigenschaften"
strFirma = "VBA Wordwelt"
With oDoc
.BuiltInDocumentProperties(wdPropertyTitle) = strTitel
.BuiltInDocumentProperties(wdPropertyAuthor) = strAutor
.BuiltInDocumentProperties(wdPropertyCompany) = strFirma
End With
Set oDoc = Nothing
End Sub
Es wird im aktuellen Dokument folgende vorgegebenen Dokumentvariablen gefüllt:
- wdPropertyTitle
- wdPropertyAuthor
- wdPropertyCompany
Hier finden Sie eine Auflistung aller Konstanten für die Dokumenteigenschaften mit dem zugehörigen Index, der Bezeichnung im Eigenschaftsfenster und dem Format der Eigenschaft:
| Index | WdBuiltInProperty-Konstante | Bezeichnung der Eigenschaft | Format |
| 1 | wdPrpertyTitle | Titel | Text |
| 2 | wdPrpertySubject | Thema | Text |
| 3 | wdPrpertyAuthor | Autor | Text |
| 4 | wdPrpertyKeywords | Stichwörter | Text |
| 5 | wdPrpertyComments | Kommentare | Text |
| 6 | wdPrpertyTemplate | (Dokument)-Vorlage | Text |
| 7 | wdPrpertyLastAuthor | letzter Autor | Text |
| 8 | wdPrpertyRevision | Versionsnummer | Zahl |
| 9 | wdPrperty AppName | Programmname | Text |
| 10 | wdPrpertyTimeLastPrinted | zuletzt gedruckt am | Datum |
| 11 | wdPrpertyTimeCreated | erstellt am | Datum |
| 12 | wdPrpertyTimeLastSave | zuletzt gespeichert am | Datum |
| 13 | wdPrpertyVBATotalEdit | Gesamtbearbeitungszeit | Zahl |
| 14 | wdPrpertyPages | Anzahl der Seiten | Zahl |
| 15 | wdPrpertyWords | Anzahl der Wörter | Zahl |
| 16 | wdPrpertyCharacters | Anzahl der Zeichen ohne Leerzeichen | Zahl |
| 17 | wdPrpertySecurity | Sicherheit (?) | Zahl |
| 18 | wdPrpertyCategory | Kategorie | Text |
| 19 | wdPrpertyFormat | Präsentationsformat | Text |
| 20 | wdPrpertyManager | Manager | Text |
| 21 | wdPrpertyCompany | Firma | Text |
| 22 | wdPrpertyBytes | Anzahl der Bytes | Zahl |
| 23 | wdPrpertyLines | Anzahl der Zeilen | Zahl |
| 24 | wdPrpertyParas | Anzahl der Absätze | Zahl |
| 25 | wdPrpertySlides | Anzahl der Folien | Zahl |
| 26 | wdPrpertyNnotes | Anzahl Notizen | Zahl |
| 27 | wdPrpertyHiddenSlides | Anzahl der ausgeblendeten Folien | Zahl |
| 28 | wdPrperty MMclips | Anzahl der Multimediaclips | Zahl |
| 29 | wdPrpertyHyperlinkBase | Hyperlinkbasis | Text |
| 30 | wdPrpertyCharsWSpaces | Anzahl Wörter mit Leerzeichen | Zahl |
|
|
|
|
|
|
||||||
 |
|
|
|
|
|
Für weitere Infos bitte auf den Text klicken
