Landscape page as autotext?

[big john]

How can I save a landscape page with a header/footer and a field reference as
an autotext to use as needed.

 

[Graham Mayor]

You can't, but you can probably save it as a document and insert it with an
IncludeText field. The IncludeText field would have to come after a section
break could be saved with the break as the autotext entry.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[big john]

I really need this as a button for a template. Can i do it that way, or do i
need to do it as a macro? When i do it as a macro, it messes up the header
in the pages after and all the footers go to lanscape. Is there a way to fix
that problem?

 

[big john]

I need this button for a client to insert a landscape page with a
header/footer with a field reference. It is to be used when the client has a
need use a landscape page at the end of a portrait doc.

 

[Suzanne S. Barnhill]

I don't see why this wouldn't be possible as AutoText provided the
appropriate section breaks were included.

 

[big john]

How would i do it? I tried saving it as an autotext, but it didn't carry the
header/footer with it, only the paragraph mark.

 

[Suzanne S. Barnhill]

As noted, you have to include the section break, which stores the
header/footer and other section-level formatting.

 

[Graham Mayor]

The following macro should work and preserve your headers. You need to
insert the header where indicated

Sub InsertLandscapeSection()
Dim oHead1 As HeaderFooter
Dim oHead2 As HeaderFooter
Dim oHead3 As HeaderFooter
Dim sCurSection As String
Dim sHeadText As String
Dim sHead1Text As String
sHeadText = "This is the landscape header"
sCurSection = Selection.Information(wdActiveEndSectionNumber)
Set oHead1 = _
ActiveDocument.Sections(sCurSection).Headers(wdHeaderFooterPrimary)
oHead1.LinkToPrevious = False
sHead1Text = oHead1.Range
With Selection
.InsertBreak Type:=wdSectionBreakNextPage
.PageSetup.Orientation = wdOrientLandscape
Set oHead2 = _
ActiveDocument.Sections(sCurSection +
1).Headers(wdHeaderFooterPrimary)
oHead2.LinkToPrevious = False
oHead2.Range.Text = sHeadText
.InsertBreak Type:=wdSectionBreakNextPage
.PageSetup.Orientation = wdOrientPortrait
End With
Set oHead3 = _
ActiveDocument.Sections(sCurSection + 2).Headers(wdHeaderFooterPrimary)
oHead3.LinkToPrevious = False
oHead3.Range.Text = sHead1Text
oHead1.Range.Text = sHead1Text
End Sub

http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>