title image


Smiley Re: Probleme mit BuiltInDocumentProperties
Hi,



freilich geht das, der Name der Property ist .name, der Wert .value



Sub ShowAllBuiltInDocumentProperties()

Dim prop As DocumentProperty, vPropsList As String

For Each prop In ActiveDocument.BuiltInDocumentProperties

vPropsList = vPropsList & prop.name & vbTab

If Not VarType(prop) = vbObject Then

vPropsList = vPropsList & prop.Value & vbCr

Else

vPropsList = vPropsList & "not assigned" & vbCr

End If

Next

MsgBox "Full Document Properties:" & vbCr & vbCr & vPropsList

End SubEin Tipp: Verwende zum Durchlaufen einer Collection eine For each Schleife, dies ist effizienter als das Abzählen.



Grüße

Wolfram

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: