jmd. fragte in einem anderen Forum an wie man die Statistik in Worddokument-Eigenschaften manipulieren kann.
Bei der Recherche stiess ich auf
http://mypage.bluewin.ch/reprobst/WordFAQ/DokEigen.htm#DokEigen09
wo ich herauslese dass man auch Datei-Eigenschaften von anderen Officeprogrammen, also auch Excel, anpassen kann.
Leider gelingt mir dies nicht. Ich habe die dort beschriebene dsofile.dll unter Verweise im VB-Editor eingebunden.
Allerdings interessiert mein Word (noch nicht bie Excel getestet) diese Einbindung überhaupt nicht, der Debugger bemängelt alles bei:
Sub BenutzerdefinierteEigenschaftVeraendern()
Datei = "C:\Eigene Dateien\Test.doc" 'Bitte gültiges Office-Dokument angeben
Dim oFilePropReader As DSOleFile.PropertyReader
Dim cProp As DSOleFile.DocumentProperties
Set oFilePropReader = New DSOleFile.PropertyReader
Set cProp = oFilePropReader.GetDocumentProperties(Datei)
cProp.CustomProperties.Item("Vertretung") = "Frankreich"
Set oFilePropReader = Nothing
Set cProp = Nothing
End Sub
D.h. der Debugger kennt keinen Variablentyp DSOleFile.PropertyReader usw.
Jetzt ist mir unklar, läuft das nur unter .NET wie von MS angedeutet? Oder fehlen mir mit Word-VBA noch einige Verweise?
Welche Verweise brauche ich dann in Excel-Vba?
Weil bei MS steht nix von Vba aber was von .Net, aber auf der o.g. Wordseite steht eindeutig:
Microsoft stellt für das erwähnte Vorhaben die Programmbibliothek dsofile.dll zur Verfügung, welche sich einfach in das VBA-Umfeld einbinden lässt und es ermöglicht, Dateieigenschaften von Office-Dokumenten auf effiziente Art auszulesen, anzupassen oder zu erstellen.
Danke ^ Gruß
Reinhard