title image


Smiley Probleme mit BuiltInDocumentProperties
Hallo Spotlighter,



ich versuche gerade die BuiltInDocumentProperties in eine ListBox einzulesen, stoße dabei aber auf Probleme, wenn ein Property keinen Value hat. Das ist auch beschrieben:



http://msdn.microsoft.com/library/en-us/off2000/html/woprobuiltindocumentproperties.asp?frame=true



If Microsoft Word doesn't define a value for one of the built-in document properties, reading the Value property for that document property generates an error.



Darum versuche ich das mit

If Not vDoc.BuiltInDocumentProperties(i) = ""

zu umgehen. Das klappt aber nur begrenzt. So gibt mir

MsgBox ActiveDocument.BuiltInDocumentProperties.Count

an, das DOC habe 30 Properties. Mit "For i = 1 To 24" klappt es noch, und leere Properties werden übergangen (hier: MsgBox). Aber bei "For i = 1 To vMaxProps" hängt er sich bei Property Nr. 25 auf (Automation Error).







Sub UserForm_Initialize()

    Set vDoc = ActiveDocument

    vMaxProps = vDoc.BuiltInDocumentProperties.Count

    For i = 1 To vMaxProps

        If Not vDoc.BuiltInDocumentProperties(i) = "" Then

           ListBox1.AddItem vDoc.BuiltInDocumentProperties(i)

        Else

           MsgBox "Property #" & i & " not assigned"

        End If

    Next i

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: