|
ED
|
avaliable
|
RT
|
not used
|
Moves the substate within the state one position up- or
downwards.
Sub zenOn_MoveSubStateExample() Dim zRema As Rema Dim zState As State Dim i As Integer Set zRema = MyWorkspace.ActiveDocument.Remas.Item(0) Set zState = zRema.StateItem(1) zState.MoveSubState 2, 0 For i = 0 To zState.GetSubStateCount - 1 Debug.Print zState.SubStateItem(i).Color Next i End Sub