Re: [fr-discuss] [AMÉLIORATION] Encadrer des mots dans un paragraphe

> Bonjour,
>
> Voici une fonctionnalité qui vient à manquer à LibreOffice : la possibilité
> d'encadrer un mot ou groupe de mots dans un paragraphe. Il serait
> intéressant de l'intégrer ...
>
> Quelqu'un connaîtrait-il un greffon pour palier à ce manque ?
>
> Merci d'avance


Bonjour,
Une Macro avait mise au point pour encadrer un texte sélectionné :
REM  *****  BASIC  *****

option explicit

Sub encadrement
dim doc as object, texte as object
dim ctrl as object, vcurs as object
dim texteAencadrer as object, cadre as object
    doc = thiscomponent
    texte = doc.text
    ctrl = doc.currentController
    vcurs = ctrl.viewCursor
    texteAencadrer = ctrl.getTransferable
    cadre = doc.createInstance("com.sun.star.text.TextFrame")
    with cadre
        .anchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
        .vertOrient = com.sun.star.text.VertOrientation.CHAR_CENTER
        .widthType = com.sun.star.text.SizeType.VARIABLE
        .BorderDistance = 50
        .leftMargin = 0
        .rightMargin = 0
        .topMargin = 0
        .bottomMargin = 0
    end with
    texte.insertTextContent(vcurs, cadre, true)
    vcurs.gotorange(cadre,false)
    ctrl.insertTransferable(texteAencadrer)
    vcurs.gotorange(cadre.anchor, false)
    vcurs.goRight(1, false)
End Sub


Après l'avoir enregistrée dans tes macros, peux tu la tester ?
J.M


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