Classe Source - fonte (Word VBA)

A classe Source representa uma fonte individual, como um livro, artigo de jornal ou entrevista. Para usar uma variável de classe Source, ela primeiro precisa ser instanciada por exemplo


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

For Each

Aqui está um exemplo de processamento dos itens Source em uma coleção.


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

Cited

Retorna um Boolean que indica se uma fonte foi citada em um documento. Somente leitura.


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

Delete

Exclui a fonte especificada.


Application.Bibliography.Sources(1).Delete

Field

Retorna uma cadeia de caracteres que representa o valor de um campo em uma fonte bibliográfica. Somente leitura.

O nome do campo corresponde ao nome do elemento XML correspondente no XML resultante de uma fonte bibliográfica. Você pode usar a propriedade XML para retornar o XML para uma fonte bibliográfica. Para obter mais informações, consulte Trabalhar com bibliografias.

Field (Name)

Name: Especifica o nome do campo do qual o valor deve ser recuperado.


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

Tag

Retorna uma cadeia de caracteres que representa um rótulo de identificação interno para uma fonte. Somente leitura.


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

XML

Retorna uma cadeia de caracteres que representa a marcação XML para um objeto de origem . Somente leitura.

O parâmetro do método Add do objeto de fontes de dados exige uma cadeia de caracteres XML válida que contém dados para os elementos necessários. Dependendo do tipo de fonte que você adicionar, o XML pode ser alteradas. Para determinar o que o XML correto precisa ser para um tipo específico de origem, criar uma fonte através da caixa de diálogo Criar fonte e, em seguida, use a propriedade XML para retornar a sintaxe correta de XML.


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