Bonsoir,
Jean-Baptiste FAURE a écrit :
Le 24.11.2006 14:45, Bernard Marcelly a écrit :
Bonjour Jean-Baptiste FAURE
Message du 2006-11-24 09:45:
J'ai un document ODT dans lequel il y a beaucoup de champs "date
fixe". Je souhaite rechercher une date particulière c'est à dire la
valeur du champ (par exemple 25 octobre). La fonction recherche de
OOo-writer ne trouve rien alors qu'il y a bien plusieurs champs date
ayant la valeur "25 octobre 2006".
Est-ce que quelqu'un connaît un moyen pour faire une telle recherche ?
Je ne pense pas que ça soit possible avec l'interface utilisateur.
je vois que ma question n'a pas beaucoup de succès ; est-ce à dire
qu'il faudrait développer une macro pour le faire ?
En macro on ne peut pas reproduire l'équivalent du panneau
Rechercher-Remplacer (panneau non modal). Il faudrait donc que la
macro recherche les champs Date fixes ayant une date particulière, et
y mette une autre date.
En fait, un champ fixe n'a à mon avis aucun intérêt. Il fallait plutôt
définir un champ "Variable" de type texte, et insérer ce champ aux
divers endroits. Après, on peut changer le contenu en une fois.
Ou bien plus simplement, sans champ, mettre la date en texte
ordinaire, et utiliser le rechercher/remplacer...
Bonjour,
En fait j'utilise des champs fixes car cela me permet d'insérer la date
et l'heure courante avec un autotexte. Ensuite je voudrais seulement
trouver une date particulière, pas besoin de remplacer car la date une
fois insérée n'a aucune raison de changer.
JBF
Voici une idée :
Ici il ne s'agit que d'un listage des champs, mais en adaptant et
complétant la procédure on peut cibler un/des élément(s)
aEnum = ThisComponent.getTextFields.createEnumeration
do while aEnum.hasMoreElements
aTFelement = aEnum.nextElement
with aTFelement
aYear = .DateTimeValue.Year
aMonth = .DateTimeValue.Month
aDay = .DateTimeValue.Day
bFixe = .IsFixed
end with
if bFixe then
sFixe = ""
else
sFixe = "non"
end if
msgbox "Date " & sFixe & " fixée = " & _
aDay & "/" & aMonth & "/" & aYear
loop
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]