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
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.