title image


Smiley Re: Probleme mit BuiltInDocumentProperties
Hallo Wolfram,



allerherlichsten Dank!



> deshalb darfst Du nicht auf Nullstring prüfen, weil Du damit ja den Typ vorwegnimmst.



Ja, das war wohl mein Fehler. Es klappt jetzt wunderbar.

Eine Frage hätte ich aber noch ... :-)

Kann ich mir irgendwie *einfach* statt der Zahlen auch die Namen listen lassen? Also z.B. "wdPropertyTitle" statt "1"?



Anbei nochmal der Code mit MsgBox statt Listbox.





Sub ShowAllBuiltInDocumentProperties()

    Dim vDoc As Document, i As Long, vMaxProps As Long

    Set vDoc = ActiveDocument

    vPropsList = ""

    vMaxProps = vDoc.BuiltInDocumentProperties.Count

    For i = 1 To vMaxProps

        If Not VarType(vDoc.BuiltInDocumentProperties(i)) = vbObject Then

           vPropsList = vPropsList & "Property #" & i & ":  " & vDoc.BuiltInDocumentProperties(i) & Chr(13)

        Else

           vPropsList = vPropsList & "Property #" & i & ":  " & "not assigned" & Chr(13)

           'Debug.Print "Property #" & i & " not assigned"

        End If

    Next i

    MsgBox "Full Document Properties:" & Chr(13) & Chr(13) & vPropsList

End Sub



Code eingefügt mit Syntaxhighlighter 2.5






-------------------------------------------
"Nobody will ever need more than 640k RAM!"
1981 Bill Gates




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: