Place cursor at the end of a section

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Peter Faulhaber - 10 May 2006 12:15 GMT

Hi All,

I have a document with multiple sections. The first page is a TOC and the
last one is the INDEX.

The user can add sections in the document. VBA code is working fine. The VBA
code is searching for the end of section and add a section break

BUT when a user want to add a section after INDEX, the section is added
after the TOC?

The VBA code is
Sub Sectie_Einde()
' Opzoek naar het einde van de sectie

Selection.Find.ClearFormatting
With Selection.Find
.Text = "^b"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.CorrectHangulEndings = True
End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.InsertBreak Type:=wdSectionBreakNextPage

End Sub

Reply to this Message

Jezebel - 10 May 2006 12:32 GMT

Forget all that nonsense. All you need is --

ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Range.InsertBreak

> Hi All,
>
[quoted text clipped - 28 lines]
>
> End Sub

Reply to this Message

Greg Maxey - 10 May 2006 13:04 GMT

Jezebel,

Wouldn't he need a bit more than that? First that errors if there is
only one section. If there are two sections it deletes one and puts in
a page break.

Perhaps:

Sub Test()
With Selection.Sections(1).Range
.Collapse wdCollapseEnd
.InsertBreak wdSectionBreakNextPage
End With
End Sub

Reply to this Message

Dave Lett - 10 May 2006 13:14 GMT

Hi Peter,

Maybe this will be useful:

Dim iSec As Integer
Dim oRng As Range
Set oRng = Selection.Range
oRng.Start = ActiveDocument.Range.Start
iSec = oRng.Sections.Count

If iSec = ActiveDocument.Sections.Count Then
MsgBox "You cannot add a section after " & _
"the index. Place the cursor in a section " & _
"that comes before the index and run the " & _
"routine again.", vbInformation
End
End If

Selection.EndOf _
Unit:=wdSection, _
Extend:=wdMove
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.TypeText Text:="New Section"

HTH,
Dave

> Hi All,
>
[quoted text clipped - 28 lines]
>
> End Sub

Reply to this Message