Word VBA Inserting Section Break for Landscape Page

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

Fi69Asked:
Who is Participating?
 
dlc110161Connect With a Mentor Commented:
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
 
wobbledConnect With a Mentor Commented:
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
 
dlc110161Connect With a Mentor Commented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.