Classe ContentControl (Word VBA)

Contrôle de contenu spécifique.

Les procédures principales de la classe ContentControl sont Copy, Delete et ContentControls.Add

Set

Pour utiliser une variable de classe ContentControl, elle doit d'abord être instanciée, par exemple

Dim ccl as ContentControl
Set ccl = ActiveDocument.Range.ContentControls(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ContentControl : ParentContentControl, ContentControls.Add, ContentControls.Item, Range.ParentContentControl, Document.ContentControls, Document.SelectContentControlsByTag, Document.SelectContentControlsByTitle, Document.SelectLinkedControls, Document.SelectUnlinkedControls et Range.ContentControls

For Each

Voici un exemple de traitement des éléments ContentControl dans une collection

Dim ccl As ContentControl
For Each ccl In ActiveDocument.Range.ContentControls
	
Next ccl

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Format with its procedures Color, DateDisplayFormat, DateStorageFormat et DefaultTextStyle

Méthodes

Les méthodes principales de la classe ContentControl sont

Copy - Copie le contrôle de contenu du document actif dans le Presse-papiers.

ActiveDocument.Range.ContentControls(1).Copy

Delete - Supprime le contrôle de contenu spécifié et son contenu.

ActiveDocument.Range.ContentControls(1).Delete

ContentControls.Add - Ajoute un nouveau contrôle de contenu, du type spécifié, dans le document actif et renvoie un objet ContentControl qui représente le nouveau contrôle de contenu.

Dim ccl As ContentControl
Set ccl = ActiveDocument.Range.ContentControls.Add()

Autre Méthodes

SetCheckedSymbol - Définit le symbole utilisé pour représenter l'état activé d'un contrôle de contenu de case à cocher.

Dim lngCharacterNumber As Long: lngCharacterNumber =  
ActiveDocument.Range.ContentControls(1).SetCheckedSymbol CharacterNumber:=lngCharacterNumber

SetPlaceholderText - Définit le texte de l'espace réservé qui s'affiche dans le contrôle de contenu jusqu'à ce qu'un utilisateur entre son propre texte.

ActiveDocument.Range.ContentControls(1).SetPlaceholderText

SetUncheckedSymbol - Définit le symbole utilisé pour représenter l'état désactivé d'un contrôle de contenu de case à cocher.

Dim lngCharacterNumber As Long: lngCharacterNumber =  
ActiveDocument.Range.ContentControls(1).SetUncheckedSymbol CharacterNumber:=lngCharacterNumber

Propriétés

AllowInsertDeleteSection Obtient ou définit si les utilisateurs peuvent ajouter ou supprimer des sections dans le contrôle de contenu de section extensible spécifié à l’aide de l’interface utilisateur.

ActiveDocument.Range.ContentControls(1).AllowInsertDeleteSection = True

Appearance Cette propriété renvoie ou définit l’apparence du contrôle de contenu.

ActiveDocument.Range.ContentControls(1).Appearance = wdContentControlBoundingBox

BuildingBlockCategory Cette propriété renvoie ou définit une chaîne qui représente la catégorie d’un contrôle de contenu de bloc de construction.

ActiveDocument.Range.ContentControls(1).BuildingBlockCategory =

BuildingBlockType Cette propriété renvoie ou définit une constante WdBuildingBlockTypes qui représente le type de bloc de construction pour un contrôle de contenu de bloc de construction.

ActiveDocument.Range.ContentControls(1).BuildingBlockType = wdTypeAutoText

Checked Cette propriété renvoie ou définit un type Boolean qui représente l’état actuel (activé/désactivé) d’une case à cocher.

ActiveDocument.Range.ContentControls(1).Checked = True

DateCalendarType Cette propriété renvoie ou définit une constante WdCalendarType qui représente le type de calendrier pour un contrôle de contenu de calendrier.

ActiveDocument.Range.ContentControls(1).DateCalendarType = wdCalendarArabic

DateDisplayLocale Renvoie un WdLanguageID qui représente le format de langue pour la date affichée dans un contrôle de contenu de date.

ActiveDocument.Range.ContentControls(1).DateDisplayLocale = wdAfrikaans

DropdownListEntries Renvoie une collection ContentControlListEntries qui représente les éléments d'un contrôle de contenu de liste déroulante ou de zone de liste déroulante.

Dim cclsDropdownListEntries As ContentControlListEntries
Set cclsDropdownListEntries = ActiveDocument.Range.ContentControls(1).DropdownListEntries

ID Renvoie une chaîne qui représente l’identification d’un contrôle de contenu.

Dim strID As String
strID = ActiveDocument.Range.ContentControls(1).ID

Level Renvoie le niveau du contrôle de contenu, que le contrôle de contenu entoure du texte, des paragraphes, des cellules de tableau ou des lignes de tableau; ou s’il est incorporé.

Dim wccLevel As WdContentControlLevel
wccLevel = ActiveDocument.Range.ContentControls(1).Level

LockContentControl Cette propriété renvoie ou définit un type Boolean qui indique si l’utilisateur peut supprimer un contrôle de contenu du document actif.

ActiveDocument.Range.ContentControls(1).LockContentControl = True

LockContents Cette propriété renvoie ou définit un type Boolean qui indique si l’utilisateur peut modifier le contenu d’un contrôle de contenu.

ActiveDocument.Range.ContentControls(1).LockContents = True

MultiLine Renvoie une valeur de type Boolean qui indique si un contrôle de contenu de texte autorise plusieurs lignes de texte.

ActiveDocument.Range.ContentControls(1).MultiLine = True

Parent Renvoie un type Object représentant l'objet parent de l'objet ContentControl spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).Parent

ParentContentControl Renvoie une valeur ContentControl qui représente le contrôle de contenu parent pour un contrôle de contenu qui est imbriqué dans un contrôle de texte enrichi ou un contrôle de groupe.

Dim cclParentContentControl As ContentControl
Set cclParentContentControl = ActiveDocument.Range.ContentControls(1).ParentContentControl

PlaceholderText Renvoie un objet BuildingBlock qui représente le texte de l’espace réservé pour un contrôle de contenu.

Dim bbkPlaceholderText As BuildingBlock
Set bbkPlaceholderText = ActiveDocument.Range.ContentControls(1).PlaceholderText

Range Renvoie une plage qui représente le contenu du contrôle de contenu dans le document actif.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.ContentControls(1).Range

RepeatingSectionItems Renvoie la collection d’éléments de section extensible dans le contrôle de contenu de section extensible spécifié.

Dim rsiRepeatingSectionItems As RepeatingSectionItemColl
Set rsiRepeatingSectionItems = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems

RepeatingSectionItemTitle Cette propriété renvoie ou définit le nom des éléments de section extensible utilisés dans le menu contextuel associé au contrôle de contenu de section extensible spécifié.

ActiveDocument.Range.ContentControls(1).RepeatingSectionItemTitle =

ShowingPlaceholderText Renvoie une valeur de type Boolean qui indique si le texte de l'espace réservé pour le contrôle de contenu est affiché.

Dim booShowingPlaceholderText As Boolean
booShowingPlaceholderText = ActiveDocument.Range.ContentControls(1).ShowingPlaceholderText

Tag Cette propriété renvoie ou définit une chaîne qui représente une valeur pour identifier un contrôle de contenu.

ActiveDocument.Range.ContentControls(1).Tag =

Temporary Cette propriété renvoie ou définit un type Boolean qui indique s’il faut supprimer un contrôle de contenu du document actif lorsque l’utilisateur modifie le contenu du contrôle.

ActiveDocument.Range.ContentControls(1).Temporary = True

Title Cette propriété renvoie ou définit une chaîne qui représente le titre d'un contrôle de contenu.

ActiveDocument.Range.ContentControls(1).Title =

Type Cette propriété renvoie ou définit une valeur de type WdContentControlType qui représente le type d’un contrôle de contenu.

ActiveDocument.Range.ContentControls(1).Type = wdContentControlBuildingBlockGallery

XMLMapping Renvoie un objet XMLMapping qui représente le mappage d'un contrôle de contenu sur des données XML dans la Banque de données d'un document.

Dim xmlXMLMapping As XMLMapping
Set xmlXMLMapping = ActiveDocument.Range.ContentControls(1).XMLMapping

ContentControls.Count Renvoie le nombre d'éléments dans la collection ContentControls.

Dim lngCount As Long
lngCount = ActiveDocument.Range.ContentControls.Count

ContentControls.Parent Renvoie un type Object représentant l'objet parent de l'objet ContentControls spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls.Parent