[Résolu][Basic]Mode conception toujours actif au démarrage

[jeanmi2403]

Bonjour,
Je réponds moi-même à ma question
Réponse trouvée par Gemini (l'IA de Google, grand merci à elle, ça économise la recherche dans l'API).
La macro suivante, lancée à l'ouverture du document désactive le mode conception :

Code : Tout sélectionner

Sub DesactiverModeConception
    Dim oDoc As Object
    Dim oDispatcher As Object
    
    oDoc   = ThisComponent.CurrentController.Frame
    oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
     ' On vérifie si le mode conception est actuellement actif
    If ThisComponent.CurrentController.isFormDesignMode() Then
        ' Cette commande simule le clic sur l'icône de l'équerre et du crayon
        oDispatcher.executeDispatch(oDoc, ".uno:SwitchControlDesignMode", "", 0, Array())
    End If
End Sub

Bonne journée

[Dude]

Salut,

Réponse trouvée par Gemini (l'IA de Google, grand merci à elle, ça économise la recherche dans l'API).

Et une recherche dans le forum, ça aurait économisé l'énergie inutile que consomme les IA.
viewtopic.php?t=60245&hilit=mode+%C3%A9 ... formulaire
Et tu t'évites en plus l'appel au dispatcher qui peut poser problème.

[jeanmi2403]

Re-Bonjour,
Effectivement, c'est plus simple.

Code : Tout sélectionner

Sub DesactiverModeConception
    Dim oDoc As Object
    oDoc   = ThisComponent
     ' On vérifie si le mode conception est actuellement actif
    If oDoc.CurrentController.isFormDesignMode() Then
        ' Cette commande simule le clic sur l'icône de l'équerre et du crayon
       oDoc.CurrentController.FormDesignMode = False    
    End If
End Sub

Et une recherche dans le forum, ça aurait économisé l'énergie inutile que consomme les IA.

J'avoue avoir du mal depuis quelque sur le forum avec le temps de réponse, minimum 10 à 15 secondes.
Google répond plus vite...
Bonne journée

[Oukcha]

le temps de réponse, minimum 10 à 15 secondes.
Google répond plus vite...

Là aussi, en partie la faute aux IA qui monopolisent les ressources du forum (pourtant revues à la hausse récemment) en pillant son contenu.