Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Effectivement, votre macro m'ouvre un document writer avec 3 cadres bien 
visibles.


Je ne comprend en effet pas pourquoi ma macro se comporte comme ça.

Je vous poste dessous l'intégralité de mon module. C'est un peu long !  si 
vous avez le courage de le parcourir ... Sinon ce n'est pas grave puisque de 
toute façon maintenant cela fonctionne.


Merci,


Martin







'=
'Visualisation des factures
'=
Option Explicit
Private Moncurseur as object, MonTexte as object, MaCellule as object, 
Curseur2 as object

Private EtrangerFactureVisual as Boolean, LangueFactureVisual as string

Sub Affichage_facture(ID_facture as string,Facture_visual_logo as boolean)

Dim matos_conso as boolean, Jour_camion as integer, Cout_peage as double, 
NB_kilometre as integer
Dim Paris as boolean, Livraison as boolean, Prix_Nnovia as double, Nnovia as 
integer
Dim Prix_QP as double, Quatorze_pouce as double, Vingt_pouce as double, 
Prix_VP as double
Dim CT_trans as double, CT as double, Prix_CT as double, Frais_off as 
integer, NB_frais_off as integer
Dim Frais_T as integer, NB_frais_T as integer, NB_off as double, Salaire as 
integer, NB_Tech as double
Dim Titre as string, Client_Select as string, TVAintra as string, 
montant_accompte as double
Dim date_facture as date, N_facture as string, Heures_sup as double, 
Nombre_heures_sup as integer
Dim conso_carburant as double, MonDocument as object, adresseDoc as string, 
propFich()
Dim Date_debutFactureVisual as date, Date_FinFactureVisual as Date, 
PubFactureVisual as Boolean
Dim RemiseFactureVisual as integer, AssurFactureVisual as Boolean, 
PaiementFactureVisual as string

Dim Montant_facture as double
adresseDoc = "private:factory/swriter" 'convention pour indiquer un nouveau 
document writer
MonDocument = StarDesktop.LoadComponentFromURL(adresseDoc,"_blank", 0, 
propFich)


'Récupération de la valeur des champs dans la base Facture'
'
Dim maRequete_facturevisual As Object, ResultSet As Object
maRequete_facturevisual = maConnexion.createStatement()
ResultSet = maRequete_facturevisual.executeQuery("SELECT *  FROM Liste_fact 
WHERE ID='"& ID_facture &"'"

If Not IsNull(ResultSet) Then
While ResultSet.next
 Titre = ResultSet.getString(2)
 Client_Select = ResultSet.getString(3)
 N_facture = ResultSet.getString(4)
 Date_debutFactureVisual = ResultSet.getString(5)
 Date_FinFactureVisual = ResultSet.getString(6)
 PubFactureVisual = ResultSet.getString(7)
 RemiseFactureVisual = ResultSet.getString(8)
 AssurFactureVisual = ResultSet.getString(9)
 PaiementFactureVisual = ResultSet.getString(10)
 NB_Tech = ResultSet.getString(11)
 Salaire = ResultSet.getString(12)
 NB_off = ResultSet.getString(13)
 NB_frais_T = ResultSet.getString(14)
 Frais_T = ResultSet.getString(15)
 NB_frais_off = ResultSet.getString(16)
 Frais_off = ResultSet.getString(17)
 Heures_sup = ResultSet.getString(18)
 Nombre_heures_sup = ResultSet.getString(19)
 CT = ResultSet.getString(20)
 Prix_CT = ResultSet.getString(21)
 CT_trans = ResultSet.getString(22)
 Vingt_pouce = ResultSet.getString(23)
 Prix_VP = ResultSet.getString(24)
 Quatorze_pouce = ResultSet.getString(25)
 Prix_QP = ResultSet.getString(26)
 Nnovia = ResultSet.getString(27)
 Prix_Nnovia = ResultSet.getString(28)
 Livraison = ResultSet.getString(29)
 Paris = ResultSet.getString(30)
 NB_kilometre = ResultSet.getString(31)
 Cout_peage = ResultSet.getString(32)
 Jour_camion = ResultSet.getString(33)
 conso_carburant = ResultSet.getString(34)
 date_facture = ResultSet.getString(35)
 montant_accompte = ResultSet.getString(36)
 matos_conso = ResultSet.getString(37)
 EtrangerFactureVisual = Resultset.getstring(39)
 LangueFactureVisual = Resultset.getstring(40)
 Montant_facture = Resultset.getstring(43)
 Wend
End if

'---
'Récupération des coordonnées du client
'---
Dim Rue as string, CP as string, Ville as string, maRequete_facturevisual2 
as object

maRequete_facturevisual2 = maConnexion.createStatement()
ResultSet = maRequete_facturevisual2.executeQuery("SELECT *  FROM Clients 
WHERE Societe="& Quote(Client_Select) &""

If Not IsNull(ResultSet) Then
While ResultSet.next
 Rue = ResultSet.getString(2)
 CP = ResultSet.getString(3)
 Ville = ResultSet.getString(4)
 TVAintra = Resultset.getString(7)
Wend
End if

'Récupération du vocabulaire dans la base traduction
'

Dim Mot_Cfilm as string, Mot_Titre as string, Mot_Datedebut as string, 
Mot_Datefin as string
Dim Mot_Devis as string, Mot_Design as string, Mot_PU as string, Mot_Remise 
as string
Dim Mot_Qtite as string, Mot_Techni_Fact as string, Mot_CineTool as string, 
Mot_VingtP as string
Dim Mot_Quatorze as string, Mot_Livraiso as string, Mot_Heures as string, 
Mot_Heures2 as string
Dim Mot_Hsup as string, Mot_Hnuit as string, Mot_Paiement as string, Mot_BPA 
as string
Dim Mot_CGL as string,

Re: [prog] Affichage d'un cadre dans document texte

[Thibault Vataire]

> La conclusion semble donc être qu'il faut absolument définir la propriété 
> "lineStyle" d'un cadre, faute de quoi on est pas certain qu'il soit visible.

Non je ne pense pas car de mon coté, les cadres insérés dans un document sont 
systématiquement visibles. Je pense plutot que votre macro modifie cette 
propriété d'une façon ou d'une autre.

Testez avec cette macro pour vous en assurer : 

sub main

dim const horiPos = 0
dim const width = 8000
dim const height = 3000
Dim MonDocument as object

MonDocument = 
starDesktop.loadComponentFromUrl("private:factory/swriter", _

   "_blank", _

   com.sun.star.frame.FrameSearchFlag.CREATE, _

   array())

MonTexte = MonDocument.Text
Moncurseur = MonTexte.createTextCursor()
MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 1500, 
horiPos, MonDocument), false)
MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 4500, 
horiPos, MonDocument), false)
MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 7500, 
horiPos, MonDocument), false)

end sub

function createFrame(width as long, height as long, vertOriPos as long, 
horiOriPos as long, MonDocument as object) as object

Dim Taille1 As New com.sun.star.awt.Size
dim MonCadre1 as object

MonCadre1 = 
MonDocument.createInstance("com.sun.star.drawing.RectangleShape")
Taille1.Width  = width
Taille1.Height = height
With MonCadre1
 .CornerRadius = 600
 .FillColor = RGB (255,255,255)
 .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
 .VertOrient = com.sun.star.text.VertOrientation.NONE
 .VertOrientPosition = vertOriPos
 .HoriOrient = com.sun.star.text.HoriOrientation.NONE
 .HoriOrientPosition = horiOriPos
 .Size = Taille1
End With

createFrame = MonCadre1

end function


Par contre, il est étrange que dans votre cas, les cadres soient parfois 
visible et parfois non.


Cordialement,
T. Vataire


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


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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Thibault, un grand merci à vous également pour le temps passé et pour ce 
bout de code.


En utilisant uniquement la propriété .lineStyle = 
com.sun.star.drawing.LineStyle.SOLID j'arrive effectivement à contourner le 
problème.


( je n'utilise pas la totalité de votre routine car il y a 2 cadres qui 
doivent rester invisibles ).


La conclusion semble donc être qu'il faut absolument définir la propriété 
"lineStyle" d'un cadre, faute de quoi on est pas certain qu'il soit visible.



Bien cordialement,


Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Encore merci Agnès pour le temps que tu as bien voulu consacrer à mon 
problème.


Effectivement la ligne est définie comme invisible; la question est pourquoi 
l'est-elle dans ce document et pas dans l'autre que j'ai posté alors qu'ils 
ont été créés tous les 2 par la même macro ?


bonne après midi de boulot,

A bientôt,

Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

Martin Blaizot a écrit :

RE-re

merci pour cette macro. J'ai bien 6 formes dans mon document. 3 cadres 
théoriquement visibles - 2 invisibles et un logo.

Toutes ces formes apparaissent bien dans le navigateur .

ci-joint mon document tel qu'il devrait être ( à l'exception du cadre 
qui devrait être autour de mon tableau " Total " et qui se ballade 
ailleurs ).


Martin



Je crois que j'ai compris !
Dans le "sans nom 2" que tu as envoyé et le "MB1" que je t'ai renvoyé 
les cadres "invisibles" le sont parce que la ligne de pourtour est bien 
définie comme noire mais est marquée invisible.

Voir le doc joint où j'ai mis le contenu en rouge

J'espère que ça aide.
Là je pars au boulot

Agnès S.


MB_1_1.odt
Description: application/vnd.oasis.opendocument.text
-
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org

Re: [prog] Affichage d'un cadre dans document texte

[Thibault Vataire]

Bonjour,

Après avoir analysé votre document, il semble que pour une raison inconnue, le 
type de ligne sélectionné soit "Invisible".
Peut être votre macro modifie-elle cette propriété quelque part.

Voici un bout de code permettant de réafficher vos cadres :

sub test

dim index as long
dim dp as object
dim aShape as object

dp = thisComponent.drawPage
for index = 0 to (dp.count - 1)
aShape = dp.getByIndex(index)
if (aShape.shapeType = "com.sun.star.drawing.RectangleShape") 
then
dp.getByIndex(index).lineStyle = 
com.sun.star.drawing.LineStyle.SOLID
end if
next

end sub

Pour analyser un object (une collection ou autre), je vous conseille d'utiliser 
l'outil Xray, disponible ici : http://www.ooomacros.org/dev.php#101416

Cordialement,
T. Vataire


- Mail Original -
De: "Martin Blaizot" 
À: prog@fr.openoffice.org
Envoyé: Vendredi 18 Juin 2010 12:19:12
Objet: Re: [prog] Affichage d'un cadre dans document texte

Re-bonjour,

Je ne passe aucun argument avec propFich. Juste le code de mon précédent 
mail.

Pour analyser le contenu de la collection de formes de dessin je fais 
comment ? par macro ?

Martin


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

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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

RE-re

merci pour cette macro. J'ai bien 6 formes dans mon document. 3 cadres 
théoriquement visibles - 2 invisibles et un logo.

Toutes ces formes apparaissent bien dans le navigateur .

ci-joint mon document tel qu'il devrait être ( à l'exception du cadre qui 
devrait être autour de mon tableau " Total " et qui se ballade ailleurs ).


Martin 


Avec cadres.odt
Description: application/vnd.oasis.opendocument.text
-
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

Martin Blaizot a écrit :


Effectivement, si je nomme mon cadre ( MonCadre1.name = " Cadre Client 
") " Cadre Client " apparaît bien dans les objets de dessin du navigateur.


Par contre ce qui est curieux c'est qu'il apparaît 5 fois !



c'est une bizarrerie que j'ai souvent constatée : quand il y a plusieurs 
formes et qu'une seule a un nom, elles apparaissent toutes avec ce nom 
dans le navigateur.
Conclusion : nommer systématiquement les formes quand on les crée par 
macro ou à la main (puisqu'OOo ne le fait pas Grrr...)


Après inspection de ton document et mise au premier plan puis renommage 
des formes je vois que tu en a effectivement 5 différentes dont une 
petite vide sous le tableau.


Agnès S.



MB_1.odt
Description: application/vnd.oasis.opendocument.text
-
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

Martin Blaizot a écrit :

Re-bonjour,

Je ne passe aucun argument avec propFich. Juste le code de mon précédent 
mail.


Pour analyser le contenu de la collection de formes de dessin je fais 
comment ? par macro ?


Martin


Re-rebonjour,

Voir macro ci-dessous.
Il faut nommer les formes auparavant (MonCadre1.Name = "cadre1").
Elle recense toutes les formes y compris d'éventuels diagrammes ou autres.

'-
Sub RechercherFormes
dim MonDocument as object
dim maPage As Object, uneForme As Object
dim n as integer

MonDocument = thisComponent
maPage = monDocument.DrawPage

print "nombre de formes : " & maPage.count

for n=0 to maPage.count-1
uneForme = maPage(n)
MonDocument.CurrentController.Select(uneForme)
print uneForme.Name

next

End sub
'-

Agnès S.

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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Effectivement, si je nomme mon cadre ( MonCadre1.name = " Cadre Client ") 
" Cadre Client " apparaît bien dans les objets de dessin du navigateur.


Par contre ce qui est curieux c'est qu'il apparaît 5 fois !


Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

Bonjour Thibault,

Thibault Vataire a écrit :



Effectivement, définir la propriété "LayerId" à 1 permet ensuite de sélectionner les objets à la souris. 
Petite précision toutefois : il semble que cette modification doive être faite après insertion de la forme dans le document.


ce qui semble logique puisque pour mettre quelquechose au premier plan, 
il faut que le quelquechose soit là.



Par contre les formes de dessins insérées par macro n'apparaissent pas dans le 
navigateur si elles n'ont pas été nommée. Il ne faut donc pas se fier à ce qui 
est affiché dans le navigateur pour savoir si les formes de dessin ont été 
insérées ou non.


Ah oui, j'avais oublié de préciser que j'avais nommé la forme.
Je le fais toujours parce que c'est toujours plus facile à rechercher 
quand il y a un problème.
Effectivement et curieusement OOo ne donne pas un nom par défaut aux 
formes alors qu'il le fait pour les tableaux, cadres-texte, etc.


Agnès S.


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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Agnès,


Effectivement j'avais placé l'instruction  MonCadre1.LayerId = 1 AVANT 
l'insertion du cadre. En la plaçant après, mon cadre devient sélectionnable 
à la souris. ( le texte à l'intérieur est d'ailleurs solidaire du cadre, ce 
qui n'était pas le cas sous Ooo 1.1.4 ). Par contre, toujours pas de cadre 
texte dans l'explorateur.



Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Re-bonjour,

Je ne passe aucun argument avec propFich. Juste le code de mon précédent 
mail.


Pour analyser le contenu de la collection de formes de dessin je fais 
comment ? par macro ?


Martin



Sans nom 2.odt
Description: application/vnd.oasis.opendocument.text
-
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

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

Re: [prog] Affichage d'un cadre dans document texte

[Thibault Vataire]

Bonjour Agnès, 

Effectivement, définir la propriété "LayerId" à 1 permet ensuite de 
sélectionner les objets à la souris. 
Petite précision toutefois : il semble que cette modification doive être faite 
après insertion de la forme dans le document.

Par contre les formes de dessins insérées par macro n'apparaissent pas dans le 
navigateur si elles n'ont pas été nommée. Il ne faut donc pas se fier à ce qui 
est affiché dans le navigateur pour savoir si les formes de dessin ont été 
insérées ou non.

Cordialement,



- Mail Original -
De: "Agnès Simonet" 
À: prog@fr.openoffice.org
Envoyé: Vendredi 18 Juin 2010 11:45:55
Objet: Re: [prog] Affichage d'un cadre dans document texte

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.
> 


Peux-tu les sélectionner via le navigateur ? (au passage il y a une 
bétise dans mon mail précédent : bien sûr qu'on sait s'ils sont là ou 
non puisqu'on les voit).
Si oui as-tu accès au contenu après avoir fait Disposition>Au premier plan ?
Si oui alors c'est bien un problème de layer.

Agnès S.

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


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

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

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.





Peux-tu les sélectionner via le navigateur ? (au passage il y a une 
bétise dans mon mail précédent : bien sûr qu'on sait s'ils sont là ou 
non puisqu'on les voit).

Si oui as-tu accès au contenu après avoir fait Disposition>Au premier plan ?
Si oui alors c'est bien un problème de layer.

Agnès S.

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

Re: [prog] Affichage d'un cadre dans document texte

[Thibault Vataire]

De mon coté non plus, je ne parviens pas à sélectionner à la souris les cadres 
insérés. Il me faut insérer une forme de dessin à partir de la barre de dessin 
puis naviguer jusqu'a la forme à sélectionner avec la touche tabulation.

Quels sont les arguments passé avec propFich ?

Pour vérifier si les cadres sont insérés, vous devez analyser le contenu de la 
collection de formes de dessin de votre document (MonDocument.drawPage).

Pouvez-vous mettre en piece-jointe un document sur lequel les cadres 
n'apparaissent pas.

Cordialement,
 


- Mail Original -
De: "Martin Blaizot" 
À: prog@fr.openoffice.org
Envoyé: Vendredi 18 Juin 2010 11:28:25
Objet: Re: [prog] Affichage d'un cadre dans document texte

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.

Encore merci de vous être penché sur mon problème,


Martin 




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


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

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

Martin Blaizot a écrit :


Et bien fait, non; ça ne marche pas. En tout cas pas deux fois de suite !

C'est à n'y rien comprendre.

En fait, avec ou sans la ligne de code d'Agnès, mes 2 premiers cadre 
apparaissent lors de la première ouverture du document, ou plutôt 
devrais-je dire d'un document. Si je relance l'appli, sans avoir quitté 
et relancé Ooo, mes cadres n'apparaissent plus, quel que soit le 
document texte ouvert par mon appli ( devis, facture .. ).


Si quelqu'un à une idée, je suis preneur.


Bien cordialement,


Martin



Bonjour,
Dans un doc ouvert si je lance la macro elle affiche bien un cadre.
Mais sans le LayerID il n'est pas sélectionnable sauf via le navigateur.
Attention, il faut mettre MonCadre1.LayerId = 1 après 
MonTexte.insertTextContent(Moncurseur, MonCadre1, false)


Mais je crois comprendre que tu ouvres un doc par macro, ce doc devant 
contenir le cadre.

On dirait que monDocument n'est pas le bon.
Est-ce que tu peux vérifier l'existence du cadre via le navigateur ?

Agnès S.

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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

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.


Encore merci de vous être penché sur mon problème,


Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Thibault Vataire]

Bonjour, 

J'ai fait différents tests dans différents contextes (documents créés par 
macros, déja existant, déjà ouvert) et mes cadres apparaissent 
systématiquement, qu'OOo vienne d'être lancé ou non.

Pouvez-vous nous donner plus d'information sur le contexte de votre macro :

- le type et format des documents utilisés (j'ai fais mes tests sur des 
documents texte au format ODT)
- ces documents existent déjà sur votre poste et sont ouvert par la macro, ou 
bien sont-ils créés à la volée

Avez-vous vérifié que vos cadres étaient bien insérés ? C'est à dire qu'ils 
sont insérés mais non visibles.
S'ils ne sont pas insérés, peut-être qu'au moment de l'insertion, "MonDocument" 
ne représente pas le bon document.

Cordialement,
T. Vataire.


- Mail Original -
De: "Martin Blaizot" 
À: prog@fr.openoffice.org
Envoyé: Vendredi 18 Juin 2010 10:13:33
Objet: Re: [prog] Affichage d'un cadre dans document texte

Et bien fait, non; ça ne marche pas. En tout cas pas deux fois de suite !

C'est à n'y rien comprendre.

En fait, avec ou sans la ligne de code d'Agnès, mes 2 premiers cadre 
apparaissent lors de la première ouverture du document, ou plutôt devrais-je 
dire d'un document. Si je relance l'appli, sans avoir quitté et relancé Ooo, 
mes cadres n'apparaissent plus, quel que soit le document texte ouvert par 
mon appli ( devis, facture .. ).

Si quelqu'un à une idée, je suis preneur.


Bien cordialement,


Martin 




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


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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Et bien fait, non; ça ne marche pas. En tout cas pas deux fois de suite !

C'est à n'y rien comprendre.

En fait, avec ou sans la ligne de code d'Agnès, mes 2 premiers cadre 
apparaissent lors de la première ouverture du document, ou plutôt devrais-je 
dire d'un document. Si je relance l'appli, sans avoir quitté et relancé Ooo, 
mes cadres n'apparaissent plus, quel que soit le document texte ouvert par 
mon appli ( devis, facture .. ).


Si quelqu'un à une idée, je suis preneur.


Bien cordialement,


Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Bonjour Agnès, et merci


Effectivement, ça marche !

Un petit truc curieux quand même. Comme je l'ai dit dans un message 
précédent, j'ai 3 cadres dans mon document texte : MonCadre1 , 
MonCadre_Film, MonCadre2.


Jusqu'à ton mail, aucun de ces cadres n'apparaissait. Par contre en ajoutant 
ta fameuse ligne de code " MonCadre1.LayerId = 1 ", ce sont les 2 premiers 
cadres qui apparaissent !



Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Agnès Simonet]

Martin Blaizot a écrit :


Bravo et merci !

L'import à fonctionné.

concernant ma migration vers Ooo3.2.0 ( téléchargé hier sur le site ), 
je n'arrive toujours pas à voir mes cadres. Mes variables étaient bien 
entendu déclarées, sinon j'aurais un message d'erreur, mais là, rien. 
Mon document ( une facture ) s'ouvre normalement mais sans les cadres ( 
il y en a trois en tout ).


Donc, à priori, pas d'erreur de codage ( puisque ça marche chez vous ). 
Peut-être une config d'Ooo ?

Pour info les cadres ne s'affichent pas non plus à l'impression.

En tout cas, encore merci pour votre aide.


Martin



Bonsoir Martin,

ça me rappelle un problème que j'avais eu dans le passé


Tente un MonCadre1.LayerId = 1

Agnès S.

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

Re: [prog] Affichage d'un cadre dans document texte

[Martin Blaizot]

Bravo et merci !

L'import à fonctionné.

concernant ma migration vers Ooo3.2.0 ( téléchargé hier sur le site ), je 
n'arrive toujours pas à voir mes cadres. Mes variables étaient bien entendu 
déclarées, sinon j'aurais un message d'erreur, mais là, rien. Mon document 
( une facture ) s'ouvre normalement mais sans les cadres ( il y en a trois 
en tout ).


Donc, à priori, pas d'erreur de codage ( puisque ça marche chez vous ). 
Peut-être une config d'Ooo ?

Pour info les cadres ne s'affichent pas non plus à l'impression.

En tout cas, encore merci pour votre aide.


Martin 





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

Re: [prog] Affichage d'un cadre dans document texte

[Thibault Vataire]

Bonjour,

Concernant votre précédent message, avez vous testé ceci :

- fermer OOo, y compris le démarrage rapide s'il est actif
- déplacer le répertoire de la librairie se trouvant dans votre profil 
utilisateur vers un autre emplacement
- relancer OOo
- Menu Outils > Macros > Gérer les macros > OpenOffice.org Basic, bouton "Gérer"
- aller sur l'onglet bibliothèque et choisir "Importer"
- selectionner le fichier script.xlb se trouvant dans le répertoire déplacé 
précedemment
- verifier que la lib à bien été importé.

Cela dit, convertir votre macro pour la rendre compatible avec les versions 
récentes d'OOo est une bonne chose.
Pour ce qui est de l'exemple de code que vous nous avez fait parvenir, il 
fonctionne chez moi si je l'exécute sur un document déjà ouvert.
J'ai juste ajouté ces deux lignes au debut :

dim MonDocument as object
MonDocument = thisComponent

Pour info, je suis en 3.2.0 officielle.

Cordialement,
T. Vataire



- Mail Original -
De: "Martin Blaizot" 
À: prog@fr.openoffice.org
Envoyé: Jeudi 17 Juin 2010 08:32:18
Objet: [prog] Affichage d'un cadre dans document texte

Bonjour à tous,

N'ayant malheureusement pas beaucoup de succès avec ma bibliothèque fantôme, je 
me suis décidé à porter ma petite appli sous Ooo3.2.  Ca avance un peu, mais 
vous risquez de me voir souvent par ici dans les jours qui viennent !  Je 
suppose que toutes les erreurs de codage qui pouvaient passer sous 1.1.4 ne 
passent plus dans les versions modernes.

Bref, j'en viens à mon problème du moment. Voici un bout de code qui permettait 
d'afficher un cadre à bords arrondis. Il ne marche plus, mais je n'ai pas de 
message d'erreur. Peut-être pouvez-vous m'aider 


Dim Taille1 As New com.sun.star.awt.Size
MonTexte = MonDocument.Text
Moncurseur = MonTexte.createTextCursor
Dim MonCadre1 as object
MonCadre1 = MonDocument.createInstance("com.sun.star.drawing.RectangleShape")
Taille1.Width  = 8000 
Taille1.Height = 3000 
With MonCadre1
 .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 
End With
MonTexte.insertTextContent(Moncurseur, MonCadre1, false)



D'avance merci,


Martin

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