Renv et DateImpr

Le
jean-paul.bataille
Bonjour,

Comment faire un signet (Renv) sur un champ Date d'impression
(DateImpr) ?

Je dsire en fait crer le nom du fichier pour la sauvegarde partir
de la date d'impression de mon .doc

Merci de votre aide
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
heureux-oli
Le #19115911
Salut,

Je ne comprend pas très bien la manipulation.
Un signet qui contient la date d'impression pour le nom du document ? 8-)

Tu peux obtenir cette information au travers des champs et des propriétés de
document.

{ DOCPROPERTY LastPrinted * MERGEFORMAT }

Mais un champ ou un signet ne te donneras pas de nom.
Pour y parvenir, tu dois faire appel au VBA avec uncode semblable à
celui-ci.

*****************************
Private Sub Document_Close()
Dim oFld As FileDialog

Set oFld = Application.FileDialog(msoFileDialogSaveAs)
With oFld
.InitialFileName =
Format(ActiveDocument.BuiltInDocumentProperties(wdPropertyTimeLastPrinted),
"yyyy-mm-dd")
.Show
End With
oFld.Execute
End Sub
******************************
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------


Bonjour,

Comment faire un signet (Renv) sur un champ Date d'impression
(DateImpr) ?

Je désire en fait créer le nom du fichier pour la sauvegarde à partir
de la date d'impression de mon .doc

Merci de votre aide
Circé
Le #19118141
Bonjour,


Il se trouve que heureux-oli a formulé :
Salut,

Je ne comprend pas très bien la manipulation.
Un signet qui contient la date d'impression pour le nom du document ? 8-)

Tu peux obtenir cette information au travers des champs et des propriétés de
document.

{ DOCPROPERTY LastPrinted * MERGEFORMAT }

Mais un champ ou un signet ne te donneras pas de nom.



On peut combiner le champ TITLE avec le champ PRINTDATE ce qui donnera
par exemple :

{TITLE {PRINTDATE @ ddMMyy }}

Au moment de l'enregistrer sous, le nom sera par défaut la date
d'impression.

Circé
http://faqword.fr

Pour y parvenir, tu dois faire appel au VBA avec uncode semblable à celui-ci.

*****************************
Private Sub Document_Close()
Dim oFld As FileDialog

Set oFld = Application.FileDialog(msoFileDialogSaveAs)
With oFld
.InitialFileName =
Format(ActiveDocument.BuiltInDocumentProperties(wdPropertyTimeLastPrinted),
"yyyy-mm-dd")
.Show
End With
oFld.Execute
End Sub
******************************
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------


Bonjour,

Comment faire un signet (Renv) sur un champ Date d'impression
(DateImpr) ?

Je désire en fait créer le nom du fichier pour la sauvegarde à partir
de la date d'impression de mon .doc

Merci de votre aide


Publicité
Poster une réponse
Anonyme