Свойство Plate.Index (Издатель)
Возвращает значение Long , представляющее позицию определенного элемента в указанной коллекции.
expression. Индекс
Выражение Переменная, представляющая объект Plate .
В следующем примере выполняется цикл по коллекции MailMergeDataFields и отображаются свойства Index и Name для каждого поля.
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
В следующем примере выполняется цикл по коллекции Plates и отображаются свойства Index и Name для каждой пластины.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.