https://bugs.documentfoundation.org/show_bug.cgi?id=119609
--- Comment #4 from Kamil Landa <[email protected]> ---
Macro with example for some working properties:
Sub mistake2 'example with some working properties
dim oVCur, a
oVCur=thisComponent.currentcontroller.getViewCursor() 'view cursor
a=oVCur.getPropertyValue("CharFontFamily") 'it works
a=oVCur.getPropertyValue("CharColor") 'it works
a=oVCur.getPropertyValue("CharWeight") 'it works
a=oVCur.getPropertyValue("ParaVertAlignment") 'it works
a=oVCur.getPropertyValue("ReferenceMark") 'it works
a=oVCur.getPropertyValue("ParaTopMargin") 'it works
a=oVCur.getPropertyValue("TextParagraph") 'it works
a=oVCur.getPropertyValue("ParaBackGraphicURL") 'for other proprerties
it is OK
End Sub
And testing macro for Writer:
For "Standard" page styles is also affected FooterBackGraphicURL, for others
BackGraphicURL.
OPTION EXPLICIT
Sub TesPageStylePropsForWriter() 'test for Writer
On Local Error Goto ErrorHandler
Dim oDoc as Object, osheet as Object, oPStyles as Object, oPStyle as
Object, aProps as Object, vTmp, sProp as String, i as Integer, j as Integer,
elems
oDoc = ThisComponent
oPStyles = oDoc.StyleFamilies.getByName("PageStyles")
elems=oPStyles.ElementNames()
For j=lbound(elems) to ubound(elems)
oPStyle = oPStyles.getByName(elems(j))
aProps = oPStyle.PropertySetInfo.Properties
For i = LBound(aProps) to UBound(aProps)
sProp = aProps(i).Name
vTmp = oPStyle.getPropertyValue(sProp)
Next i
Next j
Exit Sub
ErrorHandler:
MsgBox elems(j) & ":" & chr(10) & sProp
Resume Next
End Sub
--
You are receiving this mail because:
You are the assignee for the bug._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
