[RESUELTO] Quitar autocompletado con macro en calc

[xiseme]

¿Como puedo detectar desde una macro si está habilitada la opción Menú -> herramientas -> Entrada automática y desactivarla en caso de que lo esté?

He probado con la grabadora de macros

Código: Seleccionar todo

sub miratiautocompletado

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:AutoComplete", "", 0, Array())


end sub

pero esto lo que hace es cambia su estado: si está activado lo desactiva, pero también lo habilita cuando no lo está.

Gracias anticipadas

[fornelasa]

Hola xiseme, en mi opinión, no se puede. No se puede con macro, considero que es "algo" por implementar todavia en el programa.
Habría que ver que dice la comunidad, pero yo creo que no.
Saludos, Federico.

[xiseme]

Gracias Federico.
He buscado y no he encontrado (bien es cierto que soy mal "buscador" y que ando muy-muy escaso de tiempo últimamente.

En cualquier caso... si no se puede, ... no se puede.

[fornelasa]

y yo que soy bien listo y tengo tiempo, tambien lo he buscado y puedo decir al 99.99% que no se puede via macro.
A ver si alguien de la comunidad se saca el "As" bajo la manga.
Saludos, Federico.

[mauricio]

El "As" bajo la manga...

Código: Seleccionar todo

Sub Main
	setting = CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
	If setting.DoAutoComplete Then
		setting.DoAutoComplete = False
	End If
End Sub

Un abrazo

[xiseme]

Ese "As" al descubierto me ha alegrado -y mucho*- el día.

Salvo que lo desaconsejéis, creo que al final lo [des]habilitaré así:

Código: Seleccionar todo

Sub AutoCompletado(VF As Boolean)
'Activa(True)/Desactiva(False) autocompletado en Calc
   CreateUnoService("com.sun.star.sheet.GlobalSheetSettings").DoAutoComplete = VF
End Sub  

Mil gracias.

*aquí debería ir un emoticono de bailando/alegría/fiesta

[fornelasa]

Ah no bueno!!
Genial!!