Solved

Word VBA Inserting Section Break for Landscape Page

Posted on 2009-05-15
3
1,200 Views
Last Modified: 2013-11-25
I'm only new to VBA.  I am trying to insert a Landscape Page into my Word document by VBA code.  It inserts the page fine but I've noticed that it is applying the style "footer landscape" style to the page before it (that is before the section break) as well .  Does anyone know what I've done wrong and how to isolate the footer change to just the new section??  I'm hoping for a very quick reply.
Sub InsertLandscape()

 

    Application.ScreenUpdating = False

 

    ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _

        InsertBreak Type:=wdSectionBreakNextPage

    Selection.Start = Selection.Start + 1

    

    

    

    With ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument. _

        Content.End).PageSetup

        .TextColumns.SetCount NumColumns:=1

        .LineNumbering.Active = False

        .Orientation = wdOrientLandscape

        .TopMargin = CentimetersToPoints(0.9)

        .BottomMargin = CentimetersToPoints(1.7)

        .LeftMargin = CentimetersToPoints(2)

        .RightMargin = CentimetersToPoints(2)

        .HeaderDistance = CentimetersToPoints(0.3)

        .FooterDistance = CentimetersToPoints(0.6)

        .DifferentFirstPageHeaderFooter = False

    End With

  

    

    ActiveDocument.AttachedTemplate.AutoTextEntries("FooterLandscape").Insert _

    Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, RichText:=True

    

    ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Style = "Footer Landscape"

   

  

 

    Application.ScreenUpdating = True

 

End Sub

Open in new window

0
Comment
Question by:Fi69
  • 2
3 Comments
 
LVL 17

Assisted Solution

by:wobbled
wobbled earned 100 total points
ID: 24411517
I think your problem is with this line

 Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, RichText:=True


you have hard coded in the section number so it will always place this in the section 1.  You need to get the section number of the section you have just added.
0
 
LVL 19

Accepted Solution

by:
dlc110161 earned 400 total points
ID: 24413446
I agree with wobbled

Below is the modification I would do so that footer changes will be added to the newly created section.

Dawn Bleuel
Word MVP
Sub InsertLandscape()

Dim sCount As Integer

sCount = ActiveDocument.Sections.Count

 

    Application.ScreenUpdating = False

 

    ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _

        InsertBreak Type:=wdSectionBreakNextPage

    Selection.Start = Selection.Start + 1

    

sCount = ActiveDocument.Sections.Count

    

    With ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument. _

        Content.End).PageSetup

        .TextColumns.SetCount NumColumns:=1

        .LineNumbering.Active = False

        .Orientation = wdOrientLandscape

        .TopMargin = CentimetersToPoints(0.9)

        .BottomMargin = CentimetersToPoints(1.7)

        .LeftMargin = CentimetersToPoints(2)

        .RightMargin = CentimetersToPoints(2)

        .HeaderDistance = CentimetersToPoints(0.3)

        .FooterDistance = CentimetersToPoints(0.6)

        .DifferentFirstPageHeaderFooter = False

    End With

    

    ActiveDocument.AttachedTemplate.AutoTextEntries("FooterLandscape").Insert _

    Where:=ActiveDocument.Sections(sCount).Footers(wdHeaderFooterPrimary).Range, RichText:=True

    

    ActiveDocument.Sections(sCount).Footers(wdHeaderFooterPrimary).Range.Style = "Footer Landscape"
 

    Application.ScreenUpdating = True

 

End Sub

Open in new window

0
 
LVL 19

Assisted Solution

by:dlc110161
dlc110161 earned 400 total points
ID: 24413466
Ooops, delete the first sCount = ActiveDocument.Sections.Count statement. In order to get the proper section count you need the count AFTER the section has been created.

Dawn Bleuel
Word MVP
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

After several hours of googling I could not gather any information on this topic. There are several ways of controlling the USB port connected to any storage device. The best example of that is by changing the registry value of "HKEY_LOCAL_MACHINE\S…
Entering time in Microsoft Access can be difficult. An input mask often bothers users more than helping them and won't catch all typing errors. This article shows how to create a textbox for 24-hour time input with full validation politely catching …
This video teaches the viewer how to align pictures around text while keeping the text properly aligned in the document.
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now