Método MailingLabel.CreateNewDocument (Word)

  • Artículo

Crea un nuevo documento de etiquetas utilizando las opciones predeterminadas de etiqueta o en los que especifique. 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".

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Name Opcional Variant Nombre de la etiqueta postal.
Address Opcional Variant Texto de la etiqueta postal.
AutoText Opcional Variant Nombre del elemento de Autotexto que incluye el texto de la etiqueta postal.
ExtractAddress Opcional Variant 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 Variant Bandeja de la impresora láser. Puede ser una de las constantes WdPaperTray.
PrintEPostageLabel Opcional Variant True para imprimir franqueo mediante un proveedor de franqueo electrónico de Internet.
Vertical Opcional Variant True da formato al texto verticalmente en la etiqueta. Se usa para las etiquetas postales de idiomas asiáticos.

Valor devuelto

Documento

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

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

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

Consulte también

Objeto MailingLabel

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.