'Contourne un bug word qui "oubli" les 1ers Header/Footer nDummy = ActiveDocument.Sections(1).Headers(1).Range.StoryType
'Through all story types (body, header, footer, endnotes, footnotes, textboxes, etc) For Each oRange In ActiveDocument.StoryRanges Do 'Through all linked stories oRange.Fields.Update Set oRange = oRange.NextStoryRange Loop Until oRange Is Nothing Next
Set oRange = Nothing Application.ScreenUpdating = True End Function
Aussi, après ça, si tu veux t'éviter d'avoir un prompt qui te demande d'enregistrer ton document en sortie (normal puisque le recalcul à généré des modifs), tu peux toujours mettre un Saved=True juste après.
[Posted to microsoft.public.fr.word and copy sent to the cited author]
In article <41931aae$0$21244$ba620e4c@news.skynet.be>,
stephane.coel@skynet.be says...
Bonjour,
Je travaille en Word 97 version us sous XP.
Les pages du document sont numérotées sous le format
"page 5 de 12".
Lorsque je sauve le document et que je le réouvre, le nombre
total de pages est toujours 1 au lieu de 12: "page 5 de 1".
Merci de votre aide.
--
Stéphane Coël
Il faut que tu force le recalcul des champs à l'ouverture de ton doc.
'Contourne un bug word qui "oubli" les 1ers Header/Footer
nDummy = ActiveDocument.Sections(1).Headers(1).Range.StoryType
'Through all story types (body, header, footer, endnotes, footnotes,
textboxes, etc)
For Each oRange In ActiveDocument.StoryRanges
Do 'Through all linked stories
oRange.Fields.Update
Set oRange = oRange.NextStoryRange
Loop Until oRange Is Nothing
Next
Set oRange = Nothing
Application.ScreenUpdating = True
End Function
Aussi, après ça, si tu veux t'éviter d'avoir un prompt qui te demande
d'enregistrer ton document en sortie (normal puisque le recalcul à
généré des modifs), tu peux toujours mettre un Saved=True juste après.
'Contourne un bug word qui "oubli" les 1ers Header/Footer nDummy = ActiveDocument.Sections(1).Headers(1).Range.StoryType
'Through all story types (body, header, footer, endnotes, footnotes, textboxes, etc) For Each oRange In ActiveDocument.StoryRanges Do 'Through all linked stories oRange.Fields.Update Set oRange = oRange.NextStoryRange Loop Until oRange Is Nothing Next
Set oRange = Nothing Application.ScreenUpdating = True End Function
Aussi, après ça, si tu veux t'éviter d'avoir un prompt qui te demande d'enregistrer ton document en sortie (normal puisque le recalcul à généré des modifs), tu peux toujours mettre un Saved=True juste après.
