Bonjour Serge
J'sus pas sûr de pas être à côté de la plaque, mais bon. Supposons que
j'écrive bien à un forum où on s'entraide à programmer dans OpenOffice
2.0.
Heu, oui c'est bien le but de ce forum
D'abord, merci à ceux qui ont fait tout le boulot. OpenOffice me semble
représenter une grande idée. J'espère y participer un jour, peut-être pour
rédiger de la doc si on me dit précisément ce qu'il faudrait faire.
Donc supposons que je ne me sois pas trompé. Sinon, mille excuses.
Voilà mon questionnement : je crée par macro un cadre (une frame). Et je
veux coller là-dedans le contenu du presse papier ou quoi que ce soit, par
macro toujours, dans la foulée. Comment mettre le point d'insertion dans
le cadre ? (à la main ça se fait par Enter, mais quand on envoie chr$(13)
ça ne le fait pas).
Voilà, c'était ça.
Cordialement,
Serge Potteck
Tu ne nous a pas précisé dans quel type de document tu insérait ton cadre,
mais je te joins ci-dessous un petit bout de code
qui me sert à intégrer du texte dans un cadre (dans un document writer) en
utilisant les curseurs de texte :
Dim MonCadre2 as object
MonCadre2 =
MonDocument.createInstance("com.sun.star.drawing.RectangleShape") 'création
du cadre
Taille1.Width = 2000
Taille1.Height = 500
With MonCadre2
.LineStyle = com.sun.star.drawing.LineStyle.NONE
.FillColor = RGB (255,255,255)
.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
.VertOrient = com.sun.star.text.VertOrientation.NONE
.VertOrientPosition = 1230
.HoriOrient = com.sun.star.text.HoriOrientation.NONE
.HoriOrientPosition = 11200
.Size = Taille1
End With
MonTexte = MonDocument.Text
Moncurseur = MonTexte.createTextCursor
MonTexte.insertTextContent(Moncurseur, MonCadre2, false) 'affichage du cadre
MonTexte = MonCadre2.text 'écriture du texte dans le cadre
Moncurseur = MonTexte.createTextCursor
Moncurseur.CharWeight = com.sun.star.awt.FontWeight.BOLD
Moncurseur.CharPosture = com.sun.star.awt.FontSlant.ITALIC
MonTexte.insertString(Moncurseur, "Client",False)
En espérant que cela t'aidera.
Martin
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
