Quem usa as propriedades do Word para facilitar o preenchimento de campos padrões de um documento de maneira automática, sabe o quanto é chato alterá-los um por um, principalmente quando tem vários! Hoje eu resolvi automatizar isso. A ideia é o seguinte, fiz uma função e um método, a função verifica se uma determinada propriedade existe retornando um valor booleano, e o método faz o trabalho "pesado" de inseri-las no documento, deletando as que já existem, caso elas estejam no arquivo de texto (input).
A leitura das propriedades é feita a partir de um arquivo de texto comum, o usuário precisa colocar o caminho completo dele para a lógica funcionar. Não vou explicar sobre cada método, creio que para quem já brincou um pouco de programação saberá o que cada um faz, na dúvida é só googlar.
Nesta primeira imagem podemos ver que não existe nenhuma propriedade no documento:
Esta outra imagem é do arquivo de input, possue 6 linhas, portanto 6 propriedades serão inseridas (é importante ter o traço separando o atributo do valor, pois usei o método split pressupondo isto).
Depois de colar o código no Visual Basic do documento, clicar em qualquer parte da sub SettingCustomProperties e depois digitar F5. Vai aparecer o seguinte message box:
Agora é só inserir o caminho completo do arquivo e depois clicar em OK:
Pronto! Agora é só verificar as propriedades do documento:
Caso deseja atualizar, é só fazer o mesmo procedimento, no caso, o retorno do script será o da imagem abaixo:
Ou seja, é feita a exclusão dos que já foram inseridos, desde que cada atributo tenha o mesmo nome da propriedade no documento.
Código dopreguiçator automatizador:
Links de referência:
Aqlbras!
A leitura das propriedades é feita a partir de um arquivo de texto comum, o usuário precisa colocar o caminho completo dele para a lógica funcionar. Não vou explicar sobre cada método, creio que para quem já brincou um pouco de programação saberá o que cada um faz, na dúvida é só googlar.
Nesta primeira imagem podemos ver que não existe nenhuma propriedade no documento:
Esta outra imagem é do arquivo de input, possue 6 linhas, portanto 6 propriedades serão inseridas (é importante ter o traço separando o atributo do valor, pois usei o método split pressupondo isto).
Depois de colar o código no Visual Basic do documento, clicar em qualquer parte da sub SettingCustomProperties e depois digitar F5. Vai aparecer o seguinte message box:
Agora é só inserir o caminho completo do arquivo e depois clicar em OK:
Pronto! Agora é só verificar as propriedades do documento:
Caso deseja atualizar, é só fazer o mesmo procedimento, no caso, o retorno do script será o da imagem abaixo:
Ou seja, é feita a exclusão dos que já foram inseridos, desde que cada atributo tenha o mesmo nome da propriedade no documento.
Código do
Links de referência:
- http://msdn.microsoft.com/en-us/library/office/aa212718%28v=office.11%29.aspx
- http://www.vbaexpress.com/forum/showthread.php?28849-Delete-Custom-Document-Properties
- http://patorjk.com/programming/tutorials/vbarrays.htm
- http://stackoverflow.com/questions/8190384/split-and-vba-split
- http://www.classanytime.com/mis333k/sjloopsarrays.html
Aqlbras!
Comentários
Postar um comentário