Je pense qu'il n'y avait rien en pièce jointe.
En attendant, j'ai bricolé cette macro qui fait la moitié du travail.
Il faut créer le style de cadre "Note en marge", ancré au paragraphe,
position horizontale à gauche pour page entière, verticale en haut pour
marge, le placer dans la marge et lui donner les dimensions qui va bien,
hauteur automatique.
Ph.
--
Sub Main
dim monDocument as Object, monTexte as Object, monCurseur as object
dim lesModifs as Object, uneModif as Object, unCommentaire as string
dim monCadre as object, texteCadre as Object, curseurCadre as Object
dim nbModifs as integer, i as integer
monDocument = thisComponent
monTexte = monDocument.Text
lesModifs = monDocument.RedLines
nbModifs = lesModifs.count ' passer obligatorement par une variable!
for i = 0 to nbModifs -1
uneModif = lesModifs.getByIndex(i)
unCommentaire = uneModif.RedLineComment
if unCommentaire <> "" then
monCurseur = monTexte.CreateTextCursorByRange(uneModif.Start)
monCadre =
monDocument.createInstance("com.sun.star.text.TextFrame")
monTexte.insertTextContent(monCurseur, monCadre, false)
monCadre.FrameStyleName = "Note en marge"
texteCadre = monCadre.Text
curseurCadre = texteCadre.createTextCursor
texteCadre.InsertString(curseurCadre, unCommentaire, false)
end if
next i
End Sub
CAZIN Christophe DSIC MISSION CRISTAL a écrit :
Voici un exemple (en pièce jointe) ! En fait , le mot "commentaire" en
entier était surligné en rose (sous word) avec une flêche vers le
commentaire dans la marge. Sous Openoffice , le commentaire est gardé
dans l'infobulle (le petit bricolo en jaune ) mais reste difficile à
appréhender quand il y a de nombreux commentaires dans la même page ,
voir tout un texte commenté ... En plus on ne peut pas les imprimer .
Christophe
>-----Message d'origine-----
>De : CAZIN Christophe DSIC MISSION CRISTAL
>[mailto:[EMAIL PROTECTED]
>Envoyé : lundi 19 mars 2007 13:48
>À : '[email protected]'
>Objet : RE: [dev-fr] Mode révisé /commentaire sur Openoffice
>
>
>En fait , dans l'absolu , nous aurions besoin de la
>compatibilité entre les
>deux suites sur ce point précis car les documents font des
>allers-retours.
>Mais pour mon cas , je travaille sous Linux avec exclusivement
>Openoffice ,
>et une moulinette me permettrait au moins
>d'avoir une lecture de ces commentaires malheureusement adaptés et
>positionnés pour Word .
>
>Christophe
>
>>-----Message d'origine-----
>>De : Philippe Allart [mailto:[EMAIL PROTECTED]
>>Envoyé : lundi 19 mars 2007 13:40
>>À : [email protected]
>>Objet : Re: [dev-fr] Mode révisé /commentaire sur Openoffice
>>
>>
>>On on peut ajouter un commentaire à une marque de révision [Edition >
>>Modifications > Commentaire]. Mais ce commentaire ne s'affiche
>>que dans
>>la liste des révisions, au moment de les accepter/rejeter.
>>
>>Vous voudriez une moulinette qui recherche les commentaires de
>>révision,
>>et les insère dans un cadre en marge?
>>
>>Ph.
>>
>>--
>>
>>
>>
>>CAZIN Christophe DSIC MISSION CRISTAL a écrit :
>>> Ce mode n'est pas compatible avec celui de Word et nous
>>n'avons pas encore
>>> tous migré. Il faudrait trouver une moulinette ...!
>>>
>>>> -----Message d'origine-----
>>>> De : Philippe Allart [mailto:[EMAIL PROTECTED]
>>>> Envoyé : lundi 19 mars 2007 12:43
>>>> À : [email protected]
>>>> Objet : Re: [dev-fr] Mode révisé /commentaire sur Openoffice
>>>>
>>>>
>>>> Bonjour,
>>>>
>>>>
>>>> je ne connais pas Word 2003, mais pour ajouter des notes
>>dans la marge
>>>> j'utilise le style de cadre "Note en marge", positionné dans
>>>> la marge et
>>>> ancré au paragraphe. La note en marge se déplace en même
>>temps que le
>>>> paragraphe.
>>>>
>>>>
>>>> Ph.
>>>>
>>>> --
>>>>
>>>>
>>>>
>>>> CAZIN Christophe DSIC MISSION CRISTAL a écrit :
>>>>> Y a t 'il une issue déposée pour travailler en mode
>>>> commentaire dans la
>>>>> marge qui commence à nous être opposée de plus en plus
>>>> souvent par rapport
>>>>> aux versions récentes de Word (2003) . J'avoue que cela
>>>> semble bien plus
>>>>> pratique , voir complémentaire aux marques de révisions.
>>L'info bulle
>>>>> proposée par Openoffice n'est pas exploitable ...
>>>>>
>>>>> Christophe
>>>>>
>>>>
>>>>
>>>
>>
>>
>>
>
------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
