Eigenschaften per LS lesen und ändern

[Matthias22]

Hallo,

ich habe eine Anwendung wo Notesdaten ins Worddokument per Textmarken eingetragen werden, dies funktioniert sehr gut.
Dabei werden u.a. auch die Eigenschaften des Worddokumentes ausgelesen:


...
'Worddokument
Set application = GetObject(FilePath, "Word.Document")
application.Application.Visible = True
Set ActiveDocument = application
application.Application.Visible = False
...
'Auslesen der Eigenschaften
For i = 1 To sPropCount
   sProp = ActiveDocument.CustomDocumentProperties(i).Name
   Select Case sProp
      ....
   End Select
Next
...

Nun zu meiner Frage,
können diese bestehenden Eigenschaften des Worddokumentes auch per LotusScript geändert werden
bzw. können auch neue Eigenschaften eingetragen werden!


Vielen Dank für Eure Antworten!

Gruß
Matthias

[ata]

... Google dich mal durch - bei Microsoft kannst du erfahren, welche Eigenschaften gesetzt und welche nur gelesen werden...

Toni

*** edit ***

hier der Link zu => Microsoft

[ata]

.... und hier noch ein Link zum modifizieren => Microsoft

Toni

[Matthias22]

Hallo Toni,

vielen Dank für Deine schnellen Antworten, die mich auf die richtige Spur gebracht haben.

Hier noch die Lösung für meinen Fall:
...
ActiveDocument.CustomDocumentProperties(i).Value = "neuer Inhalt"
...

Gruß
Matthias

[Matthias22]

noch eine Ergänzung,
für neue Eigenschaft vom Typ Text

...
ActiveDocument.CustomDocumentProperties.Add "NeueEigenschaft",False,"4", "neuer Inhalt"
...

Gruß
Matthias