Martin Blaizot a écrit :

Bonjour Thibault,


Il s'agit d'une macro permettant de visualiser une facture. Le document texte est créé par la macro avec l'instruction suivante :

adresseDoc = "private:factory/swriter"
MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,"_blank", 0, propFich)

Concernant l'insertion des cadres, je suis plus embêté pour vous répondre car, même quand ils apparaissent dans mon document, je n'arrive ni à les sélectionner ni à " atteindre " le texte placé à l'intérieur.


Rebonjour,

La macro ci-dessous fonctionne.
ça peut aider à chercher le problème au bon endroit.

REM  *****  BASIC  *****
OPTION EXPLICIT
Sub NewDocAvecInsertionCadre

dim MonDocument as object, adresseDoc as string
dim propFich()
Dim MonCadre1 as object
dim MonTexte as object, Moncurseur as object
Dim Taille1 As New com.sun.star.awt.Size

adresseDoc = "private:factory/swriter"
MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,"_blank", 0, propFich)


'MonDocument = thisComponent
MonTexte = MonDocument.Text
Moncurseur = MonTexte.createTextCursor

MonCadre1 = MonDocument.createInstance("com.sun.star.drawing.RectangleShape")

Taille1.Width  = 8000
Taille1.Height = 3000
With MonCadre1
 .Name = "le cadre parfois fantome"
 .CornerRadius = 600
 .FillColor = RGB (255,255,255)
 .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
 .VertOrient = com.sun.star.text.VertOrientation.NONE
 .VertOrientPosition = 1500
 .HoriOrient = com.sun.star.text.HoriOrientation.NONE
 .HoriOrientPosition = 8000
 .Size = Taille1
' .LayerId = 1
End With
MonTexte.insertTextContent(Moncurseur, MonCadre1, false)
MonCadre1.LayerId = 1

End Sub


---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org

Répondre à