Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

For a continuous break

Sub break5()     ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _             End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionContinuous End Sub