Selection move down : Selection « Excel « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.Get the address of selection
2.Is the current selection a Range
3.Determining the type of selected range
4.Returns a count of all cells in a selection: using the Selection and Count properties
5.Returns a count of the number of rows in a selection
6.Returns a count of the number of columns in a selection
7.Counts columns in a multiple selection
8.To add a range name based on a selection
9.Get selection address
10.Toggling a Boolean property
11.Code does / does not use With-End With
12.Find next heading