Remove section 2

eduzs · #1 11-08-2018, 08:56 AM

I need to remove the section 2, merging the document in only one section with a VBA code.

Code:

Sub Rem_Sec()

Dim oSec As Section, x As Integer

For x = 2 To ActiveDocument.Sections.Count
    ActiveDocument.Sections(x).Headers(wdHeaderFooterPrimary).LinkToPrevious = True
Next x

With ActiveDocument.Range.Find
    .Text = "^b"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
End With

End Sub

But this code causes a blank header in the final document, the first section loose format.

There's any solution to this?

Thanks.

macropod · #2 11-08-2018, 01:34 PM

See: https://www.msofficeforums.com/word/...html#post20227

eduzs · #3 11-08-2018, 03:07 PM

Works fine, thanks.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cannot remove watermark after section break	DLM	Word	2	06-12-2018 09:14 AM
Remove Section break	Anitha	Word	3	12-21-2017 06:00 AM
How do I remove a section	mickapoo	Word	11	01-26-2016 06:58 PM
section page numbers reverting to following on from previous section after generating index	cloudtrapezer	Word	1	06-25-2015 01:16 AM
Remove unwanted Page in a Section Break	JacobReef	Word	1	06-10-2012 07:04 AM