Objeto Envelope (Word)

Representa um envelope anexado a um documento.

Comentários

Use a propriedade Envelope para retornar o objeto Envelope. O exemplo a seguir adiciona um envelope para um novo documento e define a distância entre a parte superior do envelope e o endereço como 2,25 polegadas.

Set myDoc = Documents.Add 
addr = "Michael Matey" & vbCr & "123 Skye St." _ 
 & vbCr & "Redmond, WA 98107" 
retaddr = "Cora Edmonds" & vbCr & "456 Erde Lane" & vbCr _ 
 & "Redmond, WA 98107" 
With myDoc.Envelope 
 .Insert Address:=addr, ReturnAddress:=retaddr 
 .AddressFromTop = InchesToPoints(2.25) 
End With

Comentários

Objeto Envelope está disponível independentemente se um envelope tenha sido adicionado ao documento especificado. No entanto, ocorrerá um erro se você usar uma das seguintes propriedades quando um envelope não tiver sido adicionado ao documento: endereço, AddressFromLeft, AddressFromTop, FeedSource, ReturnAddress, ReturnAddressFromLeft, ReturnAddressFromTop e UpdateDocument.

O exemplo a seguir demonstra como usar a instrução On Error GoTo para interceptar o erro que ocorre se um envelope não tiver sido adicionado ao documento ativo. Caso, entretanto, um envelope tenha sido adicionado ao documento, o endereço do destinatário é exibido.

On Error GoTo ErrorHandler 
MsgBox ActiveDocument.Envelope.Address 
ErrorHandler: 
If Err = 5852 Then MsgBox _ 
 "Envelope is not in the specified document"

Use o método Insert para adicionar um envelope ao documento especificado. Use o método PrintOut para definir as propriedades de um envelope e imprimi-lo sem adicioná-lo ao documento.

Confira também

Referência do modelo de objeto do Word

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.