[fr-users] Re: [fr-users] Re: [fr-users] Re: [fr-users] Re: [fr-users] Re: [fr-users] [writer]Document maître => pas prendre les odt entiers.

Le 13/05/2022 à 13:39, Bernard Siaud alias Troumad a écrit :
> Merci ça marche !
> Une question : pour la taille de 20 au tableau elements ?

Très bonne question !
En fait je ne sais plus, je ne me rappelle pas pourquoi. Il y a 
maintenant un petit moment que je l'ai fait !


> Voici mon code et est-ce que je peux le donner ici : 
> https://forum.openoffice.org/fr/forum/viewtopic.php?p=360542#p360542
Pourquoi pas ? c'est une bonne idée.

> Sub choix
>
>     dim i,j,taille,drap as integer
>     dim mode as Variant
>     dim PysField as object
>     dim nomType as string
>     dim newType as string
>     dim elements(20)
>     dim document   as object
>     dim dispatcher as object
>
>     rem mettre la liste des types souhaités
>     mode = Array("impression", "complet")
>     drap=0
>     taille=Ubound(mode)
>
>     document   = ThisComponent.CurrentController.Frame
>     dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>
>     elements = ThisComponent.TextFieldMasters.getElementNames()
>
>     rem Chercher la variable "affichage"
>     for i=0 to ubound(elements)
>         if (instr(elements(i),"affichage")>0) then
>                 valeur= 
> ThisComponent.TextFieldMasters.getByName(elements(i)).DependentTextFields(0).content
>                 for j= 0 to taille
>                     if mode(j) = valeur then
>                         if j<taille then
>                             drap=1
> ThisComponent.TextFieldMasters.getByName(elements(i)).DependentTextFields(0).content 
> = mode (j+1)
>                          endif
>                     endif
>
>                 next j
>
>                 if drap=0 then rem prendre en compte le plus grand et 
> les cas non prévus
> ThisComponent.TextFieldMasters.getByName(elements(i)).DependentTextFields(0).content 
> = mode (0)
>                 endif
>                 dispatcher.executeDispatch(document, 
> ".uno:UpdateFields", "", 0, Array()) REM mettre à jour l'affichage
>
>
>                 i=ubound(elements)
>         endif
>     next i
>
> End Sub

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy