Sub ScratchMacro() 'A basic Word macro coded by Greg Maxey If Selection.Paragraphs(1).Range.Words.Count > 2000 Then Selection.InsertParagraph End If End Sub