Indholdsfortegnelse og Index i Word

Denne kode formaterer linjen med Overskrift 1 (i tilfælde af, at du vil bruge den andre steder, hvor typografien ikke er ændret endnu), derefter indsættes teksten, som du skriver i input-boksen, der oprettes et index med samme tekst, hvorefter både indholdsfortegnelse og index opdateres.

*****************
Public Sub OpretOverskriftOgIndex()
    Dim objHeading As Range
    Dim strText As String
   
    strText = InputBox("Skriv overskriften", "Overskrift og index")
   
    If strText <> "" Then
        Set objHeading = Selection.Range
        objHeading.Style = wdStyleHeading1
        objHeading.Collapse
        objHeading.Text = strText
        objHeading.Collapse wdCollapseEnd
        ActiveDocument.Indexes.MarkEntry Range:=objHeading, Entry:=strText, EntryAutoText:=strText, _
            CrossReference:="", CrossReferenceAutoText:="", BookmarkName:="", Bold:=False, Italic:=False
        ActiveDocument.TablesOfContents(1).Update
        ActiveDocument.Indexes(1).Update
    End If
End Sub

Hejsa - nu må vi altså snart få lukke dette spørgsmål :-)

Det virker - TAK!