Re: [oodisc] Смена настроек по умолчанию команды Вставить как

[Maksim Otstavnov]

Hello Николай,

Saturday, February 04, 2006, 7:49:38 PM, you wrote:

НК> Здравствуйте, ОО!

НК> Можно  ли  и  как  сделать  так, чтобы в Райтере ООо по команде Ctrl-V
НК> (Shift-Ins)  по  умолчанию  вставлялся  из  буфера  обмена  "Текст без
НК> форматирования"?

Ассоциируйте нижеприведенный макрос с соответствующей клавишной
комбинацией (или обеими), а лучше --- со штатно используемой для этого
во многих словарных процессорах комбинацией С-S-Ins (она в "OO.o"
свободна).

sub EditInsertAsUnformattedText

 dim document   as object
 dim dispatcher as object

 document   = ThisComponent.CurrentController.Frame
 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

 dim args1(0) as new com.sun.star.beans.PropertyValue
 args1(0).Name = "SelectedFormat"
 args1(0).Value = 1

 dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args1())

end sub