headers
Didier Dorange-Pattoret | 13 Jan 19:35
Favicon

Problème de repérage

Bonsoir,

La macro ci-dessous permet de mettre en place un Listener qui me donne
en cliquant la position de la souris.

Problème : si le document qui appelle la macro est un doc writer,
j'obtiens la position de la souris par rapport au rectangle grisé dans
lequel figure le document texte lui-même blanc.

Or je voudrais la position par rapport au rectangle blanc du texte.

Avez-vous une idée ?

Merci pour votre réponse.

/Sub RegisterMouseHandler
    oDocView = ThisComponent.getCurrentController
    oMouseListener =
CreateUnoListener("MonEssai_","com.sun.star.awt.XMouseClickHandler")
    oDocView.addMouseClickHandler(oMouseListener)
End Sub

Sub UnRegisterMouseHandler
    oDocView.removeMouseClickHandler(oMouseListener)
End Sub

Sub MonEssai_mousePressed(oEvt) as Boolean
    Print oEvt.X, oEvt.Y, oEvt.Buttons
    MonEssai_mousePressed = True
End Sub
(Continue reading)

Permalink | Reply | 0 comments |
headers
c c | 14 Jan 22:37
Picon
Gravatar

Emplacement d'un fichier


Bonjour,

La variable ThisComponent.location contient le chemin et le nom du fichier ouvert.

En existe-t-il une qui ne contienne que le chemin ?

Merci

Claude
 		 	   		  
_________________________________________________________________
Discutez en direct avec vos amis sur Messenger !
http://www.windowslive.fr/messenger
Permalink | Reply | 10 comments |
headers
François Breizh | 14 Jan 23:16
Picon
Favicon

Re: Emplacement d'un fichier

c c a écrit :
> Bonjour,
>
>  
>
> La variable ThisComponent.location contient le chemin et le nom du fichier ouvert.
>
>  
>
> En existe-t-il une qui ne contienne que le chemin ?
>
>   
Pour ma part j'utilise cette fonction pour avoir le chemin :

Function RepertFich(StrFich As String) As String

Dim PosSlash As Integer

PosSlash = Len(StrFich) - 1
While Mid(StrFich,PosSlash,1) <> "/" And PosSlash >= 1
    PosSlash = PosSlash - 1
Wend
If PosSlash = 0 Then
    RepertFich() = ""
Else
    RepertFich() = Left(StrFich, PosSlash - 1)
End If
End Function

> Merci
(Continue reading)

Permalink | Reply | 2 comments |
headers
thierry | 14 Jan 23:43
Picon
Favicon

Imprimer en recto-verso

Bonsoir à toutes et tous.

En vue d'économiser du papier, donc de l'argent et la nature, je 
voudrais imprimer automatiquement une feuille recto-verso avec ooBase.

Après avoir trouvé ceci (peut-être un début de piste ?!?), existe-t-il 
une ou plusieurs lignes de code afin de réaliser un recto-verso d'un 
document ayant initialement 2 pages.
      'Voulez vous choisir une imprimante particulire ?
      Dim mPrintopts1(0) As New com.sun.star.beans.PropertyValue
      Dim mPrinter(1) As New com.sun.star.beans.PropertyValue
      mPrinter(0).Name = "Name"
      mPrinter(0).value = "Generic PostScript output (distillable)"
*      mPrinter(1).Name = "PrinterFormat"
      mPrinter(1).Value = "A4" *
      mPrintopts1(0).Name = "FileName"
      mPrintopts1(0).Value = cFile
      oDoc.SetPrinter (mPrinter()).

Thierry

PS: Avec PostScript, la manip me semble faisable, si j'ai bien compris 
sinon mille excuses.
      --prologue=FICHIER     utiliser FICHIER.pro comme prologue PostScript
      --ppd[=CLÉ]            sélection automatique, ou choisir le PPD CLÉ
  -n, --copies=NUM           nombre de copies de chaque page
*  -s, --sides=MODE           imprimer en MODE `simplex' (ou `1'), 
`_duplex_'
                             (ou `2'), ou `tumble' *
(Continue reading)

Permalink | Reply | 0 comments |
headers
c c | 15 Jan 08:19
Picon
Gravatar

RE: Emplacement d'un fichier


bonjour et merci

Moi j'utilise les fonctions split et join mais je me disais qu'il existait peut-être plus simple

Encore merci

Claude

 
> Date: Thu, 14 Jan 2010 23:16:10 +0100
> From: francois.breizh <at> orange.fr
> To: prog <at> fr.openoffice.org
> Subject: Re: [prog] Emplacement d'un fichier
> 
> c c a écrit :
> > Bonjour,
> >
> > 
> >
> > La variable ThisComponent.location contient le chemin et le nom du fichier ouvert.
> >
> > 
> >
> > En existe-t-il une qui ne contienne que le chemin ?
> >
> > 
> Pour ma part j'utilise cette fonction pour avoir le chemin :
> 
> Function RepertFich(StrFich As String) As String
(Continue reading)

Permalink | Reply | 0 comments |
headers
Laurent Godard | 15 Jan 09:03
Picon
Favicon

Re: Emplacement d'un fichier

Bonjour

voici une proposition qui vaut ce qu'elle vaut

	url = thisComponent.url
	titre = thisComponent.title	
	spliter = split(url,titre)
	chemin = convertFromURL(spliter(0))

' attention, non testé sur fichier nouveau non sauvegardé

Bonne journee

Laurent
Permalink | Reply | 6 comments |
headers
c c | 15 Jan 10:28
Picon
Gravatar

RE: Emplacement d'un fichier


Bonjour,

Cela ne fonctionne pas si le nom du fichier comporte des espaces car dans ce cas dans l'url ils sont remplcés
par des "%20" mais pas dans le title et donc le split ne fonctionne pas

Merci quand même

Claude

> Date: Fri, 15 Jan 2010 09:03:50 +0100
> From: oooconv <at> free.fr
> To: prog <at> fr.openoffice.org
> Subject: Re: [prog] Emplacement d'un fichier
> 
> Bonjour
> 
> voici une proposition qui vaut ce qu'elle vaut
> 
> 
> url = thisComponent.url
> titre = thisComponent.title 
> spliter = split(url,titre)
> chemin = convertFromURL(spliter(0))
> 
> ' attention, non testé sur fichier nouveau non sauvegardé
> 
> Bonne journee
> 
> Laurent
(Continue reading)

Permalink | Reply | 5 comments |
headers
Laurent Godard | 15 Jan 10:31
Picon
Favicon

Re: Emplacement d'un fichier

Re

> Cela ne fonctionne pas si le nom du fichier comporte des espaces car dans ce cas dans l'url ils sont
remplcés par des "%20" mais pas dans le title et donc le split ne fonctionne pas
>

dans ce cas faire un convertFromURL sur url

  url = convertFromURL(thisComponent.url)
     titre = thisComponent.title
     spliter = split(url,titre)
     chemin = spliter(0)

Laurent
Permalink | Reply | 4 comments |
headers
c c | 15 Jan 11:42
Picon
Gravatar

RE: Emplacement d'un fichier


ok merci, il me reste juste à tester le cas d'un fichier non encore enregistré

Claude

> Date: Fri, 15 Jan 2010 10:31:42 +0100
> From: oooconv <at> free.fr
> To: prog <at> fr.openoffice.org
> Subject: Re: [prog] Emplacement d'un fichier
> 
> Re
> 
> > Cela ne fonctionne pas si le nom du fichier comporte des espaces car dans ce cas dans l'url ils sont
remplcés par des "%20" mais pas dans le title et donc le split ne fonctionne pas
> >
> 
> dans ce cas faire un convertFromURL sur url
> 
> url = convertFromURL(thisComponent.url)
> titre = thisComponent.title
> spliter = split(url,titre)
> chemin = spliter(0)
> 
> Laurent
> 
> 
> 
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: prog-unsubscribe <at> fr.openoffice.org
> For additional commands, e-mail: prog-help <at> fr.openoffice.org
(Continue reading)

Permalink | Reply | 3 comments |
headers
Laurent Godard | 15 Jan 11:52
Picon
Favicon

Re: Emplacement d'un fichier

Re

c c a écrit :
> ok merci, il me reste juste à tester le cas d'un fichier non encore enregistré
> 

dans ce cas il n'a pas d'URL, et donc pas d'emplacement ...

Laurent
Permalink | Reply | 2 comments |

Gmane