how to have multiple headings on the same line in ms word toc

[SYR1245]

Hi.
I am writing a book, in microsoft word, with chapters and subsections. I would like to format my table of contents to look like below, where Heading1 is the chapter title and heading3 is the subsection title. How could I set this up?

Heading1 Page x

Heading3 p#, Heading3 p#, Heading3 p#, Heading3 p#, Heading3 p#.....

Heading1 Page x

Heading3 p#, Heading3 p#, Heading3 p#, Heading3 p#, Heading3 p#.....
thank you

[Guessed]

As far as I know there is no way with field codes to create a TOC that follows that pattern.

It would be possible to create a macro that refreshes a TOC and then replaces the paragraph marks on TOC3 with a "comma space". It would need to leave the TOC field locked to prevent accidental refreshing which would return the merged paragraphs back to their "normal" state

Is there a reason your description avoids Heading 2?

[Charles Kenyon]

I agree with Andrew. You could modify your TOC field so that the page numbers for level 3 follow the text rather than being right justified with a dot leader. You would still have to lock and modify the field to get your result.

You could have one main TOC and subsidiary TOCs for each chapter and have detail in the Chapter TOC.

See TOC Tips and Tricks by Suzanne Barnhill, MVP.

[Charles Kenyon]

Cross-posted at:MS Answers - ms word TOC subheadings on the same line


For cross-posting etiquette, please read: A Message to Forum Cross-Posters A message to forum cross posters - Excelguru

[Guessed]

If you used this macro to build or update your TOC it shows the basic principles. I set it for Heading 2 rather than Heading 3.

Sub TOCshrinker()
  Dim aTOC As TableOfContents, aRng As Range, aPara As Paragraph, iPara As Integer, aFld As Field
  If ActiveDocument.TablesOfContents.Count = 0 Then
    Set aRng = ActiveDocument.Range(0, 0)
    Set aTOC = ActiveDocument.TablesOfContents.Add(Range:=aRng, UseOutlineLevels:=True, UpperHeadingLevel:=1, LowerHeadingLevel:=3, RightAlignPageNumbers:=False, UseHyperlinks:=True)
  Else
    Set aTOC = ActiveDocument.TablesOfContents(1)
  End If
  With aTOC
    .Range.Fields(1).Locked = False
    .Update
    For iPara = aTOC.Range.Paragraphs.Count To 1 Step -1
      Set aPara = aTOC.Range.Paragraphs(iPara)
      If aPara.Style = "TOC 2" And aPara.Next.Style = "TOC 2" Then
        aPara.Range.Characters.Last = ", "
      End If
    Next iPara
    .Range.Fields(1).Locked = True
  End With
End Sub

[SYR1245]

thanks
I happened to be using heading 2 for something else.
Could you give me some basics on using marcos? I havent used them before

[Charles Kenyon]

• Install/Employ VBA Procedures (Macros) by Greg Maxey
• Instructions for Installing Macros from Forums or Websites by Graham Mayor, MVP

[popsncandies]

I was trying to figure it out myself, hence how I landed here.

If you type out your headings in separate lines:

Heading 2
Heading 2
Heading 2

Then go to your Table of Contents to refresh it so that they are all on it, you want them to be on the same page, and the page they will actually land on. I suggest doing this when you're done adding content or close to.

Go back to your headings, pick the line you want them on, hit tab then highlight and drag the next one up to that main line, hit tab, do the same with the next etc.:

Heading 2 (your needed tab space) Heading 2 (your needed tab space) Heading 2

If you need to refresh you table of contents, select numbers only. Which is why suggest you already have most of your work/ all your headings in place before doing so.

I realize I'm late to the discussion but I hope this makes sense and is helpful!