#1
|
|||
|
|||
how to have multiple headings on the same line in ms word toc
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 |
#2
|
||||
|
||||
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?
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
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. |
#4
|
|||
|
|||
Cross-posted at:Redirecting
For cross-posting etiquette, please read: A Message to Forum Cross-Posters A message to forum cross posters - Excelguru |
#5
|
||||
|
||||
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.
Code:
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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#6
|
|||
|
|||
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 |
#7
|
|||
|
|||
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Combine Headings in Table of Contents on one line | jlkirk | Word | 8 | 03-14-2023 02:21 PM |
Trouble with extra blank space on line when using "Chapter" Headings in Microsoft Word | chudlerk | Word | 4 | 11-10-2021 11:27 AM |
How do I get text to line up with their headings? | Kimbre | Word | 5 | 11-22-2017 07:43 PM |
Transfer data from list with multiple headings from word to excel | psohms | Word | 1 | 06-11-2015 04:39 PM |
Multiple styles on same line in Microsoft Word | jhopppppp | Word | 2 | 12-05-2008 10:16 AM |