Active document paragraph
Sub loopDemo() Dim i As Integer For i = 1 To ActiveDocument.Paragraphs.Count Application.StatusBar = "formatting" & i & " out of " & ActiveDocument.Paragraphs.Count & "..." Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove Next i End Sub