If the problem is that the Word Table Of Contents is being converted to plain text when using the Kindle format, you may need to convert it to a set of hyperlinks instead.
The following macro converts a Table of Contents to Hyperlinks (without page #s). Since hyperlinks don't update the way TOC fields do, it's probably best to not do the conversion until the document is otherwise finalised.
Sub ConvertTOC2Hyperlinks()
Dim RngTOC As Range, RngItem As Range, StrBkMkList As String, StrTmp As String, i As Long
With ActiveDocument
With .TablesOfContents(1)
.Update
For i = 2 To .Range.Fields.Count
StrBkMkList = StrBkMkList & "|" & Split(Trim(.Range.Fields(i).Code.Text), " ")(1)
Next
Set RngTOC = .Range
End With
RngTOC.Fields.Unlink
For i = 1 To UBound(Split(StrBkMkList, "|"))
Set RngItem = RngTOC.Paragraphs(i).Range
RngItem.End = RngItem.End - 1
StrTmp = Replace(Split(StrBkMkList, "|")(i), "Toc", "HL")
.Bookmarks.Add Name:=StrTmp, Range:=.Bookmarks(Split(StrBkMkList, "|")(i)).Range
.Bookmarks(Split(StrBkMkList, "|")(i)).Delete
.Hyperlinks.Add Anchor:=RngItem, SubAddress:=.Bookmarks(StrTmp).Range, _
TextToDisplay:=.Bookmarks(StrTmp).Range.Text
Next
End With
End Sub
Cheers
Paul Edstein
[MS MVP - Word]
