How to Repair Dll Error Code In a Simple Way?: Fast Solution to Error: Deleting Section Break and rest of document loses header

Monday, September 26, 2016

Fast Solution to Error: Deleting Section Break and rest of document loses header

Deleting Section Break and rest of document loses header

Hi all,

I sort of understand this - that the header info is stored in the section break. But I have not been able to get this quite right in a macro. Let me explain what I am trying to do first:

- template has 2 sections (and only 2 pages); header is different in each; footer is the same
- user sometimes want to delete the second page and so I have put a macro button to do this
- when this happens, I want the first page header to remain as it is

Here is my macro. Feel free to suggest any changes as I am just trying to simplify code that was pulled from the macro recorder. I have used ranges before and have used a lot of the collections so if that is a better way to do it, please suggest.

With Selection

    ' go to the start of the 2nd section
    .GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=2

    With ActiveWindow.ActivePane

        ' make sure we are on Print view; should always be but just in case
        If .View.Type = wdNormalView Or .View.Type = wdOutlineView Then
            .View.Type = wdPrintView
        End If

        ' get into the header area
        .View.SeekView = wdSeekCurrentPageHeader

        ' link to previous section; it was previous False as the section headers were different; by linking, the
        ' 2nd section inherits the first section's header; debug: have to then toggle again because it seems when
        ' we delete the 2nd section, the first section loses it's header altogether

        Selection.HeaderFooter.LinkToPrevious = True
        Selection.HeaderFooter.LinkToPrevious = False

        ' in the case of the footer, they are currently the same so we have to "break" the linkage because otherwise,
        ' in testing, found that we lost our McKellar logo that is in the 1st section footer

        .View.SeekView = wdSeekCurrentPageFooter

        Selection.HeaderFooter.LinkToPrevious = False

        ' return to the main view
        .View.SeekView = wdSeekMainDocument

    End With

    ' move back 1 char before the Section break so that when we extend the selection, it includes the section
    ' break; then extend the selection to the end of the doc in prep for deleting

    .Move Unit:=wdCharacter, Count:=-1

    .EndKey Unit:=wdStory, Extend:=wdExtend

    ' delete the selection
    .Delete

    ' go back to the top of the document
    .HomeKey Unit:=wdStory

End With ' for With Selection

End Sub

Solutions to the Problem Deleting Section Break and rest of document loses header

Download SmartPCFixer for Free Now

Do you really need two sections? Or could you accomplish the same thing using "Different First Page"? This allows you to have different headers and footers on the first and subsequent pages, and deleting a second page has no effect on the header/footer
of the first page.

Open Action Center by clicking the Start button Picture of the Start button, clicking Control Panel, and then, under System and Security, clicking Review your computer's status.

Make sure your computer has at least the minimum amount of random access memory (RAM) required to run the program that is displaying the error. Look for the program requirements online or in the packaging information.

Recommended Method to Repair the Problem: Deleting Section Break and rest of document loses header:

How to Fix Deleting Section Break and rest of document loses header with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your system. Open it, and it will perform a scan for your computer. The junk files will be shown in the scan result.

2. After the scan is finished, you can see the errors and problems need to be fixed. Click Fix All.

3. When the Fixing part is finished, your computer has been speeded up and the errors have been removed

How to Repair Dll Error Code In a Simple Way?