To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=53569 Issue #:|53569 Summary:|Font effect (color ONLY) non-functional in macro Component:|Word processor Version:|OOo 2.0 Beta Platform:|PC URL:| OS/Version:|Linux Status:|UNCONFIRMED Status whiteboard:| Keywords:| Resolution:| Issue type:|DEFECT Priority:|P3 Subcomponent:|formatting Assigned to:|mru Reported by:|westall
------- Additional comments from [EMAIL PROTECTED] Sat Aug 20 18:10:37 -0700 2005 ------- I am unable to use change font color via a MACRO in OO 2.0 beta (I've been doing this successfully for a long time in previous versions going back to Star Office 5.2). Other font effects seem to work fine. Below is an example of a macro that fails for me. (It opens the font effect dialog but doesn't complete until I close the dialog box) Mike Westall Professor of Computer Science Clemson University sub blue3 rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "Color" args1(0).Value = 255 dispatcher.executeDispatch(document, ".uno:Color", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "Strikeout.Kind" args2(0).Value = 0 dispatcher.executeDispatch(document, ".uno:Strikeout", "", 0, args2()) dim args3(0) as new com.sun.star.beans.PropertyValue args3(0).Name = "Text" args3(0).Value = "Hello World" dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3()) end sub --------------------------------------------------------------------- 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]