Opdater indholdsfortegnelse automatisk - ikke kun ved udskrift

Højreklik på indholdsfortegelsen, og vælg "opdater", derefter kan du gemme dokumentet...

Du kan ikke gøre det umiddlebart. Du kan muligvis lave en makro, der opdaterer dine felter, når du gemmer, men mit bedste gæt er, at det er nemmere at gøre det manuelt.

ctrl+a -> f9 -> pil ned -> enter

Du kan markere indholdsfortegnelsen og trykke F9. Skal den gøres automatisk ved lukning, må du indspille en makro og placere den i et modul, som du kalder "Autoclose"

Takker, men det skal foregå automatisk...

Peter kan du hjælpe mig lidt med en sådanne macro, kan ikke lige gennemskue helt hvad du mener....;o)

Du skal lave en makro, der ser sådan ud:

Sub FileSave()
  On Error Resume Next
  ActiveDocument.TablesOfContents(1).Update
End Sub

Den opdaterer din indholdsfortegenlse hver gang du gemmer et dokument.

Undskyld, jeg glemte den vigtigste linie:

Sub FileSave()
    On Error Resume Next
    ActiveDocument.TablesOfContents(1).Update
    ActiveDocument.Save
End Sub

Det virker bare perfekt...

jeg har nu fundet ud af hvad jeg skal bruge koden til....;o)

du har klart fortjent dine point, men nu når vi er igang kan detnne koden ikke redigeres således at den opdatere alle felter (sidefode m.m) ??

Et øjeblik :-)

Gælder mig....

der er dog et enkelt problem, hvis man lukker et redigeret dokument, så kommer office og spørger om man vil gemme, og når man så siger 'ja' så gemmer office dokumentet, men det er ikke blevet opdateret...:O(

Funktioner ovenfor virker kun, når du aktivt gemmer dokumentet. Ikke når du gemmer passivt. Hvis den skal kunne det, skal den nok ligge to forskellige steder. Det ser jeg også lige på.

Denne opdaterer alting, men stadig kun når du gemmer aktivt:

Sub FileSave()
    On Error Resume Next
    ActiveDocument.TablesOfContents(1).Update
    ActiveDocument.Fields.Update
    n = ActiveDocument.Sections.Count
    For i = 1 To n
        ActiveDocument.Sections(i).Headers(1).Range.Fields.Update
        ActiveDocument.Sections(i).Footers(1).Range.Fields.Update
    Next i
    ActiveDocument.save
End Sub

jkrons: Man kan jo sætte dokumentet til at autosave. Vil det så også virke?

Det er aldeles perfekt, kom med et svar og du vil modetage de mest fortjente point ....;-}

Arbejder du videre på at få det til at virke ved passiv lukning?

endnu engang tak

Nej. Det virker som nævnt kun når du aktivt gemmer dokumentet med Gem knappen eller via Filer - Gem.

Det virker heller ikke, hvis du bruger Gem som i stedet for et dokument, der skal gemmes under et nyt navn.

checker lige autosave

Jeg skal lige til et møde. så kigger jeg på passiv lukning bagefter.

Det med den passive gemning er ikke så nem endda, da der tilsyneladende ikke udløses nogen hændelse i forbindelse med lukningen af dokumentet - i hvert fald ikke en man kan fange generelt. Du kan gøre det i et et konkret dokument, men jeg har nednu ikke fundet en smart metode, der virker generelt.

det er også ok hvis det kan lade sig gøre i et konkret dokument, dokumentet skal nemlige fungere som template.

Så prøv at lægge nedenstående kode ind i ThisDocument modulet. Men læg det på hældende Document_Close.

Private Sub Document_Close()
On Error Resume Next
    ActiveDocument.TablesOfContents(1).Update
    ActiveDocument.Fields.Update
    n = ActiveDocument.Sections.Count
    For i = 1 To n
        ActiveDocument.Sections(i).Headers(1).Range.Fields.Update
        ActiveDocument.Sections(i).Footers(1).Range.Fields.Update
    Next i
End Sub

Funktionen aktiveres kun, hvis der siges Ja til at gemme. Ikke hvis der siges nej.

hældende = Hændelse