Velden bijwerken in kop-en voettekst van WORD-document

Status
Niet open voor verdere reacties.

jofred

Gebruiker
Lid geworden
16 dec 2006
Berichten
172
In de kop- en voettekst van een document heb ik een aantal velden opgenomen (zoals rapporttitel, versienummer etc.). Deze velden zijn gekoppeld aan de documenteigenschappen.
Nu zou ik graag na wijziging van deze gegevens de velden willen bijwerken.
De wijziging van de documenteigenschappen laat ik de gebruiker via een formulier doen.
Voor het bijwerken gebruik ik nu het volgende commando:
Code:
'Velden bijwerken via afdrukvoorbeeldweergave
Application.ScreenUpdating = False
With ActiveDocument
    .PrintPreview
    .ClosePrintPreview
End With
Application.ScreenUpdating = True

Voorwaarde is wel dat de instelling van WORD is dat de velden worden bijgewerkt bij het afdrukken van een document. Nadeel is verder dat het toch even duurt voordat e.e.a. klaar is.

Mijn vraag is of iemand nog een andere manier weer om in VBA de velden bij te werken.

Ik het het overigens al geprobeerd met
Code:
Selection.WholeStory
Selection.Fields.Update

maar dat werkte niet (de kop-en voetteksten worden niet geselecteerd en dus ook niet geüpdate).
 
Je werkt het WholeStory alleen de body tekst bij, niet kop- en voetteksten. Dat doet deze macro wel:

Code:
Sub VeldenBijwerken()
With ActiveDocument
    .StoryRanges(wdMainTextStory).Fields.Update
    .StoryRanges(wdPrimaryFooterStory).Fields.Update
    .StoryRanges(wdPrimaryHeaderStory).Fields.Update
End With
End Sub
 
Octafish/Michel,

Dank voor je reactie, alleen.. het werkte niet bij mij.
Ik kreeg langs andere weg nog wel een tip.
Daaruit ben ik tot de volgende code gekomen en die werkt wel:

Code:
Application.ScreenUpdating = False
ActiveWindow.View.Type = wdNormalView
With Selection
    .WholeStory
    .Fields.Update
    .HomeKey Unit:=wdStory
End With
ActiveWindow.View.Type = wdPageView
Application.ScreenUpdating = False

Waarschijnlijk heeft e.e.a. te maken met het feit dat ik het document gebruik in de afdrukweergave
 
Laatst bewerkt:
De oplossing die ik eerder had bedacht werkt bij Word 2003, maar echter niet bij Word 2007.
De oplossing van Octafish/Michel heb ik in 2007 geprobeerd, maar die werkt helaas ook niet
Heeft iemand een idee?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan