The following code will insert a next page section break after the paragraph
in which the cursor is located:
Dim myrange As Range
Set myrange = Selection.Paragraphs(1).Range
myrange.Collapse wdCollapseEnd
myrange.InsertBreak wdSectionBreakNextPage
--
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
"daniel lie" <ubuntu76@yahoo.com.au> wrote in message news:...
> Message-ID: <407c95c028fd467e8d1c14db1b433852@newspe.com>
> X-Mailer: http://www.umailcampaign.com, ip log:58.6.69.163
> Newsgroups: microsoft.public.word.vba.general
> NNTP-Posting-Host: 22.bb.5446.static.theplanet.com 70.84.187.34
> Path: TK2MSFTNGP01.phx.gbl!TK2MSFTNGP03.phx.gbl!newspe.com
> Lines: 1
> Xref: TK2MSFTNGP01.phx.gbl microsoft.public.word.vba.general:121581
>
> Thank you Doug and Steven for your replies.
>
> Steven, apologise for not making it a lot clearer for you to understand my
> problem.
>
> Yes, your assumption's right. It's the empty line I was talking about.
> However, not sure what you meant by "but in relation to what?".
>
> I tried the code you gave and it still doesn't work. I think this may be
> to
> do with the fact that there is a page break involved there in the code.
>
> Here is the code i got
> myValue = InputBox("Enter here: ")
>
> If myValue <> "" Then
> myText = Trim(myValue)
>
> ' Insert a heading for the new section.
> Selection.Style = ActiveDocument.Styles("Section Heading 1")
>
> Selection.Bookmarks("\line").Select
> While Len(Selection.Text) > 1
> Selection.Move wdLine, 1
> Selection.Bookmarks("\line").Select
> Wend
> Selection.Collapse wdCollapseStart 'move cursor to the start of
> the
> new paragraph
>
> ' Add a paragraph break to return to "Normal" text.
> Selection.InsertBreak Type:=wdPageBreak
> Selection.TypeText (myText)
> Selection.TypeParagraph
> End If
>
> In the mean time, trying to figure how to use .range
>
> Thank you in advance
>
> url:http://www.ureader.com/msg/10228359.aspx