Syntax
For CounterVariable = Start To End [Step Increment]
Series of instructions
Next [CounterVariable]
Remarks
Repeats the series of instructions between For and Next while increasing CounterVariable by 1 (default) or Increment until CounterVariable is greater than End. If Start is greater than End, Increment must be a negative value; CounterVariable decreases by Increment until it is less than End.
If you place one or more For¼Next loops within another, use a unique CounterVariable for each loop, as in the following instructions:
For I = 1 To 10 For J = 1 To 10 For K = 1 To 10 'Series of instructions Next K Next J Next I
For more information about For¼Next, see Chapter 4, "Advanced WordBasic," in Part 1, "Learning WordBasic."
Examples
This example displays five message boxes in a row, each giving the current value of count:
For count = 1 To 5 MsgBox "Current value of count is" + Str$(count) Next count
The following example produces exactly the same effect as the previous example by decrementing the value of count in steps of –1:
For count = 5 To 1 Step -1 MsgBox "Current value of count is" + Str$(count) Next
The following example demonstrates how you can use WordBasic counting functions with a For¼Next loop to perform an operation on all the items in a certain category. In this example, the names of all the bookmarks defined in the active document are stored in the array mark$().
numBookmarks = CountBookmarks() arraySize = numBookmarks - 1 Dim mark$(arraySize) For n = 0 To arraySize mark$(n) = BookmarkName$(n + 1) Next
See Also
Goto, If¼Then¼Else, Select Case, While¼Wend