https://bugs.documentfoundation.org/show_bug.cgi?id=162897

--- Comment #14 from Rafael Lima <[email protected]> ---
Okay... if you want to change the document background color, here's the macro:

Sub ChangeDocBgColor
    GlobalScope.BasicLibraries.LoadLibrary("Tools")
    Dim keyNode As Object '
com.sun.star.configuration.Configuration(Update)Access '
    ' Get current color scheme
    keyNode =
Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.UI/ColorScheme", False)
    curScheme = keyNode.CurrentColorScheme
    ' Get the scheme node
    nodeName = "org.openoffice.Office.UI/ColorScheme/ColorSchemes/" & curScheme
& "/DocColor"
    ' Set the root path for our configuration access
    keyNodeColor = Tools.Misc.GetRegistryKeyContent(nodeName, True)
    ' Replace RGB values below
    keyNodeColor.setPropertyValue("Color", rgb(150, 150, 150))
    keyNodeColor.commitChanges()
End Sub

Note however that this will change the Document Background color for all
applications.

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to