For the selected section and the following one: unlink headers fromprevious section

[andreas]

Dear Experts:

Below macro unlinks the current headers from the previous section. How
has this code to be expanded if I also wanted the following section's
headers to be unlinked from the previous section?

Help is much appreciated. Thank you very much in advance. Regards,
Andreas

With Selection.Sections(1)
..Headers(wdHeaderFooterPrimary).LinkToPrevious = False
..Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
..Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
End With

 

[Stefan Blom]

You can use

With ActiveDocument.Sections(Selection.Sections(1).Index + 1)

as the first line of your code; it returns the section following the one
containing the insertion point (assuming such a section exits, which the
code doesn't test for).

An easier approach is to use a loop to access all sections:

Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False
s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
Next s

 

[andreas]

You can use

With ActiveDocument.Sections(Selection.Sections(1).Index + 1)

as the first line of your code; it returns the section following the one
containing the insertion point (assuming such a section exits, which the
code doesn't test for).

An easier approach is to use a loop to access all sections:

Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False
s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
Next s

--
Stefan Blom
Microsoft Word MVP









- Show quoted text -

Hi Stefan,

thank you very much for your professional help. It works as desired.
Thank you. Regards, Andreas

 

[Stefan Blom]

You are welcome.

--
Stefan Blom
Microsoft Word MVP

You can use

With ActiveDocument.Sections(Selection.Sections(1).Index + 1)

as the first line of your code; it returns the section following the one
containing the insertion point (assuming such a section exits, which the
code doesn't test for).

An easier approach is to use a loop to access all sections:

Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False
s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
Next s

--
Stefan Blom
Microsoft Word MVP









- Show quoted text -

Hi Stefan,

thank you very much for your professional help. It works as desired.
Thank you. Regards, Andreas