You are here : Start Office (VBA) Dokumenteneigenschaft von Office Produkten auslesen

Dokumenteneigenschaft von Office Produkten auslesen

Dokumenteneigenschaft von Word, Excel oder Powerpoint Produkten auslesen.

Diese Bsp. ist für Powerpoint augelegt. Einfach die auskommentierte Befehlzeile austauschen uns schon arbeitet es auch für Word bzw. Excel

Sub DokumenteneigenschaftAuslesen()
Dim i%
Dim s$
On Error Resume Next
'Einige Eigenschaten liefern einen Laufzeitfehler -2147467259
'Winword
'With ActiveWorkbook
'Wxcel
'With ActiveDocument

With ActivePresentation

For i = 1 To .BuiltInDocumentProperties.Count

s = .BuiltInDocumentProperties(i).Name & " : "

s = s & .BuiltInDocumentProperties(i).Value

Debug.Print s

Next

End With
End Subxxx
Ergebnisausgabe im Direktbereich
Title : Excel Grundlagen
Subject :
Author : Michael Hölldobler
Keywords :
Comments :
Template : X:\Templates\NeueVorlage.pot
Last author : Michael Hölldobler
Revision number : 37
Application name : Microsoft PowerPoint
Last print date : 31.07.2002 12:51:14
Creation date : 20.01.2005 16:20:21
Last save time : 30.11.2008 12:39:55
Total editing time : 5
Number of pages :
Number of words : 26
Number of characters :
Security :
Category :
Format : Bildschirmpräsentation
Manager :
Company : Alant
Number of bytes : 88836
Number of lines :
Number of paragraphs : 4
Number of slides : 2
Number of notes : 2
Number of hidden Slides : 0
Number of multimedia clips : 0
Hyperlink base :
Number of characters (with spaces) :
In diesem Bsp. werden die Eigenschaften Autor, Letzer Bearbeiter und Firma für alle geöffneten Präsentationen geändert.
'In allen geöffneten Präsentationen die Dokumenteneigenschaften ändern
Sub DokumenteneigenschaftVerändern()
Dim i%
Dim s$
On Error Goto Errors_
Dim obj As Object
'Für Winword einfach Presentations mit Documents austauschen
'Application.Documents
'Dito mit Excel
'Application.Workbooks
'Powerpoint
For Each obj In Application.Presentations

With obj

.BuiltInDocumentProperties("Author") = "Tom Test"

.BuiltInDocumentProperties("Last author") = "Tom Test"

.BuiltInDocumentProperties("Company") = "Test Inc."

'Änderung sichern (einkommentieren )

'.Save

End With

Next
Exit Sub

Errors_:

'Debug.Print Err.Number; " "; Err.Description

Resume Next

End Sub
 
JoomlaTheme.net