Numérotation des révisions incrémentée
Le
C15
Bonjour à tous, bonjour à toutes (dont Circé bien sûr)
J'ai un document avec un en-tête dans lequel j'ai un
tableau avec REV 0 dans une cellule et nov 09 dans une autre.
Est-il possible que lorsque je modifie ce document
le mois correspondant à la date de révision s'affiche (par exemple déc 09)
le numéro de la révision change (REV 1) ?
Merci de votre aide.
A+
C15
J'ai un document avec un en-tête dans lequel j'ai un
tableau avec REV 0 dans une cellule et nov 09 dans une autre.
Est-il possible que lorsque je modifie ce document
le mois correspondant à la date de révision s'affiche (par exemple déc 09)
le numéro de la révision change (REV 1) ?
Merci de votre aide.
A+
C15
Poser une question
J'ai peut-être trouvé une piste :
pour la révision j'insère le champ Revnum qui me donne le nombre de
révisions effectuées.
pour la date, j'insère la date du dernier enregistrement Savedate au
format qui va bien.
Mon raisonnement est-il correct ?
Par contre la macro suivante n'a pas l'air de marcher pour que ces 2
champs, qui sont dans l'en-tête, s'actualisent à l'ouverture.
>>>
Sub autoexec()
ActiveDocument.Fileds.Update
End Sub
>>>>
Il semblerait qu'elle ne fonctionne que pour les champs qui sont dans le
corps du document.
Merci de votre aide.
A+
C15
C15 a écrit :
en théorie elle fonctionne pour tout le document, en pratique, il me
semble bien que vous avez raison.
Vous pouvez choisir dans quelle partie appliquer le update :
exemple inspiré de l'aide :
Set myRange = ActiveDocument.Sections(1).Footers _
(wdHeaderFooterPrimary).Range
myRange.fields.update
Soit on fait une boucle génrale sur l'ensemble des parties d'un
document :
Dim P As Range
For Each P In ActiveDocument.StoryRanges
P.fields.update
Next P
Pas testé complètement
--
A+
Il y a, dans la FAQ, une macro qui met à jour tous les champs de tous
les en-têtes et de tous les pdp :
http://faqword.com/index.php/faq/vb...ment-.html
Circé
http://faqword.com
C15 avait soumis l'idée :
Merci de cette réponse.
J'ai mis cette macro dans mon document et l'ai renommée AutoOpen pour
qu'elle se déclenche à l'ouverture du fichier.
Cela marche.
Mais, dans mes en-têtes j'ai utilisé le champ RevNum pour que mon
information Rev X s'incrémente dès que je modifie le document.
Le problème est que je voudrais que ce Rev X ne concerne que la section
courante, même mieux la page actuelle.
Revnum décompte le nombre de fois où le fichier, dans son ensemble, a
été sauvegardé et donc l'information Rev X est la même dans tous les
en-têtes, même si j'ai mis des sauts de section partout.
Pour résumer y-a-t'il un moyen de décompter les modifications faites
dans une section ?
Merci de ton aide.
A+
C15
Circé a écrit :
Il n'y a pas, à ma connaissance, de moyen de savoir combien de fois a
été révisée une section en particulier.
Cela étant dit, on peut effectivement créer une macro qui met à jour
les champs de la section courante :
Sub maj_champ2()
Dim oField As Field
Dim oHeader As HeaderFooter
For Each oHeader In Selection.Sections(1).Headers
If oHeader.Exists Then
For Each oField In oHeader.Range.Fields
oField.Update
Next oField
End If
Next oHeader
End Sub
Circé
http://faqword.com
C15 a émis l'idée suivante :