<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body>
<p>
<div>
<b><a class="bz_bug_link
bz_status_NEW "
title="NEW - Macro for Writer: Cannot read property of ParaBackGraphicURL"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=119609#c4">Comment # 4</a>
on <a class="bz_bug_link
bz_status_NEW "
title="NEW - Macro for Writer: Cannot read property of ParaBackGraphicURL"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=119609">bug 119609</a>
from <span class="vcard"><a class="email" href="mailto:kamlan@post.cz" title="Kamil Landa <kamlan@post.cz>"> <span class="fn">Kamil Landa</span></a>
</span></b>
<pre>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</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>