Quick and dirty Basic routine to copy properties from obj1 to obj2: > Sub cloneProperties(obj1, obj2) > dim a, i, s, v > a() = obj1.PropertySetInfo.getProperties() > on error goto resumeNextErr > for each i in a() > s = i.Name > v = obj1.getPropertyValue(s) > obj2.setPropertyValue(s,v) > next > exit sub > resumeNextErr: > resume next > End Sub
-- To unsubscribe e-mail to: [email protected] Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/global/users/ All messages sent to this list will be publicly archived and cannot be deleted
