Opdatere {Fillin og Ref} i sidehoved og sidefod?!

Du kan ikke få et felt i sidehovedet til at poppe op med F9, men du kan lave et felt udenfor sidehovedet med skjult tekst og så refererer til det i sidehovedet med et ref felt.

Du opdaterer ref felter i dokumentet ved at Markere alt og trykke F9

jeg har et ref felt i min sidefod, som referere til et felt i dokumentet, men når jeg opdatere med F9, så sker der intet med mit felt i sidefoden!? men når man markere alt bliver sidehoved og fod jo heller ikke markeret!?

{ REF værdi3 \h  \* MERGEFORMAT } hvor "værdi3" er et bookmark!

{ FILLIN "angiv en værdi3" \o  \* MERGEFORMAT }  <-- denne har jeg markeret og lavet et bookmark, som jeg så referere til i min sidefod {ref "bookmark" \h...}

nide i printer options, kan man få den til at "update" alle felter før man den udskriver, i denne forbindelse retter den både {ref} i sidehoved og sidefod?!

Jep - printerinstillingen opdatere alle felter - desværre også formularfelter, hvis de bruges og det er ikke så godt, da de så sættes til standard.

Hvis ikke det er nok så har jeg et par makroer, der opdater ref felter i hele dokumentet.

det vil sige at man kan køre macroen, og så opdateres alle ref-felter, også i sidehoved/fod!? :) ville jeg meget gerne have, så ville det bøvl med at skulle indtaste i 64 formularfelter være fortid :) kan du enten poste koden, eller sende koden pr. mail? kenneth.koehler@nbg7.siemens.de & kenneth@wuhuu.dk

(hvis man gemmer en macro under "this document" så er det lige meget hvilken computer man åbner dokumentet på, så vil den kunne køres?!)

Ja- hvis du gemmer den i skabelonen og makrosikerheden er sat til Lav. Men nedenstående kode skal gemmes i et modul i skabelonen - så kan du altid refererer til den fra ThisDocument i f.eks. Document_Close

Her er koden til at opdatere ref felter:

Sub OpdaterRefFelter()
'Denne funktion opdater alle referancefelter i dokumentet
Dim n As Integer
Dim TypeFelt As Variant

Application.ScreenUpdating = False

On Error Resume Next
For n = 1 To ActiveDocument.Fields.Count
    TypeFelt = ActiveDocument.Fields.Item(n).Type

    'Kun referancefelter
    If TypeFelt = "3" Then
        ActiveDocument.Fields.Item(n).Update
    End If
Next

For Each rngStory In ActiveDocument.StoryRanges
    rngStory.Fields.Update
Next

Application.ScreenUpdating = True

End Sub

alletiders, vil prøve at lave dokumentet færdigt når jeg har været til forkost :) tusind tak!