Monty Armstrong wrote:
Hi
As a tech writer I find the toggle Shift-F3 in Word a wonderful tool and the
OO equivalent Alt O C L or U with no option for initial Caps (first letter
Upper, rest lower) a major drawback to an otherwise generally superior
program.
I find Styles in OO a hassle also but using them more (or a better tutorial)
would fix that problem.
I tend to use Word for most work but always swap to OO for tables and
whenever word is being obnoxious (therefore several times a day)
Is there a way I can add this Shift-F3 function to OO? Is it planned for
the near future as a standard shortcut?
Regards
Monty Armstrong
Add the following code as a macro named TitleCase and associate it to
the Shift-F3 key.
=============== begin code - do not include this line ================
sub TitleCase
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 = "CaseMap"
args1(0).Value = 3
dispatcher.executeDispatch(document, ".uno:CaseMap", "", 0, args1())
end sub
=============== end code - do not include this line ==========
I used the Macro Recorder to create this code. If you don't want to do
it via a macro you can select the code to be changed and then do, from
the Menu bar
* Format
* Character
* Font Effects
* Effects>Title
* OK
--
Harold Fuchs
London, England
Please reply *only* to [email protected]
