DevTrain - Word-Dokument-Eigenschaften (BuildInDocumentProperties)

Jedes Word-Dokument hat individuelle Eigenschaften, die "BuildInDocumentProperties". Zu finden sind Sie in Word im Menu Datei/Eigenschaften. Diese Dokument-Eigenschaften können mit ASP ausgelesen und gesetzt werden.

Ausgeben aller Dokument-Eigenschaften eines Word-Dokuments.

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Pfad = Server.MapPath("./")
'--- Fehlerbehandlung einschalten.
on error resume next
'--- Word instanziieren
Set oWord = Server.CreateObject("Word.Application")
'--- Gewünschtes Word-Dokument öffnen.
Set oDoc = oWord.Documents.Open(Pfad & "/RechnungNeu.doc")
'--- Ausgeben aller Dokument-Eigenschaften
For i = 1 To 30
    Response.Write i & " : "
'--- Name der Eigenschaft ausgeben
    Response.Write oDoc.BuiltInDocumentProperties(i).Name & " : "
'--- Wert der Eigenschaft ausgeben
    Response.Write oDoc.BuiltInDocumentProperties(i).Value
    Response.Write "<br>"
Next
'--- Dokument schliessen, Word beenden
oDoc.Close False
oWord.Quit
set oDoc = nothing
set oWord = nothing
'--- Fehlerbehandlung ausschalten
on error goto 0
%>
</BODY>
</HTML>

Diese Eigenschaften können jetzt auch gesetzt werden. Dazu gibt es zwei Möglichkeiten:
1. über den Index...

oDoc.BuiltInDocumentProperties(1).Value = "Das ist der Title"
Der Index 1 entspricht also der Eigenschaft "Title"

2. über den Namen...

oDoc.BuiltInDocumentProperties("Title").Value = "Das ist der Title"