Index Property

Microsoft Publisher Visual Basic

expression.Index

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example loops through the MailMergeDataFields collection and displays the Index and Name properties for each field.

Dim mmfLoop As MailMergeDataField

With ActiveDocument.MailMerge.DataSource
    If .DataFields.Count > 0 Then
        For Each mmfLoop In .DataFields
            Debug.Print "Field " & mmfLoop.Name _
                & " / Index " & mmfLoop.Index
        Next mmfLoop
    Else
        Debug.Print "No fields to report."
    End If
End With
		

The following example loops through the Plates collection and displays the Index and Name properties for each plate.

Dim plaLoop As Plate

If ActiveDocument.Plates.Count > 0 Then
    For Each plaLoop In ActiveDocument.Plates
        Debug.Print "Plate " & plaLoop.Name _
            & " / Index " & plaLoop.Index
    Next plaLoop
Else
    Debug.Print "No plates to report."
End If