Adding different headers and footers in Microsoft word

You must have section breaks in order to change the page orientation from portrait to landscape or vice versa. If you create your headers/footers using alignment tabs (see http://office.microsoft.com/en-us/word-help/master-headers-and-footers-in-long-word-2007-documents-HA010234134.aspx#BMalignment), they will adjust to the margin width.

http://word.tips.net/T000744_Inserting_a_Break_with_a_Macro.html

You know how to insert breaks in your text using menu commands, but you can also do the same thing under control of your macro. The InsertBreak method inserts any type of break in your document. The syntax is:

where BreakValue is one of the following values:

The following macro copies text one section at a time and saves that text in a new document. The macro uses the pre-defined bookmark \section to create the new document. This macro is useful for breaking up a mail merge "Merge to New Document" file.

NOTE: When you use this code to select and copy the text content of the document, the header and footer are not retained. Styles, fonts and layout may change if the main file and the new document are from different templates, but direct formatting is maintained.

http://answers.microsoft.com/en-us/office/forum/office_2010-word/splitting-a-word-document/a7c8f352-1279-495a-a354-841d141537f8#footer

Here is a macro to insert a section break before every Heading 1 paragraph (except at the beginning of the document). You can change the stye if you like

BTW, if you insert one section break manually, you can copy it, then enter ^c in the Replace With box to refer to the contents of the clipboard. So in this example, you could use ^c^& in the Replace With box to refer to the found text (the heading) followed by the contents of the clipboard (a section break).

Copying a section break is easier if you display non-breaking characters (¶)

The following code will insert a landscape section in a document, adjusting the headers\footers to suit:

Sub Landscape()
Dim newSec As Section
Dim rngsel As Range
Dim secnum As Long
secnum = Selection.Information(wdActiveEndSectionNumber)
Selection.InsertBreak Type:=wdSectionBreakNextPage
Set newSec = Selection.Sections(1)
With newSec
    With .PageSetup
        .Orientation = wdOrientLandscape
        pw = .PageWidth
        .LeftMargin = CentimetersToPoints(2.5)
        .RightMargin = CentimetersToPoints(2.5)
        rt = pw - CentimetersToPoints(5)
        ct = rt / 2
        .DifferentFirstPageHeaderFooter = False
    End With
    For j = 1 To .Headers.Count
        With .Headers(j)
            .LinkToPrevious = False
            For i = 1 To .Range.Paragraphs.Count
                With .Range.Paragraphs(i).TabStops
                    .ClearAll
                    .Add rt, wdAlignTabRight
                End With
            Next i
            .PageNumbers.RestartNumberingAtSection = False
            If .Range.Tables.Count > 0 Then
                With .Range.Tables(1).Columns(1)
                    .Width = CentimetersToPoints(21.5)
                End With
            End If
        End With
    Next j
    For j = 1 To .Footers.Count
        With .Footers(j)
            .LinkToPrevious = False
            For i = 1 To .Range.Paragraphs.Count
                With .Range.Paragraphs(i).TabStops
                    .ClearAll
                    .Add ct, wdAlignTabCenter
                    .Add rt, wdAlignTabRight
                End With
            Next i
        End With
    Next j
End With
Portrait
Set rngsel = ActiveDocument.Sections(secnum + 1).Range
rngsel.Collapse wdCollapseStart
rngsel.Select
rngsel.InsertBefore vbCr
ActiveWindow.ScrollIntoView rngsel
End Sub

Sub Portrait()
Dim newSec As Section
Selection.InsertBreak Type:=wdSectionBreakNextPage
Set newSec = Selection.Sections(1)
With newSec
    With .PageSetup
        .Orientation = wdOrientPortrait
        pw = .PageWidth
        lm = .LeftMargin
        rm = .RightMargin
        rt = pw - lm - rm
        ct = rt / 2
        .DifferentFirstPageHeaderFooter = False
    End With
    For j = 1 To .Headers.Count
        With .Headers(j)
            .LinkToPrevious = False
            For i = 1 To .Range.Paragraphs.Count
                With .Range.Paragraphs(i).TabStops
                    .ClearAll
                    .Add rt, wdAlignTabRight
                End With
            Next i
            .PageNumbers.RestartNumberingAtSection = False
            If .Range.Tables.Count > 0 Then
                With .Range.Tables(1).Columns(1)
                    .Width = CentimetersToPoints(12)
                End With
            End If
        End With
    Next j
    For j = 1 To .Footers.Count
        With .Footers(j)
            .LinkToPrevious = False
            For i = 1 To .Range.Paragraphs.Count
                With .Range.Paragraphs(i).TabStops
                    .ClearAll
                    .Add ct, wdAlignTabCenter
                    .Add rt, wdAlignTabRight
                End With
            Next i
        End With
    Next j
End With
ActiveWindow.ScrollIntoView Selection.Range
End Sub

Running the Landscape macro will automatically create another portrait section to follow it.

It will work in 2007, 2010 and 2013.