Este fórum está sendo desativado

[cyllio]

Amigos,
Eu costumo capturar algumas propriedades do arquivo através do código informado abaixo:
'*****início do código*************

Sub CapturaPropriedades()
Dim a As Workbook
Set a = ActiveWorkbook

If a.Title = "" Then a.Title = "Título do documento"
If a.Author = "" Then a.Author = "Luciano"
If a.Comments = "" Then a.Comments = "Comentário de teste"

MsgBox _
"Título: " & a.Title & Chr(10) & _
"Autor: " & a.Author & Chr(10) & _
"Marcas: " & a.Tags & Chr(10) & _
"Comentário: " & a.Comments

End Sub
'*****fim do código*************

Só que eu preciso capturar uma propriedade chamada Marcas (ou Tags em inglês). Percebi que essa propriedade não existe, ou ao menos não com esse nome. Alguém poderia me ajudar? Essa propriedade é muito interessante pra mim pois na tela de diálogo "Salvar como..." ela aparece facilmente para o usuário digitar as tags do arquivo (ver print abaixo)

[cyllio]

Quero fazer mais ou menor conforme arquivo anexo, porém ao invés do campo "Autor" usar o "Marcas".

Alguém se habilita?

[Reinaldo]

Creio que esteja se referindo a Keywords (vide BuiltinDocumentProperties)
Experimente:
MsgBox _
"Título: " & a.Title & Chr(10) & _
"Autor: " & a.Author & Chr(10) & _
"Marcas: " & a.Keywords & Chr(10) & _
"Comentário: " & a.Comments

Código: Selecionar todos

Sub CapturaPropriedades()
Dim a As Workbook
Set a = ActiveWorkbook

rw = 1
'relaciona as propriedades na planilha
Worksheets(1).Activate
For Each p In a.BuiltinDocumentProperties
    On Error Resume Next
    Cells(rw, 4).Value = p.Name
    Cells(rw, 5).Value = p.Value
    rw = rw + 1
Next

If a.Title = "" Then a.Title = "Título do documento"
If a.Author = "" Then a.Author = "Luciano"
If a.Comments = "" Then a.Comments = "Comentário de teste"
If a.Keywords = "" Then a.Keywords = "meu"
MsgBox _
"Título: " & a.Title & Chr(10) & _
"Autor: " & a.Author & Chr(10) & _
"Marcas: " & a.Keywords & Chr(10) & _
"Comentário: " & a.Comments
End Sub

[cyllio]

Exatamente isso Reinaldo!!! Obrigado cara!
Procurei por várias combinações e não consegui encontrar essa keywords.
Agora de quebra tenho também graças a você as demais propriedades.