Clase Source (Word VBA)

La clase Source representa una fuente individual, como un libro, un artículo periodístico o una entrevista.

Set

Para usar una variable de clase Source, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Source : Sources.Item y Bibliography.Sources

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Source en una colección.

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

Cited

Devuelve un valor Boolean que indica si se ha citado un origen en un documento.

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

Delete

Este método elimina el origen especificado.

Application.Bibliography.Sources(1).Delete

Field

Devuelve una cadena que representa el valor de un campo en una fuente bibliográfica.

El nombre del campo se corresponde con el nombre del elemento XML correspondiente en el XML resultante para una fuente bibliográfica.

Sintaxis : expression.Field (Name)

Name: Especifica el nombre del campo para el que se va a recuperar el valor.

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto Source especificado.

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

Tag

Devuelve una cadena que representa una etiqueta de identificación interna para un origen.

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

XML

Devuelve una cadena que representa el marcado XML para un objeto de origen .

El parámetro Data del método Add para el objeto Sources requiere una cadena XML válida que contenga datos para los elementos necesarios.

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

Sources.Add

Agrega una nueva fuente a las fuentes enumeradas en el cuadro de diálogo Administrador de fuentes.

Sintaxis : expression.Add (Data)

Sources.Count

Devuelve el número de elementos de la colección de orígenes.

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

Sources.Item

Devuelve un objeto source que representa el elemento especificado de la colección.

Sintaxis : expression.Item (Index)

Index: Especifica la posición ordinal del objeto dentro de la colección.

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

Sources.Parent

Devuelve un objeto Object que representa el objeto primario del objeto Sources especificado.

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