Bonsoir,
Lariviere Philippe a �crit :
> Bonjour,
> J'ai le souci suivant : j'ai constat�, qu'avec Writer du moins, le
> titre d'une fen�tre est la valeur du champ Titre du document si ce
champ est renseign� et sinon (si le champ Titre n'est pas renseign�)
c'est le nom du fichier.
> Cela me pose probl�me dans certains cas o� j'ai � travailler sur une
> s�rie de documents Word (contenus dans un m�me r�pertoire) dont le
> titre a �t� renseign� : dans ce cas il me faudrait vraiment le nom du
> fichier qui lui seul est parlant (je ne pr�cise pas davantage la
> raison de cela qui est li�e � l'historique de ce que j'ai � traiter).
> Est-ce qu'il y a un moyen de configuration de Oo pour que le titre de
> la fen�tre soit le nom du fichier, que le champ Titre soit ou non
> renseign� ? Un grand merci de vos conseils. PhL
>
Je pense que la solution serait de placer une macro dans un module dans
la branche de soffice/Standard.
Cette macro pourrait �tre
- soit affect� � un bouton pour �tre appel�e manuellement (au cas par cas),
- soit affect� � l'�v�nement Ouvrir document (macro ex�cut�e
automatiquement pour tous documents).
La fonction de la macro est, simplement, de supprimer le contenu de la
zone Title dans les propri�t�s du document.
Voici, � titre d'exemple, un bout de code remplissant cette fonction :
Sub Main
EffaceTitreDoc ' Dans la proc�dure Main on appelle
' les diff�rentes routines n�cessaires.
' Ici pour l'exemple, y'en a qu'une.
' C'est d�j� pas si mal. Non ?
End Sub
Sub EffaceTitreDoc
Dim MonDoc as Object
Dim MonDocNom as string
MonDoc = ThisComponent
MonDocNom="" 'on pourrait y placer �ventuellement le nom du fichier
'� r�cup�rer dans une routine compl�mentaire
MonDoc.getDocumentInfo().Title = MonDocNom
End Sub
Fran�ois Gatto
=^..^=
La r�tribution peut se faire en Oeufs de P�ques ... c'est bient�t :-D
Merci, je vais essayer cette solution.
Pour les oeufs ed P�ques, c'est � quelle adresse ???
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
