@mrkalvin, use a macro abaixo e crie atalho de teclado em Shift+F4 (por exemplo).
Não resolve seu problema, mas fica mais fácil.
Use esta macro, grave em Minhas Macros ( assim ficara disponível geral )
sub Main
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:ToggleRelative", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:ToggleRelative", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:ToggleRelative", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:ToggleRelative", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:ToggleRelative", "", 0, Array())
end sub
Em Ferramentas / Personalizar / Teclado …
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha
a esquerda da resposta, para finalizar a pergunta.