Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Selection move down

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