Get the Index number of the current sectionĭefine a range from the start of the document to the end of the first selected paragraph Msgbox (ActiveDocument.Range(0,Selection.Paragraphs(1).Range.End).Sections.Count) ObjPageSetup.SectionStart = wdSectionStart.wdSectionNewPageįirst and Last (1)Ī() These settings are only accurate for all the settings that are common to all the sections in the sections collection. The Sections collection has a PageSetup property that returns a PageSetup object. However for the other types of breaks the range or selection is actually replaced When you insert a section break it is inserted immediately before the specified range or selection
The Start is the type of section break to insert objSection.Add Range:=Start:= wdSectionStart.wdSectionContinuousĪn alternative way to insert a new section is using the InsertBreak method which applies to a Range or Selection objectĮxpression.InsertBreak( wdBreakType.wdSectionBreakNextPage) InlineShapes.AddPicture 'D:tantanFLOSdevil-may-cry-anime. Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp New Word.Application Set WordDoc With WordApp.Selection.
The Range parameter refers to the range before which the section break will be inserted This is my code for creating a Word Document using VB6. The section object represents a section in a document, range or selectionĮach of the Document, Range and Selection objects has a Sections property that returns a sections collection.
Execute Replace:= wdReplace.wdReplaceAll After running these lines of code the whole document will be selected.