Desativar corretor ortográfico

[LPICC]

Olá. Fiz uma macro para ativar/desativar o corretor ortográfico, mas não está funcionando. Se alguém puder me ajudar agradeço.

sub CorrecaoOrtografica

dim document   as object
dim dispatcher as object

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

dim SpellCheck(0) as new com.sun.star.beans.PropertyValue
SpellCheck(0).Name = "SpellOnline"
SpellCheck(0).Value = False

dispatcher.executeDispatch(document, ".uno:SpellOnline", "", 0, SpellCheck())

end sub

[LeroyG]

Será?

sub Main
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SpellOnline", "", 0, Array())


end sub

[LPICC]

Também não funcionou.

[schiavinatto]

Ola @LPICC , como esta usando?

verificar.ods (11,7,KB)

[LPICC]

@LeroyG

dispatcher.executeDispatch(document, ".uno:SpellOnline", "", 0, Array())

Acho que era um BUG na versão 24.8.1.2. Atualizei para a versão 24.8.2.1 e funcionou, inclusive a minha. Obrigado aí, pessoal!