I record a macro to simply change a font on a selection and then deselect the
text and the macro comes up without the font change.  The font change is not
recorded.  After recording it, I went in to edit it and the macro below is all I
get.  I've also tried recording 4 steps on selected URL text (Italics, No
Underline, AutoFontColor, and No Hyperlink in Format|Character|URL).  It won't
record that either.  If you want me to send you that macro, email me at
erics@novell.com.

sub SansBold2
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(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Count"
args1(0).Value = 1
args1(1).Name = "Select"
args1(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args1())
end sub