Classe Source (Word VBA)

La classe Source représente une source individuelle telle qu'un manuel, un article de journal ou un entretien.

Set

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

Dim src as Source
Set src = Application.Bibliography.Sources(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Source : Sources.Item et Bibliography.Sources

For Each

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

Dim src As Source
For Each src In Application.Bibliography.Sources
	
Next src

Cited

Renvoie une valeur de type Boolean qui indique si une source a été citée dans un document.

Dim booCited As Boolean
booCited = Application.Bibliography.Sources(1).Cited

Delete

Supprime la source spécifiée.

Application.Bibliography.Sources(1).Delete

Field

Renvoie une chaîne qui représente la valeur d’un champ dans une source bibliographique.

Le nom du champ correspond au nom de l’élément XML correspondant dans les données XML d’une source bibliographique.

Syntaxe : expression.Field (Name)

Name: Spécifie le nom du champ pour lequel la valeur doit être extraite.

Dim strName As String: strName =  
Application.Bibliography.Sources(1).Field(Name:=strName) =

Parent

Renvoie un Object qui représente l'objet parent de l'objet Source spécifié.

Dim objParent As Object
Set objParent = Application.Bibliography.Sources(1).Parent

Tag

Renvoie une chaîne qui représente une étiquette d'identification interne pour une source.

Dim strTag As String
strTag = Application.Bibliography.Sources(1).Tag

XML

Renvoie une valeur de type String qui représente la balise XML d’un objet source .

Le paramètre Data de la méthode Add de l'objet Sources nécessite une chaîne XML valide qui contient des données pour les éléments requis.

Dim strXML As String
strXML = Application.Bibliography.Sources(1).XML

Sources.Add

Ajoutez une nouvelle source aux sources répertoriées dans la boîte de dialogue Gestionnaire de source.

Syntaxe : expression.Add (Data)

Sources.Count

Renvoie le nombre d'éléments dans la collection de Sources.

Dim lngCount As Long
lngCount = Application.Bibliography.Sources.Count

Sources.Item

Renvoie un objet source qui représente l'élément spécifié dans la collection.

Syntaxe : expression.Item (Index)

Index: Spécifie la position ordinale de l'objet au sein de la collection.

Dim src As Source
Set src = Application.Bibliography.Sources(Index:=1)

Sources.Parent

Renvoie un Object qui représente l'objet parent de l'objet Sources spécifié.

Dim objParent As Object
Set objParent = Application.Bibliography.Sources.Parent