Метод Shape.RemoveCatalogMergeArea (Publisher)

Статья
04/07/2023

Удаляет область слияния каталога с указанной страницы публикации. Все фигуры, содержащиеся в области слияния каталога, остаются на странице, но больше не подключены к источнику данных слияния каталога.

Синтаксис

expression. RemoveCatalogMergeArea

Выражение Переменная, представляющая объект Shape .

Замечания

Удаление области слияния каталога со страницы публикации не отключает источник данных от публикации. Используйте свойство IsDataSourceConnected объекта Document , чтобы определить, подключен ли источник данных к публикации.

Используйте метод AddCatalogMergeArea коллекции Shapes , чтобы добавить область слияния каталога в публикацию. Страница публикации может содержать только одну область слияния каталога.

Пример

В следующем примере проверяется, содержит ли какая-либо страница указанной публикации область слияния каталога. Если какая-либо страница это делает, все фигуры удаляются из области слияния каталога и удаляются, а область слияния каталога удаляется из публикации.

Sub DeleteCatalogMergeAreaAndAllShapesWithin() 
 Dim pgPage As Page 
 Dim mmLoop As Shape 
 Dim intCount As Integer 
 Dim strName As String 
 
 For Each pgPage In ThisDocument.Pages 
 For Each mmLoop In pgPage.Shapes 
 
 If mmLoop.Type = pbCatalogMergeArea Then 
 With mmLoop.CatalogMergeItems 
 For intCount = .Count To 1 Step -1 
 strName = mmLoop.CatalogMergeItems.Item(intCount).Name 
 .Item(intCount).RemoveFromCatalogMergeArea 
 pgPage.Shapes(strName).Delete 
 Next 
 End With 
 mmLoop.RemoveCatalogMergeArea 
 End If 
 
 Next mmLoop 
 Next pgPage 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.