Hi
The enumeration object below is not set…
Anyone an idea why?
thanks!
Sub LoopOverCPDs
Dim oProps as Object
Dim oDocProps as Object
Dim PropsEnum as Object
Dim s1$
s1="test"
oDocProps = ThisComponent.getDocumentProperties()
oProps = oDocProps.UserDefinedProperties
PropsEnum = oProps.createEnumeration()
' Runtime Error 'Object Variable not set" on the next line...
Do While PropsEnum.hasMoreElements()
If Left (PropsEnum.nextElement, len(s1)) = s1 then
s = s & "" & PropsEnum.nextElement()
End If
Loop
msgbox s
End Sub