for a new-column break
Sub break() ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdColumnBreak End Sub