View Single Post
  #2   Report Post  
Posted to microsoft.public.word.pagelayout
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default Macro to Insert Formatted Pages

The following commands will insert a landscape oriented Section after the
first page of the document, leaving the rest of the document in portrait
orientation:

Dim page1 As Range
Selection.HomeKey wdStory
Set page1 = ActiveDocument.Bookmarks("\page").Range
page1.start = page1.End
page1.InsertBreak (wdSectionBreakNextPage)
page1.InsertBreak (wdSectionBreakNextPage)
ActiveDocument.Sections(2).PageSetup.Orientation = wdOrientLandscape


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"EddieLampert" wrote in message
...
I have an Access report that I brought into word, and I want to insert two
blank pages after the first (title) page. The first inserted page (second
pg
overall) I need in landscape format, and the second inserted page (third
pg
overall) I need portrait, like all the other pages except #2. I can do
this,
but when I record the macro for it and run it, puts the inserted pages at
the
beginning, and messes up the spacing to where it adds about 10 pages to an
80pg document. Any help would be appreciated. Let me know if I should post
the code for the recorded macro. Thanks a lot.