La macro suivante m'insère un cadre entouré d'une bordure
Code : Tout sélectionner
Sub Cadre2 (sText as String)
Dim MonDocument3 As Object, MonTexte As Object
Dim MonCurseur As Object
Dim MonCadre As Object
MonDocument3 = ThisComponent
MonTexte = MonDocument3.Text
MonCurseur= MonTexte.createTextCursor
' mon cadre
MonCadre = MonDocument3.createInstance("com.sun.star.text.TextFrame")
with MonCadre
.SizeType = com.sun.star.text.SizeType.MIN
.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
.HoriOrient = com.sun.star.text.HoriOrientation.NONE
.HoriOrientPosition = 13000
.VertOrient = com.sun.star.text.VertOrientation.NONE
.VertOrientPosition = 4500
.Height = 1000
.Width = 7750
End with
MonTexte.insertTextContent(MonCurseur, MonCadre, false)
MonCadre.Text.String = sText
end sub
Code : Tout sélectionner
Sub Cadre3 (sText as String)
Dim MonDocument3 As Object, MonTexte As Object
Dim MonCurseur As Object
Dim MonCadre As Object
MonDocument3 = ThisComponent
MonTexte = MonDocument3.Text
MonCurseur= MonTexte.createTextCursor
' mon cadre
MonCadre = MonDocument3.createInstance("com.sun.star.text.TextFrame")
with MonCadre
.SizeType = com.sun.star.text.SizeType.MIN
.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
.HoriOrient = com.sun.star.text.HoriOrientation.RIGHT
.HoriOrientRelation = com.sun.star.text.RelOrientation.PAGE_PRINT_AREA
.VertOrient = com.sun.star.text.VertOrientation.TOP
.VertOrientRelation = com.sun.star.text.RelOrientation.PAGE_PRINT_AREA
.Height = 750
.Width = 8000
End with
MonTexte.insertTextContent(MonCurseur, MonCadre, false)
TextCadre = MonCadre.Text
CurseurCadre = TextCadre.createTextCursor
CurseurCadre.paraStyleName = "Droite"
MonCadre.Text.String = sText
end sub
Merci de vos avis