Envelope (objeto)

Importante

En este artículo es máquina traducido, vea la exención de responsabilidad. Encontrará la versión en inglés de este artículo aquí para su referencia.

Representa un sobre adjunto a un documento.

Observaciones

Utilice la propiedad Envelope para devolver un objeto Envelope. En el siguiente ejemplo, se agrega un sobre a un nuevo documento y se establece la distancia entre la parte superior del sobre y la dirección en 2,25 pulgadas.

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

Observaciones

El objeto Envelope está disponible independientemente de si se ha agregado un sobre al documento especificado. Sin embargo, se produce un error si utiliza una de las siguientes propiedades cuando no se ha agregado ningún sobre al documento: Address, AddressFromLeft, AddressFromTop, FeedSource, ReturnAddress, ReturnAddressFromLeft, ReturnAddressFromTop y UpdateDocument.

En el siguiente ejemplo, se muestra el uso de la instrucción On Error GoTo para interceptar el error que se produce si no se ha agregado ningún sobre al documento activo. No obstante, si se ha agregado el sobre al documento, se muestra la dirección del destinatario.

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

Utilice la Insert método para agregar un sobre al documento especificado. Utilice la PrintOut método para establecer las propiedades de un sobre e imprimirlo sin agregarlo al documento.

Nota

No existe la colección Envelopes; cada objeto Document contiene un solo objeto Envelope.

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.