To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=58667
------- Additional comments from [EMAIL PROTECTED] Wed Sep 27 07:09:25 -0700
2006 -------
sub main
vc = ThisComponent.getCurrentController().getViewCursor()
vc.getString()
userAtrribs = vc.getPropertyValue("ParaUserDefinedAttributes")
paraCursor = ThisComponent.getText().createTextCursorByRange(vc)
MsgBox paraCursor.getString()
if
paraCursor.getPropertySetInfo().hasPropertyByName("ParaUserDefinedAttributes")
Then
userDefinedAttribs
=paraCursor.getPropertyValue("ParaUserDefinedAttributes")
attributesStruct = CreateUnoStruct("com.sun.star.xml.AttributeData")
if userDefinedAttribs.hasByName("ArtyFarty") Then
MsgBox userDefinedAttribs.getByName("ArtyFarty").Value
userDefinedAttribs.removeByName("ArtyFarty")
end if
attributesStruct.Namespace =""
attributesStruct.Type = "CDATA"
attributesStruct.Value = "my Test Data"
userDefinedAttribs.insertByName("ArtyFarty",attributesStruct)
paraCursor.setPropertyValue("ParaUserDefinedAttributes",userDefinedAttribs)
userDefinedAttribs
=paraCursor.getPropertyValue("ParaUserDefinedAttributes")
end if
end sub
If we run this macro on the document, ParaUserDefinedAtrributes are applied to
the paragraph. If it is run on every paragraph in the document, the macro will
create the attributes on every paragraph.
In the exported document all of the paragraphs should have a automatic style,
but several paragraphs have there orginal styles not automatic styles with the
UserDefinedAttributes
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
