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 à [email protected] 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
