** add section oDoc.Sections.Add() ** add section break oDoc.PageSetup.Sectionstart = 0 && wdSectionContinuous sRange = oDoc.Sections[2].Range sRange.Text = "" sRange.ParagraphFormat.KeepTogether = .t. sRange.ParagraphFormat.LineSpacingRule = 0 && wdLineSpaceSingle srange.Paragraphs.LineSpacing=10 oApp.Visible = .T. && temporary so I can watch what's happening ** Set up columns oDoc.Sections[2].PageSetup.textcolumns.setcount(2) SectionCnt = 2So, if I'm following your suggestion, I should add the line "sRange.ParagraphFormat.KeepWithNext = True" right after the "KeepTogether" line. I'll give that a try and see what happens