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+h...@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
