#16
|
||||
|
||||
Having seen your document, it is evident that simply deleting Section breaks will compromise its layout. The following code should achieve the desired result:
Code:
Sub LinkSections() Application.ScreenUpdating = False Dim HdFt As HeaderFooter, Rng As Range, Sctn As Section With ActiveDocument If .Sections.Count > 1 Then For Each HdFt In .Sections(.Sections.Count).Headers If HdFt.Exists Then If Len(.Sections(1).Headers(HdFt.Index).Range) > 1 Then HdFt.Range.FormattedText = .Sections(1).Headers(HdFt.Index).Range.FormattedText HdFt.Range.Characters.Last.Delete End If End If Next For Each HdFt In .Sections(.Sections.Count).Footers If HdFt.Exists Then If Len(.Sections(1).Footers(HdFt.Index).Range) > 1 Then HdFt.Range.FormattedText = .Sections(1).Footers(HdFt.Index).Range.FormattedText HdFt.Range.Characters.Last.Delete End If End If Next End If For Each Sctn In .Sections For Each HdFt In Sctn.Headers If HdFt.Exists Then HdFt.LinkToPrevious = True HdFt.PageNumbers.RestartNumberingAtSection = False End If Next For Each HdFt In Sctn.Footers If HdFt.Exists Then HdFt.LinkToPrevious = True HdFt.PageNumbers.RestartNumberingAtSection = False End If Next Next .Fields.Update End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#17
|
|||
|
|||
This has worked perfectly, thank you so much Paul, that's exactly what I needed, thank you so much for your help.
Having seen my document, are you also able to advise why the table on contents doesn't pull formatting (font, colour, size, styles) from the main document? |
#18
|
||||
|
||||
The Table of Contents formatting looks OK to me. From what I can see, font colours are being preserved (e.g. for YR3Peripheral vascular disease [PVD] 32). Do note that the Table of Contents formatting is controlled by whatever is applied to the relevant TOC Styles, not by the Heading Styles. So, if you want to apply Small Caps, as per the headings, you need to modify the corresponding TOC Styles.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#19
|
|||
|
|||
Thank you, I'll look into that.
The only issue I'm having with that macro now is that, now when I save the document, it asks me if I want to overwrite the the saved document with 'this new version' -- any ideas why? |
#20
|
||||
|
||||
Nothing in the code re-write would affect the save behaviour. Perhaps you previously added the code to the mailmerge main document, but now you've added it to the mailmerge output document?
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#21
|
|||
|
|||
Quote:
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Cannot Update Page Numbers Only on Table of Contents | CrossReach | Word | 8 | 03-09-2016 01:18 PM |
Table of Contents - page numbers not aligned to the right in longer headings | krneki | Word | 3 | 08-17-2015 08:34 AM |
Align Mail Merged Numbers to the Decimal Point | HangMan | Mail Merge | 1 | 12-11-2013 02:32 PM |
Page Numbers in Table of Contents | MerRob54 | Word | 6 | 01-28-2013 03:37 AM |
decimal numbers not appearing properly in merged document | paulys | Mail Merge | 2 | 08-06-2012 08:15 AM |