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