Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Limpa (elimina) todos os objetos de Anexo na coleção anexos principal de uma mensagem de impressão em série.
Sintaxe
expressão. LimparTodos
expressão Uma variável que representa um objeto Anexos .
Comentários
Para limpar um anexo individual, utilize o método Delete do objeto Anexo específico.
Exemplo
A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como limpar todos os anexos da mensagem numa impressão em série. O código imprime o número de anexos atual para a mensagem na janela imediata e exclui todos os objetos de anexo na coleção.
Public Sub ClearAll_Example()
Dim pubAttachments As Publisher.Attachments
Dim pubMailMerge As Publisher.MailMerge
Dim pubEmailMergeEnvelope As Publisher.EmailMergeEnvelope
Set pubMailMerge = ThisDocument.MailMerge
Set pubEmailMergeEnvelope = pubMailMerge.EmailMergeEnvelope
Set pubAttachments = pubEmailMergeEnvelope.Attachments
Debug.Print pubAttachments.Count
pubAttachments.ClearAll
End Sub
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.