Método Envelope.UpdateDocument (Word)

Atualiza o envelope no documento com as definições atuais de envelope.

Sintaxe

expression. UpdateDocument

expression é obrigatório. Uma variável que representa um objeto 'Envelope'.

Comentários

Se você usar essa propriedade antes que um envelope seja adicionado ao documento, ocorrerá um erro.

Exemplo

Este exemplo formata o envelope em Report.doc para usar um tamanho de envelope personalizado (4,5 por 7,5 polegadas - 11,43 por 19,05 centímetros).

Sub UpdateEnvelope() 
 
 On Error GoTo errhandler 
 
 With Documents("Report.doc").Envelope 
 .DefaultHeight = InchesToPoints(4.5) 
 .DefaultWidth = InchesToPoints(7.5) 
 .UpdateDocument 
 End With 
 
 Exit Sub 
 
errhandler: 
 
 If Err = 5852 Then _ 
 MsgBox "Report.doc doesn't include an envelope" 
 
End Sub

Este exemplo adiciona um envelope ao documento ativo, usando endereços predefinidos. Barras do envelope padrão código e marca de identificação oposta (FIM-A) configurações forem definidas como True e o envelope no documento ativo é atualizado.

Dim strAddress As String 
Dim strReturn As String 
 
strAddress = "Darlene Rudd" & vbCr & "1234 E. Main St." _ 
 & vbCr & "Our Town, WA 98004" 
strReturn = "Patricia Reed" & vbCr & "N. 33rd St." _ 
 & vbCr & "Other Town, WA 98040" 
ActiveDocument.Envelope.Insert _ 
 Address:=strAddress, ReturnAddress:=strReturn 
With ActiveDocument.Envelope 
 .DefaultPrintBarCode = True 
 .DefaultPrintFIMA = True 
 .UpdateDocument 
End With

Confira também

Objeto envelope

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.