Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
heureux-oli
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/
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
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/
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/
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é
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/
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
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/
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/
