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
