02. august 2004 - 17:47Der er
4 kommentarer og 1 løsning
Indholdsfortegnelse - fodnoter
Hej
Jeg sidder med et problem i Word 2003 ang. en indholdsfortegnelse over fodnoter. Inde under indholdsfortegnelse har man mulighed for at vælge en typografi/style man gerne vil have lavet indholdsfortegnelse over men det virker ikke med Fodnotetekster, men gør med billedtekster og figurer?
Den laver TC felter ved hvert fodnotereference som så kan bruges til at lave en indholdsfortegnelse med.
Sub nm030804() Dim vrng As Range Dim i As Long Dim FootText As String
For i = ActiveDocument.Fields.Count To 1 Step -1 If ActiveDocument.Fields(i).Type = wdFieldTOCEntry Then ActiveDocument.Fields(i).Delete End If Next i For i = 1 To ActiveDocument.Footnotes.Count Set vrng = ActiveDocument.Footnotes(i).Range FootText = vrng.Text Set vrng = ActiveDocument.Footnotes(i).Reference vrng.Collapse wdCollapseEnd vrng.Fields.Add vrng, wdFieldEmpty, "TC " & Chr(34) & FootText & Chr(34), False Next i End Sub
Lav et TOC felt som lister TC felter, som dette { TOC \f }og kør makroen. NOTE. vær varsom hvis du iøvrigt bruger TC felter til at markere indgange i indholdsfortegnelser.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.