Guru do Excel e Power BI

Enviado: **07 Mar 2017 às 15:58**

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)

Imagem

Enviado: **08 Mar 2017 às 19:05**

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

Alguém se habilita?

Enviado: **09 Mar 2017 às 07:14**

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

Enviado: **09 Mar 2017 às 09:20**

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.

Guru do Excel e Power BI

Capturar propriedades da Pasta de Trabalho/Arquivo via VBA

Capturar propriedades da Pasta de Trabalho/Arquivo via VBA

Re: Capturar propriedades da Pasta de Trabalho/Arquivo via V

Capturar propriedades da Pasta de Trabalho/Arquivo via VBA

Capturar propriedades da Pasta de Trabalho/Arquivo via VBA