Como inserir Tags na propriedade do arquivo via VBA?

Question

Prezados amigos,

tenho uma tabelona no excel com o nome e caminho dos arquivos, são muitos. Eu necessito inseir Tag nesses arquivos, o que equivaleria a entrar na propridade de cada arquivo, ir em propriedades e digitar a aTag.

Vejam um exemplo que achei na web, foi o mais perto que cheguei do que

preciso e ainda preciso adapta-lo. Há um pequeno problema, pois ele tras todos os detalhes e eu só não

consigo trazer o campo "Tags".

Espero poder contar comn a galera pra tentar descobrir uma saída para esse caso.

Sub pp()

Dim FileName As String

Dim DSO As DSOFile.OleDocumentProperties

Set DSO = New DSOFile.OleDocumentProperties

'FileName = "book2.xls"

FileName = "teste.xlsx"

DSO.Open sfilename:=FileName

Debug.Print DSO.SummaryProperties.title

Debug.Print DSO.SummaryProperties.Subject

Debug.Print DSO.SummaryProperties.Tags

Debug.Print DSO.SummaryProperties.Categories

Debug.Print DSO.SummaryProperties.Comments

DSO.SummaryProperties.Comments = "my new test!!!!" '***

Debug.Print DSO.SummaryProperties.Comments

Debug.Print DSO.SummaryProperties.Author

Debug.Print DSO.SummaryProperties.ApplicationName

DSO.Save

DSO.Close

End Sub

Grato,

Raimundo

Answer 1

Talvez isto possa ajudar

http://www.cpearson.com/excel/docprop.aspx

Veja as funções para listar/atribuir propriedades (tem que baixar um arquivo zip)

M.