[fr-users] Re: Changement de couleur une ligne sur deux

Suite...


Jean Michel PIERRE wrote
> La question de "Max de Condé" portait sur comment coloriser une ligne sur
> deux dans Writer.

En effet... où avais-je la tête... !

La piste la meilleure me semble dans ce cas l'alternance de styles de
paragraphes déjà proposée...
Avec bien sûr la nuance que ce ne sont pas les lignes mais les paragraphes
qui seront traités...

Par macro on peut y arriver, cf ci-dessous cet exemple rapide... (pas
beacoup testé donc...)

    sub PysSurligner

    Dim PysDocument as Object
    Dim PysViewCurseur as Object
    Dim PysCurseur as Object
    dim PysRet as boolean

    dim PysNbLig as integer
    dim PysTexte as object

    PysDocument=ThisComponent
    PysViewCurseur=PysDocument.currentcontroller.viewcursor     
    PysViewCurseur.jumpToFirstPage   

    PysNbLig = 0

    PysRet = PysViewCurseur.GoRight(1, false)

    if PysRet then
       PysViewCurseur.GoToStartOfLine(false)
       PysViewCurseur.GoToEndOfLine(true)
       PysTexte = PysViewCurseur.text
       PysCurseur = PysTexte.createTextCursorByRange(PysViewCurseur)
       PysCurseur.CharBackColor=16776960
       PysViewCurseur.collapseToStart
    end if

    while PysViewCurseur.godown(1, false)
       PysRet = PysViewCurseur.GoRight(1, false)
       if PysRet then
             PysNbLig = PysNbLig + 1
          if PysNbLig = 2 then
             PysViewCurseur.GoToStartOfLine(false)
             PysViewCurseur.GoToEndOfLine(true)
             PysTexte = PysViewCurseur.text
             PysCurseur = PysTexte.createTextCursorByRange(PysViewCurseur)
             PysCurseur.CharBackColor=16776960
             PysViewCurseur.collapseToStart
             PysNbLig = 0
          end if
       end if
    wend

    end sub


Cordialement
Pierre-Yves

--
View this message in context: 
http://nabble.documentfoundation.org/Changement-de-couleur-une-ligne-sur-deux-tp3540618p3545280.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés