microsoft.public.word.vba.general

You are applying the style to the Selection which at that point is not in
the new Section.

--
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

"Associates" wrote in message
news:96C7EF98-C38A-4EC7-8979-633DC71D80F9@microsoft.com...
> Hi Doug,
>
> No, the break was inserted in the right place which is in the next page
> (that's what i expected). However, what it did not do was it didn't put
> the
> "Section 2" in the next page. What i want to see is that when user clicks
> on
> "add new section button", he/she is prompted for the heading. As soon as
> he
> hits the "OK" button, it should insert a new page break as well as putting
> whatever the next Section number to that new page.
>
> this is the code i've got so far.
> Sub InsertSection()
> Dim srange As Range
> Set srange = Selection.Sections(1).Range
> srange.Collapse wdCollapseEnd
> srange.InsertBreak wdSectionBreakOddPage
>
> Selection.Style = ActiveDocument.Styles("Section Heading 1")
>
> Selection.TypeText Text:=InputBox("Please enter the section heading:",
> "Enter Section Heading")
> Selection.TypeParagraph
> End Sub
>
> Your help is greatly appreciated.
>
> Thank you in advance
>
>
>
>
>
> "Doug Robbins - Word MVP" wrote:
>
>> Are you saying that the break was inserted in the wrong place? That is
>> not
>> at the end of the section in which the selection was located?
>>
>> If you do not want the new section to start on a new page, change the
>> wdSectionBreakNextPage to wdSectionBreakContinuous
>>
>> --
>> 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
>>
>> "Associates" wrote in message
>> news:6C8E1D13-65C3-4416-94AE-0E13BAE79E74@microsoft.com...
>> > Thank you, Doug for your reply.
>> >
>> > I tested it but it still didn't solve the problem. However, it did put
>> > a
>> > new
>> > page break to it. I might have done it wrong.
>> >
>> > This is what i did
>> > Sub InsertNewSection()
>> >
>> > Dim srange As Range
>> > Set srange = Selection.Sections(1).Range
>> > srange.Collapse wdCollapseEnd
>> > srange.InsertBreak wdSectionBreakNextPage
>> >
>> > 'Selection.InsertBreak Type:=wdSectionBreakOddPage
>> > 'Selection.Style = ActiveDocument.Styles("Section Heading 1")
>> >
>> > 'ListGalleries(wdOutlineNumberGallery).ListTemplates(7).Name = ""
>> > 'Selection.Range.ListFormat.ApplyListTemplate
>> > ListTemplate:=ListGalleries( _
>> > wdOutlineNumberGallery).ListTemplates(7),
>> > ContinuePreviousList:=True, _
>> > ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
>> > wdWord10ListBehavior
>> >
>> > Selection.TypeText Text:=InputBox("Please enter the section
>> > heading:",
>> > "Enter Section Heading")
>> > Selection.TypeParagraph
>> >
>> > Selection.Font.Name = "Tahoma"
>> > End Sub
>> >
>> > It didn't put the page break before "Section 2" is added hence causing
>> > Section 2 sits on the same page as Section 1.
>> >
>> > Your help is appreciated.
>> >
>> > Thank you in advance
>> >
>> >
>> >
>> > "Doug Robbins - Word MVP" wrote:
>> >
>> >> The following code will insert a section break after the section in
>> >> which
>> >> the selection is currently located:
>> >>
>> >> Dim srange As Range
>> >> Set srange = Selection.Sections(1).Range
>> >> srange.Collapse wdCollapseEnd
>> >> srange.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
>> >>
>> >> "Associates" wrote in message
>> >> news:887BAB99-C0D7-46BE-9BB1-59DC50EE9229@microsoft.com...
>> >> > Hi,
>> >> >
>> >> > I was wondering if anyone might be able to help me here with the
>> >> > insertion
>> >> > of a new section in VBA. This is for word 03.
>> >> >
>> >> > My aim here is to make it easier for our staff to write up a report
>> >> > document
>> >> > for their client. Because so far we have a lot of inconsistencies in
>> >> > our
>> >> > staff's reports. One may use a different style or font size and so
>> >> > on.
>> >> > So
>> >> > i
>> >> > was asked to write a program in word VBA to mitigate the problem. I
>> >> > got
>> >> > some
>> >> > advice from this forum a while ago that some suggested me to use
>> >> > autotext
>> >> > (for it's easier than programming it from scratch). so i have used
>> >> > it
>> >> > and
>> >> > must confess that it does make it easier to achieve what i wanted
>> >> > without
>> >> > using extensive programming here.
>> >> >
>> >> > So the report consists of as follows in that order
>> >> > Covering page
>> >> > TOC
>> >> > Executive summary (optional)
>> >> > Sections
>> >> > Bibliography (optional)
>> >> > Glossary (optional)
>> >> > Appendixes (optional)
>> >> >
>> >> > Anyway, i made up a userform that would allow user to choose which
>> >> > of
>> >> > those
>> >> > sections they need to make up their report. so that works fine.
>> >> >
>> >> > The issue i'm having here is in "sections" section. In here, this is
>> >> > what
>> >> > it
>> >> > looks like
>> >> > Section 1 Inventory Re-structuring
>> >> > whereby Section 1 is automatically generated by word and Inventory
>> >> > Re-structuring is what user types in.
>> >> >
>> >> > Now, i have a macro program here called "insert a section". This
>> >> > will
>> >> > add
>> >> > a
>> >> > new section to the report in the "sections" section.
>> >> >
>> >> > The problem is when clicking on "insert a section". It put in the
>> >> > section
>> >> > but not continuation.
>> >> > For example. we have Section 1 (at the start), then add a new
>> >> > section -
>> >> > it
>> >> > should be Section 2 ... But it doesn't, it puts in Section 1 ... and
>> >> > of
>> >> > course this causes a problem in the page numbering in the footer.
>> >> > Instead
>> >> > of
>> >> > getting page 2, it says page 1. How do i work around this?
>> >> >
>> >> > Here is the code for inserting a section
>> >> > Sub InsertNewSection()
>> >> > Selection.InsertBreak Type:=wdSectionBreakOddPage
>> >> > Selection.Style = ActiveDocument.Styles("Section Heading 1")
>> >> >
>> >> > ListGalleries(wdOutlineNumberGallery).ListTemplates(7).Name = ""
>> >> > Selection.Range.ListFormat.ApplyListTemplate
>> >> > ListTemplate:=ListGalleries( _
>> >> > wdOutlineNumberGallery).ListTemplates(7),
>> >> > ContinuePreviousList:=True, _
>> >> > ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
>> >> > wdWord10ListBehavior
>> >> >
>> >> > Selection.TypeText Text:=InputBox("Please enter the section
>> >> > heading:",
>> >> > "Enter Section Heading")
>> >> > Selection.TypeParagraph
>> >> >
>> >> > Selection.Font.Name = "Tahoma"
>> >> > End Sub
>> >> >
>> >> > Sub marginstyle()
>> >> > StyleName = "Section Heading 1"
>> >> >
>> >> > For Each oStyle In ActiveDocument.Styles
>> >> > If oStyle.NameLocal = StyleName Then GoTo Setup
>> >> > Next oStyle
>> >> > ActiveDocument.Styles.Add Name:=StyleName,
>> >> > Type:=wdStyleTypeParagraph
>> >> >
>> >> > Setup:
>> >> > With ActiveDocument.Styles(StyleName)
>> >> > .AutomaticallyUpdate = False
>> >> > .BaseStyle = ActiveDocument.Styles(wdStyleHeading1)
>> >> > .NextParagraphStyle = "Normal"
>> >> > .Font.Name = "Tahoma"
>> >> > End With
>> >> >
>> >> > With ActiveDocument.Styles(StyleName).Font
>> >> > .Size = 20
>> >> > .ColorIndex = wdGreen
>> >> > .Name = "Tahoma"
>> >> > End With
>> >> >
>> >> > Selection.Font.Name = "Tahoma"
>> >> > End Sub
>> >> >
>> >> > I don't know how to stop it from starting at 1. Thank you very much
>> >> > in
>> >> > advance
>> >>
>> >>
>> >>
>>
>>
>>