CreateNewDocument (método)

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.

Crea un nuevo documento de etiqueta mediante las opciones para etiqueta predeterminadas u otras especificadas por el usuario. Devuelve un objeto Document que representa el nuevo documento.

Sintaxis

expresión .CreateNewDocument(Name, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)

expresión Requerida. Variable que representa un objeto MailingLabel.

Parámetros

Name	Necesario/Opcional	Tipo de datos	Descripción (Description)
Name	Opcional	Variante	Nombre de la etiqueta postal.
Address	Opcional	Variante	Texto de la etiqueta postal.
AutoText	Opcional	Variante	Nombre del elemento de Autotexto que incluye el texto de la etiqueta postal.
ExtractAddress	Opcional	Variante	True para usar el texto de la dirección marcado por el marcador definido por el usuario denominado " "DirecciónSobre" " en lugar de usar el argumento Address.
LaserTray	Opcional	Variante	Bandeja de la impresora láser. Puede ser una de las constantes WdPaperTray.
PrintEPostageLabel	Opcional	Variante	True para imprimir franqueo mediante un proveedor de franqueo electrónico de Internet.
Vertical	Opcional	Variante	True da formato al texto verticalmente en la etiqueta. Se utiliza para etiquetas postales en lenguas asiáticas.

Valor devuelto

Document

Ejemplo

Este ejemplo crea un documento nuevo de minietiquetas Avery 2160 con una dirección predefinida.

addr = "Dave Edson" & vbCr & "123 Skye St." _
    & vbCr & "Our Town, WA 98004"
Application.MailingLabel.CreateNewDocument _
    Name:="2160 mini", Address:=addr, ExtractAddress:=False

Ejemplo

En este ejemplo, se crea un documento nuevo de etiquetas de envío Avery 5664 con el texto seleccionado como dirección.

addr = Selection.Text
Application.MailingLabel.CreateNewDocument _
    Name:="5664", Address:=addr, _
    LaserTray:=wdPrinterUpperBin

Ejemplo

En este ejemplo, se crea un documento nuevo de etiquetas autoadhesivas utilizando el texto del marcador EnvelopeAddress como dirección.

If ActiveDocument.Bookmarks.Exists("EnvelopeAddress") = True Then
    Application.MailingLabel.CreateNewDocument _
        Name:="Self Adhesive Tab 1 1/2""", ExtractAddress:=True
End If

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.