Descrição:
Como zerar todos os tags internos de determinada pasta?
Solução:
Uma maneira de fazer isto é através de um script que percorra todos os objetos da pasta desejada, testando o tipo de cada objeto. Se o objeto for do tipo InternalTag, deve-se atribuir o valor 0 (zero) para propriedade Value.
Exemplo de script:
Dim Pasta
Set Pasta = Application.GetObject(“Dados”)
For each obj in Pasta
If TypeName(obj) = “InternalTag” Then
obj.Value = 0
End If
Next
