https://bugs.freedesktop.org/show_bug.cgi?id=81187
--- Comment #6 from Kevin Suo <[email protected]> --- (In reply to comment #5) Hi tommy, I tried your macro but it does not work. So I have done some change to your code, now it works: Sub RemoveTextHighlighting Dim document as object Dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") REM We need to define the args for the dispatcher. without this the backcolor will not change. Dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).name = "BackColor" args1(0).value = -1 dispatcher.executeDispatch(document, ".uno:BackColor", "", 0,args1()) End Sub Thanks. -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
