Opdatering af indholdsfortegnelse - Word97

Du bliver nødt til at låse dokumentet op før opdateringen.

Hej erikjuul

Jeg har følgende koder i formularen, men synes ikke de hjalp.

Sub OpdateringAfIndholdsfortegnelse()
  If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect
    Selection.GoTo What:=wdGoToBookmark, Name:="Indholdsfortegnelse"
    Selection.WholeStory
    Selection.Fields.Update
  End If

BeskytDokument
End Sub

Sub BeskytDokument()
If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub

Så vidt jeg kan se chekker begge dine makro om dokument er ubeskyttet. Den første skal chekke om dokumentet er beskyttet.

Nej ikke enig, den 1. macro chekker om dokument er beskyttet, hvis ja så låser dokumentet op og nr. 2 chekker om dokument er afbeskyttet, hvis ja så låser dokumentet.

lukker

lukker