Método Add (conjunto AddIns)

Agrega el archivo especificado en FileName a la lista de macros automáticas disponibles.

Sintaxis

expresión.Add(FileName, Install)

expresión   Requerida. Una expresión que devuelve un objeto AddIns.

FileName   String requerida. La ruta de acceso de la plantilla o WLL.

Install   Variant opcional. True para instalar la macro automática o complemento. False para agregar la macro automática o complemento a la lista de macros pero sin instalarla. El valor predeterminado es True.

Comentarios

Utilice la propiedad Installed de la macro automática o complemento para comprobar si ya está instalada.


Ejemplo del método Add (conjunto AddIns)

En este ejemplo se instala una plantilla con el nombre "MiFax.dot" y se agrega a la lista de macros automáticas del cuadro de diálogo Plantillas y macros automáticas.

AddIns.Add FileName:="C:\Archivos de programa\Microsoft Office\Plantillas\Cartas y Faxes\MiFax.dot", Install:=True

En este ejemplo de Macintosh se agrega MIPLANTILLA a la lista de macros automáticas del cuadro de diálogo Plantillas y macros automáticas.

AddIns.Add FileName:="HD:PLANTILLA:LIB MIPLANTILLA"


Método Add (conjunto AutoCorrectEntries)

Agrega un elemento de Autocorrección de texto normal a la lista de entradas disponibles.

Sintaxis

expresión.Add(Name, Value)

expresión   Requerida. Una expresión que devuelve un objeto AutoCorrectEntries.

Name   String requerida. Texto que desea que se reemplace automáticamente por el texto que se especifica en Value.

Value   String requerida. Texto que desea que se inserte automáticamente cada vez que se escribe el texto especificado en Name.

Comentarios

Utilice el método AddRichText para crear un elemento de Autocorrección con formato.


Ejemplo del método Add (conjunto AutoCorrectEntries)

En este ejemplo se agrega un elemento de Autocorrección de texto normal para un error ortográfico muy común de la palabra "los".

AutoCorrect.Entries.Add Name:= "lso", Value:= "los"


Método Add (conjunto AutoTextEntries)

Agrega un elemento de Autotexto a la lista de entradas disponibles.

Sintaxis

expresión.Add(Name, Range)

expresión   Requerida. Una expresión que devuelve un objeto AutoTextEntries.

Name   String requerida. Texto que, cuando se escribe, inicia un elemento de Autotexto.

Range   Range requerido. Intervalo de texto que se insertará cada vez que se escriba Name.


Ejemplo del método Add (conjunto AutoTextEntries)

En este ejemplo se agrega un elemento de Autotexto con el nombre"MiTexto" que contiene el texto de la selección.

NormalTemplate.AutoTextEntries.Add Name:= "MiTexto", _

    Range:= Selection.Range


Método Add (conjunto Bookmarks)

Agrega un marcador a un intervalo.

Sintaxis

expresión.Add(Name, Range)

expresión   Requerida. Expresión que devuelve un objeto Bookmarks.

Name   String requerida. Nombre del marcador. El nombre no puede tener más de una palabra.

Range   Variant opcional. El intervalo de texto señalado por el marcador. Un marcador se puede configurar para un intervalo contraído (punto de inserción).


Ejemplo del método Add (conjunto Bookmarks)

En este ejemplo se agrega un marcador con el nombre "miposición" a la selección del documento activo.

ActiveDocument.Bookmarks.Add Name:= "miposición", Range:= Selection.Range

En este ejemplo se agrega un marcador con el nombre "marca" en el punto de inserción.

ActiveDocument.Bookmarks.Add Name:= "mark"

En este ejemplo se agrega un marcador "tercer_parra" al tercer párrafo de "Carta.doc" y, a continuación, muestra todos los marcadores del documento en la ventana activa.

set miDoc = Documents("Carta.doc")

myDoc.Bookmarks.Add Name:="tercer_parra", _

    Range:=miDoc.Paragraphs(3).Range

myDoc.ActiveWindow.View.ShowBookmarks = True


Método Add (conjunto CaptionLabels)

Agrega una etiqueta de título personalizada.

Sintaxis

expresión.Add(Name)

expresión   Requerida. Una expresión que devuelve un objeto CaptionLabels.

Name   String requerida. Nombre de la etiqueta de título personalizada.


Ejemplo del método Add (conjunto CaptionLabels)

En este ejemplo se agrega una etiqueta de título personalizada con el nombre "Demo de diapositivas".

CaptionLabels.Add Name:="Demostración de diapositivas"


Método Add (conjunto CustomLabels)

Agrega una etiqueta postal personalizada.

Sintaxis

expresión.Add(Name, DotMatrix)

expresión   Requerida. Una expresión que devuelve un objeto CustomLabels.

Name   String requerida. Nombre de las etiquetas postales personalizadas.

DotMatrix   Variant opcional. True si se desea que se impriman las etiquetas postales en una impresora matricial.


Ejemplo del método Add (conjunto CustomLabels)

En este ejemplo se agrega una etiqueta postal personalizada con el nombre "Mi Etiqueta", se establece un tamaño de página y, a continuación, se crea una página con la etiqueta repetida.

Set ml = Application.MailingLabel.CustomLabels.Add(Name:="Mi Etiqueta", _

    DotMatrix:=False)

ml.PageSize = wdCustomLabelLetter

addr = "Juan Camilo Pardo" & vbCr & "C/ Córcega 452, 2º, 1ª" & vbCr & "08025 Barcelona"

Application.MailingLabel.CreateNewDocument _

    Name:="Mi Etiqueta", Address:=addr, ExtractAddress:=False


Método Add (conjuntos Cells, Rows y Columns)

Agrega una celda, fila o columna a una tabla.

Sintaxis 1

expresión.Add(BeforeCell)

Sintaxis 2

expresión.Add(BeforeCell)

Sintaxis 3

expresión.Add(BeforeCell)

expresión   Requerida. Una expresión que devuelve un objeto Cells (Sintaxis 1), un objeto Columns (Sintaxis 2) o un objeto Rows (Sintaxis 3).

BeforeCell   Variant opcional. Objeto Cell que representa la celda que aparece inmediatamente a la derecha de la nueva celda o celdas.

BeforeColumn   Variant opcional. Objeto Column que representa la columna que aparece inmediatamente a la derecha de la nueva columna.

BeforeRow   Variant opcional. Objeto Row que representa la fila que aparece inmediatamente debajo de la nueva fila.


Ejemplo del método Add (conjuntos Cells, Rows y Columns)

En este ejemplo se inserta una nueva fila delante de la primera fila de la selección.

If Selection.Information(wdWithInTable) = True Then

    Selection.Rows.Add BeforeRow:= Selection.Rows(1)

End If

En este ejemplo se crea una tabla con dos columnas y dos filas en el documento activo y, a continuación, se agrega una columna delante de la primera. El ancho de la nueva columna se establece en 4 cm.

Set miTabla = ActiveDocument.Tables.Add(Selection.Range, 2, 2)

Set newCol = miTabla.Columns.Add(BeforeColumn:= miTabla.Columns(1))

newCol.SetWidth ColumnWidth:=InchesToPoints(1.5), RulerStyle:=wdAdjustNone

En este ejemplo se agrega una fila a la primera tabla y luego se inserta el texto "Celda" en la fila.

counter = 1

Set miTabla = ActiveDocument.Tables(1)

Set newrow = miTabla.Rows.Add(BeforeRow:=miTabla.rows(1))

For Each c In newrow.Cells

   c.Range.InsertAfter Text:="Celda " & counter

   counter = counter + 1

Next c


Método Add (conjunto Comments)

Agrega un comentario al intervalo especificado.

Sintaxis

expresión.Add(Range, Text)

expresión   Requerida. Expresión que devuelve un objeto Comments.

Range   Range requerido. Intervalo al que hay que agregar un comentario.

Text   Variant opcional. El texto del comentario.


Ejemplo del método Add (conjunto Comments)

En este ejemplo se agrega un comentario en el punto de inserción.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Comments.Add Range:=Selection.Range, Text:="revisar esto"

En este ejemplo se agrega un comentario al tercer párrafo del documento activo.

Set miIntervalo = ActiveDocument.Paragraphs(3).Range

ActiveDocument.Comments.Add Range:=miIntervalo, _

    Text:="tercer párrafo original"


Método Add (conjunto Dictionaries)

Agrega el diccionario especificado en FileName al conjunto de diccionarios ortográficos personalizados activos. Si no existe el archivo con el nombre especificado en FileName, Word crea uno.

Sintaxis

expresión.Add(FileName)

expresión   Requerida. Expresión que devuelve un objeto Dictionaries. Utilice la propiedad CustomDictionaries para devolver el conjunto de diccionarios ortográficos personalizados.

FileName   String requerida. El nombre de la cadena del archivo del diccionario. Si no se especifica ninguna ruta de acceso en la cadena, se utiliza la de las herramientas de revisión.

Comentarios

El conjunto Dictionaries incluye solamente los diccionarios ortográficos personalizados activos. Los objetos Dictionary que se derivan del conjunto Languages no tienen un método Add. En ellos se incluyen los objetos Dictionary devueltos por las propiedades ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary y ActiveHyphenationDictionary.


Ejemplo del método Add (conjunto Dictionaries)

En este ejemplo se quitan todos los diccionarios de la lista de diccionarios ortográficos personalizados y se crea un nuevo archivo de diccionario personalizado. El nuevo diccionario queda designado como el diccionario personalizado activo y a él se agregarán automáticamente las palabras nuevas.

With CustomDictionaries

    .ClearAll

    .Add FileName:= "c:\Mis documentos\Personal.dic"

    .ActiveCustomDictionary = CustomDictionaries(1)

End With

Este ejemplo crea un diccionario personalizado nuevo y lo asigna a una variable. El nuevo diccionario personalizado se configura, a continuación, para su utilización con texto marcado como francés (canadiense). Tenga en cuenta que para ejecutar una revisión ortográfica para otro idioma tiene que tener instaladas las herramientas de revisión para ese idioma.

Set miDiccionario = CustomDictionaries.Add(FileName:="Francés.dic")

With miDiccionario

    .LanguageSpecific = True

    .LanguageID = wdFrenchCanadian

End With


Método Add (conjunto Documents)

Agrega un documento nuevo, vacío al conjunto de documentos abiertos.

Sintaxis

expresión.Add(Template, NewTemplate)

expresión   Requerida. Expresión que devuelve un objeto Documents.

Template   Variant opcional. Nombre de la plantilla que se va a usar con el nuevo documento. Si se omite este argumento, se utilizará la plantilla Normal.

NewTemplate   Variant opcional. True para que el documento se abra como una plantilla. El valor predeterminado es False.


Ejemplo del método Add (conjunto Documents)

En este ejemplo se crea un nuevo documento basado en la plantilla Normal.

Documents.Add

En este ejemplo se crea un nuevo documento basado en la plantilla para memorandos profesionales de Windows.

Documents.Add Template:="C:\Archivos de programa\Microsoft Office\Plantillas\Memorandos\Memorandos profesionales.dot"

En este ejemplo se crea un nuevo documento basado en la plantilla para memorandos profesionales de Macintosh.

Documents.Add Template:="Macintosh HD:Microsoft Office:Plantillas:Memorandos:Memorandos profesionales"

En este ejemplo se crea y se abre una plantilla nueva mediante el uso de la plantilla adjunta al documento activo como modelo.

tmpName = ActiveDocument.AttachedTemplate.FullName

Documents.Add Template:=tmpName, NewTemplate:=True


Método Add (conjuntos FirstLetterExceptions y TwoInitialCapsExceptions)

Agrega una nueva excepción a la lista de excepciones de Autocorrección.

Sintaxis

expresión.Add(Name)

expresión   Requerida. Expresión que devuelve un objeto FirstLetterExceptions o TwoInitialCapsExceptions.

Name   String requerida. La palabra con dos mayúsculas iniciales que desea que Word no tenga en consideración o la abreviatura que no desea que Word continúe con una letra mayúscula.

Comentarios

Si la propiedad TwoInitialCapsAutoAdd es True, las palabras se agregan automáticamente a la lista de excepciones de dos mayúsculas iniciales. Si la propiedad FirstLetterAutoAdd es True, las abreviaturas se agregan automáticamente a la lista de excepciones para la primera letra.


Ejemplo del método Add (conjuntos FirstLetterExceptions y TwoInitialCapsExceptions)

En este ejemplo se agrega la abreviatura "direc." a lista de excepciones para la primera letra.

AutoCorrect.FirstLetterExceptions.Add Name:="direc."

En este ejemplo se agrega "MSoffice" a las excepciones de mayúsculas iniciales.

AutoCorrect.TwoInitialCapsExceptions.Add Name:= "MSoffice"


Método Add (conjuntos Endnotes y Footnotes)

Agrega al intervalo especificado una nota al pie o una nota al final.

Sintaxis

expresión.Add(Range, Reference, Text)

expresión   Requerida. Expresión que devuelve un objeto Endnotes o Footnotes.

Range   Range requerido. El intervalo marcado para la nota al final o la nota al pie. Puede ser un intervalo contraído.

Reference   Variant opcional. El texto de la marca de referencia personalizada. Si se omite el argumento, Word inserta automáticamente una marca de referencia numerada.

Text   Variant opcional. Texto de la nota al final o al pie.

Comentarios

Para especificar un símbolo para el argumento Reference, utilice la sintaxis {FontName CharNum}. FontName es el nombre de la fuente que contiene el símbolo. Los nombres de las fuentes decorativas se muestran en el cuadro Fuente del cuadro de diálogo Símbolo (menú Insertar). CharNum es la suma de 31 y el número que corresponde a la posición del símbolo que desea insertar, contando de derecha a izquierda en la tabla de símbolos. Por ejemplo, para especificar un símbolo omega (Ω) en la posición 56 de la tabla de símbolos de la fuente Símbolo, el argumento sería "{87}".


Ejemplo del método Add (conjuntos Endnotes y Footnotes)

En este ejemplo de agrega una nota al pie numerada automáticamente al final de la selección.

ActiveDocument.Footnotes.Add Range:= Selection.Range , _

    Text:= "Rayuela, (Editorial Sudamericana S.A., 1968)."

En este ejemplo se agrega una nota al final en el tercer párrafo del documento activo.

Set miIntervalo = ActiveDocument.Paragraphs(3).Range

ActiveDocument.Endnotes.Add Range:=miIntervalo, _

    Text:= "Ibid., 314."

En este ejemplo se agrega una nota al pie que usa un símbolo personalizado () para la marca de referencia.

ActiveDocument.Footnotes.Add Range:= Selection.Range , _

    Text:= "Para más información, consulte el informe completo.", _

    Reference:= "{MS LineDraw 225}"


Método Add (conjunto Fields)

Agrega un campo al intervalo especificado.

Sintaxis

expresión.Add(Range, Type, Text, PreserveFormatting)

expresión   Requerida. Una expresión que devuelve un objeto Fields.

Range   Range requerido. Intervalo donde desea agregar el campo. Si el intervalo no está contraído, el campo reemplaza al intervalo.

Type   Variant opcional. Tipo de campo que se va a agregar. Puede ser una de las siguientes constantes WdFieldType:

wdFieldAddin wdFieldAdvance wdFieldAsk wdFieldAuthor wdFieldAutoNum wdFieldAutoNumLegal wdFieldAutoNumOutline wdFieldAutoText wdFieldAutoTextList wdFieldBarCode wdFieldComments wdFieldCompare wdFieldCreateDate wdFieldData wdFieldDatabase wdFieldDate wdFieldDDE wdFieldDDEAuto wdFieldDocProperty wdFieldDocVariable wdFieldEditTime wdFieldEmbed wdFieldEmpty wdFieldExpression wdFieldFileName wdFieldFileSize wdFieldFillIn wdFieldFootnoteRef wdFieldFormCheckBox wdFieldFormDropDown wdFieldFormTextInput wdFieldFormula wdFieldGlossary wdFieldGotoButton wdFieldHTMLActiveX wdFieldHyperlink wdFieldIf wdFieldImport wdFieldInclude wdFieldIncludePicture wdFieldIncludeText wdFieldIndex wdFieldIndexEntry wdFieldInfo	wdFieldKeyWord wdFieldLastSavedBy wdFieldLink wdFieldListNum wdFieldMacroButton wdFieldMergeField wdFieldMergeRec wdFieldMergeSeq wdFieldNext wdFieldNextIf wdFieldNoteRef wdFieldNumChars wdFieldNumPages wdFieldNumWords wdFieldOCX wdFieldPage wdFieldPageRef wdFieldPrint wdFieldPrintDate wdFieldPrivate wdFieldQuote wdFieldRef wdFieldRefDoc wdFieldRevisionNum wdFieldSaveDate wdFieldSection wdFieldSectionPages wdFieldSequence wdFieldSet wdFieldSkipIf wdFieldStyleRef wdFieldSubject wdFieldSubscriber wdFieldSymbol wdFieldTemplate wdFieldTime wdFieldTitle wdFieldTOA wdFieldTOAEntry wdFieldTOC wdFieldTOCEntry wdFieldUserAddress wdFieldUserInitials wdFieldUserName
El valor predeterminado es wdFieldEmpty.

Text   Variant opcional. Se necesita texto adicional para el campo. Por ejemplo, si desea especificar un modificador para el campo, se agregaría aquí.

PreserveFormatting   Variant opcional. True para que se conserve el formato que se aplique al campo durante las actualizaciones.

Comentarios

No puede insertar algunos campos, como wdFieldOCX y wdFieldFormCheckBox, con el método Add del conjunto Fields. En vez de ello, deberá utilizar métodos específicos como el método AddOLEControl y el método Add del conjunto FormFields.


Ejemplo del método Add (conjunto Fields)

En este ejemplo, se inserta un campo NOMBREUSUARIO al principio de la selección.

Selection.Collapse Direction:=wdCollapseStart

Set miCampo = ActiveDocument.Fields.Add(Range:=Selection.Range, _

    Type:=wdFieldUserName)

En este ejemplo, se inserta un campo NÚMEROLISTA al final de la selección. El modificador de inicio se define para que comience en 3.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldListNum, Text:="\s 3"

En este ejemplo, se inserta un campo FECHA al principio de la selección y luego se muestra el resultado.

Selection.Collapse Direction:=wdCollapseStart

Set miCampo = ActiveDocument.Fields.Add(Range:=Selection.Range, _

    Type:=wdFieldDate)

MsgBox miCampo.Result


Método Add (conjunto FormFields)

Agrega un nuevo campo de formulario en el intervalo especificado.

Sintaxis

expresión.Add(Range, Type)

expresión   Requerida. Una expresión que devuelve un objeto FormFields.

Range   Range requerido. Intervalo donde desea agregar el campo de formulario. Si el intervalo no está contraído, el campo de formulario reemplaza al intervalo.

Type   Long requerido. El tipo de campo de formulario que se agrega. Puede ser una de las siguientes constantes WdFieldType. wdFieldFormCheckBox, wdFieldFormDropDown o wdFieldFormTextInput.


Ejemplo del método Add (conjunto FormFields)

En este ejemplo se agrega una casilla de verificación al final de la selección, se le da un nombre y, a continuación, se activa.

Selection.Collapse Direction:=wdCollapseEnd

Set ffield = ActiveDocument.FormFields.Add(Range:=Selection.Range, _

    Type:=wdFieldFormCheckBox)

With ffield

    .Name = "Casilla de_verificación_1"

    .CheckBox.Value = True

End With


Método Add (conjunto Frames)

Agrega un nuevo marco al documento, selección o intervalo.

Sintaxis

expresión.Add(Range)

expresión   Requerida. Una expresión que devuelve un objeto Frames.

Range   Range requerido. El intervalo que desea que el marco rodee.


Ejemplo del método Add (conjunto Frames)

En este ejemplo se agrega un marco alrededor de la selección.

ActiveDocument.Frames.Add Range:= Selection.Range

En este ejemplo se agrega un marco alrededor del tercer párrafo de la selección.

Set miMarco = Selection.Frames.Add(Range:= Selection.Paragraphs(3).Range)


Método Add (conjunto Hyperlinks)

Agrega un nuevo hipervínculo al documento, selección o intervalo.

Sintaxis

expresión.Add(Anchor, Address, SubAddress)

expresión   Requerida. Expresión que devuelve un objeto Hyperlinks.

Anchor   Object requerido. Texto o gráfico que desea que se convierta en un hipervínculo.

Address   Variant opcional. Dirección del vínculo. La dirección puede ser una dirección de correo electrónico, una dirección de Internet o un nombre de archivo. Tenga en cuenta que Word no comprueba si la dirección es correcta.

SubAddress   Variant opcional. El nombre de una ubicación dentro del archivo de destino, tal como un marcador, un intervalo con nombre o un número de una diapositiva.


Ejemplo del método Add (conjunto Hyperlinks)

Este ejemplo convierte la selección en un hipervínculo a la dirección de Microsoft en World Wide Web.

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _

    Address:="http:\\www.microsoft.com"

Este ejemplo convierte la selección en un hipervínculo que enlaza al marcador con el nombre "MiMarcador" en MiArchivo.doc.

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _

    Address:="C:\Mis documentos\MiArchivo.doc", SubAddress:="MyBookMark"

Este ejemplo convierte la primera forma de la selección en un hipervínculo.

ActiveDocument.Hyperlinks.Add Anchor:=Selection.ShapeRange(1), _

    Address:="http:\\www.microsoft.com"


Método Add

Agrega un elemento a un conjunto, tal como se muestra en la siguiente tabla. Para obtener más información acerca del método Add para un objeto determinado, haga clic en el nombre de dicho objeto dentro de la tabla.

Objeto	Descripción
AddIns	Agrega una nueva macro automática o complemento a la lista de macros automáticas o complementos disponibles.
AutoCorrectEntries	Agrega un elemento de Autocorrección de texto normal a la lista de elementos de Autocorrección disponibles.
AutoTextEntries	Agrega una elemento de Autotexto a la lista de elementos de Autotexto disponibles.
Bookmarks	Agrega un marcador a un intervalo.
CaptionLabels	Agrega una etiqueta de título personalizada.
Cells, Rows, Columns	Agrega una celda, fila o columna a una tabla.
Comments	Agrega un comentario a un intervalo.
CustomLabels	Agrega una etiqueta postal personalizada.
Dictionaries	Agrega un nuevo diccionario ortográfico al conjunto de diccionarios ortográficos personalizados activos.
Documents	Agrega un documento nuevo y vacío al conjunto de documentos abiertos.
Endnotes, Footnotes	Agrega al intervalo una nota al final o una nota al pie.
Fields	Agrega un campo al intervalo.
FirstLetterExceptions, TwoInitialCapsExceptions	Agrega una nueva excepción a la lista de excepciones de Autocorrección.
FormFields	Agrega al intervalo un nuevo campo de formulario.
Frames	Agrega un nuevo marco al intervalo, selección o documento.
HeadingStyles	Agrega al documento un nuevo estilo de título. El nuevo estilo de título se incluirá siempre que se compile una tabla de contenido o una tabla de ilustraciones.
Hyperlinks	Agrega un nuevo hipervínculo a un intervalo, selección o documento.
Indexes	Agrega un nuevo índice al documento.
KeyBindings	Agrega una tecla de método abreviado para macros, comandos integrados, fuentes, elementos de Autotexto, estilos o símbolos.
ListEntries	Agrega un elemento a un campo de formulario desplegable.
ListTemplates	Crea una nueva plantilla de lista.
MailMergeFields	Agrega un campo de combinación al documento de origen de datos.
PageNumbers	Agrega números de página al encabezado o pie de página de una sección.
Panes	Agrega un nuevo panel a una ventana.
Paragraphs	Agrega al documento un nuevo párrafo en blanco.
RecentFiles	Agrega un archivo a la lista de archivos recientemente utilizados.
Sections	Agrega al documento una nueva sección.
Styles	Agrega un nuevo estilo personal a la lista de estilos.
Tables	Agrega al documento una nueva tabla vacía.
TablesOfContents	Agrega al documento una tabla de contenido.
TablesOfFigures	Agrega al documento una tabla de ilustraciones.
TabStops	Agrega al documento una tabulación personalizada.
TextColumns	Agrega una nueva columna de texto a una sección o documento.
Variables	Agrega una variable al documento.
Windows	Agrega una nueva ventana de documento.


Método Add (conjunto HeadingStyles)

Agrega al documento un nuevo estilo de título. El nuevo estilo de título se incluirá siempre que se compile una tabla de contenido o una tabla de ilustraciones.

Sintaxis

expresión.Add(Style, Level)

expresión   Requerida. Expresión que devuelve un objeto HeadingStyles.

Style   Variant requerida. Estilo que desea agregar. Puede especificar este argumento utilizando el nombre de la cadena para el estilo o un objeto Style.

Level   Integer requerido. Número que representa el nivel del título.


Ejemplo del método Add (conjunto HeadingStyles )

En este ejemplo, se agrega una tabla de contenido al principio del documento activo y, a continuación, se agrega el estilo de título a la lista de estilos utilizados para generar una tabla de contenido.

Set miTdc = ActiveDocument.TablesOfContents _

    .Add(Range:=ActiveDocument.Range(0, 0), _

    UseHeadingStyles:=True, UpperHeadingLevel:=1, _

    LowerHeadingLevel:=3)

miTdc.HeadingStyles.Add Style:="Título", Level:=2


Método Add (conjunto Indexes )

Agrega un nuevo índice al documento.

Sintaxis

expresión.Add(Range, HeadingSeparator, RightAlignPageNumbers, Type, NumberOfColumns, AccentedLetters)

expresión   Requerida. Expresión que devuelve un objeto Indexes.

Range   Range requerido. Intervalo donde desea que aparezca el índice. El índice reemplazará al intervalo, si éste no está contraído.

HeadingSeparator   Variant opcional. Texto entre grupos alfabéticos (elementos que comienzan con la misma letra) del índice. Puede ser una de las siguientes constantes WdHeadingSeparator: wdHeadingSeparatorBlankLine, wdHeadingSeparatorLetter, wdHeadingSeparatorLetterFull, wdHeadingSeparatorLetterLow o wdHeadingSeparatorNone.

RightAlignPageNumbers   Variant opcional. True para alinear los números de página con el margen derecho.

Type   Variant opcional. Especifica si las subentradas se encuentran en la misma línea (continua) que la entrada principal o en una línea distinta (a la que se ha aplicado sangría). Puede ser cualquiera de las siguientes constantes WdIndexType: wdIndexIndent o wdIndexRunin.

NumberOfColumns   Variant opcional. Número de columnas de cada página del índice. Al especificar 0 (cero) se establece el número de columnas del índice con el mismo número de las que hay en el documento.

AccentedLetters   Variant opcional. True para insertar en el índice títulos diferentes para las letras acentuadas; por ejemplo, las palabras que comiencen con "Á" y con "A" se incluyen en títulos diferentes.

Comentarios

Se genera el índice a partir de los campos EÍ (entrada de índice) del documento. Utilice el método MarkEntry para marcar las entradas de índice que deben incluirse en el índice.


Ejemplo del método Add (conjunto Indexes )

En este ejemplo se marca una entrada de índice y, a continuación, se genera un índice al final del documento activo.

ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:="Mi entrada"

Set MiIntervalo = ActiveDocument.Content

MiIntervalo.Collapse Direction:=wdCollapseEnd

ActiveDocument.Indexes.Add Range:=MiIntervalo, Type:=wdIndexRunin


Método Add (conjunto ListEntries )

Agrega un elemento a un campo de formulario desplegable.

Sintaxis

expresión.Add(Name, Index)

expresión   Requerida. Expresión que devuelve un objeto ListEntries.

Name   String requerida. Nombre del elemento del campo de formulario desplegable.

Index   Variant opcional. Número que representa la posición del elemento en la lista.


Ejemplo del método Add (conjunto ListEntries )

En este ejemplo se inserta un campo de formulario desplegable en el documento activo y, a continuación, se agregan los elementos "Rojo", "Azul" y "Verde" al campo de formulario.

Set miCampo = ActiveDocument.FormFields.Add(Range:= Selection.Range, _

     Type:= wdFieldFormDropDown)

With miCampo.DropDown.ListEntries

    .Add Name:="Rojo"

    .Add Name:="Azul"

    .Add Name:="Verde"

End With


Método Add (conjunto ListTemplates)

Crea una nueva plantilla de lista.

Sintaxis

expresión.Add(OutlineNumbered, Name)

expresión   Requerida. Expresión que devuelve un objeto ListTemplates.

OutlineNumbered   Variant opcional. True para aplicar numeración de esquema a la nueva plantilla de lista.

Name   Variant opcional. Nombre opcional utilizado para vincular la plantilla a un campo de NÚMLISTA. No se puede utilizar este nombre para indizar la plantilla de lista en el conjunto.

Comentarios

No puede utilizarse el método Add en objetos ListTemplates devueltos desde un objeto ListGallery. Sin embargo, sí pueden modificarse las plantillas de lista existentes en las galerías.


Ejemplo del método Add (conjunto ListTemplates)

En este ejemplo se agrega una nueva plantilla de lista de un solo nivel al documento activo. Se cambia el estilo de numeración de la nueva plantilla de lista y, a continuación, se aplica dicha plantilla a la selección.

Set miLista = ActiveDocument.ListTemplates.Add(OutlineNumbered:=False)

miLista.ListLevels(1).NumberStyle = wdListNumberStyleUpperCaseLetter

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=miLista


Método Add (conjunto MailMergeFields)

Agrega un campo de combinación al documento de origen de datos.

Sintaxis

expresión.Add(Range, Name)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Range requerido. Intervalo donde desea que aparezca el campo. El campo reemplazará al intervalo, si éste no está contraído.

Name   String requerida. Nombre del campo.


Ejemplo del método Add (conjunto MailMergeFields)

En este ejemplo, se sustituye la selección por un campo de combinación denominado "MedioInicial".

ActiveDocument.MailMerge.Fields.Add Range:= Selection.Range, _

    Name:="MedioInicial"


Método Add (conjunto PageNumbers)

Agrega números de página al encabezado o pie de página de una sección.

Sintaxis

expresión.Add(PageNumberAlignment, FirstPage)

expresión   Requerida. Expresión que devuelve un objeto PageNumbers.

PageNumberAlignment   Variant opcional. Puede ser una de las siguientes constantes WdPageNumberAlignment: wdAlignPageNumberCenter, wdAlignPageNumberInside, wdAlignPageNumberLeft, wdAlignPageNumberOutside o wdAlignPageNumberRight.

FirstPage   Variant opcional. False para que el encabezado y el pie de página de la primera página sean distintos a los del resto de las páginas del documento. Si FirstPage se establece como False, no se insertará ningún número de página en la primera página. Si se omite este argumento, el valor lo controla la propiedad DifferentFirstPageHeaderFooter.

Comentarios

Si la propiedad LinkToPrevious se establece como True para el objeto HeaderFooter, los números de página continuarán secuencialmente de una sección a otra a lo largo del documento.


Ejemplo del método Add (conjunto PageNumbers)

En este ejemplo, se agrega un número de página al primer pie de página de la primera sección del documento activo.

With ActiveDocument.Sections(1)

    .Footers(wdHeaderFooterPrimary).PageNumbers.Add _

        PageNumberAlignment:= wdAlignPageNumberLeft, FirstPage:= True

End With

En este ejemplo se insertan números de página en el encabezado del documento activo y se les da formato.

Set miNúmPág = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _

    .PageNumbers.Add(PageNumberAlignment:= wdAlignPageNumberCenter, _

    FirstPage:= True)

miNúmPág.Select

With Selection.Range

    .Italic = True

    .Bold = True

End With


Método Add (conjunto Panes)

Agrega un nuevo panel a una ventana.

Sintaxis

expresión.Add(SplitVertical)

expresión   Requerida. Expresión que devuelve un objeto Panes.

SplitVertical   Variant opcional. Número que indica el porcentaje de la ventana, de arriba a abajo, que desea que aparezca encima de la línea de división.

Comentarios

El método fallará si se aplica a una ventana que ya está dividida.


Ejemplo del método Add (conjunto Panes)

En el siguiente ejemplo, se divide la ventana activa de forma que el panel superior ocupe el 30 por ciento del tamaño total de la ventana.

ActiveWindow.Panes.Add SplitVertical:=30


Método Add (conjunto Paragraphs)

Agrega al documento un nuevo párrafo en blanco.

Sintaxis

expresión.Add(Range)

expresión   Requerida. Expresión que devuelve un objeto Paragraphs.

Range   Variant opcional. Intervalo antes del que desea agregar el nuevo párrafo. El nuevo párrafo no sustituirá al intervalo.

Comentarios

Si Range no se especifica, el nuevo párrafo se insertará después de la selección o intervalo, o al final del documento, dependiendo de la expresión.


Ejemplo del método Add (conjunto Paragraphs)

En este ejemplo se agrega un párrafo detrás de la selección.

Selection.Paragraphs.Add

En este ejemplo, se agrega una marca de párrafo delante del primer párrafo de la selección.

Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range

En este ejemplo se agrega una marca de párrafo delante del segundo párrafo del documento activo.

ActiveDocument.Paragraphs.Add Range:=ActiveDocument.Paragraphs(2).Range

En este ejemplo, se agrega una nueva marca de párrafo al final del documento activo.

ActiveDocument.Paragraphs.Add


Método Add (conjunto RecentFiles)

Agrega un archivo a la lista de archivos utilizados recientemente.

Sintaxis

expresión.Add(Document, ReadOnly)

expresión   Requerida. Expresión que devuelve un objeto RecentFiles.

Document   Variant requerida. Documento que desea agregar a la lista de archivos recientemente utilizados. Puede especificar este argumento utilizando el nombre de la cadena del documento o un objeto Document.

ReadOnly   Variant opcional. True para convertir el documento en documento de sólo lectura.


Ejemplo del método Add (conjunto RecentFiles)

En este ejemplo, se agrega el documento activo a la lista de archivos utilizados recientemente.

If ActiveDocument.Saved = True Then

    RecentFiles.Add Document:=ActiveDocument.Name

End If


Método Add (conjunto Sections)

Agrega al documento una nueva sección.

Sintaxis

expresión.Add(Range, Start)

expresión   Requerida. Expresión que devuelve un objeto Sections.

Range   Variant opcional. Intervalo delante del que desea insertar el salto de sección. Si se omite este argumento, el salto de sección se inserta al final del documento.

Start   Variant opcional. Tipo de salto de sección que desea insertar. Puede ser una de las siguientes constantes WdSectionStart: wdSectionContinuous, wdSectionEvenPage, wdSectionNewColumn, wdSectionNewPage o wdSectionOddPage. Si se omite este argumento, se insertará un salto de sección de Página siguiente.


Ejemplo del método Add (conjunto Sections)

En este ejemplo se agrega un salto de sección de Página siguiente delante del tercer párrafo del documento activo.

Set miIntervalo = ActiveDocument.Paragraphs(3).Range

ActiveDocument.Sections.Add Range:=miIntervalo

En este ejemplo se inserta un salto de sección Continuo en la selección.

Set miIntervalo = Selection.Range

ActiveDocument.Sections.Add Range:=miIntervalo, Start:=wdSectionContinuous

En este ejemplo se agrega un salto de sección de Página siguiente al final del documento activo.

ActiveDocument.Sections.Add


Método Add (conjunto Styles)

Agrega un nuevo estilo personal al conjunto de estilos.

Sintaxis

expresión.Add(Name, Type)

expresión   Requerida. Expresión que devuelve un objeto Styles.

Name   String requerida. Nombre de la cadena del nuevo estilo.

Type   Variant opcional. Tipo del nuevo estilo. Puede ser cualquiera de las siguientes constantes WdStyleType: wdStyleTypeParagraph o wdStyleTypeCharacter.


Ejemplo del método Add (conjunto Styles)

En este ejemplo se agrega un nuevo estilo de caracteres denominado "Introducción" y se convierte en Arial de 12 puntos, con formato de negrita y cursiva. A continuación, se aplica el nuevo estilo de caracteres a la selección.

Set miEstilo = ActiveDocument.Styles.Add(Name:="Introducción", _

    Type:=wdStyleTypeCharacter)

With miEstilo.Font

    .Bold = True

    .Italic = True

    .Name = "Arial"

    .Size = 12

End With

Selection.Range.Style = "Introducción"


Método Add (conjunto Tables)

Agrega al documento una nueva tabla vacía.

Sintaxis

expresión.Add(Range, NumRows, NumColumns)

expresión   Requerida. Expresión que devuelve un objeto Tables.

Range   Range requerido. Intervalo donde desea que aparezca la tabla. La tabla reemplazará al intervalo, si éste no está contraído.

NumRows   Long requerido. Número de filas que desea incluir en la tabla.

NumColumns   Long requerido. Número de columnas que desea incluir en la tabla.


Ejemplo del método Add (conjunto Tables)

En este ejemplo se agrega una tabla vacía con tres filas y cuatro columnas al principio del documento activo.

Set miIntervalo = ActiveDocument.Range(0, 0)

ActiveDocument.Tables.Add Range:=miIntervalo, NumRows:=3, NumColumns:=4

En este ejemplo se agrega una nueva tabla vacía con 6 filas y 10 columnas al final del documento activo.

Set MiIntervalo = ActiveDocument.Content

MiIntervalo.Collapse Direction:=wdCollapseEnd

ActiveDocument.Tables.Add Range:=MiIntervalo, NumRows:=6, NumColumns:=10

En este ejemplo se inserta una tabla de tres filas y cinco columnas en un nuevo documento y, a continuación, se insertan datos en cada celda.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 5)

With miTabla

For x = 1 to 3

    For y = 1 to 5

        .Cell(x,y).Range.InsertAfter "Celda " & x & "," & y

    Next y

Next x

.Columns.AutoFit

End With


Método Add (conjunto TablesOfContents)

Agrega al documento una tabla de contenido.

Sintaxis

expresión.Add(Range, UseHeadingStyles, UpperHeadingLevel, LowerHeadingLevel, UseFields, TableID, RightAlignPageNumbers, IncludePageNumbers, AddedStyles)

expresión   Requerida. Expresión que devuelve un objeto TablesOfContents.

Range   Range requerido. Intervalo donde desea que aparezca la tabla de contenido. La tabla de contenido reemplazará al intervalo, si éste no está contraído.

UseHeadingStyles   Variant opcional. True para utilizar los estilos de título integrados para generar la tabla de contenido. Si se omite el argumento, UseHeadingStyles se establece como True.

UpperHeadingLevel   Variant opcional. Nivel de título inicial para la tabla de contenido. Equivale al valor inicial que se ha utilizado con el modificador \o de un campo TDC (Tabla de contenido). El valor predeterminado es 1.

LowerHeadingLevel   Variant opcional. Nivel de título final para la tabla de contenido. Equivale al valor final que se ha utilizado con el modificador \o de un campo TDC (Tabla de contenido). El valor predeterminado es 9.

UseFields   Variant opcional. True si los campos TC (Elemento de tabla de contenido) se utilizan para generar la tabla de contenido. El método MarkEntry se utiliza para marcar los elementos que deben incluirse en la tabla de contenido. Si se omite el argumento, UseFields se establece como False.

TableID   Variant opcional. Identificador de una letra que se usa para generar una tabla de contenido a partir de los campos TC. Equivale al modificador \f de un campo TDC (Tabla de contenido). Por ejemplo, "T" genera una tabla de contenido a partir de los campos TC utilizando el identificador de tabla T. Si se omite este argumento, no se utilizarán los campos TC.

RightAlignPageNumbers   Variant opcional. True si los números de página de la tabla de contenido se alinean con el margen derecho. Si se omite el argumento, RightAlignPageNumbers se establece como True.

IncludePageNumbers   Variant opcional. True para insertar números de página en la tabla de contenido. Si se omite el argumento, IncludePageNumbers se establece como True.

AddedStyles   Variant opcional. Nombre de la cadena de estilos adicionales utilizados para compilar la tabla de contenido (estilos distintos a Título 1 – Título 9). El método Add de un objeto HeadingStyles se utiliza para crear nuevos estilos de título.


Ejemplo del método Add (conjunto TablesOfContents)

En este ejemplo se inserta una tabla de contenido al principio del documento activo. La tabla de contenido se genera utilizando los párrafos que tengan estilo de Título 1, Título 2 y Título 3 o los estilos personalizados miEstilo y tuEstilo.

Set miIntervalo = ActiveDocument.Range(0, 0)

ActiveDocument.TablesOfContents.Add _

    Range:=miIntervalo, _

    UseFields:=False, _

    UseHeadingStyles:=True, _

    LowerHeadingLevel:=3, _

    UpperHeadingLevel:=1, _

    AddedStyles:="miEstilo, tuEstilo"


Método Add (conjunto TablesOfFigures)

Agrega al documento una tabla de ilustraciones.

Sintaxis

expresión.Add(Range, Caption, IncludeLabel, UseHeadingStyles, UpperHeadingLevel, LowerHeadingLevel, UseFields, TableId, RightAlignPageNumbers, IncludePageNumbers, AddedStyles)

expresión   Requerida. Expresión que devuelve un objeto TablesOfFigures.

Range   Range requerido. Intervalo donde desea que aparezca la tabla de ilustraciones.

Caption   Variant opcional. Rótulo que identifica los elementos que desea incluir en la tabla de ilustraciones. Equivale al modificador \c de un campo TDC (Tabla de contenido). Si se omite el argumento, Caption se establece como "Ilustración".

IncludeLabel   Variant opcional. True para incluir la etiqueta de título y el número de título en la tabla de ilustraciones. Si se omite el argumento, IncludeLabel se establece como True.

UseHeadingStyles   Variant opcional. True para utilizar los estilos de título integrados para generar la tabla de ilustraciones. Si se omite el argumento, UseHeadingStyles se establece como False.

UpperHeadingLevel   Variant opcional. Nivel de título inicial de la tabla de ilustraciones, si UseHeadingStyles se establece como True. Equivale al valor inicial que se ha utilizado con el modificador \o de un campo TDC (Tabla de contenido). El valor predeterminado es 1.

LowerHeadingLevel   Variant opcional. Nivel de título final de la tabla de ilustraciones, si UseHeadingStyles se establece como True. Equivale al valor final que se ha utilizado con el modificador \o de un campo TDC (Tabla de contenido). El valor predeterminado es 9.

UseFields   Variant opcional. True para utilizar los campos TC (Elemento de tabla de contenido) para generar la tabla de ilustraciones. El método MarkEntry se utiliza para marcar los elementos que desea incluir en la tabla de ilustraciones. Si se omite este argumento, UseFields se establece como False.

TableId   Variant opcional. Identificador de una letra que se usa para generar una tabla de ilustraciones a partir de los campos TC (Elemento de tabla de contenido). Equivale al modificador \f de un campo TDC (Tabla de contenido). Por ejemplo, "i" genera una tabla de ilustraciones para una ilustración.

RightAlignPageNumbers   Variant opcional. True para alinear los números de página con el margen derecho de la tabla de ilustraciones. Si se omite el argumento, RightAlignPageNumbers se establece como True.

IncludePageNumbers   Variant opcional. True si los números de página se incluyen en la tabla de ilustraciones. Si se omite el argumento, IncludePageNumbers se establece como True.

AddedStyles   Variant opcional. Nombre de la cadena de estilos adicionales utilizados para compilar la tabla de ilustraciones (estilos distintos a Título 1 – Título 9). Utilice el método Add para crear nuevos estilos de título.


Ejemplo del método Add (conjunto TablesOfFigures)

En este ejemplo se inserta una tabla de ilustraciones en el documento activo.

ActiveDocument.TablesOfFigures.Add Range:=Selection.Range


Método Add (conjunto TabStops)

Agrega una tabulación personalizada.

Sintaxis

expresión.Add(Position, Alignment, Leader)

expresión   Requerida. Expresión que devuelve un objeto TabStops.

Position   Single requerida. Posición de la tabulación (en puntos) con respecto al margen izquierdo.

Alignment   Variant opcional. Alineación de la tabulación. Puede ser una de las siguientes constantes WdTabAlignment: wdAlignTabBar, wdAlignTabCenter, wdAlignTabDecimal, wdAlignTabLeft, wdAlignTabList o wdAlignTabRight. Si se omite el argumento, se utiliza wdAlignTabLeft.

Leader   Variant opcional. Tipo de relleno de la tabulación. Puede ser una de las siguientes constantes WdTabLeader: wdTabLeaderDashes, wdTabLeaderDots, wdTabLeaderHeavy, wdTabLeaderLines o wdTabLeaderSpaces. Si se omite el argumento, se utiliza wdTabLeaderSpaces.


Ejemplo del método Add (conjunto TabStops)

En este ejemplo se aplica una tabulación colocada a 6 centímetros (desde el borde izquierdo de la página) a los párrafos seleccionados.

Selection.Paragraphs.TabStops.Add Position:=CentimetersToPoints(6)

En este ejemplo se aplican dos tabulaciones a los párrafos seleccionados. La primera tabulación está alineada a la izquierda, tiene un relleno punteado y está colocado a 2,54 centímetros (72 puntos) desde el borde izquierdo de la página. La segunda tabulación está centrada y colocada a 5 centímetros desde el borde izquierdo.

With Selection.Paragraphs.TabStops

    .Add Position:=CentimetersToPoints(2.54), Leader:=wdTabLeaderDots, Alignment:=wdAlignTabLeft

    .Add Position:=CentimetersToPoints(5), Alignment:=wdAlignTabCenter

End With


Método Add (conjunto TextColumns)

Agrega una nueva columna de texto a un documento o sección.

Nota   De manera predeterminada, como mínimo, siempre hay una columna de texto en el conjunto TextColumns.

Sintaxis

expresión.Add(Width, Spacing, EvenlySpaced)

expresión   Requerida. Expresión que devuelve un objeto TextColumns.

Width   Variant opcional. Ancho, en puntos, de la nueva columna de texto del documento.

Spacing   Variant opcional. Espacio, en puntos, entre las columnas de texto del documento.

EvenlySpaced   Variant opcional. True para dar un espacio uniforme a todas las columnas de texto del documento.


Ejemplo del método Add (conjunto TextColumns)

En este ejemplo se crea un documento nuevo y, a continuación, se agrega otra columna de texto de 7,5 centímetros de ancho.

Set miDoc = Documents.Add

miDoc.PageSetup.TextColumns.Add Width:=CentimetersToPoints(7.5), _

    Spacing:=CentimetersToPoints(3), EvenlySpaced:=False

En este ejemplo se agrega una nueva columna de texto al documento activo y, a continuación, se aplica un espaciado uniforme a todas las columnas de texto del documento.

ActiveDocument.PageSetup.TextColumns.Add Width:=CentimetersToPoints(3), _

     EvenlySpaced:=True


Método Add (conjunto Variables)

Agrega una variable al documento.

Sintaxis

expresión.Add(Name, Value)

expresión   Requerida. Expresión que devuelve un objeto Variables.

Name   String requerida. Nombre de la variable del documento.

Value   Variant opcional. Valor de la variable del documento.

Comentarios

El usuario no ve las variables del documento si no se inserta un campo VARIABLEDOC con el nombre de variable correspondiente. Si intenta agregar una variable con un nombre que ya existe en el conjunto Variables, se producirá un error. Para evitar que se produzca, puede enumerar el conjunto antes de agregarle una nueva variable.


Ejemplo del método Add (conjunto Variables)

En este ejemplo se agrega una variable "Temp" al documento activo y, a continuación, se inserta un campo VARIABLEDOC para que se muestre el valor de la variable Temp.

With ActiveDocument

    .Variables.Add Name:="Temp", Value:="12"

    .Fields.Add Range:=Selection.Range, Type:=wdFieldDocVariable, Text:="Temp"

End With

ActiveWindow.View.ShowFieldCodes = False

En este ejemplo se establece el valor de la variable Azul como 6. Si la variable no existe, se agrega al documento y se establece como 6.

For Each aVar In ActiveDocument.Variables

    If aVar.Name = "Azul" Then num = aVar.Index

Next aVar

If num = 0 Then

    ActiveDocument.Variables.Add Name:="Azul", Value:=6

Else

    ActiveDocument.Variables(num).Value = 6

End If

En este ejemplo se guarda el nombre de usuario (del cuadro de diálogo Opciones) en la plantilla adjunta al documento activo.

ScreenUpdating = False

With ActiveDocument.AttachedTemplate.OpenAsDocument

    .Variables.Add Name:="Nombre de usuario", Value:= Application.UserName

    .Close SaveChanges:=wdSaveChanges

End With


Método Add (conjunto Windows)

Abre otra ventana de documento para el mismo documento.

Sintaxis

expresión.Add(Window)

expresión   Requerida. Expresión que devuelve un objeto Windows.

Window   Variant opcional. Objeto Window para el que desea abrir otra ventana. Si se omite el argumento, se abre una nueva ventana para el documento activo.

Comentarios

Si hay más de una ventana abierta para el mismo documento, en el título de la ventana aparecerán dos puntos (:) seguidos de un número.


Ejemplo del método Add (conjunto Windows)

En este ejemplo se abre una nueva ventana para el documento que se muestra en la ventana activa.

Windows.Add

En este ejemplo, se abre una nueva ventana para MiDoc.doc.

Windows.Add Window:=Documents("MiDoc.doc").Windows(1)


Método Outdent

Quita un nivel de sangría de uno o más párrafos.

Nota   Usar este método es igual que hacer clic en el botón Disminuir sangría en la barra de herramientas Formato.

Sintaxis

expresión.Outdent

expresión   Requerida. Expresión que devuelve un objeto Paragraph o Paragraphs.


Ejemplo del método Outdent

En este ejemplo se aplican dos sangrías a todos los párrafos del documento activo y, a continuación, se quita un nivel de sangría para el primer párrafo.

With ActiveDocument.Paragraphs

    .Indent

    .Indent

End With

ActiveDocument.Paragraphs(1).Outdent


Método Indent

Aplica una sangría de un nivel a uno o más párrafos.

Nota   Usar este método es igual que hacer clic en el botón Aumentar sangría en la barra de herramientas Formato.

Sintaxis

expresión.Indent

expresión   Requerida. Expresión que devuelve un objeto Paragraph o Paragraphs.


Ejemplo del método Indent

En este ejemplo se aplican dos sangrías a todos los párrafos del documento activo y, a continuación, se elimina un nivel de sangría para el primer párrafo.

With ActiveDocument.Paragraphs

    .Indent

    .Indent

End With

ActiveDocument.Paragraphs(1).Outdent


Método InsertFormula

Inserta un campo = (Fórmula) que contiene una fórmula en la selección.

Nota   La fórmula reemplaza a la selección, si ésta no está contraída.

Sintaxis

expresión.Formula(Formula, NumberFormat)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Formula   Variant opcional. Fórmula matemática que desea que evalúe el campo = (Fórmula). Son válidas las referencias de tipo de hoja de cálculo a las celdas de la tabla. Por ejemplo, "=SUMA(A4:C4)" especifica los tres primeros valores de la cuarta fila. Para obtener más información acerca del campo = (Fórmula), consulte Códigos de campo:campo = (Fórmula).

NumberFormat   Variant opcional. Formato para el resultado del campo = (Fórmula). Para obtener información acerca de los tipos de formato que puede aplicar, consulte Modificador de campo (\#) de imagen numérica.

Comentarios

Si está utilizando una aplicación de hojas de cálculo, como Microsoft Excel, con frecuencia es más sencillo incrustar en el documento una hoja de cálculo en parte o en su totalidad que utilizar el campo = (Fórmula) en una tabla.

El argumento Formula es opcional sólo si la selección se encuentra en una celda y existe al menos una celda que contenga un valor por encima o a la izquierda de la celda que contiene el punto de inserción. Si las celdas sobre el punto de inserción contienen valores, el campo insertado será {=SUMA(SOBRE)}; si las celdas a la izquierda del punto de inserción contienen valores, el campo insertado será {=SUMA(IZQUIERDA)}. Si las celdas que se encuentran encima y a la izquierda del punto de inserción contienen valores, Word utilizará las siguientes reglas para determinar la función SUMA que va a insertarse:

•	Si la celda situada sobre el punto de inserción contiene un valor, Word insertará {=SUMA(SOBRE)}.

•	Si la celda inmediata sobre el punto de inserción no contiene ningún valor pero la celda inmediata a la izquierda sí lo contiene, Word inserta {=SUMA(IZQUIERDA)}.

•	En el caso de que ni la celda inmediata por arriba ni la celda inmediata por debajo contengan un valor, Word inserta {=SUMA(SOBRE)}.

•	Si no especifica Formula y todas las celdas por encima y a la izquierda del punto de inserción están vacías, al utilizar el campo = (Fórmula) se producirá un error.


Ejemplo del método InsertFormula

En este ejemplo se inserta una tabla de tres filas y tres columnas al principio del documento activo y, a continuación, se calcula el promedio de todos los números de la primera columna.

Set MiIntervalo = ActiveDocument.Range(0, 0)

Set miTabla = ActiveDocument.Tables.Add(MiIntervalo, 3, 3)

With miTabla

    .Cell(1, 1).Range.InsertAfter "100"

    .Cell(2, 1).Range.InsertAfter "50"

    .Cell(3, 1).Select

End With

Selection.InsertFormula Formula:="=Promedio(Encima)"

En este ejemplo se inserta un campo de fórmula que se resta del valor representado por el marcador "VentasBrutas". Al resultado se le aplica el formato del símbolo del dólar.

Selection.Collapse Direction:=wdCollapseStart

Selection.InsertFormula Formula:= "=VentasBrutas-45.000,00", _

    NumberFormat:="#.##0,00 $"


Propiedad InsideColorIndex

Devuelve o establece el color de los bordes interiores. Puede ser cualquiera de las siguientes constantes WdColorIndex: wdAuto, wdBlack, wdBlue, wdBrightGreen, wdDarkBlue, wdDarkRed, wdDarkYellow, wdGray25, wdGray50, wdGreen, wdPink, wdRed, wdTeal, wdTurquoise, wdViolet, wdWhite o wdYellow. Long de Lectura/Escritura.

Comentarios

Si la propiedad InsideLineStyle se establece como wdLineStyleNone o False, establecer esta propiedad no tiene ningún efecto.


Ejemplo de la propiedad InsideColorIndex

En este ejemplo se agregan bordes entre las filas y las columnas de la primera tabla del documento activo y, a continuación, se establece el color de los bordes interiores y exteriores.

If ActiveDocument.Tables.Count >= 1 Then

    Set miTabla = ActiveDocument.Tables(1)

    With miTabla.Borders

        .InsideLineStyle = True

        .InsideColorIndex = wdBrightGreen

        .OutsideColorIndex = wdPink

    End With

End If

En este ejemplo se agregan bordes rojos entre los cuatro primeros párrafos del documento activo.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Paragraphs(1).Range.Start, _

    End:=miDoc.Paragraphs(4).Range.End)

With miIntervalo.Borders

    .InsideLineStyle = wdLineStyleSingle

    .InsideLineWidth = wdLineWidth150pt

    .InsideColorIndex = wdRed

End With


Propiedad OutsideColorIndex

Devuelve o establece el color de los bordes exteriores. Puede ser cualquiera de las siguientes constantes WdColorIndex: wdAuto, wdBlack, wdBlue, wdBrightGreen, wdDarkBlue, wdDarkRed, wdDarkYellow, wdGray25, wdGray50, wdGreen, wdPink, wdRed, wdTeal, wdTurquoise, wdViolet, wdWhite o wdYellow. Long de Lectura/Escritura.

Comentarios

Si la propiedad OutsideLineStyle se establece como wdLineStyleNone o False, establecer esta propiedad no tiene ningún efecto.


Ejemplo de la propiedad OutsideColorIndex

En este ejemplo se agregan bordes entre las filas y las columnas de la primera tabla del documento activo y, a continuación, se establece el color de los bordes interiores y exteriores.

If ActiveDocument.Tables.Count >= 1 Then

    Set miTabla = ActiveDocument.Tables(1)

    With miTabla.Borders

        .InsideLineStyle = True

        .InsideColorIndex = wdBrightGreen

        .OutsideColorIndex = wdPink

    End With

End If

En este ejemplo se agrega un borde doble de 0,75 puntos de color rojo alrededor del primer párrafo del documento activo.

With ActiveDocument.Paragraphs(1).Borders

    .OutsideLineStyle = wdLineStyleDouble

    .OutsideLineWidth = wdLineWidth075pt

    .OutsideColorIndex = wdRed

End With


Método Execute

Para obtener información acerca del método Execute, haga clic en uno de los siguientes nombres de objeto:

Dialog

Find

KeyBinding

MailMerge


Propiedad AddIns

Devuelve un conjunto AddIns que representa a todas las macros automáticas disponibles, independientemente de si están cargadas actualmente. El conjunto AddIns incluye las bibliotecas de plantillas globales y macros automáticas de Word (WLL) del cuadro de diálogo Plantillas y macros (menú Herramientas). Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad AddIns

Este ejemplo devuelve el número total de macros.

miCuenta = AddIns.Count

Este ejemplo muestra el nombre de todas las macros del conjunto Addins.

For Each aAddIn In AddIns

    MsgBox aAddIn.Name

Next aAddIn


Método Clear

Objeto DropCap: quita el formato de letra capital.

Objeto KeyBinding: quita la asignación de teclas del conjunto KeyBindings y reestablece un comando integrado a su asignación de tecla predeterminada.

Objeto ListEntries: quita todos los elementos de un campo con lista desplegable.

Objeto TabStop: quita la tabulación personalizada especificada.

Objeto TextInput: elimina el texto del campo de formulario especificado.

Sintaxis

expresión.Clear

expresión   Requerida. Expresión que devuelve un objeto DropCap, KeyBinding, ListEntries, TabStop o TextInput.


Ejemplo del método Clear

Este ejemplo borra la primera tabulación personalizada del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabStops(1).Clear

Este ejemplo protege el documento de formularios y elimina el texto del primer campo de formulario si se trata de un campo de texto.

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then

 ActiveDocument.FormFields(1).TextInput.Clear

End If

Este ejemplo quita todos los elementos del campo de formulario denominado "Colores" del documento Ventas.doc.

Documents("Ventas.doc").FormFields("Colores").DropDown.ListEntries.Clear

Este ejemplo quita el formato de las letras capitales desde la primera letra del documento activo.

Set drop = ActiveDocument. Paragraphs(1).DropCap

If Not (drop Is Nothing) Then drop.Clear

Este ejemplo quita la asignación de teclas ALT+F1 de la plantilla Normal.

CustomizationContext = NormalTemplate

FindKey(BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyF1)).Clear


Propiedad State

Devuelve el estado actual de una operación de combinación de correspondencia que puede ser una de las siguientes constantes WdMailMergeState: wdNormalDocument, wdMainDocumentOnly, wdMainAndDataSource, wdMainAndHeader, wdMainAndSourceAndHeader o wdDataSource. Long de sólo lectura.


Ejemplo de la propiedad State

Este ejemplo ejecuta una combinación de correspondencia si el documento activo es un documento principal con un origen de datos adjunto.

Set miCombinación = ActiveDocument.MailMerge

If miCombinación.State = wdMainAndDataSource Then miCombinación.Execute


Propiedad ID

Objeto CaptionLabel: Si la propiedad BuiltIn del objetoCaptionLabel devuelve True, ID devuelve el tipo del rótulo de título especificado. Puede ser una de las siguientes constantes WdCaptionLabelID: wdCaptionEquation, wdCaptionFigure o wdCaptionTable. Si la propiedad BuiltIn devuelve False, ID devuelve False. Long de sólo lectura.

Objeto Language: Devuelve un número que identifica el idioma especificado. Long de sólo lectura.

Puede ser una de las siguientes constantes WdLanguageID:

wdAfrikaans wdArabic wdBasque wdBelgianDutch wdBelgianFrench wdBrazilianPortuguese wdBulgarian wdByelorussian wdCatalan wdCroation wdCzech wdDanish wdDutch wdEnglishAUS wdEnglishCanadian wdEnglishNewZealand wdEnglishSouthAfrica wdEnglishUK wdEnglishUS wdEstonian wdFarsi wdFinnish wdFrench wdFrenchCanadian wdGerman wdGreek wdHebrew wdHungarian wdItalian wdIcelandic wdJapanese wdKorean	wdLanguageNone wdLatvian wdMacedonian wdMalaysian wdMexicanSpanish wdNoProofing wdNorwegianBokmol wdNorwegianNynorsk wdPolish wdPortuguese wdRomanian wdRussian wdSerbianCyrillic wdSerbianLatin wdSesotho wdSimplifiedChinese wdSlovak wdSlovenian wdSpanish wdSpanishModernSort wdSwedish wdSwissFrench wdSwissGerman wdSwissItalian wdTraditionalChinese wdTsonga wdTswana wdTurkish wdUkrainian wdVenda wdXhosa wdZulu


Ejemplo de la propiedad ID

En este ejemplo se muestran los nombres de rótulos de título integrados y los valores de la propiedad ID.

For Each rt In CaptionLabels

    If rt.BuiltIn = True Then MsgBox rt.Name & " " & rt.ID

Next rt

En este ejemplo se da formato a la selección con las herramientas de revisión del idioma islandés.

Selection.LanguageID = Languages("Islandés").ID


Propiedad Autoload

True: si la macro especificada se carga automáticamente al iniciar Word. Las macros situadas en la carpeta Iniciar de la carpeta del programa Word se cargan automáticamente. Boolean de sólo lectura.


Ejemplo de la propiedad Autoload

El ejemplo siguiente muestra el nombre de todas las macros que se cargan automáticamente al iniciar Word.

For Each miMacroauto In Addins

    If miMacroauto.Autoload = True Then

        MsgBox miMacroauto.Name

        afound = True

    End If

Next miMacroauto

If afound <> True Then MsgBox "No se ha cargado ninguna macro automáticamente"

Este ejemplo determina si se ha cargado automáticamente la macro de la plantilla denominada "Galería.dot".

For Each aAddin In Addins

    If InStr(LCase$(aAddin.Name), "galería.dot") > 0 Then

        If aAddin.Autoload = True Then Msgbox "Autocargar"

    End If

Next aAddin


Propiedad Compiled

True: si el complemento especificado es una biblioteca de complementos o macros automáticas de Word (WLL). False: si el complemento es una plantilla. Boolean de sólo lectura.


Ejemplo de la propiedad Compiled

El siguiente ejemplo determina el número de bibliotecas WLL cargadas actualmente.

count = 0

For Each aAddin in Addins

    If aAddin.Compiled = True And aAddin.Installed = True Then

        count = count + 1

    End If

Next aAddin

MsgBox Str(count) & " bibliotecas WLL cargadas "

Si la primera macro es una plantilla, este ejemplo la descarga y la abre.

If MacrosAuto(1).Compiled = False Then

    MacrosAuto(1).Installed = False

    Documents.Open FileName:=AddIns(1).Path & Application.PathSeparator & _

        MacrosAuto(1).Name

End If


Biblioteca de complementos o macros automáticas de Word (WLL)

Se trata de una biblioteca de enlace dinámico e independiente (Windows) o de un recurso de código (Macintosh) que, cuando se ha cargado, puede agregar comandos personalizados que amplían la funcionalidad de Word. Los comandos y las funciones de una biblioteca WLL cargada también están disponibles para proyectos Visual Basic. Las bibliotecas WLL se escriben y compilan en lenguajes de programación como C y C++.


Propiedad Installed

True: si la macro especificada está instalada (cargada). Las macros que se cargan se seleccionan en el cuadro de diálogo Plantillas y macros automáticas (menú Herramientas). Boolean de Lectura/Escritura.

Nota:   las macros no instaladas se incluyen en el conjunto AddIns. Para quitar una plantilla o una biblioteca WLL del conjunto AddIns, aplique el método Delete del objeto AddIn (el nombre de la macro desaparece del cuadro de diálogo Plantillas y macros automáticas). Para descargar todas las plantillas y las bibliotecas WLL, aplique el método Unload al conjunto AddIns.


Ejemplo de la propiedad Installed

Este ejemplo descarga la plantilla global denominada "Galería.dot".

MacrosAuto("Galería.dot").Installed = False

Este ejemplo carga FindAll.wll.

MacrosAuto("C:\Plantillas\FindAll.wll").Installed = True

Este ejemplo carga Personal.dot.

MacrosAuto("C:\Archivos de programa\Microsoft Office\Plantillas\Personal.dot").Installed = True

Este ejemplo muestra un mensaje en la barra de estado si Dot1.dot está cargada como plantilla global.

If MacrosAuto("Dot1.dot").Installed = True Then StatusBar = "Dot1.dot está cargada"


Método Unload

Este método descarga todas las macros cargadas y, en función del valor del argumento RemoveFromList, las quita del conjunto AddIns.

Sintaxis

expresión.Unload(RemoveFromList)

expresión   Requerida. Expresión que devuelve un objeto AddIns.

RemoveFromList   Boolean requerida. True para quitar las macros descargadas del conjunto AddIns (se quitan los nombres del cuadro de diálogo Plantillas y macros automáticas). False para dejar las macros automáticas descargadas en el conjunto.

Si la propiedad Autoload de una macro descargada devuelve el valor True, Unload no puede quitar dicha macro del conjunto AddIns, independientemente del valor de RemoveFromList.

Comentarios

Para descargar una sola plantilla o biblioteca WLL, establezca la propiedad Installed del objeto AddIn como False. Para quitar una sola plantilla o biblioteca WLL del conjunto AddIns, aplique el método Delete al objeto AddIn.


Ejemplo del método Unload

Este ejemplo descarga todas las macros automáticas del cuadro de diálogo Plantillas y macros automáticas, pero sus nombres permanecen en el conjunto AddIns.

If MacrosAuto.Count > 0 Then MacrosAuto.UnLoad RemoveFromList:=False


Propiedad Visible

Objeto Application, Task o Border: True si el objeto especificado está visible. Boolean de Lectura/Escritura.

Objeto FillFormat, LineFormat, ShadowFormat, Shape, ShapeRange o ThreeDFormat: True si el objeto especificado o el formato que se le ha aplicado están visibles. Long de Lectura/Escritura.

Comentarios

Para ocultar aplicaciones que no sean Word que todavía se estén ejecutando, utilice la propiedad Hidden del objeto Task. Para obtener información acerca del inicio de una tarea nueva, vea el objeto Task.


Ejemplo de la propiedad Visible

En este ejemplo se oculta Word.

Application.Visible = False

En este ejemplo se oculta la Calculadora, si se está ejecutando. Si no se está ejecutando, se mostrará un mensaje.

If Tasks.Exists("Calculadora") Then

    Tasks("Calculadora").Visible = False

Else

    Msgbox "La calculadora no se está ejecutando."

End If

En este ejemplo se inserta una tabla en el documento activo y se quitan los bordes predeterminados.

Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    NumRows:=12, NumColumns:=5)

For Each unBorde In miTabla.Borders

    unBorde.Visible = False

Next unBorde

En este ejemplo se oculta el formato de sombreado de la primera forma del documento activo.

ActiveDocument.Shapes(1).Shadow.Visible = False

En este ejemplo se crea un documento nuevo y, a continuación, se le agrega texto y un rectángulo. También se indica a Word que oculte el rectánculo mientras se imprime el documento y lo haga visible de nuevo una vez finalizada la impresión.

Set miDoc = Documents.Add

Selection.TypeText Text:="Es texto de muestra."

With miDoc

    .Shapes.AddShape msoShapeRectangle, 200, 70, 150, 60

    .Shapes(1).Visible = False

    .PrintOut

    .Shapes(1).Visible = True

End With


Propiedad Orientation

Objeto PageSetup: Devuelve o establece la orientación de la página. Puede ser una de las siguientes constantes WdOrientation: wdOrientLandscape o wdOrientPortrait. Long de Lectura/Escritura.

Objeto Range o Selection: Devuelve o establece la orientación del texto del intervalo o de la selección especificados cuando está activada la característica Dirección del texto. Puede ser una de las siguientes constantes WdTextOrientation: wdTextOrientationDownward, wdTextOrientationHorizontal o wdTextOrientationUpward. Long de Lectura/Escritura.

Objeto TextFrame: Devuelve o establece la orientación del texto dentro del marco. Puede ser una de las siguientes constantes MsoTextOrientation: msoTextOrientationDownward, msoTextOrientationHorizontal, msoTextOrientationMixed o msoTextOrientationUpward. Long de Lectura/Escritura.

Comentarios

Las siguientes constantes MsoTextOrientation no se utilizan en la versión inglesa de EE.UU. de Word: msoTextOrientationVertical, msoTextOrientationHorizontalRotatedFarEast y msoTextOrientationVerticalFarEast.

Puede establecer la orientación para un marco de texto o para un intervalo o selección que se encuentren dentro de un marco de texto. Para obtener información acerca de la diferencia entre un marco de texto y un cuadro de texto, vea el objeto TextFrame.


Ejemplo de la propiedad Orientation

En este ejemplo se cambia la orientación del documento denominado "MiDocumento.doc" y, a continuación, se imprime el documento. Después, se cambia la orientación del documento otra vez a vertical.

Set miDoc = Documents("MiDocumento.doc")

With miDoc

    .PageSetup.Orientation = wdOrientLandscape

    .PrintOut

    .PageSetup.Orientation = wdOrientPortrait

End With

En este ejemplo se crea un nuevo documento, se inserta texto en él, se utiliza dicho texto para crear un cuadro de texto y, a continuación, se establece la orientación del marco de texto de manera que el texto tenga una inclinación ascendente.

Set miDoc = Documents.Add

Selection.TypeText "Esto es cualquier texto."

midoc.Content.Select

Selection.CreateTextbox

miDoc.Shapes(1).TextFrame.Orientation = msoTextOrientationUpward


Propiedad ShapeRange

Devuelve un conjunto ShapeRange que representa todos los objetos Shape del intervalo o selección especificados. En el intervalo de formas pueden incluirse dibujos, formas, objetos OLE, controles ActiveX, objetos de texto y llamadas. Es de sólo lectura.


Ejemplo de la propiedad ShapeRange

En el siguiente ejemplo se establece el color de relleno de primer plano de todas las formas del documento activo.

ActiveDocument.Content.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 255)

En el siguiente ejemplo, se aplica formato de sombreado a todas las formas de la selección.

Selection.ShapeRange.Shadow.Type = msoShadow6


Propiedad LockAnchor

Objeto Frame: True si está bloqueado el marco especificado. El punto de fijación del marco establece dónde aparecerá el marco en vista Normal. No se puede cambiar la posición de un punto de fijación de marco bloqueado. Boolean de Lectura/Escritura.

Objeto Shape o ShapeRange: True si el punto de fijación del objeto Shape o ShapeRange especificado está bloqueado para el intervalo de fijación. Cuando una forma tiene un punto de fijación bloqueado, no puede moverse el punto de fijación de la forma arrastrándolo (el punto de fijación no se mueve al mover la forma). Boolean de Lectura/Escritura.

Comentarios

Un objeto Shape se fija con respecto a un intervalo de texto, pero puede colocarse en cualquier lugar de la página. La forma se fija al principio del primer párrafo que contiene el intervalo de fijación. La forma siempre permanecerá en la misma página que su punto de fijación.


Ejemplo de la propiedad LockAnchor

En este ejemplo se bloquea el punto de fijación del primer marco de la sección dos del documento activo.

Set miIntervalo = ActiveDocument.Sections(2).Range

If TypeName(miIntervalo) <> "Nada" And miIntervalo.Frames.Count > 0 Then

    miIntervalo.Frames(1).LockAnchor = True

End If

En este ejemplo se crea un nuevo documento, se le agrega una forma y, a continuación, se bloquea el punto de fijación de la forma.

Set miDoc = Documents.Add

Set miForma = miDoc.Shapes.AddShape(msoShapeBalloon, 0, 0, 140, 70)

miForma.LockAnchor = True

ActiveWindow.View.ShowObjectAnchors = True

En este ejemplo se devuelve un mensaje que indica el estado de bloqueo de cada una de las formas del documento activo.

For each s in ActiveDocument.Shapes

    Msgbox "Forma " & s.ZOrderPosition & " está bloqueada - " & s.LockAnchor

Next s


Propiedad Shapes

Devuelve un conjunto Shapes que representa todos los objetos Shape del documento, encabezado o pie de página especificados. En el conjunto pueden incluirse dibujos, formas, objetos OLE, controles ActiveX, objetos de texto y llamadas. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.

Comentarios

La propiedad Shapes, si se aplica a un documento, devuelve todos los objetos Shape del contenido principal del documento, sin incluir encabezados y pies de página. Si se aplica a un objeto HeaderFooter, la propiedad Shapes devuelve todos los objetos Shape encontrados en todos los encabezados y pies de página del documento.


Ejemplo de la propiedad Shapes

En este ejemplo se crea un nuevo documento, se le agrega un rectángulo de 100 puntos de ancho y 50 puntos de alto y se establece la esquina superior izquierda del rectángulo en 5 puntos desde el borde izquierdo y 25 puntos desde la esquina superior izquierda de la página.

Set miDoc = Documents.Add

miDoc.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

En el siguiente ejemplo se establece la textura del relleno de todas las formas del documento activo.

For each s in ActiveDocument.Shapes

    s.Fill.PresetTextured msoTextureOak

Next s

En este ejemplo se aplica sombreado a la primera forma del documento activo.

Set miForma = ActiveDocument.Shapes(1)

miForma.Shadow.Type = msoShadow6

En este ejemplo se muestra un recuento de todas las formas de los encabezados y pies de página del documento activo.

MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Count


Propiedad Shape

Devuelve un objeto Shape para el hipervínculo especificado. Si el hipervínculo no está representado por una forma, se producirá un error. Es de sólo lectura.


Ejemplo de la propiedad Shape

En este ejemplo se cambia el color de relleno de la forma que representa al primer hipervínculo del documento activo. Para que este ejemplo tenga validez, el hipervínculo debe estar representado por una forma.

ActiveDocument.Hyperlinks(1).Shape.Fill.ForeColor.RGB = RGB(255, 255, 0)


Método CreateTextbox

Inserta un cuadro de texto de tamaño predeterminado alrededor de la selección. Si la selección es un punto de inserción, este método convierte el puntero en un puntero en forma de cruz de manera que el usuario pueda trazar un cuadro de texto.

Sintaxis

expresión.CreateTextbox

expresión   Requerida. Expresión que devuelve un objeto Selection.

Comentarios

Usar este método es igual que hacer clic en el botón Cuadro de texto de la barra de herramientas Dibujo. Un cuadro de texto es un rectángulo con un marco de texto asociado.


Ejemplo del método CreateTextbox

En este ejemplo se agrega un cuadro de texto alrededor de la selección y, a continuación, se cambia el estilo de línea del cuadro de texto.

If Selection.Type = wdSelectionNormal Then

    Selection.CreateTextbox

    Selection.ShapeRange(1).Line.DashStyle =msoLineDashDot

End If


Propiedad Left

Objeto Application, Task o Window: Devuelve o establece la posición horizontal, en puntos, de la ventana o tarea especificadas. Long de Lectura/Escritura.

Objeto Shape o ShapeRange: Devuelve o establece la posición horizontal, en puntos, de la forma o intervalo de formas especificados. Single de Lectura/Escritura.

Comentarios

La posición de una forma se mide desde la esquina superior izquierda del cuadro de límite hasta el punto de fijación. La propiedad RelativeHorizontalPosition controla si el punto de fijación está colocado a lo largo de la columna, margen o borde de la página.

Para un objeto ShapeRange que contenga más de una forma, la propiedad Left establece la posición horizontal de cada una de las formas.


Ejemplo de la propiedad Left

En este ejemplo se establece la posición horizontal de la ventana activa en 100 puntos.

With ActiveWindow

    .WindowState = wdWindowStateNormal

    .Left = 100

    .Top = 0

End With

En este ejemplo se establece la posición horizontal de la primera forma del documento activo en 2,5 centímetros desde el borde izquierdo de la página.

With ActiveDocument.Shapes(1)

    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage

    .Left = CentimetersToPoints(2.5)

End With

En este ejemplo se establece la posición horizontal de la primera y segunda forma del documento activo en 2,5 centímetros desde el borde izquierdo de la columna.

With ActiveDocument.Shapes.Range(Array(1, 2))

    .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn

    .Left = CentimetersToPoints(2.5)

End With


Propiedad Top

Objeto Application, Task o Window: Devuelve o establece la posición vertical, en puntos, de la ventana o tarea especificadas. Long de Lectura/Escritura.

Objeto Shape o ShapeRange: Devuelve o establece la posición vertical, en puntos, de la forma o intervalo de formas especificados. Single de Lectura/Escritura.

Comentarios

La posición de una forma se mide desde la esquina superior izquierda del cuadro de límite hasta el punto de fijación. La propiedad RelativeVerticalPosition controla si el punto de fijación de la forma está colocado a lo largo del párrafo, margen o borde de la página.

Para un objeto ShapeRange que contenga más de una forma, la propiedad Top establece la posición vertical de cada una de las formas.


Ejemplo de la propiedad Top

En este ejemplo se coloca la ventana de Word a 100 puntos de la parte superior de la pantalla.

Application.WindowState = wdWindowStateNormal

Application.Top = 100

En este ejemplo se inicia la Calculadora y se coloca la ventana a 100 puntos de la parte superior de la pantalla.

Shell "Calc.exe"

With Tasks("Calculadora")

    .WindowState = wdWindowStateNormal

    .Top = 100

End With

En este ejemplo se establece la posición vertical de la primera forma del documento activo en 2,5 centímetros desde la parte superior de la página.

With ActiveDocument.Shapes(1)

    .RelativeVerticalPosition = wdRelativeVerticalPositionPage

    .Top = CentimetersToPoints(2.5)

End With

En este ejemplo se establece la posición vertical de la primera y segunda forma del documento activo en 2,5 centímetros desde la parte superior de la página.

With ActiveDocument.Shapes.Range(Array(1, 2))

    .RelativeVerticalPosition = wdRelativeVerticalPositionPage

    .Top = CentimetersToPoints(2.5)

End With


Propiedad Application

Utilizada sin un calificador de objeto, esta propiedad devuelve un objeto Application que representa la aplicación Microsoft Word. Usada con un objeto calificador, esta propiedad devuelve un objeto Application que representa al creador del objeto especificado, puede utilizar esta propiedad con un objeto de automatización OLE para devolver la aplicación de este objeto. Es de sólo lectura.

Nota   Las funciones CreateObject y GetObject le darán acceso a un objeto de automatización OLE.


Ejemplo de la propiedad Application

En este ejemplo se muestran las barras de desplazamiento, las sugerencias de pantalla y la barra de estado de Microsoft Word.

With Application

    .DisplayScrollBars = True

    .DisplayScreenTips = True

    .DisplayStatusBar = True

End With

En este ejemplo, se muestra la ruta de inicio de Microsoft Excel si se está ejecutando este programa.

If Tasks.Exists(Name:="Microsoft Excel") = True Then

    Set miObjeto = GetObject("", "Excel.Application")

    MsgBox miObjeto.Application.StartupPath

    Set miObjeto = Nothing

End If


Propiedad Count

Devuelve el número de elementos del conjunto especificado. Long de sólo lectura.


Ejemplo de la propiedad Count

En este ejemplo, se muestra el número de párrafos del documento activo.

MsgBox "El documento activo contiene " & _

    ActiveDocument.Paragraphs.Count & " párrafos."

En este ejemplo, se muestra el número de palabras de la selección.

If Selection.Words.Count >= 1 And Selection.Type <> wdSelectionIP Then

    MsgBox "La selección contiene " & Selection.Words.Count _

        & " palabras."

End If

En este documento, se utiliza la matriz aFields() para guardar los códigos de campo del documento activo.

númerocampos = ActiveDocument.Fields.Count

If númerocampos >= 1 Then

    ReDim unosCampos(númerocampos)

    For Each unCampo In ActiveDocument.Fields

        unosCampos(unCampo.Index) = unCampo.Code.Text

    Next unCampo

End If


Propiedad Creator

Devuelve un número entero de 32 bits que indica la aplicación en la que se ha creado el objeto especificado. Por ejemplo, si el objeto se ha creado en Microsoft Word, esta propiedad devuelve el número hexadecimal 4D535744, que representa la cadena "MSWD". Este valor también puede representarse mediante la constante wdCreatorCode. Long de sólo lectura.

Comentarios

La propiedad Creator está diseñada para utilizarse en el sistema Macintosh, en el que cada aplicación tiene un código de creador de cuatro caracteres. Por ejemplo, Microsoft Word tiene el código de creador MSWD.


Ejemplo de la propiedad Creator

En este ejemplo, se muestra un mensaje acerca del autor de miObjeto.

Set miObjeto = ActiveDocument

If miObjeto.Creator = wdCreatorCode Then

    MsgBox "Este es un objeto de Microsoft Word"

Else

    MsgBox "Este no es ningún objeto de Microsoft Word"

End If


Método Delete

Sintaxis 1: elimina el objeto especificado.

Sintaxis 2: elimina la celda o celdas de una tabla y, opcionalmente, controla el desplazamiento de las celdas restantes.

Sintaxis 3: elimina el número de caracteres o de palabras especificado. Este método devuelve un valor que indica el número de elementos eliminados o devuelve 0 (cero) si no ha sido correcta la eliminación.

Sintaxis 1

expresión.Delete

Sintaxis 2

expresión.Delete(ShiftCells)

Sintaxis 3

expresión.Delete(Unit, Count)

expresión   Sintaxis 1: requerida. Expresión que devuelve un objeto de la lista Se aplica a.

Sintaxis 2: requerida. Expresión que devuelve un objeto Cell o Cells.

Sintaxis 3: requerida. Expresión que devuelve un objeto Range o Selection.

ShiftCells   Variant opcional. Dirección en la que van a desplazarse las celdas restantes. Puede ser una de las siguientes constantes WdDeleteCells: wdDeleteCellsEntireColumn, wdDeleteCellsEntireRow, wdDeleteCellsShiftLeft o wdDeleteCellsShiftUp.

Unit   Variant opcional. Unidad por la que va a eliminarse la selección o el intervalo contraído. Puede ser una de las siguientes constantes WdUnits: wdCharacter o wdWord. El valor predeterminado es wdCharacter.

Count   Variant opcional. Número de unidades que van a eliminarse. Para eliminar unidades a continuación del intervalo o de la selección, contraiga el intervalo o la selección y utilice un número positivo. Para eliminar unidades delante del intervalo o de la selección, contraiga el intervalo o la selección y utilice un número negativo.


Ejemplo del método Delete

En este ejemplo, se elimina la selección.

Selection.Delete

En este ejemplo, se contrae la selección y después se eliminan las dos palabras a continuación del punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

Selection.Delete Unit:=wdWord, Count:=2

En este ejemplo, se contrae miIntervalo y, a continuación, se eliminan los dos caracteres que preceden al punto de inserción.

Set miIntervalo = Selection.Words(1)

miIntervalo.Collapse Direction:=wdCollapseStart

miIntervalo.Delete Unit:=wdCharacter, Count:=-2

En este ejemplo, se elimina la primera celda de la primera tabla del documento uno.

Documents(1).Tables(1).Cell(1, 1).Delete ShiftCells:=wdDeleteCellsShiftLeft

Si el marcador denominado "temp" existe en el documento activo, en este ejemplo se elimina el marcador.

If ActiveDocument.Bookmarks.Exists("temp") Then

    ActiveDocument.Bookmarks("temp").Delete

End If

En este ejemplo, se elimina el estilo denominado "Intro" de Ventas.doc. Los párrafos que utilicen este estilo volverán a usar el estilo Normal.

Documents("Ventas.doc").Styles("Intro").Delete

En este ejemplo, se elimina la primera palabra del documento activo.

ActiveDocument.Words(1).Delete


Propiedad Name

Devuelve o asigna el nombre del objeto especificado, como se muestra en la tabla siguiente.

Objeto	Descripción
AddIn, Dictionary, Document, FileConverter, RecentFile, Subdocument, Template, MailMergeDataSource	Devuelve el nombre del archivo del objeto. String de sólo lectura.
Application	Devuelve el nombre de la aplicación; por ejemplo, "Microsoft Word". String de sólo lectura.
AutoCaption, CaptionLabel	Devuelve el nombre del título. String de sólo lectura.
AutoCorrectEntry, AutoTextEntry	Devuelve o establece el nombre del elemento de Autocorrección o Autotexto. String de Lectura/Escritura.
Bookmark	Devuelve el nombre del marcador. String de sólo lectura.
CustomLabel	Devuelve o establece el nombre de la etiqueta postal personalizada. String de Lectura/Escritura.
FirstLetterException, TwoInitialCapsException	Devuelve la palabra que se ha exceptuado de las acciones de Autocorrección. String de sólo lectura.
Font	Devuelve o establece el nombre de la fuente. String de Lectura/Escritura.
FormField	Devuelve o establece el nombre del campo de formulario. String de Lectura/Escritura.
Idioma	Devuelve el nombre del idioma de las herramientas de revisión. String de sólo lectura.
ListEntry	Devuelve o establece el nombre del elemento del campo de formulario desplegable. String de Lectura/Escritura.
ListTemplate	Devuelve o establece el nombre de una plantilla de lista opcional que puede usarse junto con la instrucción Name de un campo LISTNÚM. String de Lectura/Escritura.
MailMergeDataField, MailMergeFieldName	Devuelve el nombre del campo de combinación de correspondencia. String de sólo lectura.
MailMergeDataSource	Devuelve el nombre completo del documento de origen de datos. String de sólo lectura.
Shape, ShapeRange	Devuelve o establece el nombre de la forma. String de Lectura/Escritura.
Hyperlink	Devuelve el nombre (como aparece en la carpeta del historial) del hipervínculo. String de sólo lectura.
ReadabilityStatistic	Devuelve el nombre de la estadística de legibilidad. String de sólo lectura.
SpellingSuggestion	Devuelve la sugerencia ortográfica. String de sólo lectura.
Tarea	Devuelve el nombre de la tarea. String de sólo lectura.
variable	Devuelve el nombre de la variable del documento. String de sólo lectura.


Ejemplo de la propiedad Name

En este ejemplo, se agrega una variable de documento al documento activo y, a continuación, se muestra el nombre de la primera variable del documento.

ActiveDocument.Variables.Add Name:="Temp", Value:="1"

MsgBox ActiveDocument.Variables(1).Name

En este ejemplo, se devuelve el nombre del primer marcador de Hola.doc.

unaMarca = Documents("Hola.doc").Bookmarks(1).Name

En este ejemplo, se muestra el número de campos de formulario del documento activo.

If ActiveDocument.FormFields.Count >= 1 Then

    For Each FF In ActiveDocument.FormFields

        FFNames = FFNames & FF.Name & vbCr

    Next FF

    MsgBox FFNames

End If

En este ejemplo, se da formato de negrita Arial a la selección.

With Selection.Font

    .Name = "Arial"

    .Bold = True

End With

En este ejemplo, se establece el nombre de la primera plantilla de la lista utilizada en el documento activo en "miLista". A continuación, se agrega un campo LISTÚM, vinculado a la plantilla miLista, al punto de inserción. El campo adopta el formato de la plantilla miLista.

If ActiveDocument.ListTemplates.Count >= 1 Then

    ActiveDocument.ListTemplates(1).Name = "miLista"

    Selection.Collapse Direction:=wdCollapseEnd

    ActiveDocument.Fields.Add Range:=Selection.Range, _

        Type:=wdFieldListNum, Text:="miLista"

End If


Propiedad Parent

Devuelve el objeto maestro del objeto especificado. Es de sólo lectura.


Ejemplo de la propiedad Parent

En este ejemplo, se establece la variable miObjeto en el objeto maestro del objeto Bookmarks. El cuadro de mensaje muestra el nombre del tipo de objeto de miObjeto (Documento).

Set miObjeto = ActiveDocument.Bookmarks.Parent

MsgBox TypeName(miObjeto)

En este ejemplo, se establece la variable miRango en una celda de la tabla uno del documento activo. El ancho de esta celda se cambia a 36 puntos y se quita el formato de borde desde la tabla.

Set miRango = ActiveDocument.Tables(1).Cell(1, 1)

With miRango

    .SetWidth ColumnWidth:=36, RulerStyle:=wdAdjustNone

    .Parent.Borders.Enable = False

End With


Propiedad Value

Objeto AutoCorrectEntry, AutoTextEntry o Variable: Devuelve o establece el valor del elemento de Autocorrección, Autotexto o variable del documento. String de Lectura/Escritura.

Objeto CheckBox: True si está activada la casilla de verificación. Boolean de Lectura/Escritura.

Objeto DropDown: Devuelve o establece el número del elemento seleccionado del campo de formulario desplegable. Long de Lectura/Escritura.

Objeto MailMergeDataField: Devuelve el contenido del campo de datos de combinación de correspondencia del registro actual. Utilice la propiedad ActiveRecord para establecer el registro activo de un origen de datos de combinación de correspondencia. String de sólo lectura.

Objeto ReadabilityStatistic: Devuelve el nombre de la estadística gramatical. Single de sólo lectura.


Ejemplo de la propiedad Value

En este ejemplo, se agrega una variable de documento al documento activo y, a continuación, se muestra el valor de la nueva variable.

ActiveDocument.Variables.Add Name:="Temp2", Value:="10"

MsgBox ActiveDocument.Variables("Temp2").Value

En este ejemplo se muestra el contenido del registro de datos activo de el origen de datos adjunto a Principal.doc.

For Each campoDatos In Documents("Principal.doc").MailMerge.DataSource.DataFields

    If dataF.Value <> "" Then dRecord = dRecord & dataF.Value & vbCr

Next campoDatos

MsgBox dRecord

En este ejemplo, se crea un elemento de Autocorrección y, a continuación, se muestra el valor del nuevo elemento.

AutoCorrect.Entries.Add Name:="i.e.", Value:="es decir"

MsgBox AutoCorrect.Entries("i.e.").Value

En este ejemplo, se revisa la gramática del documento activo y, a continuación, se muestra el índice de lectura fácil Flesch.

ActiveDocument.CheckGrammar

MsgBox ActiveDocument.ReadabilityStatistics("Lectura fácil Flesch").Value


Método Item

Devuelve el miembro de un conjunto, por posición o por nombre.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un objeto de la lista Aplicar a.

Index   Variant requerida. El nombre o número de índice de un miembro del conjunto. El índice puede ser una expresión numérica, un número del 1 al valor de la propiedad Count del conjunto, una constante o una cadena. Para obtener más información acerca del uso del método Item con un conjunto específico, consulte el tema de Ayuda de ese conjunto.

Comentarios

Si el valor proporcionado como Index no coincide con ningún miembro del conjunto, se produce un error.

El método Item es el método predeterminado para conjuntos. Por lo tanto, las dos líneas siguientes de código son equivalentes.

Application.Documents(1)

Application.Documents.Item(1)


Ejemplo del método Item

En este ejemplo, se muestra el nombre del primer documento del conjunto Documents.

If Documentos.Count >= 1 Then

    MsgBox Documentos.Item(1).Name

End If

En este ejemplo, se selecciona el marcador del documento activo denominado "temp".

If ActiveDocument.Bookmarks.Exists("temp") = True Then

    ActiveDocument.Bookmarks.Item("temp").Select

End If

En este ejemplo, se agregan dos nombres al conjunto MisNombres. El método Item se usa para devolver cualquiera de los elementos del conjunto.

Dim MisNombres As New Collection

MisNombres.Add Item:="Juan Camilo Pardo"

MisNombres.Add Item:="Enrique Ballina"

MsgBox MisNombres.Item(1) & vbCr & MisNombres.Item(2)

En este ejemplo, se borran todos los elementos del campo de formulario desplegable denominado "Colores" y, a continuación, se agregan dos nombres de colores. El método Item se usa para mostrar el primer color del campo de formulario desplegable.

With ActiveDocument.FormFields("Colores").DropDown.ListEntries

    .Clear

    .Add Name:="Azul"

    .Add Name:="Rojo"

    MsgBox .Item(1).Name

End With


Propiedad Next

Devuelve el siguiente objeto del conjunto. Es de sólo lectura.


Ejemplo de la propiedad Next

En este ejemplo, se activa la ventana siguiente.

If Windows.Count > 1 Then ActiveWindow.Next.Activate

Si la selección está en una tabla, en este ejemplo se selecciona el contenido de la celda siguiente de la tabla.

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells(1).Next.Select

End If

En este ejemplo, se actualizan los campos de la primera sección del documento activo siempre y cuando el método Next devuelva un objeto Field y el campo no sea un campo RELLENAR.

If ActiveDocument.Sections(1).Range.Fields.Count >= 1 Then

    Set miCampo = ActiveDocument.Fields(1)

    While Not (miCampo Is Nothing)

        If miCampo.Type <> wdFieldFillIn Then miCampo.Update

        Set miCampo = miCampo.Next

    Wend

End If

En este ejemplo, se aplica una sangría al segundo párrafo de la selección.

Selection.Paragraphs(1).Next.Indent


Propiedad Previous

Devuelve el objeto anterior del conjunto. Es de sólo lectura.


Ejemplo de la propiedad Previous

En este ejemplo, se establece el formato del espacio anterior y del espacio posterior del párrafo que precede inmediatamente a la selección.

Set miPárrafo = Selection.Paragraphs(1).Previous

With miPárrafo

    .SpaceAfter = 12

    .SpaceBefore = 6

End With

Si la selección está en una tabla, en este ejemplo se selecciona el contenido de la fila anterior.

If Selection.Information(wdWithInTable) = True Then

    Selection.Rows(1).Previous.Select

End If

En este ejemplo, se muestra el código de campo del antepenúltimo campo del documento activo.

Set unCampo = ActiveDocument.Fields(ActiveDocument.Fields.Count).Previous

MsgBox "Código de campo = " & unCampo.Code


Propiedad Height

Devuelve o establece el alto del objeto especificado, en puntos, como se muestra en la tabla siguiente.

Objeto	Alto
Application	Devuelve o establece el alto de la ventana de aplicación de Word. Long de Lectura/Escritura.
Cell, Cells	Devuelve o establece el alto de la celda o celdas especificadas de una tabla. Si el valor de la propiedad HeightRule de la fila especificada es wdRowHeightAuto, Height devuelve wdUndefined. Al establecer la propiedad Height, HeightRule se establece como wdRowHeightAtLeast. Single de Lectura/Escritura.
CustomLabel	Devuelve o establece el alto de la etiqueta postal personalizada. Single de Lectura/Escritura.
Frame	Devuelve o establece el alto del marco especificado. Single de Lectura/Escritura.
InlineShape	Devuelve o establece el alto de la forma en línea especificada. Single de Lectura/Escritura.
Row, Rows	Devuelve o establece el alto de la fila o filas especificadas de una tabla. Si el valor de la propiedad HeightRule de la fila especificada es wdRowHeightAuto, Height devuelve wdUndefined. Al establecer la propiedad Height, HeightRule se establece como wdRowHeightAtLeast. Single de Lectura/Escritura.
Shape, ShapeRange	Devuelve o establece el alto de la forma especificada. Single de Lectura/Escritura.
Task	Devuelve o establece el alto de la ventana de tarea especificada. Long de Lectura/Escritura.
Window	Devuelve o establece el alto de la ventana. No se puede definir esta propiedad si la ventana está maximizada o minimizada. Use la propiedad UsableHeight para determinar el tamaño máximo de la ventana. Use la propiedad WindowState para determinar el estado de la ventana. Long de Lectura/Escritura.


Ejemplo de la propiedad Height

En este ejemplo, se establece el alto de las filas de la primera tabla del documento activo en 20 puntos, como mínimo.

ActiveDocument.Tables(1).Rows.Height = 20

En este ejemplo se muestra el alto, en puntos, de la fila de la tabla que contiene el punto de inserción.

If Selection.Information(wdWithInTable) = True Then

    MsgBox Selection.Rows(1).Height

End If

En este ejemplo, se cambia el alto de la ventana activa para rellenar el área de la ventana de aplicación.

With ActiveWindow

    .WindowState = wdWindowStateNormal

    .Height = Application.UsableHeight

End With

En este ejemplo, se inserta una imagen como forma en línea y se cambia el alto y ancho de la imagen.

Set EnLíneas = ActiveDocument.InlineShapes.AddPicture(FileName:="C:\Windows\Burbujas.bmp", _

Range:=Selection.Range)

With EnLíneas

    .Height = 100

    .Width = 200

End With


Método Split

Objeto Cell: divide una celda de tabla en varias celdas.

Objeto Cells: divide un rango de celdas de tabla.

Objeto Subdocument: divide un subdocumento en dos subdocumentos del mismo nivel de la vista de documento maestro o de la vista Esquema. La división se realiza al principio del rango especificado. Si el documento activo no está ni en la vista de documento maestro ni en la vista Esquema, o bien si no está al principio de ningún párrafo de un subdocumento, se produce un error.

Objeto Table: inserta un párrafo vacío inmediatamente sobre la fila especificada de la tabla y devuelve un objeto Table que contiene la fila especificada y las filas que la siguen.

Sintaxis 1

expresión.Split(NumRows, NumColumns)

Sintaxis 2

expresión.Split(NumRows, NumColumns, MergeBeforeSplit)

Sintaxis 3

expresión.Split(Range)

Sintaxis 4

expresión.Split(BeforeRow)

expresión   Sintaxis 1: Expresión que devuelve un objeto Cell.

Sintaxis 2: Expresión que devuelve un objeto Cells.

Sintaxis 3: Expresión que devuelve un objeto Subdocument.

Sintaxis 4: Expresión que devuelve un objeto Table.

NumColumns   Variant opcional. El número de columnas en que va a dividirse la celda o el grupo de celdas.

NumRows   Variant opcional. El número de filas en que va a dividirse la celda o el grupo de celdas.

MergeBeforeSplit   Variant opcional. True para combinar las celdas entre sí antes de dividirlas.

Range   Objeto Range requerido. El intervalo que se convierte en un subdocumento independiente, cuando se divide el documento.

BeforeRow   Variant requerida. La fila delante de la cual va a dividirse la tabla. Puede ser un número de fila o un objeto Row.


Ejemplo del método Split

En este ejemplo, se crea una tabla de 5 x 5 en el documento activo y se divide delante de la tercera fila. Se aplica sombreado a las celdas de la tabla resultante (la nueva tabla es de 3 x 5).

Set nuevoDoc = Documents.Add

Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    NumColumns:=5, NumRows:=5)

miTabla.Split(BeforeRow:=miTabla.Rows(3)).Shading.Texture = wdTexture10Percent

En este ejemplo, se divide la primera celda de la primera tabla en dos celdas.

ActiveDocument.Tables(1).Cell(1, 1).Split NumColumns:=2

En este ejemplo, se combinan las celdas seleccionadas en una sola celda y, a continuación, se divide la celda en tres celdas en la misma fila.

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells.Split NumRows:=1, NumColumns:=3, MergeBeforeSplit:= True

End If

En este ejemplo, se divide la selección de un subdocumento existente para crear un subdocumento independiente.

Selection.Range.Subdocuments(1).Split Range:=Selection.Range


Propiedad Split

True si la ventana se divide en varios paneles. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Split

En este ejemplo, se divide la ventana activa en dos paneles de ventana del mismo tamaño.

ActiveWindow.Split = True

En este ejemplo se cierra el panel activo, si se divide la ventana del Documento1.

If Windows("Documento1").Split = True Then

    Windows("Documento1").ActivePane.Close

End If


Método Reset

Objeto Font: quita el formato de carácter manual, formato que no se aplica con ningún estilo. Por ejemplo, si se da formato manualmente a una palabra como negrita y el estilo subyacente es texto normal (sin negrita), el método Reset quita el formato de negrita.

Objeto Paragraph, Paragraphs o ParagraphFormat: quita el formato de párrafo manual, formato que no se aplica con ningún estilo. Por ejemplo, si se alinea manualmente a la derecha un párrafo y el estilo subyacente tiene una alineación diferente, el método Reset cambia la alineación para que coincida con el formato del estilo implícito.

Objeto RoutingSlip: restablece la lista de distribución para que pueda iniciarse una nueva distribución con la misma lista de destinatarios y la información de envío. Debe completarse la distribución antes de usar este método.

Objeto InlineShape: quita los cambios realizados en una forma en línea.

Objeto ListGallery: restablece la plantilla de lista especificada por Index, de la galería de listas especificada para el formato de plantilla de lista integrado.

Sintaxis 1

expresión.Reset

Sintaxis 2

expresión.Reset(Index)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Font, RoutingSlip, InlineShape, Paragraph, Paragraphs o ParagraphFormat.

Sintaxis 2: Requerida. Expresión que devuelve un objeto List Gallery.

Index   Long requerido. Número del 1 al 7, que corresponde a un formato de la galería de listas especificada. Si se omite la opción Ninguno, los formatos se numeran de izquierda a derecha, comenzando por la fila superior.


Ejemplo del método Reset

En este ejemplo, se quita el formato manual de la selección.

Selection.Font.Reset

En este ejemplo, se quita el formato de párrafo manual a partir del segundo párrafo del documento activo.

ActiveDocument.Paragraphs(2).Reset

En este ejemplo, se prepara el documento activo para que se distribuya de nuevo a los mismos destinatarios, con los mismos valores que se utilizaron en distribuciones anteriores.

If ActiveDocument.HasRoutingSlip = True Then

    ActiveDocument.RoutingSlip.Reset

End If

En este ejemplo, se inserta una imagen como forma en línea, se cambia el brillo y, a continuación, se restablece la imagen a su brillo original.

Set aInLine = ActiveDocument.InlineShapes.AddPicture _

    (FileName:="C:\Windows\Burbujas.bmp", Range:=Selection.Range)

aInLine.PictureFormat.Brightness = 0.5

MsgBox "Recuperando el brillo"

aInLine.Reset

En este ejemplo, se restablece el cuarto formato que aparece en la ficha Numbered del cuadro de diálogo Numeración y viñetas al formato de numeración integrado y, a continuación, se aplica la plantilla de listas a la selección.

ListGalleries(wdNumberGallery).Reset(4)

Selection.Range.ListFormat.ApplyListTemplate _

    ListTemplate:=ListGalleries(2).ListTemplates(4)

En este ejemplo, se restablecen todas las plantillas de listas, del cuadro de diálogo Numeración y viñetas, a los formatos integrados.

For Each gl In ListGalleries

    For i = 1 to 7

        lg.Reset Index:=i

    Next i

Next lg


Propiedad Browser

Devuelve un objeto Browser que representa la herramienta Seleccionar el objeto Examinar de la barra de desplazamiento vertical. Es de sólo lectura.


Ejemplo de la propiedad Browser

Este ejemplo le traslada a la siguiente marca de referencia de nota al pie del documento activo.

With Application.Browser

    .Target = wdBrowseFootnote

    .Next

End With

Este ejemplo le traslada al siguiente campo del documento activo. El formato del texto desde la selección inicial hasta el siguiente campo es negrita.

Selection.ExtendMode = True

With Application.Browser

    .Target = wdBrowseField

    .Next

End With

With Selection

    .Font.Bold = True

    .ExtendMode = False

    .Collapse Direction:=wdCollapseEnd

End With


Propiedad Build

Devuelve el número de versión y de revisión de la aplicación Word. String de sólo lectura.


Ejemplo de la propiedad Build

Este ejemplo muestra el número de versión y de revisión de Word.

MsgBox Prompt:=Application.Build, Title:="Versión de Microsoft Word"


Propiedad CapsLock

True: si la tecla BLOQ MAYÚS está activada. Boolean de sólo lectura.


Ejemplo de la propiedad CapsLock

Este ejemplo recupera el estado actual de la tecla BLOQ MAYÚS.

theState = Application.CapsLock


Propiedad DisplayRecentFiles

True: si el menú Archivo muestra los archivos usados recientemente. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DisplayRecentFiles

Este ejemplo establece el valor adecuado para que Word muestre un máximo de seis nombres de archivos en el menú Archivo.

Application.DisplayRecentFiles = True

RecentFiles.Maximum = 6

Este ejemplo quita la lista de los archivos usados recientemente del menú Archivo.

Application.DisplayRecentFiles = False


Propiedad DisplayStatusBar

True: si se muestra la barra de estado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DisplayStatusBar

Este ejemplo activa o desactiva la barra de estado.

Application.DisplayStatusBar = Not Application.DisplayStatusBar

Este ejemplo muestra las barras de desplazamiento y la barra de estado.

With Application

    .DisplayScrollBars = True

    .DisplayStatusBar = True

End With


Método ExitWindows

Cierra todas las aplicaciones abiertas, sale de Microsoft Windows y cierra la sesión del usuario actual. Este método no guarda los cambios realizados en los documentos abiertos de Word; sin embargo, le pregunta si desea guardar los cambios de los documentos abiertos en otras aplicaciones Windows. Los equipos Macintosh no disponen de este método.

Sintaxis

expresión.ExitWindows

expresión   Requerida. Expresión que devuelve un objeto Tasks.


Ejemplo del método ExitWindows

Este ejemplo guarda todos los documentos abiertos en Word, sale de Word y, a continuación, sale de Microsoft Windows.

Documents.Save NoPrompt:=True, OriginalFormat:=wdOriginalFormat

Tasks.ExitWindows


Propiedad FontNames

Devuelve un objeto FontNames que incluye los nombres de todas las fuentes disponibles. Es de sólo lectura.


Ejemplo de la propiedad FontNames

Este ejemplo muestra los nombres de las fuentes del conjunto FontNames.

For Each aFont In FontNames

    response = MsgBox(Prompt:=aFont, Buttons:=vbOKCancel)

    If response = vbCancel Then Exit For

Next aFont


Propiedad LandscapeFontNames

Devuelve un objeto FontNames que incluye los nombres de todas las fuentes horizontales disponibles. Es de sólo lectura.


Ejemplo de la propiedad LandscapeFontNames

Este ejemplo muestra los nombres de las fuentes horizontales del objeto FontNames al final del documento activo.

For Each aFont In LandscapeFontNames

    response = MsgBox(Prompt:=aFont, Buttons:=vbOKCancel)

    If response = vbCancel Then Exit For

Next aFont


Propiedad Maximum

Objeto RecentFiles: Devuelve o establece el número máximo de archivos utilizados recientemente que pueden aparecer en el menú Archivo: puede ser un número comprendido entre 0 (cero) y 9. Long de Lectura/Escritura.

Objeto Dictionaries: Devuelve el número máximo de diccionarios personalizados permitido. Long de sólo lectura.


Ejemplo de la propiedad Maximum

En este ejemplo, se desactiva la lista de los archivos utilizados más recientemente.

RecentFiles.Maximum = 0

En este ejemplo, se muestra un mensaje si el número de diccionarios personalizados es igual al número máximo permitido. Si no se ha alcanzado este número, se agrega un diccionario denominado "MiDiccionario.dic".

If CustomDictionaries.Count = CustomDictionaries.Maximum Then

    MsgBox "No puede agregarse otro archivo de diccionario"

Else

    CustomDictionaries.Add "MiDiccionario.dic"

End If

En este ejemplo, se incrementa el número de elementos de la lista de archivos más utilizados recientemente en 1.

num = RecentFiles.Maximum

If num <> 9 Then RecentFiles.Maximum = num + 1


Propiedad MouseAvailable

True si el sistema dispone de un mouse (ratón), este valor siempre es True en sistemas Macintosh. Boolean de sólo lectura.


Ejemplo de la propiedad MouseAvailable

En este ejemplo, se muestra un mensaje si no hay ningún mouse (ratón) disponible.

If Application.MouseAvailable = False Then

    Msgbox "Asegúrese de que el mouse está conectado."

Else

    Msgbox "El mouse está disponible."

End If


Propiedad NumLock

Devuelve el estado de la tecla BLOQ NUM. True si las teclas del teclado numérico insertan números, False si mueven el punto de inserción. Boolean de sólo lectura.


Ejemplo de la propiedad NumLock

En este ejemplo, se devuelve el estado actual de la tecla BLOQ NUM.

theState = Application.NumLock


Método OrganizerCopy

Copia el elemento de Autotexto, la barra de herramientas, el estilo o la macro especificados desde el documento o la plantilla de origen al documento o plantilla de destino.

Sintaxis

expresión.OrganizerCopy(Source, Destination, Name, Object)

expresión   Requerida. Expresión que devuelve un objeto Application.

Source   String requerida. Nombre del archivo del documento o de la plantilla que contiene el elemento que desee copiar.

Destination   String requerida. Nombre del archivo del documento o de la plantilla al que desee copiar un elemento.

Name   String requerida. Nombre del elemento de Autotexto, barra de herramientas, estilo o macro que desee copiar.

Object   Long requerida. Tipo de elemento que desee copiar. Puede ser una de las siguientes constantes WdOrganizerObject: wdOrganizerObjectAutoText, wdOrganizerObjectCommandBars, wdOrganizerObjectProjectItems o wdOrganizerObjectStyles.


Ejemplo del método OrganizerCopy

En este ejemplo, se copian todos los elementos de Autotexto de la plantilla adjunta al documento activo a la plantilla Normal.

For Each unaEntrada In ActiveDocument.AttachedTemplate.AutoTextEntries

    Application.OrganizerCopy Source:=ActiveDocument.AttachedTemplate.FullName, _

        Destination:=NormalTemplate.FullName, Name:=unaEntrada.Name, _

        Object:=wdOrganizerObjectAutoText

Next unaEntrada

Si existe el estilo denominado "SubTexto" en el documento activo, en este ejemplo se copia el estilo a C:\Plantillas\MiPlantilla.dot.

For Each estilo In ActiveDocument.Estiloles

    If estilo = "SubTexto" Then

        Application.OrganizerCopy Source:=ActiveDocument.Name, _

            Destination:="C:\Plantillas\MiPlantilla.dot", Name:="SubTexto", _

            Object:=wdOrganizerObjectEstiloles

    End If

Next estilo


Método OrganizerDelete

Elimina el estilo, el elemento de Autotexto, la barra de herramientas o la macro seleccionado desde un documento o una plantilla.

Sintaxis

expresión.OrganizerDelete(Source, Name, Object)

expresión   Requerida. Expresión que devuelve un objeto Application.

Source   String requerida. Nombre del archivo del documento o de la plantilla que contiene el elemento que desee eliminar.

Name   String requerida. Nombre del estilo, elemento de Autotexto, barra de herramientas o macro que desee eliminar.

Object   Long requerida. Tipo de elemento que desee copiar. Puede ser una de las siguientes constantes WdOrganizerObject: wdOrganizerObjectAutoText, wdOrganizerObjectCommandBars, wdOrganizerObjectProjectItems o wdOrganizerObjectStyles.


Ejemplo del método OrganizerDelete

En este ejemplo, se elimina la barra de herramientas denominada "Personalizada 1" de la plantilla Normal.

For Each cb In CommandBars

    If cb.Name = "Personalizada1" Then

        Application.OrganizerDelete Source:=NormalTemplate.Name, _

            Name:="Personalizada1", Object:=wdOrganizerObjectCommandBars

    End If

Next cb

En este ejemplo, se indica al usuario que elimine todas los elementos de Autotexto de la plantilla adjunta al documento activo. Si el usuario hace clic en el botón Sí, se eliminan los elementos de Autotexto.

For Each entrada In ActiveDocument.AttachedTemplate.AutoTextEntries

    respuesta = MsgBox("¿Desea eliminar el " & entrada.Name & _

        " elemento de Autotexto?", vbYesNoCancel)

    If respuesta = vbYes Then

        Application.OrganizerDelete Source:=ActiveDocument.AttachedTemplate.Name, _

            Name:=entrada.Name, Object:=wdOrganizerObjectAutoText

    ElseIf respuesta = vbCancel Then

        Exit For

    End If

Next entrada


Método OrganizerRename

Cambia el nombre del estilo, el elemento de Autotexto, la barra de herramientas o la macro seleccionado en un documento o una plantilla.

Sintaxis

expresión.OrganizerRename(Source, Name, NewName, Object)

expresión   Requerida. Expresión que devuelve un objeto Application.

Source   String requerida. Nombre del archivo del documento o de la plantilla que contiene el elemento al que desee cambiar el nombre.

Name   String requerida. Nombre del estilo, elemento de Autotexto, barra de herramientas o macro al que desee cambiar el nombre.

NewName   String requerida. El nuevo nombre del elemento.

Object   Long requerida. Tipo de elemento que desee copiar. Puede ser una de las siguientes constantes WdOrganizerObject: wdOrganizerObjectAutoText, wdOrganizerObjectCommandBars, wdOrganizerObjectProjectItems o wdOrganizerObjectStyles.


Ejemplo del método OrganizerRename

En este ejemplo, se cambia el nombre del estilo denominado "SubTexto" del documento activo a "SubTexto2".

For Each estilo In ActiveDocument.Estiloles

    If estilo.NameLocal = "SubTexto" Then

        Application.OrganizerRename Source:=ActiveDocument.Name, Name:="SubTexto", _

        NewName:="SubTexto2", Object:=wdOrganizerObjectEstiloles

    End If

Next estilo

En este ejemplo, se cambia el nombre del módulo de macro denominado "Módulo1" de la plantilla adjunta a "MisMacros".

dot = ActiveDocument.AttachedTemplate.Name

Application.OrganizerRename Source:=dot, Name:="Módulo1", _

    NewName:="MisMacros", Object:=wdOrganizerObjectProjectItems


Propiedad Overtype

True si está activado el modo de Sobrescribir. En el modo Sobrescribir, los caracteres que escriba sustituirán a los existentes uno por uno. Cuando no lo esté, los caracteres que escriba desplazarán el texto existente a la derecha. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Overtype

Si está activado el modo Sobrescribir, en este ejemplo se mostrará un cuadro de mensaje que indica si se desactivará este modo. Si el usuario hace clic en el botón Sí, se inactiva el modo Sobrescribir.

If Options.Overtype = True Then

    unBotón = MsgBox("Activado el modo Sobrescribir. ¿Desactivar?", 4)

    If unBotón = vbYes Then Options.Overtype = False

End If


Propiedad PortraitFontNames

Devuelve un objeto FontNames que incluye los nombres de todas las fuentes disponibles. Es de sólo lectura.


Ejemplo de la propiedad PortraitFontNames

En este ejemplo, se inserta una lista de fuentes en el punto de inserción.

For Each unaFuente In PortraitFontNames

    With Selection

        .Collapse Direction:=wdCollapseEnd

        .InsertAfter unaFuente

        .InsertParagraphAfter

        .Collapse Direction:=wdCollapseEnd

    End With

Next unaFuente


Método PrintPreview

Activa o desactiva la vista a o desde la Vista preliminar.

Nota   El valor de la propiedad PrintPreview puede establecerse en True o False para pasar a o desde la Vista preliminar, respectivamente. También puede cambiar la vista estableciendo el valor de la propiedad Type del objeto View en wdPrintPreview.

Sintaxis

expresión.PrintPreview

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método PrintPreview

En este ejemplo, se pasa el documento activo a la Vista preliminar si actualmente está en otra vista.

If PrintPreview = False Then

    ActiveDocument.PrintPreview

End If


Propiedad PrintPreview

True si la Vista preliminar es la vista actual. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintPreview

En este ejemplo, se pasa a la Vista preliminar.

PrintPreview = True

En este ejemplo, se pasa la ventana activa de la Vista preliminar a la normal.

PrintPreview = False

ActiveWindow.View.Type = wdNormalView


Método Quit

Sale de Word y de manera opcional guarda o distribuye los documentos abiertos.

Sintaxis

expresión.Quit(SaveChanges, Format, RouteDocument)

expresión   Requerida. Expresión que devuelve un objeto Application.

SaveChanges    Variant opcional. Especifica si Word guarda los documentos modificados antes de salir. Puede ser una de las siguientes constantes WdSaveOptions: wdDotNoSaveChanges, wdPromptToSaveChanges o wdSaveChanges.

OriginalFormat   Variant opcional. Especifica la forma en la que Word guarda los documentos cuyo formato original no era el formato de documento de Word. Puede ser una de las siguientes constantes WdOriginalFormat: wdOriginalDocumentFormat, wdPromptUser o wdWordDocument.

RouteDocument   Variant opcional. True para distribuir el documento al siguiente destinatario. Si el documento no tiene ninguna lista de distribución adjunta, se ignorará este argumento.


Ejemplo del método Quit

En este ejemplo, se sale de Word y se indica al usuario que guarde todos los documentos que haya cambiado desde la última vez que se haya guardado.

Application.Quit SaveChanges:=wdPromptToSaveChanges

En este ejemplo, se indica al usuario que guarde todos los documentos. Si el usuario hace clic en el botón Sí, todos los documentos se guardan en el formato de Word antes de salir de este programa.

response = MsgBox("¿Desea guardar todos los documentos?", vbYesNo)

If response = vbYes Then Application.Quit _

    SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument


Propiedad RecentFiles

Devuelve un conjunto RecentFiles que representa los archivos a los que se ha tenido acceso más recientemente. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad RecentFiles

En este ejemplo, se abre el primer elemento del conjunto RecentFiles; es decir, el primer nombre de documento situado al final del menú Archivo.

If RecentFiles.Count >= 1 Then RecentFiles(1).Open

En este ejemplo, se muestra el nombre de cada archivo del conjunto RecentFiles.

For Each aReciente In RecentFiles

    MsgBox aReciente.Name

Next aReciente


Método Repeat

Repite la última acción de modificación una o varias veces. Devuelve el valor True si se han repetido los comandos correctamente.

Nota  El uso de este método es equivalente al uso del comando Repetir del menú Edición.

Sintaxis

expresión.Repeat(Times)

expresión   Opcional. Expresión que devuelve un objeto Application.

Times   Variant opcional. Número de veces que desee repetir el último comando.


Ejemplo del método Repeat

En este ejemplo, se inserta el texto "Hola" seguido de dos párrafos, la segunda acción de escritura se repite una sola vez.

Selection.TypeText "Hola"

Selection.TypeParagraph

Repeat

En este ejemplo, se repite el último comando tres veces, en caso de que pueda repetirse.

On Error Resume Next

If Repeat(3) = True Then StatusBar = "Acción repetida"


Método Resize

Cambia el tamaño de la ventana de la aplicación Word o la ventana de la tarea especificada. Si se maximiza o minimiza la ventana, se producirá un error. En el sistema Macintosh, este método genera un error.

Nota   Utilice la propiedad Width o Height para establecer el ancho y el alto independientemente.

Sintaxis

expresión.Resize(Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Application o Task.

Width   Long requerida. Ancho de la ventana, en puntos.

Height   Long requerida. Alto de la ventana, en puntos.


Ejemplo del método Resize

En este ejemplo, se cambia el tamaño de la ventana de la aplicación Microsoft Excel a 2,5 cm de ancho y 1,6 de alto.

If Tasks.Exists("Microsoft Excel") = True Then

    With Tasks("Microsoft Excel")

        .WindowState = wdWindowStateNormal

        .Resize Width:=InchesToPoints(6), Height:=InchesToPoints(4)

    End With

End If

En este ejemplo, se cambia el tamaño de la ventana de la aplicación Word a 2,7 cm de ancho y 2,5 de alto.

With Application

    .WindowState = wdWindowStateNormal

    .Resize Width:=InchesToPoints(7), Height:=InchesToPoints(6)

End With


Propiedad BackgroundPrintingStatus

Devuelve el número de trabajos de impresión de la cola de impresión en segundo plano. Long de sólo lectura.


Ejemplo de la propiedad BackgroundPrintingStatus

En este ejemplo, se devuelve el número de trabajos de impresión de Word que están actualmente en la cola de impresión para imprimirse en segundo plano.

If Options.PrintBackground = True Then

    trabajos = Application.BackgroundPrintingStatus

End If

Si el número de trabajos de impresión es mayor que 0 (cero), en este ejemplo se muestra un mensaje en la barra de estado.

If Application.BackgroundPrintingStatus > 0 Then

    StatusBar = Application.BackgroundPrintingStatus & " los trabajos de impresión están en la cola de impresión"

End If


Propiedad Languages

Devuelve un conjunto Languages que representa los idiomas de revisión del cuadro de diálogo Idioma (menú Herramientas). Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Languages

En este ejemplo, se devuelve la ruta de acceso completa y el nombre del archivo del diccionario ortográfico activo.

Set miOrtografía = Languages(Selection.LanguageID).ActiveSpellingDictionary

MsgBox miOrtografía.Path & Application.PathSeparator & miOrtografía.Name

En este ejemplo, se utiliza la matriz unIdioma() para guardar los nombres de los idiomas de revisión.

ReDim unIdioma(Languages.Count - 1)

i = 0

For Each miIdioma In Languages

    unIdioma(i) = myLanguage.NameLocal

    i = i + 1

Next miIdioma


Propiedad ScreenUpdating

True: si la actualización de pantalla está activada. Boolean de Lectura/Escritura.

Comentarios

La propiedad ScreenUpdating controla la mayor parte de los cambios que se producen en la pantalla del monitor mientras se ejecuta un procedimiento. Cuando la actualización de pantalla está desactivada, las barras de herramientas permanecen visibles y Word permite que el procedimiento muestre o recupere información mediante los mensajes de la barra de estado y los cuadros de escritura de datos, de diálogo y de mensajes. La velocidad de algunos procedimientos se puede incrementar manteniendo desactivada la actualización de pantalla. Debe establecer el valor de esta propiedad ScreenUpdating en True cuando concluye el procedimiento o cuando éste se interrumpe tras producirse un error.


Ejemplo de la propiedad ScreenUpdating

Este ejemplo desactiva la actualización de pantalla y, a continuación, agrega un nuevo documento. Se incorporan quinientas líneas de texto al documento. Cada cincuenta líneas, la macro selecciona la línea y actualiza la pantalla.

Application.ScreenUpdating = False

Documents.Add

For x = 1 To 500

    With ActiveDocument.Content

        .InsertAfter "Esta línea es la " & x

        .InsertParagraphAfter

    End With

If x Mod 50 = 0 Then

 ActiveDocument.Paragraphs(x).Range.Select

   Application.ScreenRefresh

End If

Next x

Application.ScreenUpdating = True


Propiedad SpecialMode

True: si Word se encuentra en un modo especial; por ejemplo, los modos CopyText o MoveText. Boolean de sólo lectura.

Comentarios

Word obtiene acceso a un modo especial de copiar o mover si presiona F2 o MAYÚS+F2 mientras está seleccionado el texto.


Ejemplo de la propiedad SpecialMode

Este ejemplo comprueba si Word se encuentra en un modo especial, en cuyo caso se activa la tecla ESC antes de cortar y pegar la selección actual.

If Application.SpecialMode = True Then SendKeys "ESC"

With Selection

    .Cut

    .EndKey Unit:=wdStory

    .Paste

End With


Método SubstituteFont

Establece las opciones de asignación de fuentes, que se reflejan en el cuadro de diálogo Sustitución de fuentes (ficha Compatibilidad, cuadro de diálogo Opciones, menú Herramientas).

Sintaxis

expresión.SubstituteFont(UnavailableFont, SubstituteFont)

expresión   Requerida. Expresión que devuelve un objeto Application.

UnavailableFont   String requerida. Se trata del nombre de una fuente no disponible en el equipo, que se desea asignar a una fuente distinta para realizar presentaciones en pantalla e imprimir.

SubstituteFont   String requerida. Se trata del nombre de una fuente disponible en el equipo, que se desea sustituir por la fuente no disponible.


Ejemplo del método SubstituteFont

Este ejemplo sustituye la fuente miFuente por Courier.

Application.SubstituteFont UnavailableFont:= "miFuente", _

    SubstituteFont:= "Courier"


Propiedad Target

Devuelve o establece el elemento del documento que localizan los métodos Previous y Next cuando se aplican al objeto Browser. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdBrowseTarget:

wdBrowseComment wdBrowseEdit wdBrowseEndnote wdBrowseField wdBrowseFind wdBrowseFootnote	wdBrowseGoTo wdBrowseGraphic wdBrowseHeading wdBrowsePage wdBrowseSection wdBrowseTable


Ejemplo de la propiedad Target

Este ejemplo sitúa el punto de inserción en el siguiente comentario del documento activo.

With Application.Browser

    .Target = wdBrowseComment

    .Next

End With


Propiedad MacroContainer

Devuelve un objeto Template o Document que representa la plantilla o el documento en el que se almacena el módulo que contiene el procedimiento en ejecución. Es de sólo lectura.


Ejemplo de la propiedad MacroContainer

Este ejemplo muestra el nombre del documento o de la plantilla en el que se almacena el módulo que contiene el procedimiento en ejecución.

Set cntnr = MacroContainer

MsgBox cntnr.Name


Propiedad Version

Objeto Application: devuelve el número de versión de Microsoft Word. String de sólo lectura.

Objeto System: devuelve el número de versión del sistema operativo. String de sólo lectura.


Ejemplo de la propiedad Version

Este ejemplo muestra el número de versión de Word en un cuadro de mensaje.

Msgbox "La versión de Word es " & Application.Version

Este ejemplo muestra el número de versión del sistema operativo en un cuadro de mensaje.

Msgbox "La versión del sistema es " & System.Version


Propiedad ViewType

Devuelve o establece la vista del objeto TextRetrievalMode. Puede ser una de las siguientes constantes WdViewType: wdMasterView, wdNormalView, wdOnlineView, wdOutlineView, wdPageView o wdPrintPreview. Long de Lectura/Escritura.

Comentarios

Cambiar la vista del objeto TextRetrievalMode no cambia la presentación de un documento en pantalla. En vez de ello, determina los caracteres del documento que se incluirán cuando se recupere un intervalo.


Ejemplo de la propiedad ViewType

Este ejemplo establece la vista de la recuperación de texto en la vista Esquema y, a continuación, muestra el contenido del documento activo en un cuadro de diálogo. Observe que sólo se recupera el texto que se muestra en la vista Esquema.

Set miTexto = ActiveDocument.Content

miTexto.TextRetrievalMode.ViewType = wdOutlineView

Msgbox miTexto


Propiedad Comment

Devuelve el comentario asociado a la versión especificada de un documento. String de sólo lectura.


Ejemplo de la propiedad Comment

En este ejemplo, se muestra el texto del comentario de la primera versión del documento activo.

If ActiveDocument.Versions.Count >= 1 Then

    MsgBox Prompt:=ActiveDocument.Versions(1).Comment, _

        Title:="Comentario de la primera versión"

End If

En este ejemplo, se guarda una versión del documento con un comentario del usuario y, a continuación, se muestra el comentario.

Set misVersiones = ActiveDocument.Versions

unComent = InputBox("Escriba un comentario")

misVersiones.Save Comment:=unComent

últ = misVersiones.Count

MsgBox Prompt:=misVersiones(últ).Comment, Title:=misVersiones(últ).SavedBy


Método GoBack

Mueve el punto de inserción entre las tres últimas posiciones en las que se produjeron modificaciones en el documento activo, es lo mismo que presionar la combinación de teclas MAYÚS+F5.

Sintaxis

expresión.GoBack

expresión   Requerida. Expresión que devuelve un objeto Application.


Ejemplo del método GoBack

En este ejemplo, se abre el archivo utilizado más recientemente y, a continuación, se mueve el punto de inserción hasta la posición en la que se produjo el último cambio.

RecentFiles(1).Open

Application.GoBack


Propiedad NameLocal

Objeto Language: devuelve el nombre del idioma de las herramientas de revisión en el idioma del usuario. String de sólo lectura.

Objeto Style: devuelve el nombre del estilo integrado en el idioma del usuario. Al establecer esta propiedad se cambia el nombre del estilo definido por el usuario o se agrega un alias al estilo integrado. String de Lectura/Escritura.


Ejemplo de la propiedad NameLocal

En este ejemplo, se muestra el nombre del estilo, en el idioma del usuario, aplicado a los párrafos seleccionados. Si se han aplicado varios estilos a la selección, aparecerá el primer nombre del estilo.

MsgBox Selection.Paragraphs.Style.NameLocal

En este ejemplo, se agrega el nombre "MiT1" como alias del estilo de título 1 del documento activo.

ActiveDocument.Styles("Título 1").NameLocal = "MiT1"

En este ejemplo, se cambia el nombre del estilo denominado "Prueba" por "Intro".

ActiveDocument.Styles("Prueba").NameLocal = "Intro"

En este ejemplo, se muestra el nombre del idioma alemán de dos formas distintas, primero en el idioma del usuario y, a continuación, en alemán.

MsgBox Languages(wdGerman).NameLocal

MsgBox Languages(wdGerman).Name


Propiedad Options

Devuelve un objeto Options que representa los valores de la aplicación que puede establecer en Word. Es de sólo lectura.


Ejemplo de la propiedad Options

En este ejemplo, se desactiva la casilla de verificación Permitir guardar rápidamente y, a continuación, se guarda el documento activo.

Options.AllowFastSave = False

ActiveDocument.Save

En este ejemplo, se imprime Ventas.doc con los comentarios y los resultados del campo.

With Options

    .PrintFieldCodes = False

    .PrintComments = True

End With

Documents("Ventas.doc").PrintOut


Método ResetIgnoreAll

Borra la lista de palabras que se habían ignorado previamente durante una revisión ortográfica. Después de ejecutar este método, se revisan las palabras que se habían ignorado previamente junto con el resto de las palabras.

Sintaxis

expresión.ResetIgnoreAll

expresión   Requerida. Expresión que devuelve un objeto Application.


Ejemplo del método ResetIgnoreAll

En este ejemplo, se borra la lista de palabras que se habían ignorado durante revisiones ortográficas previas y, a continuación, se inicia una nueva revisión del documento activo.

Application.ResetIgnoreAll

ActiveDocument.CheckSpelling


Propiedad VBE

Devuelve un objeto VBE que representa el editor de VB. Es de sólo lectura.


Ejemplo de la propiedad VBE

En este ejemplo, se muestra el número de referencias disponibles para el proyecto activo.

MsgBox "Referencias = " & VBE.ActiveVBProject.References.Count


Método ListCommands

Crea un nuevo documento y, a continuación, inserta una tabla de comandos de Word junto con las teclas de método abreviado asociadas y las asignaciones de menús.

Sintaxis

expresión.ListCommands(ListAllCommands)

expresión   Requerida. Expresión que devuelve un objeto Application.

ListAllCommands   Boolean requerido. True para incluir todos los comandos de Word y sus asignaciones, ya sean personalizados o integrados. False para incluir sólo comandos con asignaciones personalizadas.


Ejemplo del método ListCommands

En este ejemplo, se crea un nuevo documento que muestra todos los comandos de Word junto con las teclas de método abreviado asociadas y las asignaciones de menús. A continuación, imprime y cierra el nuevo documento sin guardar los cambios.

Application.ListCommands ListAllCommands:=True

With ActiveDocument

    .PrintOut

    .Close SaveChanges:=wdDoNotSaveChanges

End With


Método SendWindowMessage

Envía un mensaje de Windows y sus parámetros asociados a la tarea especificada. En los equipos Macintosh, este método no está disponible y genera un error.

Sintaxis

expresión.SendWindowMessage(Message, wParam, IParam)

expresión   Requerida. Expresión que devuelve un objeto Task.

Message   Long requerido. Número hexadecimal que corresponde al mensaje que desee enviar. Si tiene el SDK (Kit de desarrollo de software) Win32 de Microsoft , puede buscar el nombre del mensaje de los archivos de encabezados (WINUSUARIO.H, por ejemplo) para encontrar el número hexadecimal asociado, (anteponga el valor hexadecimal con el valor &h).

wParam, lParam   Long requerido. Parámetros apropiados para el mensaje que envía. Para obtener información acerca de lo que representan estos valores, consulte el tema de referencia de dicho mensaje en la Ayuda en pantalla de Win32 incluida en el SDK Win32 de Microsoft. Para recuperar los valores apropiados, puede que necesite utilizar la utilidad Spy, incluida en el kit.


Ejemplo del método SendWindowMessage

Si se ejecuta el Bloc de notas, en este ejemplo se muestra el cuadro de diálogo Acerca de (del Bloc de notas) al enviar un mensaje WM_COMMAND al Bloc de notas. El método SendWindowMessage se utiliza para enviar el mensaje WM_COMMAND (el número 111 es el valor hexadecimal de WM_COMMAND), con los parámetros 11 y 0. Se ha utilizado la utilidad Spy para determinar los valores de wParam y lParam.

For Each miTarea In Tasks

    If InStr(miTarea.Name, "Bloc de notas") > 0 Then

        miTarea.Activate

        miTarea.SendWindowMessage &h111, 11, 0

    End If

Next miTarea


Propiedad PathSeparator

Devuelve el carácter utilizado para separar nombres de carpetas. En Windows, esta propiedad devuelve una barra diagonal inversa (\);en el sistema Macintosh, devuelve dos puntos (:).

Nota   La propiedad FullName devuelve la ruta de acceso y el nombre de archivo como cadena única.


Ejemplo de la propiedad PathSeparator

En este ejemplo, se muestra la ruta de acceso y el nombre de archivo del documento activo.

MsgBox ActiveDocument.Path & Application.PathSeparator & _

    ActiveDocument.Name

Si la primera macro es una plantilla, en este ejemplo se descarga y se abre dicha plantilla.

If Addins(1).Compiled = False Then

    Addins(1).Installed = False

    Documents.Open FileName:=AddIns(1).Path & Application.PathSeparator & _

        AddIns(1).Name

End If


Propiedad QuickDrawInstalled

True si está instalado el programa QuickDraw GX para sistemas Macintosh. Boolean de sólo lectura.

Nota   En Windows, QuickDrawInstalled no está disponible y genera un error.


Ejemplo de la propiedad QuickDrawInstalled

En este ejemplo, se muestra un cuadro de mensaje que indica si está instalado el programa QuickDraw GX o no.

If System.QuickDrawInstalled = True Then

    MsgBox "QuickDraw GX está instalado en el sistema."

Else

    MsgBox "QuickDraw GX no está instalado en el sistema."

End If


Propiedad DefaultTab

Devuelve o establece la ficha activa cuando aparezca el cuadro de diálogo especificado. Puede ser una de las constantes WdWordDialogTab. Long de Lectura/Escritura.


Ejemplo de la propiedad DefaultTab

En este ejemplo, se muestra el cuadro de diálogo Configurar página con la ficha Fuente del papel seleccionada.

With Dialogs(wdDialogFilePageSetup)

    .DefaultTab = wdDialogFilePageSetupTabPaperSource

    .Show

End With


Propiedad StatusBar

Muestra el texto especificado en la barra de estado. String de sólo escritura.


Ejemplo de la propiedad StatusBar

En este ejemplo, se muestra un mensaje en la barra de estado.

StatusBar = "Espere un momento..."

En este ejemplo, se muestra el nombre de la plantilla adjunta al documento activo en la barra de estado.

unNombre = ActiveDocument.AttachedTemplate.Name

StatusBar = unNombre & " se adjunta la plantilla al documento activo"


Propiedad StartupPath

Devuelve o establece la ruta de acceso completa de la carpeta Inicio, excluido el separador final. String de Lectura/Escritura.

Nota   Las plantillas y los complementos o macros automáticas ubicadas en la carpeta Inicio se cargan automáticamente al iniciar Word.


Ejemplo de la propiedad StartupPath

En este ejemplo, se muestra la ruta de acceso completa de la carpeta Inicio.

MsgBox Application.StartupPath

En este ejemplo, se permite al usuario cambiar la ruta de acceso de la carpeta Inicio.

x = MsgBox("¿Desea cambiar la ruta de acceso de la carpeta Inicio?", vbYesNo, _

    "Ruta de acceso actual = " & Application.StartupPath)

If x = vbYes Then

    newStartup = InputBox("Escriba la ruta de acceso de la carpeta Inicio")

    Application.StartupPath = newStartup

End If


Propiedad OperatingSystem

Devuelve el nombre de la versión del sistema operativo actual, por ejemplo, "Windows" o "Windows NT". String de sólo lectura.


Ejemplo de la propiedad OperatingSystem

En este ejemplo, se muestra un mensaje que incluye el nombre del sistema operativo actual.

MsgBox "En este equipo se ejecuta " & System.OperatingSystem


Método CentimetersToPoints

Convierte medidas de centímetros a puntos; por ejemplo 1 cm = 28,35 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.CentimetersToPoints(Centimeters)

expresión   Opcional. Expresión que devuelve un objeto Application.

Centimeters   Single requerido. Valor en centímetros que va a convertirse a puntos.


Ejemplo del método CentimetersToPoints

En este ejemplo, se agrega una tabulación centrada a todos los párrafos de la selección. La tabulación se sitúa a 1,5 centímetros desde el margen izquierdo.

Selection.Paragraphs.TabStops.Add Position:=CentimetersToPoints(1.5), _

    Alignment:=wdAlignTabCenter

En este ejemplo, se establece una sangría de 2,5 centímetros en la primera línea para el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).FirstLineIndent = CentimetersToPoints(2.5)


Método Display

Muestra el cuadro de diálogo integrado y especificado de Word hasta que el usuario lo cierre o haya transcurrido el período de tiempo especificado. Devuelve un Long que indica el botón en el que se haya hecho clic para cerrar el cuadro de diálogo.

Valor devuelto	Descripción
-2	Botón Cerrar.
-1	Botón Aceptar.
0 (cero)	Botón Cancelar.
> 0 (cero)	Botón de comando: 1 corresponde al primer botón, 2 al segundo, etc.
Nota   No se llevan a cabo las acciones iniciadas o especificadas mientras se muestra un cuadro de diálogo si se utiliza este método. Utilice el método Show para mostrar un cuadro de diálogo y llevar a cabo acciones o aplicar valores.

Sintaxis

expresión.Display(TimeOut)

expresión   Requerida. Expresión que devuelve un objeto Dialog.

TimeOut   Variant opcional. Período de tiempo que Word esperará antes de cerrar el cuadro de diálogo automáticamente. Una unidad corresponde a 0,001 segundos aproximadamente. La actividad del sistema concurrente puede incrementar el valor de tiempo efectivo. Si se omite este argumento, se cerrará el cuadro de diálogo cuando lo haga el usuario.


Ejemplo del método Display

En este ejemplo, se muestra el cuadro de diálogo Acerca de.

Set unDiálogo = Dialogs(wdDialogHelpAbout)

unDiálogo.Display

En este ejemplo, se muestra el cuadro de diálogo Zoom durante unos nueve segundos.

Dialogs(wdDialogViewZoom).Display TimeOut:=9000


Propiedad EnableCancelKey

Devuelve o establece la forma en la que Word trata las interrupciones del usuario con CTRL+INTER. Puede ser una de las siguientes constantes WdEnableCancelKey: wdCancelDisabled, que evita que la combinación de teclas CTRL+INTER interrumpa una macro, o wdCancelInterrupt, que permite que se interrumpa una macro con la combinación de teclas CTRL+INTER. Long de Lectura/Escritura.

Comentarios

Utilice esta propiedad con mucho cuidado. Si se utiliza wdCancelDisabled, no podrá interrumpir ningún bucle incontrolado ni otro código que no termine por sí mismo. El valor de la propiedad EnableCancelKey se vuelve a establecer en wdCancelInterrupt cuando deje de funcionar el código.


Ejemplo de la propiedad EnableCancelKey

En este ejemplo, se evita que la combinación de teclas CTRL+INTER interrumpa un bucle.

Application.EnableCancelKey = wdCancelDisabled

For i = 1 To 10000

    StatusBar = i

Next i

Application.EnableCancelKey = wdCancelInterrupt


Propiedad International

Devuelve información acerca de la configuración del país e internacional. Variant de sólo lectura.

Sintaxis

expresión.International(Index)

expresión   Requerida. Expresión que devuelve un objeto Application.

Index   Long requerido. Especifica un sólo elemento para devolver. Puede ser una de las siguientes constantes WdInternationalIndex:

Constante	Descripción
wd24HourClock	Devuelve el valor True si se utiliza un reloj de 24 horas y False si es de 12 horas.
wdCurrencyCode	Devuelve el símbolo de moneda; por ejemplo, $ en inglés americano.
wdDateSeparator	Devuelve el separador de fecha; por ejemplo, / en inglés americano.
wdDecimalSeparator	Devuelve el separador de decimales; por ejemplo, "." en inglés americano.
wdInternationalAM	Devuelve la cadena utilizada para indicar las horas de la mañana; por ejemplo, 10 a.m.
wdInternationalPM	Devuelve la cadena utilizada para indicar las horas a partir del mediodía; por ejemplo, 2 p.m.
wdListSeparator	Devuelve el separador de lista; por ejemplo, "," en inglés americano.
wdProductLanguageID	Devuelve la versión de idioma de Word.
wdThousandsSeparator	Devuelve el separador de millares; por ejemplo, "," en inglés americano.
wdTimeSeparator	Devuelve el separador de hora; por ejemplo, ":" en inglés americano.


Ejemplo de la propiedad International

En este ejemplo, se muestra el formato de moneda en la barra de estado.

StatusBar = "Formato de moneda: " & _

    Application.International(wdCurrencyCode)


Método LinesToPoints

Convierte medidas de líneas a puntos; por ejemplo 1 línea = 12 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.LinesToPoints(Lines)

expresión   Opcional. Expresión que devuelve un objeto Application.

Lines   Single requerido. Valor de línea que va a convertirse a puntos.


Ejemplo del método LinesToPoints

En este ejemplo, se establece el interlineado de párrafo de la selección en tres líneas.

With Selection.ParagraphFormat

    .LineSpacingRule = wdLineSpaceMultiple

    .LineSpacing = LinesToPoints(3)

End With


Método MillimetersToPoints

Convierte medidas de milímetros a puntos; por ejemplo 1 mm = 2,85 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.MillimetersToPoints(Millimeters)

expresión   Opcional. Expresión que devuelve un objeto Application.

Millimeters   Single requerido. Valor en milímetros que va a convertirse a puntos.


Ejemplo del método MillimetersToPoints

En este ejemplo, se establece la zona de división de palabras del documento activo en 8,8 milímetros.

ActiveDocument.HyphenationZone = MillimetersToPoints(8.8)

En este ejemplo, se amplía el espaciado de los caracteres seleccionados a 2,8 puntos.

Selection.Font.Spacing = MillimetersToPoints(1)


Método PicasToPoints

Convierte medidas de picas a puntos; por ejemplo 1 pica = 12 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.PicasToPoints(Picas)

expresión   Opcional. Expresión que devuelve un objeto Application.

Picas   Single requerido. Valor en picas que va a convertirse a puntos.


Ejemplo del método PicasToPoints

En este ejemplo, se agregan números de línea al documento activo y se establece la distancia entre dichos números y el texto del documento en 4 picas.

With ActiveDocument.PageSetup.LineNumbering

    .Active = True

    .DistanceFromText = PicasToPoints(4)

End With

En este ejemplo, se establece la sangría de la primera línea para los párrafos seleccionados en 3 picas.

Selection.ParagraphFormat.FirstLineIndent = PicasToPoints(3)


Propiedad UsableHeight

Devuelve el alto del espacio en puntos que puede utilizar una ventana en el área de ventanas de la aplicación. Long de sólo lectura.

Nota   Si la propiedad UsableHeight devuelve el valor 1, no hay espacio disponible para ninguna ventana de documento. Cuando no hay espacio vertical disponible, no es válido el valor horizontal (UsableWidth). Para determinar el alto disponible actual, reste 1 al valor de UsableHeight.


Ejemplo de la propiedad UsableHeight

En este ejemplo, se incrementa el tamaño de la ventana del documento activo para rellenar el área de la ventana de la aplicación con la excepción de un borde de 5 puntos en la parte superior izquierda de la ventana.

With ActiveWindow

    .WindowState = wdWindowStateNormal

    .Top = 5

    .Left = 5

    .Height = Application.UsableHeight

    .Width = Application.UsableWidth

End With


Propiedad UsableWidth

Devuelve el ancho del espacio, en puntos, que puede utilizar una ventana en el área de ventanas de la aplicación. Long de sólo lectura.

Nota   El valor de la propiedad UsableWidth sólo es válido cuando el valor de la propiedad UsableHeight es mayor que 1; es decir, cuando hay espacio disponible para una ventana de documento.


Ejemplo de la propiedad UsableWidth

En este ejemplo, se muestra el alto y el ancho del área de ventanas de la aplicación.

espacioVert = Format(PointsToCentimeters(Application.UsableHeight), "Fijo")

espacioHoriz = Format(PointsToCentimeters(Application.UsableWidth), "Fijo")

MsgBox "Alto utilizable: " & espacioVert & " centímetros" & vbCr & _

    "Ancho utilizable: " & espacioHoriz & " centímetros"


Método InchesToPoints

Convierte medidas de pulgadas a puntos; por ejemplo 1 pulgada = 72 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.InchesToPoints(Inches)

expresión   Opcional. Expresión que devuelve un objeto Application.

Inches   Single requerido. Valor en pulgadas que va a convertirse a puntos.


Ejemplo del método InchesToPoints

En este ejemplo, se establece el espacio de los párrafos seleccionados en 0,25 pulgadas.

Selection.ParagraphFormat.SpaceBefore = InchesToPoints(0.25)

En este ejemplo, se imprime cada documento abierto después de establecer el valor de los márgenes derecho e izquierdo en 0,65 pulgadas.

For Each docAbierto in Documents

    With docAbierto

        .PageSetup.LeftMargin = InchesToPoints(0.65)

        .PageSetup.RightMargin = InchesToPoints(0.65)

        .PrintOut

    End With

Next docAbierto


Método CleanString

Quita los caracteres no imprimibles, códigos de caracteres 1 – 29, y los caracteres especiales de Word de la cadena especificada o los cambia a espacios, código de carácter 32, de la forma descrita en la sección "Comentarios". Devuelve el resultado como cadena.

Sintaxis

expresión.CleanString(String)

expresión   Opcional. Expresión que devuelve un objeto Application.

String   String requerida. Cadena de origen.

Comentarios

En Windows, se convierten los siguientes caracteres de la forma descrita en esta tabla.

Código de carácter	Descripción
7 (beep)	Quitado a menos que vaya precedido por el carácter 13 (párrafo) y después se convierta al carácter 9 (tabulación).
10 (paso de línea)	Convertido al carácter 13 (párrafo) a menos que vaya precedido por el carácter 13, y después se quite.
13 (párrafo)	No cambiado.
31 (guión opcional)	Quitado.
160 (espacio de no separación)	Convertido al carácter 32 (espacio).
172 (guión opcional)	Quitado.
176 (espacio de no separación)	Convertido al carácter 32 (espacio).
182 (marca de párrafo)	Quitado.
183 (viñeta)	Convertido al carácter 32 (espacio).
En los equipos Macintosh, se convierten los siguientes caracteres de la forma descrita en esta tabla.

Código de carácter	Descripción
7 (beep)	Quitado a menos que vaya precedido por el carácter 13 (párrafo) y después se convierta al carácter 9 (tabulación).
10 (paso de línea)	Convertido al carácter 13 (párrafo) a menos que vaya precedido por el carácter 13, y después se quite.
13 (párrafo)	No cambiado.
31 (guión opcional)	Quitado.
194 (guión opcional)	Quitado.
202 (espacio de no separación)	Convertido al carácter 32 (espacio).


Ejemplo del método CleanString

En este ejemplo, se quitan los caracteres no imprimibles del texto seleccionado y se inserta el resultado en un nuevo documento.

copiar = Application.CleanString(Selection.Text)

Set miDoc = Documents.Add

miDoc.Content.InsertAfter copiar

En este ejemplo, se quitan los caracteres no imprimibles del código de campo seleccionado y, a continuación, se muestra el resultado.

ActiveWindow.View.ShowFieldCodes = True

ActiveDocument.Fields(1).Select

MsgBox Application.CleanString(Selection.Text)


Método OnTime

Inicia un cronómetro en segundo plano que ejecuta una macro en la fecha y a la hora especificadas.

Sintaxis

expresión.OnTime(When, Name, Tolerance)

expresión   Requerida. Expresión que devuelve un objeto Application.

When Variant requerida. Hora a la que va a ejecutarse la macro. Puede ser una cadena que especifique una hora; por ejemplo, "4:30 p.m." o "16:30", o bien un número secuencial devuelto por una función como TimeValue o TimeSerial; por ejemplo, TimeValue("2:30 p.m.") o TimeSerial(14, 30, 00)). Además, puede incluir la fecha; por ejemplo, "6/30 4:15 p.m." o TimeValue("6/30 4:15 p.m.").

Utilice la suma de los valores devueltos de las funciones Now y TimeValue o TimeSerial para que un cronómetro ejecute una macro durante el período de tiempo especificado después de ejecutarse la instrucción. Por ejemplo, utilice Now+TimeValue("00:05:30") para ejecutar una macro 5 minutos y 30 segundos después de ejecutarse la instrucción.

Name   String requerida. Nombre de la macro que va a ejecutarse. Utilice la ruta de acceso de la macro completa para asegurarse de que se ejecuta la macro correcta; por ejemplo, "Project.Module1.Macro1". Para que se ejecute la macro, debe estar disponible el documento o la plantilla tanto cuando se ejecute la instrucción OnTime como cuando sea la hora especificada por When. Por esta razón, es mejor guardar la macro en la plantilla Normal.dot o en otra plantilla global que se cargue automáticamente.

Tolerance   Variant opcional. El período de tiempo máximo, en segundos, que puede transcurrir antes de que se cancele una macro que no se haya ejecutado a la hora especificada por When. Las macros no siempre se ejecutan a la hora especificada. Por ejemplo, si se está efectuado una operación de ordenación o se muestra un cuadro de diálogo, la macro se retrasará hasta que Word haya concluido la tarea. Si este argumento es 0 (cero) o se omite, la macro se ejecutará independientemente del tiempo transcurrido desde la hora especificada por When.

Comentarios

Word sólo puede mantener un cronómetro en segundo plano establecido por OnTime. Si inicia otro cronómetro antes de que se ejecute el existente, se cancela este último.


Ejemplo del método OnTime

En este ejemplo, se ejecuta la macro denominada "MiMacro" del módulo actual a las 3:55 p.m.

Application.OnTime When:="15:55:00", Name:="MiMacro"

En este ejemplo, se ejecuta la macro denominada "Macro1" 15 segundos después de ejecutarse el ejemplo. La macro incluye los nombres del proyecto y del módulo.

Application.OnTime When:=Now + TimeValue("00:00:15"), Name:="Proyecto1.Módulo1.Macro1"

En este ejemplo, se ejecuta la macro denominada "Inicio" a las 1:30 p.m. El nombre de la macro incluye los del proyecto y el módulo.

Application.OnTime When:=TimeValue("1:30 pm"), Name:="VBAProy.MiMódulo.Inicio"


Método Show

Muestra y lleva a cabo acciones iniciadas en el cuadro de diálogo integrado y especificado de Word. Devuelve un Long que indica el botón en el que se haya hecho clic para cerrar el cuadro de diálogo.

Valor devuelto	Descripción
-2	Botón Cerrar.
-1	Botón Aceptar.
0 (cero)	Botón Cancelar.
> 0 (cero)	Botón de comando: 1 corresponde al primer botón, 2 al segundo, etc.
Nota   Utilice el método Display para mostrar un cuadro de diálogo, pero sin llevar a cabo acciones ni aplicar valores cuando esté cerrado el cuadro de diálogo.

Sintaxis

expresión.Show(TimeOut)

expresión   Requerida. Expresión que devuelve un objeto Dialog.

TimeOut   Variant opcional. Período de tiempo que Word esperará antes de cerrar el cuadro de diálogo automáticamente. Una unidad corresponde a 0,001 segundos aproximadamente. La actividad del sistema concurrente puede incrementar el valor de tiempo efectivo. Si se omite este argumento, se cerrará el cuadro de diálogo cuando lo haga el usuario.


Ejemplo del método Show

En este ejemplo, se muestra el cuadro de diálogo Buscar y reemplazar con la palabra "Azul" preestablecida en el cuadro de texto Buscar.

With  Dialogs(wdDialogEditFind)

    .Find = "Azul"

    .Show

End With

En este ejemplo, se muestra y se lleva a cabo una acción iniciada en el cuadro de diálogo Abrir. El nombre del archivo se establece en *.* para que se muestren los nombres de todos los archivos.

With Dialogs(wdDialogFileOpen)

    .Name = "*.*"

    .Show

End With

En este ejemplo, se muestra y se lleva a cabo una acción iniciada en el cuadro de diálogo Zoom. Si no se inician acciones en unos 9 segundos, se cerrará el cuadro de diálogo.

Dialogs(wdDialogViewZoom).Show TimeOut:=9000


Método HelpTool

Cambia la forma del puntero de una flecha a un signo de interrogación; es decir obtendrá ayuda relativa al contexto acerca del siguiente elemento de comando o pantalla en el que haga clic. Si hace clic en el elemento texto, Word mostrará un cuadro que describe los formatos de párrafo y carácter actuales. Al presionar la tecla ESC el puntero recupera la forma de flecha.

Sintaxis

expresión.HelpTool()

expresión   Requerida. Expresión que devuelve un objeto Application.


Ejemplo del método HelpTool

En este ejemplo, se cambia la forma del puntero del mouse (ratón) de una flecha a un signo de interrogación.

Application.HelpTool


Método AutomaticChange

Realiza una acción de Autoformato cuando se produzca un cambio sugerido por el Ayudante de Office. Si no está activa ninguna acción de Autoformato, este método generará un error.

Sintaxis

expresión.AutomaticChange()

expresión   Requerida. Expresión que devuelve un objeto Application.


Ejemplo del método AutomaticChange

En este ejemplo, se concluye una acción de Autoformato del Ayudante de Office si hay una activa.

Application.AutomaticChange


Método ShowMe

Muestra el Ayudante de Office o la ventana Ayuda cuando se dispone de más información. Si no hay información adicional disponible, este método generará un error indicando que no hay temas de Ayuda asociados.

Sintaxis

expresión.ShowMe()

expresión   Expresión que devuelve un objeto Application.


Ejemplo del método ShowMe

En este ejemplo se muestra una sugerencia si hay una disponible.

Application.ShowMe


Propiedad AccentedLetters

True si en el índice especificado se incluyen títulos diferentes para las letras acentuadas; por ejemplo, las palabras que comienzan por "Á" están bajo un epígrafe distinto de las que comienzan por "A". Boolean de Lectura/Escritura.


Ejemplo de la propiedad AccentedLetters

En este ejemplo se da formato al primer índice del documento activo en una sola columna, con la letra correspondiente al principio de cada grupo alfabético y con títulos distintos para las letras acentuadas.

If ActiveDocument.Indexes.Count >= 1 Then

    With ActiveDocument.Indexes(1)

        .HeadingSeparator = wdHeadingSeparatorLetter

        .NumberOfColumns = 1

        .AccentedLetters = True

    End With

End If


Propiedad BrowseExtraFileTypes

Establezca esta propiedad como "texto/html" para que los archivos HTML con hipervínculos puedan abrirse en Word en lugar del explorador de Internet predeterminado. String de Lectura/Escritura.


Ejemplo de la propiedad BrowseExtraFileTypes

En este ejemplo se permite que los archivos HTML con hipervínculos puedan abrirse en Word en lugar de en el explorador de Internet predeterminado.

Application.BrowseExtraFileTypes = "texto/html"


Método ChangeFileOpenDirectory

Establece la carpeta en la que Word busca los documentos. Se verá el contenido de la carpeta especificada la próxima vez que se muestre el cuadro de diálogo Abrir (menú Archivo).

Nota   Word buscará los documentos en la carpeta especificada hasta que el usuario la cambie en el cuadro de diálogo Abrir o finalice la sesión actual de Word. Utilice la propiedad DefaultFilePath para cambiar la carpeta de documentos predeterminada en cada sesión de Word.

Sintaxis

expresión.ChangeFileOpenDirectory(Path)

expresión   Opcional. Expresión que devuelve un objeto Application.

Path   String requerida. Ruta de acceso de la carpeta en la que Word busca los documentos.


Ejemplo del método ChangeFileOpenDirectory

En este ejemplo se cambia la carpeta en la que Word busca los documentos y, a continuación, se abre un archivo denominado "Prueba.doc".

ChangeFileOpenDirectory "C:\Mis documentos"

Documents.Open FileName:="Prueba.doc"

En este ejemplo se cambia la carpeta en la que Word busca los documentos y, a continuación, se muestra el cuadro de diálogo Abrir.

ChangeFileOpenDirectory "C:\"

Dialogs(wdDialogFileOpen).Show


Propiedad CustomizationContext

Devuelve o establece un objeto Template o Document que representa la plantilla o el documento en los que se guardan los cambios de barras de menú, barras de herramientas y combinaciones de teclas. Corresponde al valor del cuadro Guardar en de la ficha Comandos del cuadro de diálogo Personalizar (menú Herramientas). Lectura/Escritura.


Ejemplo de la propiedad CustomizationContext

En este ejemplo se asigna la combinación de teclas ALT+CTRL+W al comando FileClose. La personalización del teclado se guarda en la plantilla Normal.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW), _

    KeyCategory:=wdKeyCategoryCommand, Command:="FileClose"

En este ejemplo se agrega el botón Versiones de archivo a la barra de herramientas Estándar. La personalización de la barra de comandos se guarda en la plantilla adjunta al documento activo.

CustomizationContext = ActiveDocument.AttachedTemplate

Application.CommandBars("Estándar").Controls.Add Type:=msoControlButton, _

        ID:=2522, Before:=8


Propiedad DefaultTableSeparator

Devuelve o establece el carácter utilizado para separar texto en celdas cuando éste se convierte en tabla. String de Lectura/Escritura.

Nota   El valor de la propiedad DefaultTableSeparator se utiliza si se omite el argumento Separator en el método ConvertToTable.


Ejemplo de la propiedad DefaultTableSeparator

En este ejemplo se cambia el carácter separador de tablas predeterminado.

Application.DefaultTableSeparator = "%"


Propiedad Extensions

Devuelve las extensiones de nombre de archivo asociadas al objeto FileConverter especificado. String de sólo lectura.


Ejemplo de la propiedad Extensions

En este ejemplo se muestran el nombre y las extensiones de nombre de archivo para el primer convertidor de archivos.

Set unConvertidor = FileConverters(1)

MsgBox "Las extensiones de archivo para los archivos " & unConvertidor.FormatName & _

    " son: " & unConvertidor.Extensions


Método GoForward

Mueve el punto de inserción hacia delante entre las tres últimas posiciones en las que se produjeron modificaciones en el documento activo.

Sintaxis

expresión.GoForward

expresión   Requerida. Expresión que devuelve un objeto Application.


Ejemplo del método GoForward

En este ejemplo se desplaza el punto de inserción hasta la siguiente posición en la que se realizaron modificaciones.

Application.GoForward


Propiedad IsObjectValid

True si es válida la variable especificada que hace referencia a un objeto. False si se ha eliminado el objeto al que hacía referencia la variable. Boolean de sólo lectura.

Sintaxis

expresión.IsObjectValid(Object)

expresión   Opcional. Expresión que devuelve un objeto Application.

Object   Object requerido. Variable que hace referencia a un objeto.


Ejemplo de la propiedad IsObjectValid

En este ejemplo se inserta una tabla en el documento activo y se asigna a la variable unaTabla. En este ejemplo, se elimina la primera tabla del documento. Si la tabla a la que hace referencia unaTabla no es la primera del documento, es decir, unaTabla es todavía un objeto válido, también se quitan los bordes de ésta.

Set unaTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    NumRows:=2, NumColumns:=3)

ActiveDocument.Tables(1).Delete

If IsObjectValid(unaTabla) = True Then unaTabla.Borders.Enable = False


Método PointsToCentimeters

Convierte una medida de puntos a centímetros; por ejemplo 1 cm = 28,35 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.PointsToCentimeters(Points)

expresión   Opcional. Expresión que devuelve un objeto Application.

Points   Single requerida. Medida en puntos.


Ejemplo del método PointsToCentimeters

En este ejemplo se convierte una medida de 30 puntos a su equivalente en centímetros.

MsgBox PointsToCentimeters(30) & " centímetros"

En este ejemplo se convierte el valor de la variable datos (medida en puntos) a centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable unidad (valor de 1 a 5 que indica la unidad de medida resultante).

Select Case unidad

    Case 1

        result = PointsToCentimeters(datos)

    Case 2

        result = PointsToInches(datos)

    Case 3

        result = PointsToLines(datos)

    Case 4

        result = PointsToMillimeters(datos)

    Case 5

        result = PointsToPicas(datos)

    Case Else

        Error 5

End Select


Método PointsToInches

Convierte una medida de puntos a pulgadas; por ejemplo 1 pulgada = 72 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.PointsToInches(Points)

expresión   Opcional. Expresión que devuelve un objeto Application.

Points   Single requerida. Medida en puntos.


Ejemplo del método PointsToInches

En este ejemplo se convierte la medida del margen superior del documento activo a pulgadas y se muestra el resultado en un cuadro de mensajes.

MsgBox PointsToInches(ActiveDocument.Sections(1).PageSetup.TopMargin)

En este ejemplo se convierte el valor de la variable datos (medida en puntos) a centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable unidad (valor de 1 a 5 que indica la unidad de medida resultante).

Select Case unidad

    Case 1

        result = PointsToCentimeters(datos)

    Case 2

        result = PointsToInches(datos)

    Case 3

        result = PointsToLines(datos)

    Case 4

        result = PointsToMillimeters(datos)

    Case 5

        result = PointsToPicas(datos)

    Case Else

        Error 5

End Select


Método PointsToLines

Convierte una medida de puntos a líneas; por ejemplo 1 línea = 12 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.PointsToLines(Points)

expresión   Opcional. Expresión que devuelve un objeto Application.

Points   Single requerida. Medida en puntos.


Ejemplo del método PointsToLines

En este ejemplo se convierte el valor del espaciado interlineal del primer párrafo de la selección de puntos a líneas.

MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) & " líneas"

En este ejemplo se convierte el valor de la variable datos (medida en puntos) a centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable unidad (valor de 1 a 5 que indica la unidad de medida resultante).

Select Case unidad

    Case 1

        result = PointsToCentimeters(datos)

    Case 2

        result = PointsToInches(datos)

    Case 3

        result = PointsToLines(datos)

    Case 4

        result = PointsToMillimeters(datos)

    Case 5

        result = PointsToPicas(datos)

    Case Else

        Error 5

End Select


Método PointsToMillimeters

Convierte una medida de puntos a milímetros; por ejemplo 1 mm = 2.835 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.PointsToMillimeters(Points)

expresión   Opcional. Expresión que devuelve un objeto Application.

Points   Single requerida. Medida en puntos.


Ejemplo del método PointsToMillimeters

En este ejemplo se convierten 72 puntos a su equivalente en milímetros.

MsgBox PointsToMillimeters(72) & " milímetros"

En este ejemplo se convierte el valor de la variable datos (medida en puntos) a centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable unidad (valor de 1 a 5 que indica la unidad de medida resultante).

Select Case unidad

    Case 1

        result = PointsToCentimeters(datos)

    Case 2

        result = PointsToInches(datos)

    Case 3

        result = PointsToLines(datos)

    Case 4

        result = PointsToMillimeters(datos)

    Case 5

        result = PointsToPicas(datos)

    Case Else

        Error 5

End Select


Método PointsToPicas

Convierte una medida de puntos a picas; por ejemplo 1 pica = 12 puntos. Devuelve la medida convertida como Single.

Sintaxis

expresión.PointsToPicas(Points)

expresión   Opcional. Expresión que devuelve un objeto Application.

Points   Single requerida. Medida en puntos.


Ejemplo del método PointsToPicas

En este ejemplo se convierten 36 puntos a su equivalente en picas.

MsgBox PointsToPicas(36) & " picas"

En este ejemplo se convierte el valor de la variable datos (medida en puntos) a centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable unidad (valor de 1 a 5 que indica la unidad de medida resultante).

Select Case unidad

    Case 1

        result = PointsToCentimeters(datos)

    Case 2

        result = PointsToInches(datos)

    Case 3

        result = PointsToLines(datos)

    Case 4

        result = PointsToMillimeters(datos)

    Case 5

        result = PointsToPicas(datos)

    Case Else

        Error 5

End Select


Método Run

Ejecuta una macro de Visual Basic.

Sintaxis

expresión.Run(MacroName)

expresión   Requerida. Expresión que devuelve un objeto Application.

MacroName   String requerida. Nombre de la macro. Puede ser cualquier combinación de plantilla, módulo y nombre de macro. Por ejemplo, son válidas las siguientes instrucciones.

Application.Run "Normal.Módulo1.PRINCIPAL"

Application.Run "MiProyecto.MiMódulo.MiProcedimiento"

Application.Run "'Mi Documento.doc'!EsteMódulo.EsteProcedimiento"

Si se especifica el nombre del documento, el código sólo podrá ejecutar macros en los documentos asociados al contexto actual y no cualquier macro en cualquier documento.

Comentarios

Aunque el código de Visual Basic puede llamar a una macro directamente, sin necesidad de utilizar este método, este último es de utilidad si el nombre de la macro está guardado en una variable. Para obtener más información, consulte el ejemplo de este tema. Las dos instrucciones que se muestran a continuación son equivalentes desde el punto de vista funcional:

Normal.Módulo2.Macro1

Application.Run MacroName:="Normal.Módulo2.Macro1"

No pueden asignarse parámetros a una macro utilizando el método Run.


Ejemplo del método Run

En este ejemplo se pide al usuario que escriba el nombre de la plantilla, el nombre del módulo y el nombre de la macro para, a continuación, ejecutar dicha macro.

t = InputBox("Escriba el nombre de la plantilla")

md = InputBox("Escriba el nombre del módulo")

m = InputBox("Escriba el nombre de la macro")

Application.Run MacroName:=t & "." & md & "." & m


Propiedad ShowVisualBasicEditor

True si está visible la ventana del Editor de Visual Basic. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowVisualBasicEditor

Este ejemplo permite que se muestre la ventana del Editor de Visual Basic.

Application.ShowVisualBasicEditor = True


Propiedad AutoCaptions

Devuelve un conjunto de AutoCaptions que representa los títulos que se agregan automáticamente al insertar elementos en un documento, por ejemplo tablas e imágenes. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad AutoCaptions

Este ejemplo muestra el nombre de todos los elementos que reciben un título automáticamente cuando se insertan en un documento.

For Each aCaption In AutoCaptions

    If aCaption.AutoInsert Then MsgBox aCaption.Name

Next aCaption


Propiedad AutoInsert

True: si se agrega un título automáticamente al insertar el elemento en un documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoInsert

Este ejemplo permite que Word agregue títulos a las tablas automáticamente. A continuación, el ejemplo contrae la selección en un punto de inserción e inserta una tabla. Se incorpora un título automáticamente a la nueva tabla.

AutoCaptions("Tabla de Microsoft Word").AutoInsert = True

Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _

NumColumns:=2


Método CancelAutoInsert

Evita que Word agregue títulos automáticamente a cualquier tipo de elemento.

Sintaxis

expresión.CancelAutoInsert

expresión   Requerida. Expresión que devuelve un objeto AutoCaptions.


Ejemplo del método CancelAutoInsert

Este ejemplo evita que Word agregue títulos automáticamente a cualquier tipo de elemento.

AutoCaptions.CancelAutoInsert


Propiedad CaptionLabels

Devuelve un conjunto de CaptionLabels que representa todas las etiquetas de títulos disponibles. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad CaptionLabels

Este ejemplo establece el estilo de numeración de los títulos de las tablas.

CaptionLabels(wdCaptionTable).NumberStyle = wdCaptionNumberStyleLowercaseRoman

Este ejemplo agrega una nueva etiqueta de título denominada "Foto" y, a continuación, inserta un título de foto.

CaptionLabels.Add Name:="Foto"

With Selection

    .InsertParagraphAfter

    .InsertCaption Label:="Foto"

End With


Propiedad CaptionLabel

Devuelve o establece la etiqueta de título; por ejemplo, "Ilustración", "Tabla" o "Ecuación", del título especificado. Variant de Lectura/Escritura.

Nota   Esta propiedad se puede establecer como cadena o constante WdCaptionLabelID.


Ejemplo de la propiedad CaptionLabel

En este ejemplo, se muestra el nombre (por ejemplo, "Hoja de cálculo de Microsoft Excel") y la etiqueta de título (por ejemplo, "Ilustración") para cada elemento al que se le agregue un título automáticamente cuando se inserte.

For Each miTítulo In AutoCaptions

    If miTítulo.AutoInsert = True Then MsgBox miTítulo.Name & _

        vbCr & "Etiqueta = " & miTítulo.CaptionLabel.Name

Next miTítulo

En este ejemplo, se establece la etiqueta de título de las tablas de Word como "Tabla" y, a continuación, se inserta una nueva tabla inmediatamente después de la selección.

With AutoCaptions("Tabla de Microsoft Word")

    .AutoInsert = True

    .CaptionLabel = wdCaptionTable

End With

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _

    NumColumns:=3


Propiedad ChapterStyleLevel

Devuelve o establece el estilo de título que marca un nuevo capítulo cuando se incluyen números de capítulo con la etiqueta de título especificada. El número 1 corresponde al Título 1, el 2 al Título 2, etc. Long de Lectura/Escritura.

Nota   La propiedad IncludeChapterNumber debe establecerse como True para los números de capítulo que se incluyan con etiquetas de título.


Ejemplo de la propiedad ChapterStyleLevel

En este ejemplo, se da formato a la etiqueta de título de la tabla para que se incluya un número de capítulo. Este número se toma de los párrafos a los que se ha dado formato con el estilo Título 2.

With CaptionLabels(wdCaptionTable)

    .IncludeChapterNumber = True

    .ChapterStyleLevel = 2

End With


Propiedad IncludeChapterNumber

True si un número de capítulo se incluye con números de página o una etiqueta de título. Boolean de Lectura/Escritura.


Ejemplo de la propiedad IncludeChapterNumber

En este ejemplo, se agregan números de página en el pie de página de la sección uno del documento activo. Los números de página incluyen el número de capítulo.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers

    .Add

    .IncludeChapterNumber = True

    .HeadingLevelForChapter = 1

End With

En este ejemplo, se agrega el número de capítulo del estilo de Título 2 a los títulos de ilustraciones, se establece el estilo de numeración de los títulos y, a continuación, se inserta un nuevo título de ilustración. El documento debe contener previamente un estilo de Título 2 con numeración.

With CaptionLabels(wdCaptionFigure)

    .IncludeChapterNumber = True

    .ChapterStyleLevel = 2

    .NumberStyle = wdCaptionNumberStyleUppercaseLetter

End With

Selection.InsertCaption Label:="Ilustración", Title:=": Historia"


Propiedad AutoCorrect

Devuelve un objeto AutoCorrect que contiene las opciones, los elementos y las excepciones de Autocorrección actuales. Es de sólo lectura.


Ejemplo de la propiedad AutoCorrect

Este ejemplo agrega un elemento de sustitución de Autocorrección. Después de ejecutar este código, cada instancia de "sg" que se escriba en un documento será sustituida automáticamente por "Sonia Gómez".

AutoCorrect.Entries.Add Name:= "sg", Value:= "Sonia Gómez"

Este ejemplo elimina el elemento de Autocorrección especificado.

miValor = InputBox("Escriba el elemento de Autocorrección que va a eliminar")

For Each anEntry in AutoCorrect.Entries

    If anEntry.Name = miValor Then

        miCoincidencia = True

        miConfirmación = MsgBox("Está seguro de que desea eliminar " & _

            anEntry.Name, 4)

        If miConfirmación = vbYes Then

            anEntry.Delete

        End If

    End If

Next anEntry

If miCoincidencia <> True Then

    MsgBox "No se ha encontrado ningún elemento de Autocorrección: " & miValor

End If


Propiedad CorrectInitialCaps

True: si Word pone en minúsculas automáticamente la segunda letra siempre que las dos primeras letras de una palabra se escriban en mayúsculas. Por ejemplo, la palabra "WOrd" se corrige por "Word". Boolean de Lectura/Escritura.


Ejemplo de la propiedad CorrectInitialCaps

Este ejemplo hace que Word corrija automáticamente los errores en el uso de mayúsculas iniciales.

AutoCorrect.CorrectInitialCaps = True


Propiedad CorrectSentenceCaps

True: si Word pone en mayúscula automáticamente la primera letra de cada frase. Boolean de Lectura/Escritura.


Ejemplo de la propiedad CorrectSentenceCaps

Este ejemplo activa o desactiva el valor de la propiedad CorrectSentenceCaps.

AutoCorrect.CorrectSentenceCaps = Not AutoCorrect.CorrectSentenceCaps


Propiedad Entries

Devuelve un conjunto de AutoCorrectEntries que representa la lista actual de elementos de Autocorrección. Esta lista corresponde a la lista de elementos de Autocorrección que aparece en la ficha Autocorrección del cuadro de diálogo Autocorrección (menú Herramientas). Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Entries

Este ejemplo muestra el número total de elementos de Autocorrección.

MsgBox AutoCorrect.Entries.Count

Este ejemplo elimina el elemento de Autocorrección especificado.

miValor = InputBox("Escriba el elemento de Autocorrección que va a eliminar ")

For Each anEntry in AutoCorrect.Entries

    If anEntry.Name = miValor Then

        miCoincidencia = True

miConfirmación = MsgBox("Está seguro de que desea eliminar " & _

            anEntry.Name, 4)

        If miConfirmación = vbYes Then

            anEntry.Delete

        End If

    End If

Next anEntry

If miCoincidencia <> True Then

    MsgBox "No se ha encontrado ningún elemento de Autocorrección: " & miValor

End If


Propiedad ReplaceText

True: si Word sustituye automáticamente el texto especificado por elementos de la lista de Autocorrección. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ReplaceText

Este ejemplo hace que Word sustituya automáticamente el texto especificado por elementos de la lista de Autocorrección mientras se escribe.

AutoCorrect.ReplaceText = True

Este ejemplo activa o desactiva el valor de la propiedad ReplaceText.

AutoCorrect.ReplaceText = Not AutoCorrect.ReplaceText


Método AddRichText

Crea un elemento de Autocorrección con formato, manteniendo todos los atributos de texto del intervalo especificado. Devuelve un objeto AutoCorrectEntry. La propiedad RichText de los elementos agregados con este método devuelve el valor True. Si no se utiliza AddRichText, los elementos de AutoCorrect insertados se ajustan al estilo actual.

Sintaxis

expresión.AddRichText(Name, Range)

expresión   Requerida. Expresión que devuelve un objeto AutoCorrectEntries.

Name   String requerida. Texto que va a sustituirse automáticamente por Range.

Range   Objeto Range requerido. Texto con formato que Word insertará automáticamente siempre que se escriba Name.


Ejemplo del método AddRichText

Este ejemplo guarda el texto seleccionado como un elemento de Autocorrección con formato, que se insertará automáticamente siempre que se escriba "TextoNuevo".

If Selection.Type = wdSelectionNormal Then 'comprueba el texto seleccionado

    AutoCorrect.Entries.AddRichText "TextoNuevo", Selection.Range

Else

    MsgBox "Debe seleccionar texto"

End If

Este ejemplo guarda la tercera palabra del documento activo como un elemento de Autocorrección con formato, que se insertará automáticamente siempre que se escriba "TextoNuevo".

AutoCorrect.Entries.AddRichText "TextoNuevo", ActiveDocument.Words(3)


Propiedad CorrectCapsLock

Sólo Windows. True: si Word corrige automáticamente instancias en las que se utiliza la tecla BLOQ MAYÚS por error mientras se escribe. Boolean de Lectura/Escritura.


Ejemplo de la propiedad CorrectCapsLock

Este ejemplo determina si Word va a corregir automáticamente los errores de la tecla BLOQ MAYÚS.

If AutoCorrect.CorrectCapsLock = True Then

    MsgBox "Corregir BLOQ MAYÚS está activado"

Else

    MsgBox " Corregir BLOQ MAYÚS no está activado"

End If


Propiedad FirstLetterAutoAdd

True: si Word agrega automáticamente abreviaturas a la lista de excepciones de letra inicial de Autocorrección. Word agrega una abreviatura a esta lista si se elimina y, a continuación, se vuelve a escribir la letra que Word puso en mayúsculas inmediatamente después del punto que sigue a la abreviatura. Boolean de Lectura/Escritura.


Ejemplo de la propiedad FirstLetterAutoAdd

Este ejemplo evita que Word agregue abreviaturas automáticamente a la lista de excepciones de letra inicial de Autocorrección.

AutoCorrect.FirstLetterAutoAdd = False


Propiedad FirstLetterExceptions

Devuelve un conjunto de FirstLetterExceptions que representa la lista de abreviaturas detrás de las cuales Word no pondrá en mayúscula automáticamente la siguiente letra. Esta lista corresponde a la lista de excepciones de Autocorrección que aparece en la ficha Letra inicial del cuadro de diálogo Excepciones de autocorrección (comando Autocorrección, menú Herramientas). Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad FirstLetterExceptions

Este ejemplo agrega "apt." a la lista de excepciones de letra inicial de Autocorrección.

AutoCorrect.FirstLetterExceptions.Add "apt."

Este ejemplo elimina la excepción de letra inicial de Autocorrección especificada.

miValor = InputBox("Escriba la excepción de letra inicial que va a eliminarse")

For Each anEntry in AutoCorrect.FirstLetterExceptions

    If anEntry.Name = miValor Then

        miCoincidencia = True

        miConfirmación = MsgBox("Está seguro de que desea eliminar " & _

            anEntry.Name, 4)

        If miConfirmación = vbYes Then

            anEntry.Delete

        End If

    End If

Next anEntry

If miCoincidencia <> True Then

    MsgBox "No se ha encontrado ninguna excepción de letra inicial: " & miValor

End If


Propiedad RichText

True: si el formato se guarda con el texto de sustitución del elemento de Autocorrección. Boolean de sólo lectura.


Ejemplo de la propiedad RichText

Este ejemplo determina si se le ha dado formato al primer elemento de Autocorrección.

MsgBox AutoCorrect.Entries(1).RichText


Propiedad TwoInitialCapsAutoAdd

True: si Word agrega automáticamente palabras a la lista de excepciones de mayúsculas iniciales de Autocorrección. Si se elimina y, a continuación, se vuelve a escribir la letra en mayúscula (detrás de la letra inicial en mayúsculas) que Word ha cambiado a minúsculas, la palabra se agrega a la lista de excepciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad TwoInitialCapsAutoAdd

Este ejemplo hace que Word agregue palabras automáticamente a la lista de excepciones de mayúsculas iniciales de Autocorrección.

AutoCorrect.TwoInitialCapsAutoAdd = True


Propiedad Bookmarks

Devuelve un conjunto de Bookmarks que representa a todos los marcadores de un documento, intervalo o selección. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Bookmarks

Este ejemplo recupera las posiciones de los caracteres inicial y final del primer marcador del documento activo.

With ActiveDocument.Bookmarks(1)

    BookStart = .Start

    BookEnd = .End

End With

Este ejemplo utiliza la matriz aMarks() para guardar el nombre de todos los marcadores del documento activo.

If ActiveDocument.Bookmarks.Count >= 1 Then

    ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)

    i = 0

    For Each aBookmark In ActiveDocument.Bookmarks

        aMarks(i) = aBookmark.Name

        i = i + 1

    Next aBookmark

End If

Este ejemplo aplica el formato de negrita al primer intervalo del texto marcado de la selección.

If Selection.Bookmarks.Count >= 1 Then

    Selection.Bookmarks(1).Range.Bold = True

End If


Propiedad DefaultSorting

Devuelve o establece la opción de ordenación de los nombres de los marcadores mostrados en el cuadro de diálogo Marcador (menú Insertar). Puede ser una de las siguientes constantes WdBookmarkSortBy: wdSortByLocation o wdSortByName. Long de Lectura/Escritura.

Comentarios

Esta propiedad no afecta al orden de los objetos Bookmark del conjunto Bookmarks.


Ejemplo de la propiedad DefaultSorting

Este ejemplo ordena los marcadores por ubicación y, a continuación, muestra el cuadro de diálogo Marcador.

ActiveDocument.Bookmarks.DefaultSorting = wdSortByLocation

Dialogs(wdDialogInserBookmark).Show


Propiedad Empty

True: si el marcador especificado está vacío. Un marcador vacío marca una ubicación (selección contraída); pero no marca ningún texto. Boolean de sólo lectura.

Nota:   se produce un error si no existe el marcador especificado. Utilice la propiedad Exists para determinar la existencia del mismo.


Ejemplo de la propiedad Empty

Este ejemplo determina si existe el marcador denominado "temp" y si está vacío.

If ActiveDocument.Bookmarks.Exists("temp") = True Then

    If ActiveDocument.Bookmarks("temp").Empty = True Then _

    MsgBox "El marcador temp está vacío"

End If


Propiedad ShowHidden

True: si se incluyen marcadores ocultos en el conjunto Bookmarks. Esta propiedad también controla si los marcadores ocultos aparecen en el cuadro de diálogo Marcador (menú Insertar). Boolean de Lectura/Escritura.

Comentarios

Los marcadores ocultos se insertan automáticamente al insertar referencias cruzadas en el documento.


Ejemplo de la propiedad ShowHidden

Este ejemplo muestra el cuadro de diálogo Marcador con los marcadores visibles y ocultos.

ActiveDocument.Bookmarks.ShowHidden = True

Dialogs(wdDialogInserBookmark).Show

Este ejemplo muestra el nombre de todos los marcadores ocultos del documento. Los marcadores ocultos de un documento de Word comienzan por un carácter de subrayado ( _ ).

ActiveDocument.Bookmarks.ShowHidden = True

For Each aBookmark In ActiveDocument.Bookmarks

    If Left(aBookmark.Name, 1) = "_" Then MsgBox aBookmark.Name

Next aBookmark


Propiedad BackgroundPatternColorIndex

Devuelve o establece el color que se aplica al fondo del objeto Shading. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50	wdGreen wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow


Ejemplo de la propiedad BackgroundPatternColorIndex

Este ejemplo aplica un sombreado de fondo de color aguamarina al primer párrafo del documento activo.

Set miIntervalo = ActiveDocument.Paragraphs(1).Range

miIntervalo.Shading.BackgroundPatternColorIndex = wdTurquoise

Este ejemplo agrega una tabla en el punto de inserción y, a continuación, aplica un sombreado de fondo de color gris claro a la primera celda.

Selection.Collapse Direction:=wdCollapseStart

Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    NumRows:=2, NumColumns:=2)

miTabla.Cell(1, 1).Shading.BackgroundPatternColorIndex = wdGray25


Propiedad DistanceFromText

Objeto DropCap: devuelve o establece la distancia, en puntos, entre la letra capital y el texto del párrafo. Single de Lectura/Escritura.

Objeto LineNumbering: devuelve o establece la distancia, en puntos, entre el borde derecho de los números de línea y el borde izquierdo del texto del documento. Single de Lectura/Escritura.


Ejemplo de la propiedad DistanceFromText

Este ejemplo agrega números de línea al documento activo. La distancia entre los números de línea y el margen izquierdo es de 36 puntos.

With ActiveDocument.PageSetup.LineNumbering

    .Active = True

    .CountBy = 5

    .DistanceFromText = 36

End With

Este ejemplo establece una letra capital en el primer párrafo del documento activo. A continuación, la distancia entre dicha letra y el texto se establece en 12 puntos.

With ActiveDocument.Paragraphs(1).DropCap

    .Enable

    .FontName= "Arial"

    .Position = wdDropNormal

    .DistanceFromText = 12

End With


Propiedad Enable

Devuelve o establece el formato de borde del objeto especificado. Devuelve los valores True o wdUndefined si se aplica el formato de borde a todo el objeto especificado o a parte del mismo. Su valor puede establecerse como True o False, o bien como una constante WdLineStyle. Long de Lectura/Escritura.

Comentarios

La propiedad Enable se aplica a todos los bordes del objeto especificado. True: establece el estilo de línea con el estilo de línea predeterminado y el ancho de línea con el ancho de línea predeterminado. El estilo y el ancho de línea predeterminados pueden establecerse con las propiedades DefaultBorderLineWidth y DefaultBorderLineStyle.

Para quitar todos los bordes de un objeto, establezca el valor de la propiedad Enable como False, según se muestra en el ejemplo siguiente.

ActiveDocument.Tables(1).Borders.Enable = False

Para quitar o aplicar un solo borde, utilice Borders(index), donde index es una constante WdBorderType, para recuperar un solo borde y, a continuación, establecer la propiedad LineStyle. El ejemplo siguiente quita el borde inferior de miIntervalo.

miIntervalo.Borders(wdBorderBottom).LineStyle = wdLineStyleNone


Ejemplo de la propiedad Enable

Este ejemplo quita todos los bordes de la primera celda de la tabla uno.

If ActiveDocument.Tables.Count >= 1 Then

 ActiveDocument.Tables(1).Cell(1, 1).Borders.Enable = False

End If

Este ejemplo aplica un borde rayado alrededor del primer párrafo de la selección.

Options.DefaultBorderLineWidth = wdLineWidth025pt

Selection.Paragraphs(1).Borders.Enable = wdLineStyleDashSmallGap

Este ejemplo aplica un borde alrededor del primer carácter de la selección. Si no hay nada seleccionado, el borde se aplica al primer carácter situado inmediatamente después del punto de inserción.

Selection.Characters(1).Borders.Enable = True


Propiedad ForegroundPatternColorIndex

Devuelve o establece el color que se aplica al primer plano del objeto Shading. Este color se aplica a los puntos y las líneas de la trama del sombreado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50	wdGreen wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow


Ejemplo de la propiedad ForegroundPatternColorIndex

Este ejemplo aplica a la selección un sombreado con distintos colores para el fondo y el primer plano.

With Selection.Shading

    .Texture = wdTexture30Percent

    .ForegroundPatternColorIndex = wdBlue

    .BackgroundPatternColorIndex = wdYellow

End With


Propiedad InsideLineStyle

Devuelve o establece el borde interior del objeto especificado. Devuelve el valor wdUndefined si se aplican varios tipos de bordes al objeto especificado; de lo contrario, devuelve el valor False o una constante WdLineStyle. Su valor puede establecerse como True o False, o bien como una constante WdLineStyle. Long de Lectura/Escritura.

Comentarios

True: establece el estilo de línea con el estilo de línea predeterminado y el ancho de línea con el ancho de línea predeterminado. El estilo y el ancho de línea predeterminados pueden establecerse con las propiedades DefaultBorderLineWidth y DefaultBorderLineStyle.

Utilice una de las siguientes instrucciones para quitar el borde interior de la primera tabla del documento activo.

ActiveDocument.Tables(1).Borders.InsideLineStyle = wdLineStyleNone

ActiveDocument.Tables(1).Borders.InsideLineStyle = False


Ejemplo de la propiedad InsideLineStyle

Este ejemplo agrega bordes entre las filas y entre las columnas de la primera tabla del documento activo.

If ActiveDocument.Tables.Count >= 1 Then

    Set miTabla = ActiveDocument.Tables(1)

    miTabla.Borders.InsideLineStyle = True

End If

Este ejemplo agrega bordes entre los cuatro primeros párrafos del documento

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Paragraphs(1).Range.Start, _

    End:=miDoc.Paragraphs(4).Range.End)

With miIntervalo.Borders

    .InsideLineStyle = wdLineStyleSingle

    .InsideLineWidth = wdLineWidth150pt

End With


Propiedad LineStyle

Devuelve o establece el estilo de la línea del borde para el objeto especificado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdLineStyle:

wdLineStyleNone wdLineStyleSingle wdLineStyleDot wdLineStyleDashSmallGap wdLineStyleDashLargeGap wdLineStyleDashDot wdLineStyleDashDotDot wdLineStyleDouble wdLineStyleTriple wdLineStyleThinThickSmallGap wdLineStyleThickThinSmallGap wdLineStyleThinThickThinSmallGap	wdLineStyleThinThickMedGap wdLineStyleThickThinMedGap wdLineStyleThinThickThinMedGap wdLineStyleThinThickLargeGap wdLineStyleThickThinLargeGap wdLineStyleThinThickThinLargeGap wdLineStyleSingleWavy wdLineStyleDoubleWavy wdLineStyleDashDotStroked wdLineStyleEmboss3D wdLineStyleEngrave3D
Comentarios

Si se establece la propiedad LineStyle para un intervalo que haga referencia a caracteres o palabras individuales, se aplica un borde de carácter.

Si se establece la propiedad LineStyle para un párrafo o intervalo de párrafos, se aplica un borde de párrafo. Utilice la propiedad InsideLineStyle para aplicar un borde entre párrafos consecutivos.

Si se establece la propiedad LineStyle para una sección, se aplica un borde de página alrededor de las páginas de la sección.


Ejemplo de la propiedad LineStyle

Si la selección es un párrafo o una selección contraída, este ejemplo agrega un solo borde de párrafo de 0,75 puntos sobre la selección. Si la selección no incluye ningún párrafo, se aplica un borde alrededor del texto seleccionado.

With Selection.Borders(wdBorderTop)

    .LineStyle = wdLineStyleSingle

    .LineWidth = wdLineWidth075pt

End With

Este ejemplo agrega un borde doble de 1,5 puntos debajo de cada marco del documento activo.

For Each aFrame In ActiveDocument.Frames

    With aFrame.Borders(wdBorderBottom)

        .LineStyle = wdLineStyleDouble

        .LineWidth = wdLineWidth150pt

    End With

Next aFrame

El ejemplo siguiente aplica un borde alrededor de la cuarta palabra del documento activo. Si se aplica un solo borde al texto, en este ejemplo un borde superior, se aplica un borde alrededor del texto.

ActiveDocument.Words(4).Borders(wdBorderTop).LineStyle = wdLineStyleSingle


Propiedad OutsideLineStyle

Devuelve o establece el borde exterior del objeto especificado. Devuelve el valor wdUndefined si se aplican varios tipos de bordes al objeto especificado; de lo contrario, devuelve el valor False o una constante WdLineStyle. Su valor puede establecerse como True o False, o bien como una constante WdLineStyle. Long de Lectura/Escritura.

Comentarios

True: establece el estilo de línea con el estilo de línea predeterminado y el ancho de línea con el ancho de línea predeterminado. El estilo y el ancho de línea predeterminados pueden establecerse con las propiedades DefaultBorderLineWidth y DefaultBorderLineStyle.

Utilice una de las siguientes instrucciones para quitar el borde exterior de la primera tabla del documento activo.

ActiveDocument.Tables(1).Borders.OutsideLineStyle = wdLineStyleNone

ActiveDocument.Tables(1).Borders.OutsideLineStyle = False


Ejemplo de la propiedad OutsideLineStyle

Este ejemplo agrega un borde doble de 0,75 puntos alrededor del primer párrafo del documento activo.

With ActiveDocument.Paragraphs(1).Borders

    .OutsideLineStyle = wdLineStyleDouble

    .OutsideLineWidth = wdLineWidth075pt

End With

Este ejemplo agrega un borde alrededor de la primera tabla del documento activo.

If ActiveDocument.Tables.Count >= 1 Then

    Set miTabla = ActiveDocument.Tables(1)

    miTabla.Borders.OutsideLineStyle = wdLineStyleSingle

End If


Propiedad Shading

Devuelve un objeto Shading que hace referencia al formato de sombreado del objeto especificado. Es de sólo lectura.


Ejemplo de la propiedad Shading

Este ejemplo aplica un sombreado amarillo al primer párrafo de la selección.

With Selection.Paragraphs(1).Shading

    .Texture = wdTexture12Pt5Percent

    .BackgroundPatternColorIndex = wdYellow

    .ForegroundPatternColorIndex = wdBlack

End With

Este ejemplo aplica una textura de línea horizontal a la primera fila de la tabla uno.

If ActiveDocument.Tables.Count >= 1 Then

    With ActiveDocument.Tables(1).Rows(1).Shading

        .Texture = wdTextureHorizontal

    End With

End If

Este ejemplo aplica un sombreado del 10 por ciento a la primera palabra del documento activo.

ActiveDocument.Words(1).Shading.Texture = wdTexture10Percent


Propiedad Texture

Devuelve o establece la textura de sombreado del objeto especificado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdTextureIndex:

wdTextureAuto wdTextureSolid wdTexture2Pt5Percent wdTexture5Percent wdTexture7Pt5Percent wdTexture10Percent wdTexture12Pt5Percent wdTexture15Percent wdTexture17Pt5Percent wdTexture20Percent wdTexture22Pt5Percent wdTexture25Percent wdTexture27Pt5Percent wdTexture30Percent wdTexture32Pt5Percent wdTexture35Percent wdTexture37Pt5Percent wdTexture40Percent wdTexture42Pt5Percent wdTexture45Percent wdTexture47Pt5Percent wdTexture50Percent wdTexture52Pt5Percent wdTexture55Percent wdTexture57Pt5Percent wdTexture60Percent wdTexture62Pt5Percent	wdTexture65Percent wdTexture67Pt5Percent wdTexture70Percent wdTexture72Pt5Percent wdTexture75Percent wdTexture77Pt5Percent wdTexture80Percent wdTexture82Pt5Percent wdTexture85Percent wdTexture87Pt5Percent wdTexture90Percent wdTexture92Pt5Percent wdTexture95Percent wdTexture97Pt5Percent wdTextureDarkHorizontal wdTextureDarkVertical wdTextureDarkCross wdTextureDarkDiagonalCross wdTextureDarkDiagonalDown wdTextureDarkDiagonalUp wdTextureHorizontal wdTextureVertical wdTextureCross wdTextureDiagonalCross wdTextureDiagonalDown wdTextureDiagonalUp wdTextureNone wdTextureSolid
wdTextureAuto wdTextureSolid wdTexture5PctGray wdTexture10PctGray wdTexture20PctGray wdTexture25PctGray wdTexture30PctGray wdTexture40PctGray wdTexture50PctGray wdTexture60PctGray wdTexture70PctGray wdTexture75PctGray wdTexture80PctGray	wdTexture90PctGray wdTextureDkHorizontal wdTextureDkVertical wdTextureDkFwdDiagonal wdTextureDkBkwdDiagonal wdTextureDkCross wdTextureDkDiagonalCross wdTextureH  wdTextureFwdDiagonal wdTextureBkwdDiagonal orizontal wdTextureVertical wdTextureFwdDiagonal wdTextureBkwdDiagonal wdTextureCross wdTextureDiagonalCross


Ejemplo de la propiedad Texture

Este ejemplo establece un intervalo que hace referencia al primer párrafo del documento activo y, a continuación, aplica una textura de cuadrícula a dicho intervalo.

Set miIntervalo = ActiveDocument.Paragraphs(1).Range

miIntervalo.Shading.Texture = wdTextureCross

Este ejemplo agrega una tabla en el punto de inserción y, a continuación, aplica una textura de línea vertical a la primera fila de la tabla.

Selection.Collapse Direction:=wdCollapseStart

Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    NumRows:=2, NumColumns:=2)

miTabla.Rows(1).Shading.Texture = wdTextureVertical

Este ejemplo aplica un sombreado del 10 por ciento a la primera palabra del documento activo.

ActiveDocument.Words(1).Shading.Texture = wdTexture10Percent


Propiedad DefaultBorderLineWidth

Devuelve o establece el ancho de línea predeterminado de los bordes. Puede ser una de las siguientes constantes WdLineWidth: wdLineWidth025pt, wdLineWidth050pt, wdLineWidth075pt, wdLineWidth100pt, wdLineWidth150pt, wdLineWidth225pt, wdLineWidth300pt, wdLineWidth450pt o wdLineWidth600pt. Long de Lectura/Escritura.

Nota:   si la propiedad Enable del objeto Borders se establece como True, se usarán el ancho y el estilo de línea predeterminados de los bordes.


Ejemplo de la propiedad DefaultBorderLineWidth

Este ejemplo cambia el ancho de línea predeterminado de los bordes y, a continuación, agrega un borde alrededor de cada párrafo de la selección.

Opciones.DefaultBorderLineWidth = wdLineWidth050pt

Selection.Borders.Enable = True


Propiedad Inside

True: si puede aplicarse un borde interior al objeto especificado. Boolean de sólo lectura.


Ejemplo de la propiedad Inside

Este ejemplo aplica un solo borde interior si la selección actual admite bordes interiores; es decir, si se han seleccionado varios párrafos o celdas.

For Each aBorder In Selection.Borders

    If aBorder.Inside = True Then aBorder.LineStyle = wdLineStyleSingle

Next aBorder


Propiedad InsideLineWidth

Devuelve o establece el ancho de línea del borde interior de un objeto. Devuelve el valor wdUndefined si el objeto tiene bordes interiores con varios anchos de línea; de lo contrario, devuelve el valor False o una constante WdLineWidth. Su valor puede establecerse como True o False, o bien como una de las siguientes constantes WdLineWidth: wdLineWidth025pt, wdLineWidth050pt, wdLineWidth075pt, wdLineWidth100pt, wdLineWidth150pt, wdLineWidth225pt, wdLineWidth300pt, wdLineWidth450pt o wdLineWidth600pt. Long de Lectura/Escritura.


Ejemplo de la propiedad InsideLineWidth

Este ejemplo agrega bordes entre las filas y las columnas de la primera tabla del documento activo.

If ActiveDocument.Tables.Count >= 1 Then

    Set miTabla = ActiveDocument.Tables(1)

    miTabla.Borders.InsideLineStyle = wdLineStyleDot

    miTabla.Borders.InsideLineWidth = wdLineWidth050pt

End If

Este ejemplo agrega bordes punteados entre los cuatro primeros párrafos del documento activo.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Paragraphs(1).Range.Start, _

    End:=miDoc.Paragraphs(4).Range.End)

miIntervalo.Borders.InsideLineStyle = wdLineStyleDot

miIntervalo.Borders.InsideLineWidth = wdLineWidth075pt


Propiedad OutsideLineWidth

Devuelve o establece el ancho de línea del borde exterior de un objeto. Devuelve el valor wdUndefined si el objeto tiene bordes exteriores con varios anchos de línea; de lo contrario, devuelve el valor False o una constante WdLineWidth. Su valor puede establecerse como True o False, o bien como una de las siguientes constantes WdLineWidth: wdLineWidth025pt, wdLineWidth050pt, wdLineWidth075pt, wdLineWidth100pt, wdLineWidth150pt, wdLineWidth225pt, wdLineWidth300pt, wdLineWidth450pt o wdLineWidth600pt. Long de Lectura/Escritura.


Ejemplo de la propiedad OutsideLineWidth

Este ejemplo agrega un borde ondulado alrededor de la primera tabla del documento activo.

If ActiveDocument.Tables.Count >= 1 Then

    With ActiveDocument.Tables(1).Borders

        .OutsideLineStyle = wdLineStyleSingleWavy

        .OutSideLineWidth = wdLineWidth050pt

    End With

End If

Este ejemplo agrega bordes punteados alrededor de los cuatro primeros párrafos del documento activo.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Paragraphs(1).Range.Start, _

    End:=miDoc.Paragraphs(4).Range.End)

miIntervalo.Borders.OutsideLineStyle = wdLineStyleDot

miIntervalo.Borders.OutsideLineWidth = wdLineWidth075pt


Método Enable

Da formato de letra capital al primer carácter del párrafo especificado.

Sintaxis

expresión.Enable

expresión   Requerida. Expresión que devuelve un objeto DropCap.


Ejemplo del método Enable

En este ejemplo se da formato al primer párrafo de la selección para que comience con una letra capital.

With Selection.Paragraphs(1).DropCap

    .Enable

    .LinesToDrop = 2

    .FontName = "Arial"

End With


Propiedad LineWidth

Devuelve o define el ancho de línea del borde de un objeto. Devuelve una constante WdLineWidth o wdUndefined, si el objeto no tiene bordes o tiene bordes con más de un ancho de línea. Puede definirse como True, False o como una de las siguientes constantes WdLineWidth: wdLineWidth025pt, wdLineWidth050pt, wdLineWidth075pt, wdLineWidth100pt, wdLineWidth150pt, wdLineWidth225pt, wdLineWidth300pt, wdLineWidth450pt o wdLineWidth600pt. Long de Lectura/Escritura.

Nota   Si el ancho de línea especificado no está disponible para el estilo de línea del borde, esta propiedad genera un error. Para determinar los anchos de línea disponibles con un estilo de línea en concreto, consulte el cuadro de diálogo Bordes y sombreado (menú Formato).


Ejemplo de la propiedad LineWidth

En este ejemplo se agregan bordes debajo de la primera fila de la tabla uno del documento activo.

If ActiveDocument.Tables.Count >= 1 Then

    With ActiveDocument.Tables(1).Rows(1).Borders(wdBorderBottom)

        .LineStyle = wdLineStyleSingle

        .LineWidth = wdLineWidth050pt

    End With

End If

En este ejemplo se agrega un línea ondulada, roja a la izquierda de la selección.

With Selection.Borders(wdBorderLeft)

    .LineStyle = wdLineStyleSingleWavy

    .LineWidth = wdLineWidth075pt

    .ColorIndex = wdRed

End With


Propiedad Borders

Devuelve un conjunto Borders que representa todos los bordes del objeto especificado. Lectura/Escritura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Borders

En este ejemplo se aplican bordes internos y externos a la primera tabla del documento activo.

Set miTabla = ActiveDocument.Tables(1)

With miTabla.Borders

    .InsideLineStyle = wdLineStyleSingle

    .OutsideLineStyle = wdLineStyleDouble

End With

En este ejemplo se aplica un borde alrededor del primer carácter de la selección. Si no se selecciona nada, el borde se aplica al primer carácter que hay después del punto de inserción.

Selection.Characters(1).Borders.Enable = True

En este ejemplo se aplica un borde inferior a todos los párrafos centrados del documento activo.

For Each para In ActiveDocument.Paragraphs

    If para.Alignment = wdAlignParagraphCenter Then

        para.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle

        para.Borders(wdBorderBottom).LineWidth = wdLineWidth300pt

    End If

Next para

En este ejemplo se agrega un borde alrededor de todas las páginas de la sección actual.

For Each unBorde In Selection.Sections(1).Borders

    unBorde.ArtStyle = wdArtBasicBlackDots

    unBorde.ArtWidth = 6

Next unBorde


Propiedad AlwaysInFront

True si los bordes de la página se muestran delante del texto del documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AlwaysInFront

En este ejemplo, se agrega un borde de página gráfico delante del texto de la primera sección del documento activo.

With ActiveDocument.Sections(1)

    .Borders.AlwaysInFront = True

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtPeople

        unBorde.ArtWidth = 15

    Next unBorde

End With


Método ApplyPageBordersToAllSections

Aplica el formato de borde de página especificado a todas las secciones de un documento.

Sintaxis

expresión.ApplyPageBordersToAllSections

expresión   Requerida. Expresión que devuelve un objeto Borders.


Ejemplo del método ApplyPageBordersToAllSections

En este ejemplo se agrega un borde de página de una línea a todas las secciones del documento activo.

With ActiveDocument.Sections(1)

    For Each unBorde In .Borders

        unBorde.LineStyle = wdLineStyleSingle

        unBorde.LineWidth = wdLineWidth050pt

    Next unBorde

    .Borders.ApplyPageBordersToAllSections

End With


Propiedad ArtStyle

Devuelve o establece el diseño de borde de página gráfico de un documento. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdPageBorderArt:

wdArtApples wdArtArchedScallops wdArtBabyPacifier wdArtBabyRattle wdArtBalloons3Colors wdArtBalloonsHotAir wdArtBasicBlackDashes wdArtBasicBlackDots wdArtBasicBlackSquares wdArtBasicThinLines wdArtBasicWhiteDashes wdArtBasicWhiteDots wdArtBasicWhiteSquares wdArtBasicWideInline wdArtBasicWideMidline wdArtBasicWideOutline wdArtBats wdArtBirds wdArtBirdsFlight wdArtCabins wdArtCakeSlice wdArtCandyCorn wdArtCelticKnotwork wdArtCertificateBanner wdArtChainLink wdArtChampagneBottle wdArtCheckedBarBlack wdArtCheckedBarColor wdArtCheckered wdArtChristmasTree wdArtCirclesLines wdArtCirclesRectangles wdArtClassicalWave wdArtClocks wdArtCompass wdArtConfetti wdArtConfettiGrays wdArtConfettiOutline wdArtConfettiStreamers wdArtConfettiWhite wdArtCornerTriangles wdArtCouponCutoutDashes wdArtCouponCutoutDots wdArtCrazyMaze wdArtCreaturesButterfly wdArtCreaturesFish wdArtCreaturesInsects wdArtCreaturesLadyBug wdArtCrossStitch wdArtCup wdArtDecoArch wdArtDecoArchColor wdArtDecoBlocks wdArtDiamondsGray wdArtDoubleD wdArtDoubleDiamonds wdArtEarth1 wdArtEarth2 wdArtEclipsingSquares1 wdArtEclipsingSquares2 wdArtEggsBlack wdArtFans wdArtFilm wdArtFirecrackers wdArtFlowersBlockPrint wdArtFlowersDaisies wdArtFlowersModern1 wdArtFlowersModern2 wdArtFlowersPansy wdArtFlowersRedRose wdArtFlowersRoses wdArtFlowersTeacup wdArtFlowersTiny wdArtGems wdArtGingerbreadMan wdArtGradient wdArtHandmade1 wdArtHandmade2 wdArtHeartBalloon wdArtHeartGray wdArtHearts wdArtHeebieJeebies	wdArtHolly wdArtHouseFunky wdArtHypnotic wdArtIceCreamCones wdArtLightBulb wdArtLightning1 wdArtLightning2 wdArtMapleLeaf wdArtMapleMuffins wdArtMapPins wdArtMarquee wdArtMarqueeToothed wdArtMoons wdArtMosaic wdArtMusicNotes wdArtNorthwest wdArtOvals wdArtPackages wdArtPalmsBlack wdArtPalmsColor wdArtPaperClips wdArtPapyrus wdArtPartyFavor wdArtPartyGlass wdArtPencils wdArtPeople wdArtPeopleHats wdArtPeopleWaving wdArtPoinsettias wdArtPostageStamp wdArtPumpkin1 wdArtPushPinNote1 wdArtPushPinNote2 wdArtPyramids wdArtPyramidsAbove wdArtQuadrants wdArtRings wdArtSafari wdArtSawtooth wdArtSawtoothGray wdArtScaredCat wdArtSeattle wdArtShadowedSquares wdArtSharksTeeth wdArtShorebirdTracks wdArtSkyrocket wdArtSnowflakeFancy wdArtSnowflakes wdArtSombrero wdArtSouthwest wdArtStars wdArtStars3D wdArtStarsBlack wdArtStarsShadowed wdArtStarsTop wdArtSun wdArtSwirligig wdArtTornPaper wdArtTornPaperBlack wdArtTrees wdArtTriangleParty wdArtTriangles wdArtTribal1 wdArtTribal2 wdArtTribal3 wdArtTribal4 wdArtTribal5 wdArtTribal6 wdArtTwistedLines1 wdArtTwistedLines2 wdArtVine wdArtWaveline wdArtWeavingAngles wdArtWeavingBraid wdArtWeavingRibbon wdArtWeavingStrips wdArtWhiteFlowers wdArtWoodwork wdArtXIllusions wdArtZanyTriangles wdArtZigZag wdArtZigZagStitch


Ejemplo de la propiedad ArtStyle

En este ejemplo se agrega un borde de puntos negros alrededor de cada una de las páginas de la primera sección de la selección.

For Each unBorde In Selection.Sections(1).Borders

    unBorde.ArtStyle = wdArtBasicBlackDots

    unBorde.ArtWidth = 6

Next unBorde

En este ejemplo se agrega un borde de imagen alrededor de cada una de las páginas de la sección uno del documento activo.

With ActiveDocument.Sections(1)

    .Borders.AlwaysInFront = True

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtPeople

        unBorde.ArtWidth = 15

    Next unBorde

End With


Propiedad ArtWidth

Devuelve o establece el ancho, en puntos, del borde de página gráfico especificado. Long de Lectura/Escritura.


Ejemplo de la propiedad ArtWidth

En este ejemplo se agrega un borde negro punteado de 6 puntos alrededor de cada una de las páginas de la primera sección de la selección.

For Each unBorde In Selection.Sections(1).Borders

    unBorde.ArtStyle = wdArtBasicBlackDots

    unBorde.ArtWidth = 6

Next unBorde


Propiedad DistanceFrom

Devuelve o establece un valor que indica si el borde de página especificado se mide desde el borde de la página o desde el texto que rodea. Puede ser una de las siguientes constantes WdBorderDistanceFrom: wdBorderDistanceFromPageEdge o wdBorderDistanceFromText. Long de Lectura/Escritura.


Ejemplo de la propiedad DistanceFrom

En este ejemplo se agrega un borde alrededor de cada una de las páginas de la sección uno del documento activo y, a continuación, se establece la distancia entre cada borde y el borde correspondiente de la página.

With ActiveDocument.Sections(1)

    For Each unBorde In .Borders

        unBorde.LineStyle = wdLineStyleSingle

        unBorde.LineWidth = wdLineWidth050pt

    Next unBorde

    With .Borders

        .DistanceFrom = wdBorderDistanceFromPageEdge

        .DistanceFromTop = 20

        .DistanceFromLeft = 22

        .DistanceFromBottom = 20

        .DistanceFromRight = 22

    End With

End With

En este ejemplo se agrega un borde alrededor de cada una de las páginas de la primera sección de la selección y, a continuación, se establece la distancia entre el texto y el borde de la página en 6 puntos.

With Selection.Sections(1)

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtSeattle

        unBorde.ArtWidth = 22

    Next unBorde

    With .Borders

        .DistanceFrom = wdBorderDistanceFromText

        .DistanceFromTop = 6

        .DistanceFromLeft = 6

        .DistanceFromBottom = 6

        .DistanceFromRight = 6

    End With

End With


Propiedad EnableFirstPageInSection

True: si los bordes de página están habilitados para la primera página de la sección. Boolean de Lectura/Escritura.


Ejemplo de la propiedad EnableFirstPageInSection

En este ejemplo se agrega un borde alrededor de la primera página de la primera sección de la selección.

With Selection.Sections(1)

    .Borders.EnableFirstPageInSection = True

    .Borders.EnableOtherPagesInSection = False

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtPeople

        unBorde.ArtWidth = 15

    Next unBorde

End With


Propiedad EnableOtherPagesInSection

True: si los bordes de página están habilitados para todas las páginas de la sección excepto la primera. Boolean de Lectura/Escritura.


Ejemplo de la propiedad EnableOtherPagesInSection

En este ejemplo se agrega un borde alrededor de cada una de las páginas de la primera sección de la selección excepto la primera página.

With Selection.Sections(1)

    .Borders.EnableFirstPageInSection = False

    .Borders.EnableOtherPagesInSection = True

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtBabyRattle

        unBorde.ArtWidth = 22

    Next unBorde

End With


Propiedad HasHorizontal

True si puede aplicarse un borde horizontal al objeto. Boolean de sólo lectura.

Comentarios

Los bordes horizontales pueden aplicarse a rangos de celdas de dos o más filas en una tabla o a intervalos de texto de dos o más párrafos.


Ejemplo de la propiedad HasHorizontal

En este ejemplo se aplican bordes horizontales de una línea, si la selección admite este tipo de borde.

If Selection.Borders.HasHorizontal = True Then

    Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle

End If


Propiedad HasVertical

True si puede aplicarse un borde vertical al objeto especificado. Boolean de sólo lectura.

Comentarios

Los bordes verticales pueden aplicarse a rangos de celdas de dos o más filas en una tabla.


Ejemplo de la propiedad HasVertical

Si la selección admite bordes verticales, en este ejemplo se aplica un borde de estas características.

If Selection.Borders.HasVertical = True Then

    Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleSingle

End If


Propiedad JoinBorders

True si los bordes verticales de los párrafos y tablas se eliminan de forma que los bordes horizontales puedan unirse al borde de la página. Boolean de Lectura/Escritura.


Ejemplo de la propiedad JoinBorders

En este ejemplo se agrega un borde alrededor de cada una de las páginas de la primera sección de la selección. También se eliminan los bordes horizontales de tablas y párrafos, haciendo coincidir los bordes horizontales con el borde de la página.

With Selection.Sections(1)

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtBalloonsHotAir

        unBorde.ArtWidth = 15

    Next unBorde

    With .Borders

        .DistanceFromLeft = 2

        .DistanceFromRight = 2

        .DistanceFrom = wdBorderDistanceFromText

        .JoinBorders = True

    End With

End With


Propiedad SurroundFooter

True si el borde de la página incluye el pie de página del documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SurroundFooter

En este ejemplo se da formato al borde de la página de la sección uno del documento activo de manera que incluya el encabezado y el pie de página de todas las páginas de la sección.

With ActiveDocument.Sections(1).Borders

    .SurroundFooter = True

    .SurroundHeader = True

End With

En este ejemplo se agrega un borde de página gráfico alrededor de cada una de las páginas de la sección uno. El borde de página no incluye las áreas del encabezado y del pie de página.

With ActiveDocument.Sections(1)

    .Borders.SurroundFooter = False

    .Borders.SurroundHeader = False

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtPeople

        unBorde.ArtWidth = 15

    Next unBorde

End With


Propiedad SurroundHeader

True si el borde de la página incluye el encabezado del documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SurroundHeader

En este ejemplo se da formato al borde de página de la sección uno del documento activo de manera que no se incluyan las áreas del encabezado y pie de página en ninguna página.

With ActiveDocument.Sections(1).Borders

    .SurroundFooter = False

    .SurroundHeader = False

End With


Propiedad DistanceFromRight

Devuelve o establece el espacio, en puntos, entre el borde derecho del texto y el borde derecho. Long de Lectura/Escritura.

Nota   Si se aplica esta propiedad a un borde de página, puede establecerse el espacio entre el texto y el borde derecho o el espacio entre el borde derecho de la página y el borde derecho. El lugar desde donde se mide la distancia depende del valor de la propiedad DistanceFrom.


Ejemplo de la propiedad DistanceFromRight

En este ejemplo se agrega un borde alrededor de cada párrafo de la selección y se establece la distancia entre el texto y el borde derecho en 3 puntos.

With Selection.Paragraphs.Borders

    .Enable = True

    .DistanceFromRight = 3

End With

En este ejemplo se agrega un borde alrededor de cada una de las páginas de la sección uno del documento activo. También se establece la distancia entre el borde derecho e izquierdo y los bordes correspondientes de la página en 22 puntos.

With ActiveDocument.Sections(1)

    For Each unBorde In .Borders

        unBorde.LineStyle = wdLineStyleSingle

        unBorde.LineWidth = wdLineWidth050pt

    Next unBorde

    With .Borders

        .DistanceFrom = wdBorderDistanceFromPageEdge

        .DistanceFromLeft = 22

        .DistanceFromRight = 22

    End With

End With


Propiedad DistanceFromBottom

Devuelve o establece el espacio, en puntos, entre el texto y el borde inferior. Long de Lectura/Escritura.

Nota   Si se aplica esta propiedad a un borde de página, puede establecerse el espacio entre el texto y el borde de página inferior o el espacio entre el borde inferior de la página y el borde de página inferior. El lugar desde donde se mide la distancia depende del valor de la propiedad DistanceFrom.


Ejemplo de la propiedad DistanceFromBottom

En este ejemplo se agrega un borde alrededor del primer párrafo del documento activo y se establece la distancia entre el texto y el borde inferior en 6 puntos.

With ActiveDocument.Paragraphs(1).Borders

    .Enable = True

    .DistanceFromBottom = 6

End With

En este ejemplo se agrega un borde alrededor de todas las tablas de Ventas.doc. También se establece la distancia entre el texto y el borde en 3 puntos para los bordes superior e inferior y en 6 puntos para los bordes derecho e izquierdo.

For Each miTabla In Documents("Ventas.doc").Tables

    With miTabla.Borders

        .OutsideLineStyle = wdLineStyleSingle

        .OutsideLineWidth = wdLineWidth150pt

        .DistanceFromBottom = 3

        .DistanceFromTop = 3

        .DistanceFromLeft = 6

        .DistanceFromRight = 6

    End With

Next miTabla


Propiedad DistanceFromLeft

Devuelve o establece el espacio, en puntos, entre el texto y el borde izquierdo. Long de Lectura/Escritura.

Nota   Si se aplica esta propiedad a un borde de página, puede establecerse el espacio entre el texto y el borde de página izquierdo o el espacio entre el borde izquierdo de la página y el borde de página izquierdo. El lugar desde donde se mide la distancia depende del valor de la propiedad DistanceFrom.


Ejemplo de la propiedad DistanceFromLeft

En este ejemplo se agrega un borde alrededor de cada marco del documento activo y se establece la distancia entre el marco y el borde en 5 puntos.

For Each unMarco In ActiveDocument.Frames

    With unMarco.Borders

        .Enable = True

        .DistanceFromLeft = 5

        .DistanceFromRight = 5

        .DistanceFromTop = 5

        .DistanceFromBottom = 5

    End With

Next unMarco

En este ejemplo se agrega un borde alrededor del primer párrafo del documento activo y se establece la distancia entre el texto y el borde izquierdo en 3 puntos.

With ActiveDocument.Paragraphs(1).Borders

    .Enable = True

    .DistanceFromLeft = 3

End With


Propiedad DistanceFromTop

Devuelve o establece el espacio, en puntos, entre el texto y el borde superior. Long de Lectura/Escritura.

Nota   Si se aplica esta propiedad a un borde de página, puede establecerse el espacio entre el texto y el borde de página superior o el espacio entre el borde superior de la página y el borde de página superior. El lugar desde donde se mide la distancia depende del valor de la propiedad DistanceFrom.


Ejemplo de la propiedad DistanceFromTop

En este ejemplo se agrega un borde alrededor de cada párrafo de la selección y se establece la distancia entre el texto y el borde superior en 3 puntos.

With Selection.Borders

    .Enable = True

    .DistanceFromTop = 3

End With

En este ejemplo se agrega un borde alrededor de cada una de las páginas de la primera sección de la selección. También se establece la distancia entre el texto y el borde de página en 6 puntos.

With Selection.Sections(1)

    For Each unBorde In .Borders

        unBorde.ArtStyle = wdArtSeattle

        unBorde.ArtWidth = 22

    Next unBorde

    With .Borders

        .DistanceFrom = wdBorderDistanceFromText

        .DistanceFromTop = 6

        .DistanceFromLeft = 6

        .DistanceFromBottom = 6

        .DistanceFromRight = 6

    End With

End With


Método AcceptAllRevisions

Acepta todos los cambios del documento especificado.

Sintaxis

expresión.AcceptAllRevisions

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método AcceptAllRevisions

En este ejemplo se comprueba si en la versión principal del documento activo existen cambios y, si es así, se incorporan las revisiones de todas las versiones del documento.

If ActiveDocument.Revisions.Count >= 1 Then _

    ActiveDocument.AcceptAllRevisions


Método RejectAllRevisions

Rechaza todos los cambios del documento especificado.

Sintaxis

expresión.RejectAllRevisions

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método RejectAllRevisions

En este ejemplo se comprueba si en la versión principal del documento activo existen cambios y, si es así, se rechazan las revisiones de todas las versiones del documento.

If ActiveDocument.Revisions.Count >= 1 Then ActiveDocument.RejectAllRevisions


Propiedad ShowRevisions

True si los cambios realizados en el documento especificado se muestran en pantalla. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowRevisions

En este ejemplo se establece el documento activo de manera que se haga un seguimiento de los cambios y se muestren en pantalla.

With ActiveDocument

    .TrackRevisions = True

    .ShowRevisions = True

End With


Propiedad TrackRevisions

True si se hace un seguimiento de los cambios en el documento especificado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad TrackRevisions

En este ejemplo se establece el documento activo de manera que se haga un seguimiento de los cambios y se muestren en pantalla.

With ActiveDocument

    .TrackRevisions = True

    .ShowRevisions = True

End With


Propiedad CanOpen

True si el convertidor de archivos especificado se ha diseñado para abrir archivos. Boolean de sólo lectura.

Nota   La propiedad CanSave devuelve True si el convertidor de archivos especificado puede usarse para guardar; es decir, exportar, archivos.


Ejemplo de la propiedad CanOpen

En este ejemplo, se determina si el primer convertidor de archivos puede abrir archivos.

If FileConverters(1).CanOpen = True Then

    MsgBox FileConverters(1).FormatName & " puede abrir archivos"

End If

En este ejemplo, se determina si se puede utilizar el convertidor de archivos de WordPerfect 6.x para abrir archivos. Si la propiedad CanOpen devuelve el valor True, se abre un documento denominado "Prueba.wp".

If FileConverters("WordPerfect 6.x").CanOpen = True Then

    Documents.Open FileName:="C:\Prueba.wp", Format:=FileConverters("WordPerfect 6.x").OpenFormat

End If


Propiedad CanSave

True si el convertidor de archivos especificado está diseñado para guardar archivos. Boolean de sólo lectura.

Nota   La propiedad CanOpen devuelve el valor True si el convertidor de archivos especificado puede usarse para abrir; es decir, importar, archivos.


Ejemplo de la propiedad CanSave

En este ejemplo, se determina si se puede utilizar el convertidor de WordPerfect para guardar archivos. Si el valor que se devuelve es True, el documento activo se guarda con formato WordPerfect 6.x.

If Application.FileConverters("WordPerfect6.x").CanSave = True Then

    num = Application.FileConverters("WordPerfect6.x").SaveFormat

    ActiveDocument.SaveAs FileName:="C:\Documento.wp", FileFormat:=num

End If

En este ejemplo, se muestra un mensaje que indica si el tercer convertidor del conjunto FileConverters puede guardar archivos.

If FileConverters(3).CanSave = True Then

    MsgBox FileConverters(3).FormatName & " puede guardar archivos"

Else

    MsgBox FileConverters(3).FormatName & " no puede guardar archivos"

End If


Propiedad ConvertMacWordChevrons

Controla si el texto entre comillas angulares (« ») se convierte en campos de combinación. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdChevronConvertRule:

Constante	Descripción
wdAlwaysConvert	El convertidor intenta convertir el texto entre comillas angulares (« ») en campos de combinación de correspondencia.
wdNeverConvert	El convertidor pasa por el texto sin intentar interpretarlo.
wdAskToConvert, wdAskToNotConvert	El convertidor pide al usuario que convierta o no comillas angulares cuando se abre un documento Word para Macintosh.
Comentarios

Los documentos Word para Macintosh versión 4.0 y 5.x usan comillas angulares para indicar los campos de combinación de correspondencia.


Ejemplo de la propiedad ConvertMacWordChevrons

En este ejemplo, se establece la propiedad ConvertMacWordChevrons para que convierta el texto entre comillas angulares a campos de combinación de correspondencia y, a continuación, se abre el documento denominado "Documento Mac Word".

FileConverters.ConvertMacWordChevrons = wdAlwaysConvert

Documents.Open FileName:="C:\Documentos\Documento Mac Word "


Propiedad FileConverters

Devuelve un conjunto FileConverters que representa todos los convertidores de archivo disponibles para Word. Es de sólo lectura.

Para obtener más información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad FileConverters

En este ejemplo, se muestra la ruta de acceso del convertidor de archivos de WordPerfect 5.0.

MsgBox FileConverters("WrdPrfctDOS50").Path

En este ejemplo, se muestra un mensaje que indica si el tercer convertidor del conjunto FileConverters puede guardar archivos.

If FileConverters(3).CanSave = True Then

    MsgBox FileConverters(3).FormatName & " puede guardar archivos"

Else

    MsgBox FileConverters(3).FormatName & " no puede guardar archivos"

End If

En este ejemplo, se muestra el nombre del último convertidor de archivos.

Set aConverter = FileConverters(FileConverters.Count)

MsgBox "Las extensiones de archivo de los archivos " & aConverter.FormatName & _

    " son: " & aConverter.Extensions


Propiedad FormatName

Devuelve el nombre del convertidor de archivos especificado. Los nombres de formato aparecen en el cuadro Guardar como tipo del cuadro de diálogo Guardar como (menú Archivo). String de sólo lectura.


Ejemplo de la propiedad FormatName

En este ejemplo, se muestra el nombre de formato del primer convertidor del conjunto FileConverters.

MsgBox FileConverters(1).FormatName

En este ejemplo, se usa la matriz ConvDisponibles() para guardar los nombres de todos los convertidores de archivos disponibles.

ReDim ConvDisponibles(FileConverters.Count - 1)

i = 0

For Each Convertidor In FileConverters

    ConvDisponibles(i) = Convertidor.FormatName

    i = i + 1

Next Convertidor


Método DDEExecute

Envía un comando o una serie de comandos a una aplicación por medio del canal de intercambio dinámico de datos (DDE, Dynamic Data Exchange) especificado.

Sintaxis

expresión.DDEExecute(Channel, Command)

expresión   Opcional. Expresión que devuelve un objeto Application.

Channel   Long requerido. El número de canal devuelto por el método DDEInitiate.

Command   String requerida. Un comando o una serie de comandos reconocidos por la aplicación receptora (el servidor DDE). Si la aplicación receptora no puede ejecutar el comando especificado, se produce un error.


Ejemplo del método DDEExecute

En este ejemplo se crea una nueva hoja de cálculo de Microsoft Excel. La instrucción de macro XLM para crear una nueva hoja de cálculo es New(1).

chan = DDEInitiate(App:="Excel", Topic:="System")

DDEExecute Channel:=chan, Command:="[Nuevo(1)]"

DDETerminate Channel:=chan

En este ejemplo se ejecuta la macro de Microsoft Excel denominada "Macro1" en Personal.xls.

aChan = DDEInitiate(App:="Excel", Topic:="System")

DDEExecute Channel:=aChan, Command:="[Run(" & Chr(34) & _

    "Personal.xls!Macro1" & Chr(34) & ")]"

DDETerminate Channel:=aChan


Método DDEInitiate

Abre un canal de intercambio dinámico de datos (DDE) para otra aplicación y devuelve el número de canal.

Sintaxis

expresión.DDEInitiate(App, Topic)

expresión   Opcional. Expresión que devuelve un objeto Application.

App   String requerida. El nombre de la aplicación.

Topic   String requerida. El nombre de un tema de DDE, por ejemplo el nombre de un documento abierto, que es reconocido por la aplicación para la que se está abriendo un canal.

Comentarios

Si el resultado es correcto, el método DDEInitiate devuelve el número del canal abierto. Todas las funciones DDE subsiguientes utilizan este número para especificar el canal.


Ejemplo del método DDEInitiate

En este ejemplo se inicia una conversación DDE con el tema System y se abre el libro Ventas.xls de Microsoft Excel. El ejemplo cierra el canal DDE, inicia un canal a Ventas.xls y, a continuación, inserta texto en la celda F1C1.

chan = DDEInitiate(App:="Excel", Topic:="System")

DDEExecute Channel:=chan, Command:="[OPEN(" & Chr(34) & "C:\Ventas.xls" & Chr(34) & ")]

DDETerminate Channel:=chan

chan = DDEInitiate(App:="Excel", Topic:="Ventas.xls")

DDEPoke Channel:=chan, Item:="F1C1", Data:="Ventas 1996"

DDETerminate Channel:=chan


Método DDEPoke

Usa un canal abierto de intercambio dinámico de datos (DDE) para el envío de datos a una aplicación.

Sintaxis

expresión.DDEPoke(Channel, Item, Data)

expresión   Opcional. Expresión que devuelve un objeto Application.

Channel   Long requerido. El número de canal devuelto por el método DDEInitiate.

Item   String requerida. El elemento, parte de un tema DDE, al que se van a enviar los datos especificados.

Data   String requerida. Los datos que se van a enviar a la aplicación receptora (el servidor DDE).

Comentarios

Si el método DDEPoke no alcanza su objetivo, se produce un error.


Ejemplo del método DDEPoke

En este ejemplo se abre le libro Ventas.xls de Microsoft Excel y se inserta "Ventas 1996" en la celda F1C1.

chan = DDEInitiate(App:="Excel", Topic:="System")

DDEExecute Channel:=chan, Command:="[OPEN(" & Chr(34) & "C:\Ventas.xls" & Chr(34) & ")]

DDETerminate Channel:=chan

chan = DDEInitiate(App:="Excel", Topic:="Ventas.xls")

DDEPoke Channel:=chan, Item:="F1C1", Data:="Ventas 1996"

DDETerminate Channel:=chan


Método DDERequest

Utiliza un canal abierto de intercambio dinámico de datos (DDE) para pedir información a la aplicación receptora y devuelve la información en forma de cadena.

Sintaxis

expresión.DDERequest(Channel, Item)

expresión   Opcional. Expresión que devuelve un objeto Application.

Channel   Long requerido. El número de canal devuelto por el método DDEInitiate.

Item   String requerida. El elemento que se va a solicitar.

Comentarios

Cuando se solicita información de un tema de la aplicación servidor, se debe especificar el elemento del tema cuyo contenido se solicita. En Microsoft Excel, por ejemplo, las celdas son elementos válidos y se hace referencia a ellas usando el formato "F1C1" o referencias con nombre.

Microsoft Excel y otras aplicaciones que admiten DDE reconocen un tema denominado "System". En la siguiente tabla se describen tres elementos estándar del tema System. Se puede obtener una lista de otros elementos del tema System haciendo uso del elemento SysItems.

Elemento del tema System	Efecto
SysItems	Devuelve una lista de todos los elementos del tema System.
Topics	Devuelve una lista de todos los temas disponibles.
Formats	Devuelve una lista de todos los formatos del Portapapeles admitidos por Word.


Ejemplo del método DDERequest

En este ejemplo se abre el libro Libro1.xls de Microsoft Excel y se recupera el contenido de la celda F1C1.

chan = DDEInitiate(App:="Excel", Topic:="System")

DDEExecute Channel:=chan, Command:="[OPEN(" & Chr(34) & "C:\Mis Documentos\Libro1.xls" & Chr(34) & ")]"

DDETerminate Channel:=chan

chan = DDEInitiate(App:="Excel", Topic:="Libro.xls")

MsgBox DDERequest(Channel:=chan, Item:="F1C1")

DDETerminateAll

En este ejemplo se abre un canal al tema System de Microsoft Excel y luego se utiliza el elemento Topics para devolver una lista de temas disponibles. En este ejemplo se inserta la lista de temas, que incluye todos los libros abiertos, después de la selección.

aChan = DDEInitiate(App:="Excel", Topic:="System")

topicList = DDERequest(Channel:=aChan, Item:="Topics")

Selection.InsertAfter topicList

DDETerminate Channel:=aChan


Método DDETerminate

Cierra el canal de intercambio dinámico de datos (DDE) a otra aplicación.

Sintaxis

expresión.DDETerminate(Channel)

expresión   Opcional. Expresión que devuelve un objeto Application.

Channel   Long requerido. El número de canal devuelto por el método DDEInitiate.


Ejemplo del método DDETerminate

En este ejemplo se crea un nuevo libro de Microsoft Excel y luego se da fin a la conversación DDE.

chan = DDEInitiate(App:="Excel", Topic:="System")

DDEExecute Channel:=chan, Command:="[Nuevo(1)]"

DDETerminate Channel:=chan


Método DDETerminateAll

Cierra todos los canales de intercambio dinámico de datos (DDE) que se abrieron mediante Word. Este método no cierra los canales abiertos a Word por aplicaciones cliente. El uso de este método produce el mismo efecto que usar el método DDETerminate para cada canal abierto.

Sintaxis

expresión.DDETerminateAll

expresión   Opcional. Expresión que devuelve un objeto Application.

Comentarios

Si interrumpe una macro que abre un canal DDE, puede dejarlo abierto sin darse cuenta. Los canales abiertos no se cierran automáticamente cuando finaliza una macro y cualquier canal que permanezca abierto consume recursos del sistema. Por esta razón, es aconsejable usar este método cuando se está depurando una macro que abra uno o más canales.


Ejemplo del método DDETerminateAll

En este ejemplo se abre el libro Libro1.xls de Microsoft Excel, se inserta texto en la celda F2C3, se guarda el libro y se cierran todos los canales DDE.

chan = DDEInitiate(App:="Excel", Topic:="System")

DDEExecute Channel:=chan, Command:="[OPEN(" & Chr(34) & _

    "C:\Mis Documentos\Libro1.xls" & Chr(34) & ")]"

DDETerminate Channel:=chan

chan = DDEInitiate(App:="Excel", Topic:="Libro1.xls")

DDEPoke Channel:=chan, Item:="F2C3", Data:="Saludos al mundo"

DDEExecute Channel:=chan, Command:="[Save]"

DDETerminateAll


Propiedad Kind

 object Document: Devuelve o establece el tipo de formato que Word utiliza cuando se da formato automáticamente al documento especificado. Puede ser una de las siguientes constantes WdDocumentKind: wdDocumentEmail, wdDocumentLetter o wdDocumentNotSpecified. Long de Lectura/Escritura.

Objeto Field: devuelve el tipo de vínculo de un objeto Field.Long de sólo lectura.

Puede ser una de las siguientes constantes WdFieldKind.

Constante	Descripción
wdFieldKindHot	Campo que se actualiza automáticamente cada vez que aparece o cada vez que se le vuelve a dar formato a la página, pero que también puede actualizarse manualmente; por ejemplo, INCLUIRIMAGEN o FORMLISTA.
wdFieldKindWarm	Campo que puede actualizarse y tiene un resultado. Este tipo incluye los campos que se actualicen automáticamente cuando cambie el origen, así como los campos que pueden actualizarse manualmente; por ejemplo, FECHA o INCLUIRTEXTO.
wdFieldKindNone	Campo no válido; por ejemplo, un par de caracteres de campo vacíos.
wdFieldKindCold	Campo de texto sin resultado; por ejemplo, campos EÍ (Entrada de índice), campos TC (elementos de Tabla de contenido) o campos Privados.


Ejemplo de la propiedad Kind

En este ejemplo se pregunta al usuario si el documento activo es un mensaje de correo electrónico. Si la respuesta es Sí, al documento se le da formato de mensaje de correo electrónico.

response = MsgBox("¿Es este documento un mensaje de correo electrónico?", vbYesNo)

If response = vbYes Then

    ActiveDocument.Kind = wdDocumentEmail

    ActiveDocument.Content.AutoFormat

End If

En este ejemplo se actualizan todos los campos de vínculos de aviso del documento activo.

For Each aField In ActiveDocument.Fields

    If aField.Kind = wdFieldKindWarm Then aField.Update

Next aField


Propiedad AutoHyphenation

True si se activa la división de palabras automática para el documento especificado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoHyphenation

En este ejemplo se activa la división de palabras automática con una zona de separación de 0,6 cm. Las palabras con todas las letras en mayúscula no se dividen.

With ActiveDocument

    .HyphenationZone = CentimetersToPoints(0.6)

    .HyphenateCaps = False

    .AutoHyphenation = True

End With


Propiedad Comments

Devuelve un conjunto Comments que representa todas los comentarios del documento, de la selección o del intervalo especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Comments

En este ejemplo se agrega un comentario al texto seleccionado.

ActiveWindow.View.ShowHiddenText = True

Selection.Comments.Add Range:=Selection.Range, Text:="Aprobado"

En este ejemplo se compara el nombre del autor de cada comentario del documento activo con el nombre del usuario de la ficha Información del usuario del cuadro de diálogo Opciones (menú Herramientas). Si los nombres no son los mismos, se le da formato a la marca de referencia de comentario para que aparezca en rojo.

For Each com In ActiveDocument.Comments

    If com.Author <> Application.UserName Then _

        com.Reference.Font.ColorIndex = wdRed

Next com


Método ComputeStatistics

Sintaxis 1: Devuelve una estadística basada en el contenido del documento especificado.

Sintaxis 2: Devuelve una estadística basada en el contenido del intervalo especificado.

Sintaxis 1

expresión.ComputeStatistics(Statistic, IncludeFootnotesAndEndnotes)

Sintaxis 2

expresión.ComputeStatistics(Statistic)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Document.

Sintaxis 2: Requerida. Expresión que devuelve un objeto Range.

Statistic   Long requerido. La estadística. Puede ser una de las siguientes constantes WdStatistic: wdStatisticCharacters, wdStatisticCharactersWithSpaces, wdStatisticLines, wdStatisticPages, wdStatisticParagraphs o wdStatisticWords.

IncludeFootnotesAndEndnotes   Variant opcional. True para incluir notas al pie y notas al final al hacer el cálculo de las estadísticas. Si se omite este argumento, el valor predeterminado es False.


Ejemplo del método ComputeStatistics

En este ejemplo se muestra el número de palabras y caracteres del primer párrafo de Informe.doc.

Set miIntervalo = Documents("Informe.doc").Paragraphs(1).Range

wordCount = miIntervalo.ComputeStatistics(Statistic:=wdStatisticWords)

charCount = miIntervalo.ComputeStatistics(Statistic:=wdStatisticCharacters)

MsgBox "El primer párrafo contiene " & wordCount _

    & " palabras y un total de " & charCount & " caracteres."

En este ejemplo, se muestra el número de palabras del documento activo, incluyendo las notas al pie.

MsgBox ActiveDocument.ComputeStatistics(Statistic:=wdStatisticWords, _

    IncludeFootnotesAndEndnotes:=True) & " palabras"


Método DataForm

Muestra el cuadro de diálogo Ficha de datos, en el que se puede agregar, borrar o modificar registros de datos.

Nota   Se puede usar este método con un documento principal u origen de datos de combinación de correspondencia o cualquier documento que contenga datos delimitados por celdas de tabla o caracteres separadores.

Sintaxis

expresión.DataForm

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método DataForm

En este ejemplo se muestra el cuadro de diálogo Ficha de datos si el documento activo es un documento de combinación de correspondencia.

If ActiveDocument.MailMerge.State <> wdNormalDocument Then

    ActiveDocument.DataForm

End If

En este ejemplo se crea una tabla en un nuevo documento y, a continuación, se muestra el cuadro de diálogo Ficha de datos.

Set unDoc = Documents.Add

With unDoc

    .Tables.Add Range:=unDoc.Content, NumRows:=2, NumColumns:=2

    .Tables(1).Cell(1, 1).Range.Text = "Nombre"

    .Tables(1).Cell(1, 2).Range.Text = "Edad"

    .DataForm

End With


Propiedad Saved

True si el documento o plantilla especificado no se ha cambiado desde la última vez que se guardó. False si Word muestra la petición de que se guarden los cambios cuando se cierra el documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Saved

En este ejemplo se guarda el documento activo si contiene cambios que no se han guardado previamente.

If ActiveDocument.Saved = False Then ActiveDocument.Save

En este ejemplo se cambia el estado de la plantilla Normal a inalterada. Si se hicieron cambios a la plantilla Normal, los cambios no se guardan al salir de Word.

NormalTemplate.Saved = True

Application.Quit


Propiedad Document

Devuelve un objeto Document asociado con el panel, la ventana o la selección. Es de sólo lectura.


Ejemplo de la propiedad Document

En este ejemplo se muestra el nombre del documento y la ruta de acceso de la selección.

Msgbox Selection.Document.FullName

En este ejemplo se establece MiDoc como documento asociado con la ventana activa. El foco cambia a la siguiente ventana y la ventana se divide. El método Activate se utiliza para pasar de nuevo al documento original.

Set MiDoc = ActiveWindow.Document

If Windows.Count >= 2 Then

    ActiveWindow.Next.Activate

    ActiveWindow.Split = True

    MiDoc.Activate

End If


Propiedad Documents

Devuelve un conjunto Documents que representa todos los documentos abiertos. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Documents

En este ejemplo se crea un nuevo documento basado en la plantilla Normal y luego se muestra el cuadro de diálogo Guardar como.

Documents.Add.Save

En este ejemplo se guardan los documentos abiertos que han cambiado desde la última vez que se guardaron.

For Each unDoc In Documents

   If unDoc.Saved = False Then unDoc.Save

Next unDoc

En este ejemplo se imprime cada documento abierto después de establecer el valor de los márgenes derecho e izquierdo en 1,25 cm.

For Each docAbierto In Documents

    With docAbierto

        .PageSetup.LeftMargin = CentimetersToPoints(1.25)

        .PageSetup.RightMargin = CentimetersToPoints(1.25)

        .PrintOut

    End With

Next docAbierto

En este ejemplo se abre MiDoc.doc como un documento de sólo lectura.

Documents.Open FileName:="C:\MisArchivos\MiDoc.doc", ReadOnly:=True


Propiedad Format

Devuelve o establece el formato del objeto especificado, como se describe en la tabla siguiente.

Objeto	Descripción
Indexes	Devuelve o establece el formato de los índices del documento especificado. Puede ser una de las siguientes constantes WdIndexFormat: wdIndexBulleted, wdIndexClassic, wdIndexFancy, wdIndexFormal, wdIndexModern, wdIndexSimple o wdIndexTemplate. Long de Lectura/Escritura
Find	True si el formato se incluye en la operación de búsqueda. Boolean de Lectura/Escritura.
Paragraph, Paragraphs	Devuelve o establece un objeto ParagraphFormat que representa el formato del párrafo o párrafos especificados. Lectura/Escritura.
TablesOfContents	Devuelve o establece el formato de las tablas de contenido del documento especificado. Puede ser una de las siguientes constantes WdTOCFormat: wdTOCClassic, wdTOCDistinctive, wdTOCFancy, wdTOCFormal, wdTOCModern, wdTOCSimple o wdTOCTemplate. Long de Lectura/Escritura.
TablesOfFigures	Devuelve o establece el formato de las tablas de ilustraciones del documento especificado. Puede ser una de las siguientes constantes WdTOFFormat: wdTOFCentered, wdTOFClassic, wdTOFDistinctive, wdTOFFormal, wdTOFSimple o wdTOFTemplate. Long de Lectura/Escritura.
TextInput	Devuelve el formato de texto del cuadro de texto especificado. String de sólo lectura. Utilice el método EditType del objeto TextInput para establecer el formato de texto.


Ejemplo de la propiedad Format

El siguiente ejemplo alinea a la izquierda todos los párrafos del documento activo.

ActiveDocument.Paragraphs.Format.Alignment = wdAlignParagraphLeft

En este ejemplo se aplica formato Clásico a las tablas de contenido de Informe.doc.

Documents("Informe.doc").TablesOfContents.Format = wdTOCClassic

En este ejemplo se devuelve y se muestra el formato del texto del primer campo del documento activo.

If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then

    MsgBox ActiveDocument.FormFields(1).TextInput.Format

Else

    MsgBox "El primer campo no es un campo de formulario de texto"

End If

En este ejemplo se devuelve el formato del primer párrafo del documento activo y, a continuación, se aplica el formato a la selección.

Set formatPara = ActiveDocument.Paragraphs(1).Format.Duplicate

Selection.Paragraphs.Format = formatPara

En este ejemplo se quita todo el formato de negrita del documento activo.

With ActiveDocument.Content.Find

    .ClearFormatting

    .Font.Bold = True

    .Format = True

    .Replacement.ClearFormatting

    .Replacement.Font.Bold = False

    .Execute Forward:=True, Replace:=wdReplaceAll, _

        FindText:="", ReplaceWith:=""

End With


Propiedad HyphenateCaps

True si se pueden dividir palabras con todas las letras en mayúscula. Boolean de Lectura/Escritura.


Ejemplo de la propiedad HyphenateCaps

En este ejemplo se habilita la división automática de palabras para el documento activo y se permite la división de palabras con todas las letras en mayúscula.

With ActiveDocument

    .AutoHyphenation = True

    .HyphenateCaps = True

End With


Propiedad HyphenationZone

Devuelve o establece, en puntos, el ancho de la zona de división. La zona de división es la cantidad de espacio máxima que Word deja entre el final de la última palabra de una línea y el margen derecho. Long de Lectura/Escritura.


Ejemplo de la propiedad HyphenationZone

En este ejemplo se habilita la división automática de palabras para MiInforme.doc. La zona de división se establece en 36 puntos (1,27 cm).

With Documents("MiInforme.doc")

    .AutoHyphenation = True

    .HyphenationZone = 36

End With

En este ejemplo se establece la zona de división en 0,6 cm (18 puntos) y, a continuación, se inicia la división de palabras manual del documento activo.

With ActiveDocument

    .HyphenationZone = 18 CentimetersToPoints(0.6)

    .ManualHyphenation

End With


Propiedad Initial

Devuelve o establece las iniciales del usuario asociado con un comentario específico. String de Lectura/Escritura.


Ejemplo de la propiedad Initial

En este ejemplo se muestran las iniciales del usuario que realizó el primer comentario de la selección.

If Selection.Comments.Count >= 1 Then

    MsgBox "Comentario realizado por " & Selection.Comments(1).Initial

End If

En este ejemplo se comprueban las iniciales del autor asociado con cada comentario en la sección del primer documento. Si las iniciales del autor son "MSOffice", el ejemplo las cambia a "SFM".

Set miIntervalo = ActiveDocument.Sections(1).Range

For Each comentario In miIntervalo.Comments

    If comentario.Initial = "MSOffice" Then comentario.Initial = "SFM"

Next comentario


Propiedad ConsecutiveHyphensLimit

Devuelve o establece el número máximo de líneas consecutivas que pueden acabar con guiones. Long de Lectura/Escritura.

Nota   Si esta propiedad se establece como 0 (cero), no hay límite para el número de líneas consecutivas que pueden acabar con guiones.


Ejemplo de la propiedad ConsecutiveHyphensLimit

En este ejemplo se habilita la división de palabras automáticas para MiInforme.doc y se limita a dos el número de líneas consecutivas que pueden acabar con guiones.

With Documents("MiInforme.doc")

    .AutoHyphenation = True

    .ConsecutiveHyphensLimit = 2

End With

En este ejemplo no se establece límite alguno para el número de líneas consecutivas que pueden acabar con guiones.

ActiveDocument.ConsecutiveHyphensLimit = 0


Método ManualHyphenation

Inicia la división manual de palabras de un documento, una sola línea cada vez. Se pide confirmación al usuario para que acepte o rechace las divisiones de palabras que se le sugieren.

Sintaxis

expresión.ManualHyphenation

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método ManualHyphenation

En este ejemplo se inicia un división manual de palabras del documento activo.

ActiveDocument.ManualHyphenation

En este ejemplo se establecen opciones de división de palabras y luego se inicia la división manual de palabras del documento MiDoc.doc.

With Documents("MiDoc.doc")

    .HyphenationZone = CentimetersToPoints(0.7)

    .HyphenateCaps = False

    .ManualHyphenation

End With


Propiedad PageSetup

Devuelve un objeto PageSetup que está asociado con el documento, intervalo, sección, secciones o selección especificados. Es de sólo lectura.


Ejemplo de la propiedad PageSetup

En este ejemplo se establece el margen derecho del documento activo en 2,54 cm (72 puntos).

ActiveDocument.PageSetup.RightMargin = CentimetersToPoints(2.54)

En este ejemplo se establece la encuadernación para la primera sección de Resumen.doc en 36 puntos (1,27 cm).

Documents("Resumen.doc").Sections(1).PageSetup.Gutter = 36

En este ejemplo se establece la distancia para el encabezado y el pie de página en 18 puntos (0,63 cm) desde la parte superior y desde la parte inferior de la página, respectivamente. Este cambio de formato se aplica a la sección que contiene la selección.

With Selection.PageSetup

    .FooterDistance = 18

    .HeaderDistance = 18

End With

En este ejemplo se muestra el valor del margen izquierdo en centímetros.

MsgBox PointsToCentimeters(ActiveDocument.PageSetup.LeftMargin) & " centímetros"


Propiedad Path

Devuelve la ruta de acceso al objeto AddIn, Application, Dictionary, Document, FileConverter, RecentFile, Subdocument o Template especificado. String de sólo lectura.

Nota   La ruta de acceso no incluye un carácter final, por ejemplo, C:\MSOffice). Utilice la propiedad PathSeparator para agregar el carácter que separa carpetas y letras de unidades (en Windows, una barra diagonal inversa (\); en Macintosh, dos puntos (:)). Utilice la propiedad Name para devolver el nombre del archivo sin la ruta de acceso y use la propiedad FullName para devolver juntos el nombre del archivo y la ruta de acceso.


Ejemplo de la propiedad Path

En este ejemplo se muestra la ruta de acceso y el nombre del archivo del documento activo.

MsgBox ActiveDocument.Path & Application.PathSeparator & _

    ActiveDocument.Name

En este ejemplo se cambia la carpeta actual a la ruta de acceso de la plantilla adjunta al documento activo.

ChDir ActiveDocument.AttachedTemplate.Path

En este ejemplo se muestra la ruta de acceso de la primera macro automática o complemento del conjunto AddIns.

If AddIns.Count >= 1 Then MsgBox AddIns(1).Path


Propiedad Position

Objeto CaptionLabel: Devuelve o establece la posición del texto de la etiqueta de título. Puede ser una de las siguientes constantes WdCaptionPosition: wdCaptionPositionAbove o wdCaptionPositionBelow. Long de Lectura/Escritura.

Objeto DropCap: Devuelve o establece la posición de una letra capital. Puede ser una de las siguientes constantes WdDropPosition: wdDropMargin, wdDropNone o wdDropNormal. Long de Lectura/Escritura.

Objeto Font: Devuelve establece la posición del texto, en puntos, con relación a la línea de base. Un número positivo sube el texto y un número negativo lo baja. Long de Lectura/Escritura.

Objeto TabStop: Devuelve o establece la posición de una tabulación con relación al margen izquierdo. Single de Lectura/Escritura.


Ejemplo de la propiedad Position

En este ejemplo se baja el texto seleccionado en 2 puntos

Selection.Font.Position = -2

En este ejemplo se agrega una tabulación derecha a los párrafos seleccionados a 5 cm del margen izquierdo. La posición de la tabulación se muestra, a continuación, en un cuadro de mensaje.

With Selection.Paragraphs.TabStops

    .ClearAll

    .Add Position:=CentimetersToPoints(5), Alignment:=wdAlignTabRight

    MsgBox .Item(1).Position & " o " & _

       PointsToCentimeters(.Item(1).Position) & " centímetros"

End With

En este ejemplo se establece que el primer párrafo del documento activo se inicie con una letra capital. La posición del objeto DropCap se establece como wdDropNormal.

With ActiveDocument.Paragraphs(1).DropCap

    .Enable

    .FontName= "Arial"

    .Position = wdDropNormal

End With


Método Exists

Determina si la tarea o marcador especificado existe. Devuelve True si la tarea o el marcador existe.

Sintaxis

expresión.Exists(Name)

expresión   Expresión que devuelve un objeto Bookmarks o Tasks.

Name   String requerida. Nombre de marcador o tarea.


Ejemplo del método Exists

En este ejemplo se determina si el marcador de nombre "inicio" existe en el documento activo. Si el marcador existe, se elimina.

If ActiveDocument.Bookmarks.Exists("inicio") = True Then

    ActiveDocument.Bookmarks("inicio").Delete

End If

En este ejemplo se determina si el programa Calculadora de Windows se está ejecutando (si la tarea existe). Si la Calculadora no se está ejecutando, se inicia la instrucción Shell. Si la Calculadora se está ejecutando, la aplicación se activa.

If Tasks.Exists("Calculadora") = False Then

    Shell "Calc.exe"

Else

    Tasks("Calculadora").Activate

End If

Tasks("Calculadora").WindowState = wdWindowStateNormal


Método PrintOut

Imprime un objeto, como se muestra en la tabla siguiente. Para obtener una descripción detallada del método PrintOut para un objeto concreto, seleccione ese objeto en la tabla.

Objeto	Descripción
Application, Document, Window	Imprime todo el documento o una parte de él.
Envelope	Imprime un sobre sin agregarlo al documento activo.
MailingLabel	Imprime una etiqueta o una página de etiquetas con la misma dirección.


Método PrintOut (objeto MailingLabel)

Imprime una etiqueta o una página de etiquetas con la misma dirección.

Sintaxis

expresión.PrintOut(Name, Address, ExtractAddress, LaserTray, SingleLabel, Row, Column)

expresión   Requerida. Expresión que devuelve un objeto MailingLabel.

Name   Variant opcional. Nombre de la etiqueta postal.

Address   Variant opcional. Texto de la dirección de la etiqueta.

ExtractAddress   Variant opcional. True para usar el texto marcado mediante el marcador "DirecciónSobre" (marcador definido por el usuario) como texto de la etiqueta. Si se especifica este argumento, se ignoran Address y AutoText.

LaserTray   Variant opcional. La bandeja de la impresora láser que se va a usar. Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormatBin wdPrinterTractorFeed wdPrinterUpperBin
SingleLabel   Variant opcional. True para imprimir una sola etiqueta, False para imprimir una página completa con la misma etiqueta.

Row   Variant opcional. La fila de la etiqueta de una etiqueta individual. No es válido si SingleLabel es False

Column   Variant opcional. La columna de la etiqueta de una etiqueta individual. No es válido si SingleLabel es False


Ejemplo del método PrintOut (objeto MailingLabel)

En el siguiente ejemplo se imprime una página de etiquetas postales Avery 5664 utilizando la dirección especificada.

addr = "Cristina Martínez" & vbCr & "C/ Don Ramón de la Cruz, 73.3º" & vbCr & "28004 Madrid ESPAÑA"

Application.MailingLabel.PrintOut Name:="5664", Address:=addr


Propiedad ProtectionType

Devuelve el tipo de protección del documento especificado. Puede ser una de las siguientes constantes WdProtectionType: wdAllowOnlyComments, wdAllowOnlyFormFields, wdAllowOnlyRevisions o wdNoProtection. Long de sólo lectura.


Ejemplo de la propiedad ProtectionType

Si el documento activo no está ya protegido, en este ejemplo se protege el documento para poder incluir sólo comentarios.

If ActiveDocument.ProtectionType = wdNoProtection Then

    ActiveDocument.Protect Type:=wdAllowOnlyComments

End If

En este ejemplo se deja sin protección el documento activo si estaba protegido.

Set Doc = ActiveDocument

If Doc.ProtectionType <> wdNoProtection Then Doc.Unprotect


Método Redo

Rehace la última acción que se deshizo (invierte el método Undo ) Devuelve True si las acciones se han rehecho correctamente.

Sintaxis

expresión.Redo(Times)

expresión   Requerida. Expresión que devuelve un objeto Document.

Times   Variant opcional. Número de acciones que se van a rehacer.


Ejemplo del método Redo

En este ejemplo se rehacen las dos últimas acciones de la lista Rehacer en Ventas.doc.

Documents("Ventas.doc").Redo 2

En este ejemplo se repite la última acción del documento activo. Si la acción se rehace correctamente, se muestra un mensaje en la barra de estado.

On Error Resume Next

If ActiveDocument.Redo = False Then StatusBar = "Rehacer no se realizó correctamente"


Método Repaginate

Se repagina el documento completo.

Sintaxis

expresión.Repaginate

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método Repaginate

En este ejemplo se repagina el documento activo si ha sufrido cambios desde la última vez que se guardó.

If ActiveDocument.Saved = False Then ActiveDocument.Repaginate

En este ejemplo se repaginan todos los documentos abiertos.

For Each doc In Documents

    doc.Repaginate

Next doc


Propiedad UpdateStylesOnOpen

True si los estilos del documento especificado se actualizan para coincidir con los estilos de la plantilla adjunta cada vez que se abra el documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad UpdateStylesOnOpen

En este ejemplo se habilita la opción de actualización de los estilos de documento de todos los documentos abiertos y, a continuación, se cierran. Cuando alguno de estos documentos se abra de nuevo, los cambios en los estilos de la plantilla adjunta aparecerán automáticamente en el documento.

For Each doc In Documents

    doc.UpdateStylesOnOpen = True

    doc.Close SaveChanges:=wdSaveChanges

Next doc

En este ejemplo se deshabilita la opción de actualización de estilos de documento de modo que los cambios realizados a los estilos de la plantilla adjunta no quedan reflejados en Informe.doc.

Documents("Informe.doc").UpdateStylesOnOpen = False


Método Save

Sintaxis 1: Guarda el documento o plantilla especificados. Si el documento o plantilla no se ha guardado antes, el cuadro de diálogo Guardar como pide al usuario que escriba un nombre de archivo.

Sintaxis 2: Guarda todos los documentos del conjunto Documents. Si el documento no se ha guardado antes, el cuadro de diálogo Guardar como pide al usuario que escriba un nombre de archivo.

Sintaxis 3: Guarda una versión del documento especificado con un comentario.

Sintaxis 1

expresión.Save

Sintaxis 2

expresión.Save(NoPrompt, OriginalFormat)

Sintaxis 3

expresión.Save(Comment)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Document o Template.

Sintaxis 2: Requerida. Expresión que devuelve un objeto Documents.

Sintaxis 3: Requerida. Expresión que devuelve un objeto Versions.

NoPrompt   Variant opcional. True para que Word guarde automáticamente todos los documentos. False para que Word pida al usuario que guarde cada documento que se haya cambiado desde la última vez se guardó.

OriginalFormat   Variant opcional. Especifica la forma en que se han guardado los documentos. Puede ser una de las siguientes constantes WdOriginalFormat: wdOriginalDocumentFormat, wdPromptUser o wdWordDocument.

Comment   Variant opcional. La cadena de comentario que se guarda con la versión.


Ejemplo del método Save

En este ejemplo se guarda el documento activo si ha sufrido cambios desde la última vez que se guardó.

If ActiveDocument.Saved = False Then ActiveDocument.Save

En este ejemplo se guardan los documentos del conjunto Documents sin pedirle confirmación al usuario.

Documents.Save NoPrompt:=True, OriginalFormat:=wdOriginalDocumentFormat

Si Ventas.doc está abierto, en este ejemplo se guarda una versión de Ventas.doc con un comentario.

For Each doc in Documents

    If Instr(1, doc.Name, "Ventas.doc", 1) > 0 Then

        doc.Versions.Save Comment:="Cambios menores"

    End If

Next doc


Método SaveAs

Guarda el documento especificado con un nombre o formato nuevo. Los argumentos de este método se corresponden con las opciones del cuadro de diálogo Guardar como (menú Archivo).

Sintaxis

expresión.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)

expresión   Requerida. Expresión que devuelve un objeto Document.

FileName   Variant opcional. Nombre del documento. Los valores predeterminados son la carpeta y el nombre del archivo actuales. Si el documento no se guardó nunca, se utiliza el nombre predeterminado, por ejemplo Doc1.doc. Si un documento con el FileName especificado ya existe, el documento se sobrescribe sin pedir notificación al usuario.

File Format   Variant opcional. Formato en el que se guarda el documento. Puede ser una de las siguientes constantes WdSaveFormat: wdFormatDocument, wdFormatDOSText, wdFormatDOSTextLineBreaks, wdFormatRTF, wdFormatTemplate, wdFormatText, wdFormatTextLineBreaks o wdFormatUnicodeText. Para guardar un documento en otro formato, especifique el valor adecuado de la propiedad SaveFormat del objeto FileConverter.

LockComments   Variant opcional. True para bloquear el documento para poder agregar comentarios.

Password   Variant opcional. Una cadena de contraseña para poder abrir el documento.

AddToRecentFiles   Variant opcional. True para agregar el documento a la lista de archivos recientemente utilizados del menú Archivo.

WritePassword   Variant opcional. Cadena de contraseña para guardar los cambios del documento.

ReadOnlyRecommended   Variant opcional. True para que Word sugiera el estado de sólo lectura siempre que el documento se abra.

EmbedTrueTypeFonts   Variant opcional. True para guardar fuentes TrueType con el documento.

SaveNativePictureFormat   Variant opcional. True para guardar solamente la versión de Windows de los gráficos importados, si los gráficos se importaron desde otra plataforma (Macintosh).

SaveFormsData   Variant opcional. True para guardar los datos escritos por el usuario en un formulario como un registro de datos.

SaveAsAOCELetter   Variant opcional. Si el documento tiene un formulario adjunto, utilice el valor True para guardar el documento como una carta AOCE (se guarda el formulario).


Ejemplo del método SaveAs

En este ejemplo se guarda el documento activo como Test.rft en formato RTF (Formato de texto enriquecido).

ActiveDocument.SaveAs FileName:="Texto.rtf", FileFormat:=wdFormatRTF

En este ejemplo se guarda el documento activo en formato de texto, con la extensión de archivo "txt".

miNombdoc = ActiveDocument.Name

pos = InStr(miNombdoc, ".")

If pos > 0 Then

    miNombdoc = Left(miNombdoc, pos - 1)

    miNombdoc = miNombdoc & ".txt"

    ActiveDocument.SaveAs FileName:=miNombdoc, FileFormat:=wdFormatText

End If

En este ejemplo se recupera el valor de la propiedad SaveFormat del convertidor de WordPerfect 6.x y, a continuación, se utiliza este valor con el método SaveAs.

formatNum = FileConverters("WordPerfect6x").SaveFormat

Documents(1).SaveAs FileName:="Hola.wp", FileFormat:=formatNum

En este ejemplo se guarda el documento MiDoc.doc con una contraseña de escritura y, a continuación, se cierra el documento.

With Documents("MiDoc.doc")

    .SaveAs WritePassword:="paso"

    .Close

End With


Propiedad Scope

Devuelve un objeto Range que representa el intervalo de texto marcado por el comentario especificado. Es de sólo lectura.


Ejemplo de la propiedad Scope

En este ejemplo se muestra el texto asociado al primer comentario de la selección.

If Selection.Comments.Count >= 1 Then

    Set miIntervalo = Selection.Comments(1).Scope

    MsgBox miIntervalo.Text

End If

En este ejemplo se copia el texto asociado al último comentario del documento activo.

total = ActiveDocument.Comments.Count

If total >= 1 Then ActiveDocument.Comments(total).Scope.Copy


Método SendMail

Abre una ventana de mensaje para enviar el documento especificado a través de Microsoft Exchange.

Nota   Use la propiedad SendMailAttach para controlar si el documento se envía como texto en una ventana de mensaje o como datos adjuntos.

Sintaxis

expresión.SendMail

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método SendMail

En este ejemplo se envía el documento como datos adjuntos a un mensaje de correo.

Options.SendMailAttach = True

ActiveDocument.SendMail


Propiedad ShowTip

True si el texto asociado con el comentario se muestra en una sugerencia. La sugerencia permanece en la pantalla hasta que haga clic con el mouse (ratón) o presione una tecla. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowTip

En este ejemplo se muestra la sugerencia en pantalla correspondiente al primer comentario del documento activo.

If ActiveDocument.Comments.Count >= 1 Then

    ActiveDocument.Comments(1).ShowTip = True

End If

En este ejemplo se muestra la sugerencia en pantalla correspondiente al siguiente comentario del documento activo.

If ActiveDocument.Comments.Count >= 1 Then

    With Selection

        .GoTo What:=wdGotoComment, Which:=wdGotoNext

        .MoveEnd Unit:=wdWord, Count:=1

        .Comments(1).ShowTip = True

    End With

End If


Método FitToPages

Reduce el tamaño de la fuente del texto lo justo para que el documento ocupe una página menos. Se produce un error si Word no es capaz de reducir en uno el número de páginas.

Sintaxis

expresión.FitToPages

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método FitToPages

En este ejemplo se intenta reducir en una página el número de páginas del documento activo.

On Error GoTo errhandler

ActiveDocument.FitToPages

errhandler:

If Err = 5538 Then MsgBox "Imposible ajustar a la página"

En este ejemplo se intenta reducir en una página el numero de páginas de todos los documentos abiertos.

For Each doc In Documents

    doc.FitToPages

Next doc


Método Undo

Deshace la última acción o una secuencia de acciones que se muestran en la lista Deshacer. Devuelve True si las acciones se han deshecho correctamente.

Sintaxis

expresión.Undo(Times)

expresión   Requerida. Expresión que devuelve un objeto Document.

Times   Variant opcional. Número de acciones que se van a deshacer.


Ejemplo del método Undo

En este ejemplo se deshacen las últimas dos acciones que se tomaron relativas a Ventas.doc.

Documents("Ventas.doc").Undo 2

Este ejemplo deshace la última acción. Si la acción se deshace correctamente, se muestra un mensaje en la barra de estado.

On Error Resume Next

If ActiveDocument.Undo = False Then StatusBar = "La acción Deshacer no se realizó correctamente"


Método UnProtect

Quita la protección del documento especificado. Si el documento no está protegido, este método genera un error.

Sintaxis

expresión.UnProtect(Password)

expresión   Requerida. Expresión que devuelve un objeto Document.

Password   Variant opcional. La cadena de contraseña utilizada para proteger el documento. Las contraseñas hacen distinción de mayúsculas y minúsculas. Si el documento se protege con una contraseña y no se escribe la contraseña correcta, aparecerá un cuadro de diálogo en el que se pide al usuario la contraseña.


Ejemplo del método UnProtect

En este ejemplo se quita la protección del documento activo, mediante la utilización de "Azul" como contraseña. Si el documento tiene una contraseña, aparecerá un cuadro de diálogo en el que se pide al usuario la contraseña.

If ActiveDocument.ProtectionType <> wdNoProtection Then

    ActiveDocument.Unprotect Password:="Azul"

End If

En este ejemplo se desprotege el documento activo. Se inserta texto y el documento se protege para realizar revisiones.

Set unDoc = ActiveDocument

If unDoc.ProtectionType <> wdNoProtection Then

    unDoc.Unprotect

    Selection.InsertBefore "departamento seis"

    unDoc.Protect Type:=wdAllowOnlyRevisions, Password:="Azul"

End If


Propiedad Variables

Devuelve un conjunto Variables que representa las variables almacenadas en el documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Variables

En este ejemplo se agrega una variable de documento de nombre "Valor1" al documento activo. En este ejemplo, a continuación, se recupera el valor de la variable Valor1, se le suma 3 al valor y se presenta el resultado.

ActiveDocument.Variables.Add Name:="Valor1", Value:="1"

MsgBox ActiveDocument.Variables("Valor1") + 3

En este ejemplo se muestra el nombre y el valor de todas las variables de documento del documento activo.

For Each miVar In ActiveDocument.Variables

    MsgBox "Nombre =" & miVar.Name & vbCr & "Valor = " & miVar.Value

Next miVar


Método UpdateStyles

Copia todos los estilos de la plantilla adjunta al documento, sobrescribiendo todos aquellos estilos del documento que tengan el mismo nombre.

Sintaxis

expresión.UpdateStyles

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método UpdateStyles

En este ejemplo se copian los estilos de la plantilla adjunta a todos los documentos abiertos y luego se cierra cada documento.

For Each unDoc In Documents

    unDoc.UpdateStyles

    unDoc.Close SaveChanges:=wdSaveChanges

Next unDoc

En este ejemplo se cambia el formato del estilo de Título 1 de la plantilla adjunta al documento activo. El método UpdateStyles actualiza los estilos del documento activo, incluso el estilo de Título 1.

Set unDoc = ActiveDocument.AttachedTemplate.OpenAsDocument

With unDoc.Styles(wdStyleHeading1).Font

    .Name = "Arial"

    .Bold = False

End With

unDoc.Close SaveChanges:=wdSaveChanges

ActiveDocument.UpdateStyles


Método CopyStylesFromTemplate

Copia estilos de la plantilla especificada en el documento.

Sintaxis

expresión.CopyStylesFromTemplate(Template)

expresión   Requerida. Expresión que devuelve un objeto Document.

Template   String requerida. El nombre del archivo de la plantilla.

Comentarios

Cuando los estilos se copian de una plantilla en un documento, los estilos con nombres similares del documento se definen de nuevo para que estén de acuerdo con las descripciones de estilo de la plantilla. Estilos exclusivos de la plantilla se copian en el documento. Los estilos exclusivos del documento permanecen intactos.


Ejemplo del método CopyStylesFromTemplate

En este ejemplo se copian los estilos de la plantilla del documento activo en el documento.

ActiveDocument.CopyStylesFromTemplate _

    Template:=ActiveDocument.AttachedTemplate.FullName

En este ejemplo se copian los estilos de la plantilla Ventas96.dot al documento Ventas.doc.

Documents("Ventas.doc").CopyStylesFromTemplate _

    Template:="C:\MSOffice\Plantillas\Ventas96.dot"


Propiedad SubAddress

Devuelve una ubicación con nombre del destino del hipervínculo especificado. String de sólo lectura.

Nota   La ubicación con nombre puede ser un marcador de un documento de Microsoft Word, una celda con nombre o una referencia de celda de una hoja de cálculo de Microsoft Excel, un objeto con nombre de una base de datos de Microsoft Access o un número de diapositiva de una presentación de Microsoft PowerPoint.


Ejemplo de la propiedad SubAddress

En este ejemplo se muestra la subdirección del hipervínculo seleccionado.

If Selection.Range.Hyperlinks.Count >= 1 Then

    MsgBox Selection.Range.Hyperlinks(1).SubAddress

End If

En este ejemplo se agrega un hipervínculo a la selección del documento activo, se define el destino y subdirección del hipervínculo y, a continuación, se presentan en un cuadro de mensaje.

Set AccDir = ActiveDocument.Hyperlinks.Add(Anchor:= Selection.Range, _

    Address:="C:\Mis documentos\Otro.doc", SubAddress:= "temp")

MsgBox "El hipervínculo se dirige a " & AccDir.SubAddress


Propiedad SummaryLength

Devuelve o define la longitud del resumen en forma de porcentaje de la longitud del documento. Cuanto mayor es el número, mayor es el nivel de detalle que se incluye en el resumen. Long de Lectura/Escritura.

Nota   Esta propiedad se hace efectiva inmediatamente si la barra de herramientas Autorresumen está en pantalla. De lo contrario, se hará efectiva la próxima vez que el método Autorresumen o la propiedad SummaryViewMode se aplique al documento.


Ejemplo de la propiedad SummaryLength

En este ejemplo se resaltan los puntos principales del documento activo. El nivel de detalle se establece en un 50 por ciento.

With ActiveDocument

    .AutoSummarize Mode:=wdSummaryModeHighlight

    .SummaryLength = 50

End With

En este ejemplo se muestra el resumen y se establece el nivel de detalle en un 55 por ciento.

With ActiveDocument

    .ShowSummary = True

    .SummaryLength = 55

End With


Propiedad SummaryViewMode

Devuelve o define el modo en el que se presenta el resumen. Esta propiedad se corresponde con Tipo de resumen del cuadro de diálogo Autorresumen (menú Herramientas). Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdSummaryMode.

Constant	Descripción
wdSummaryModeHighlight	Resalta los puntos principales del documento especificado y muestra la barra de herramientas Autorresumen.
wdSummaryModeInsert	Inserta un resumen al comienzo del documento especificado.
wdSummaryModeCreateNew	Crea un documento nuevo e inserta el resumen especificado.
wdSummaryModeHideAllButSummary	Oculta todo a excepción del resumen especificado y muestra la barra de herramientas Autorresumen.


Ejemplo de la propiedad SummaryViewMode

En este ejemplo se oculta todo en el documento activo a excepción del texto del resumen.

With ActiveDocument

    .SummaryViewMode = wdSummaryModeHideAllButSummary

    .SummaryLength = 60

    .ShowSummary = True

End With


Propiedad Versions

Devuelve un conjunto Versions que representa todas las versiones del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Versions

En este ejemplo se muestra el nombre del usuario y la fecha de la versión más reciente del documento.

If ActiveDocument.Versions.Count >= 1 Then

    Set unaVersión = ActiveDocument.Versions(ActiveDocument.Versions.Count)

    MsgBox "Guardado por " & unaVersión.SavedBy & " el " & unaVersión.Date

End If

En este ejemplo se guarda una versión de Contrato.doc con un pequeño comentario.

Documents("Contrato.doc").Versions.Save Comment:="Sólo se agrega una sola palabra"


Método RunAutoMacro

Ejecuta una automacro guardada en el documento especificado. Si la automacro especificada no existe, no sucede nada.

Nota   Use el método Run para ejecutar cualquier macro.

Sintaxis

expresión.RunAutoMacro(Which)

expresión   Requerida. Expresión que devuelve un objeto Document.

Which   Long requerido. La automacro que se va a ejecutar. Puede ser una de las siguientes constantes WdAutoMacros: wdAutoClose, wdAutoExec, wdAutoExit, wdAutoNew o wdAutoOpen.


Ejemplo del método RunAutoMacro

En este ejemplo se ejecuta la macro AutoOpen del documento activo.

ActiveDocument.RunAutoMacro Which:=wdAutoOpen


Propiedad Hyperlinks

Devuelve un conjunto Hyperlinks que representa todos los hipervínculos del documento, intervalo o selección especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Hyperlinks

En este ejemplo se muestra la dirección de destino del segundo hipervínculo de Casa.doc.

If Documents("Casa.doc").Hyperlinks.Count >= 2 Then

    MsgBox Documents("Casa.doc").Hyperlinks(2).Name

End If

En este ejemplo se salta a la dirección del primer hipervínculo de la selección.

If Selection.Hyperlinks.Count >= 1 Then

    Selection.Hyperlinks(1).Follow

End If

En este ejemplo se muestran los nombres de todos los hipervínculos del documento activo que contengan la palabra "Microsoft" en su dirección.

For Each unHipervínculo In ActiveDocument.Hyperlinks

    If InStr(LCase(unHipervínculo.Address), "Microsoft") <> 0 Then

        MsgBox unHipervínculo.Name

    End If

Next unHipervínculo


Propiedad SavedBy

Devuelve el nombre del usuario que guardó la versión especificada del documento. String de sólo lectura.


Ejemplo de la propiedad SavedBy

En este ejemplo se muestra el nombre del usuario que guardó la primera versión del documento activo.

If ActiveDocument.Versions.Count >= 1 Then

    MsgBox ActiveDocument.Versions(1).SavedBy

End If

En este ejemplo se guarda una versión del documento con un comentario y luego se muestra el nombre del usuario.

ActiveDocument.Versions.Save Comment:="Información de cliente agregada"

último = ActiveDocument.Versions.Count

MsgBox ActiveDocument.Versions(último).SavedBy


Propiedad Compatibility

True si la opción de compatibilidad especificada por el argumento Type está habilitada. Las opciones de compatibilidad afectan a la forma en que el documento se presenta en Word. Estas opciones se enumeran en la ficha Compatibilidad del cuadro de diálogo Opciones (menú Herramientas). Boolean de Lectura/Escritura.

Sintaxis

expresión.Compatibility(Type)

expresión   Requerida. Expresión que devuelve un objeto Document.

Type   Long requerido. Puede ser una de las siguientes constantes WdCompatibility.

Constante	Descripción
wdConvMailMergeEsc	Word 97 interpreta correctamente caracteres precedidos por barras diagonales inversas (\) de las fuentes de datos de combinación de correspondencia de Word versión 2.x. Por ejemplo, \" se interpreta como ".
wdExactOnTop	Word 97 sitúa el texto en la parte superior del espacio asignado a la línea cuando se usa interlineado exacto.
wdLineWrapLikeWord6	No se utiliza en la versión inglés (EE. UU.) de Word.
wdMWSmallCaps	Word 97 aplica formato de versales como en Word versión 5.x de Macintosh, lo que da lugar a versales ligeramente más grandes.
wdNoColumnBalance	Word 97 no equilibra las columnas de texto situadas encima de los saltos de sección continuos.
wdNoExtraLineSpacing	Word 97 trata los interlineados como en WordPerfect versión 5.x. Este argumento está disponible solamente en Word versión 7.0.
wdNoLeading	Word 97 muestra líneas de texto sin espacios de relleno como en Word versión 5.x de Macintosh.
wdNoSpaceForUL	Word 97 no agrega espacio adicional en subrayados. Este argumento está solamente disponible en Word versión 7.0.
wdNoSpaceRaiseLower	Word 97 no agrega interlineado extra para caracteres elevados y disminuidos.
wdNoTabHangIndent	Word 97 no agrega automáticamente una tabulación a un párrafo al que se le da formato con una sangría francesa.
wdOrigWordTableRules	Word 97 combina los bordes de tabla como en Word versión 5.x de Macintosh.
wdPrintBodyTextBeforeHeader	Word 97 imprime el área del texto principal antes que el área de encabezado y pie de página (lo contrario al orden predeterminado). Esto permite a Word procesar códigos PostScript en el área de texto principal al igual que en Word versión 5.x de Macintosh.
wdPrintColBlack	Word 97 imprime colores en negro en impresoras que no admiten color.
wdShowBreaksInFrames	Word 97 muestra saltos de página o de columnas manuales en cualquier marco que los contenga.
wdSpacingInWholePoints	Word 97 redondea el espacio entre caracteres hacia arriba o hacia abajo hasta alcanzar el número entero más cercano.
wdSubFontBySize	Word sustituye fuentes basadas en el tamaño de fuente de documentos de WordPerfect versión 6.0. Este argumento está disponible solamente en Word versión 7.0.
wdSuppressBottomSpacing	Word 97 quita el interlineado extra en la parte inferior de la página.
wdSuppressSpBfAfterPgBrk	Word 97 quita el espacio situado antes y después de los saltos manuales de página y de columna.
wdSuppressTopSpacing	Word 97 quita el interlineado extra en la parte superior de la página.
wdSuppressTopSpacingMac5	Word 97 trata el interlineado extra en la parte superior de la página de la misma forma que en Word versión 5.x de Macintosh.
wdSwapBordersFacingPages	Word 97 imprime un borde de párrafo izquierdo (no un cuadro) al lado derecho de las páginas con numeración impar si la casilla de verificación Pares e impares diferentes (ficha Diseño de página) o la de Márgenes simétricos (ficha Márgenes) está activada en el cuadro de diálogo Configurar página (menú Archivo).
wdTransparentMetafiles	Word 97 no "vacía" el área que hay detrás de las imágenes metarchivo.
wdTruncateFontHeight	Word redondea el tamaño de la fuente hacia arriba o hacia abajo como en WordPerfect versión 6.x de Windows. Este argumento está solamente disponible en Word versión 7.0.
wdUsePrinterMetrics	Word utiliza las medidas de la impresora para dar formato al documento.
wdWPJustification	Word 97 da formato a texto totalmente justificado al igual que WordPerfect versión 6.x.
wdWPSpaceWidth	Word 97 establece el ancho predeterminado de espacios entre palabras para que sea el mismo que en WordPerfect versión 5.x de Windows y WordPerfect versión 6.0 de DOS.
wdWrapTrailSpaces	Word 97 ajusta los espacios del final de las líneas a la línea siguiente.
wdWW6BorderRules	Word 97 trata los bordes izquierdo y derecho de las líneas de texto afectadas por marcos en la misma forma que en Word versión 6.x.
Nota   Las constantes wdLeaveBackslashAlone, wdExpandShiftReturn, wdDontULTrailSpace y wdDontBalanceSingleByteDoubleByteWidth no se utilizan en la versión inglés (EE. UU.) de Word.


Ejemplo de la propiedad Compatibility

En este ejemplo se habilita la opción Suprimir espacios antes después de un salto de página o columna manual de la ficha Compatibilidad en el cuadro de diálogo Opciones (menú Herramientas) para el documento activo.

ActiveDocument.Compatibility(wdSuppressSpBfAfterPgBrk) = True

En este ejemplo se activa y se desactiva alternativamente la opción No agregar tabulaciones automáticas en las sangrías francesas.

ActiveDocument.Compatibility(wdNoTabHangIndent) = Not _

    ActiveDocument.Compatibility(wdNoTabHangIndent)


Método MakeCompatibilityDefault

Establece la opciones de compatibilidad de la ficha Compatibilidad del cuadro de diálogo Opciones (menú Herramientas) como valores predeterminados para nuevos documentos.

Sintaxis

expresión.MakeCompatibilityDefault

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método MakeCompatibilityDefault

En este ejemplo se establece un número pequeño de opciones de compatibilidad para el documento activo y luego se convierten las opciones de compatibilidad actuales en los valores predeterminados.

With ActiveDocument

    .Compatibility(wdSuppressSpBfAfterPgBrk) = True

    .Compatibility(wdExpandShiftReturn) = True

    .Compatibility(wdUsePrinterMetrics) = True

    .Compatibility(wdNoLeading) = False

    .MakeCompatibilityDefault

End With


Propiedad Address

Objeto Hyperlink: Devuelve la dirección, por ejemplo un nombre de archivo o URL, del hipervínculo especificado. String de sólo lectura.

Objeto Envelope: Devuelve la dirección del sobre como un objeto Range. Es de sólo lectura.

Nota   Se produce un  error si se utiliza esta propiedad cuando no se ha agregado un sobre al documento especificado.


Ejemplo de la propiedad Address

En este ejemplo se agrega un hipervínculo a la selección del documento activo, se define el destino y, a continuación, presenta la dirección en un cuadro de mensaje.

Set unHVínculo = ActiveDocument.Hyperlinks.Add(Anchor:=Selection.Range, _

    Address:="http://formularios")

MsgBox "El hipervínculo se dirige a " & unHVínculo.Address

Si el documento activo incluye hipervínculos, en este ejemplo se inserta una lista de los destinos de hipervínculos al final del documento.

Set miIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Content.End - 1)

Count = 0

For Each unHipervínculo In ActiveDocument.Hyperlinks

    Count = Count + 1

    With miIntervalo

        .InsertAfter "Hipervínculo #" & Count & vbTab

        .InsertAfter unHipervínculo.Address

        .InsertParagraphAfter

    End With

Next unHipervínculo

En este ejemplo se muestra la dirección si un sobre se ha agregado al documento, de no ser así, se muestra un mensaje.

On Error GoTo errhandler

addr = ActiveDocument.Envelope.Address.Text

MsgBox Prompt:=addr, Title:="Dirección"

errhandler:

If Err = 5852 Then MsgBox "Insertar un sobre en el documento"


Propiedad PrintFractionalWidths

True: si al documento especificado se le da formato para utilizar el espaciado de punto fraccionario para mostrar e imprimir caracteres de Macintosh. Boolean de Lectura/Escritura.

Nota   En Windows, esta propiedad siempre devuelve False.


Ejemplo de la propiedad PrintFractionalWidths

En este ejemplo se habilitan valores fraccionarios de ancho y, a continuación, se imprime el documento activo.

With ActiveDocument

    .PrintFractionalWidths = True

    .PrintOut

End With

En este ejemplo se devuelve el valor de anchos fraccionarios de la ficha Imprimir del cuadro de diálogo Opciones (menú Herramientas).

state = Documents("Informe.doc").PrintFractionalWidths


Propiedad WritePassword

Establece una contraseña para guardar cambios del documento especificado. String de sólo escritura.


Ejemplo de la propiedad WritePassword

Si el documento activo no está ya protegido contra la posibilidad de guardar cambios, en este ejemplo se establece "secreta" como la contraseña de escritura del documento.

Set miDoc = ActiveDocument

If miDoc.WriteReserved = False Then myDoc.WritePassword = "secreta"


Propiedad WriteReserved

True si el documento especificado está protegido con una contraseña de escritura. Boolean de sólo lectura.


Ejemplo de la propiedad WriteReserved

En este ejemplo se muestra un mensaje si el documento activo tiene una contraseña de escritura.

If ActiveDocument.WriteReserved = True Then

    MsgBox "No se pueden hacer cambios a este documento."

End If


Propiedad HasPassword

True si se requiere una contraseña para abrir el documento especificado. Boolean de sólo lectura.


Ejemplo de la propiedad HasPassword

En este ejemplo se establece "Migato" como contraseña para el documento activo y luego se muestra un mensaje de confirmación.

ActiveDocument.Password = "Migato"

If ActiveDocument.HasPassword = True Then MsgBox "La contraseña está establecida."


Propiedad Password

Establece una contraseña que hay que facilitar para abrir el documento especificado. String de sólo escritura.


Ejemplo de la propiedad Password

En este ejemplo se abre el documento Ingresos.doc, se establece una contraseña para él y, a continuación, se cierra el documento.

Set miDoc = Documents.Open(FileName:="C:\Mis Documentos\Ingresos.doc")

miDoc.Password = "razón"

miDoc.Close


Método ToggleFormsDesign

Activa y desactiva el modo diseño de formularios. Cuando Word está en modo diseño de formularios, se muestra la barra de herramientas Cuadro de controles. Se puede usar esta barra de herramientas para insertar controles ActiveX, tales como botones de comandos, barras de desplazamiento y botones de opciones. En modo diseño de formularios, los procedimientos asociados a eventos no se ejecutan y cuando se hace clic en un control incrustado aparecen los controladores de tamaño.

Sintaxis

expresión.ToggleFormsDesign

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método ToggleFormsDesign

En este ejemplo se pasa a modo diseño de formularios si la barra de herramientas Cuadro de controles no se muestra actualmente.

If CommandBars("Control toolbox").Visible = False Then

    ActiveDocument.ToggleFormsDesign

End If


Propiedad AutoVersion

Devuelve o establece el estado de la opción para guardar automáticamente versiones de documentos. Puede ser una de las siguientes constantes WdAutoMacros: wdAutoVersionOff o wdAutoVersionOnClose. Long de Lectura/Escritura.

Nota   Cuando la propiedad AutoVersion se configura como wdAutoVersionOnClose, una versión del documento se guarda automáticamente cuando se cierra éste.


Ejemplo de la propiedad AutoVersion

En este ejemplo se deshabilita la opción de guardar automáticamente la versión de un documento cuando se cierra el documento activo.

ActiveDocument.Versions.AutoVersion = wdAutoVersionOff

En este ejemplo se muestra un mensaje en la barra de estado si la opción de guardar automáticamente la versión de un documento está activa para Informe.doc.

If Documents("Informe.doc").Versions.AutoVersion = wdAutoVersionOnClose Then

    StatusBar = "Una versión se guardará automáticamente"

End If


Método UndoClear

Borra la lista de acciones que se pueden deshacer para el documento especificado. Corresponde a la lista de elementos que aparece cuando se hace clic en la flecha que está al lado del botón Deshacer en la barra de herramientas Estándar.

Nota   Incluya este método al final de una macro para evitar que las acciones de Visual Basic aparezcan en el cuadro Deshacer (por ejemplo, "VBA-Selection.InsertAfter").

Sintaxis

expresión.UndoClear

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método UndoClear

En este ejemplo se borra la lista de acciones que se pueden deshacer en relación con el documento activo.

ActiveDocument.UndoClear


Método AddToFavorites

Crea un acceso directo al documento o un hipervínculo y lo agrega a la carpeta Favoritos.

Sintaxis

expresión.AddToFavorites

expresión   Requerida. Expresión que devuelve un objeto Document o Hyperlink.


Ejemplo del método AddToFavorites

En este ejemplo se crea un acceso directo para cada hipervínculo del documento activo y se agrega a la carpeta Favoritos.

For Each miHipervínculo In ActiveDocument.Hyperlinks

    miHipervínculo.AddToFavorites

Next miHipervínculo

En este ejemplo se crea un acceso directo a Ventas.doc y se agrega a la carpeta Favoritos. Si Ventas.doc no está abierto actualmente, en este ejemplo se abre desde la carpeta C:\Documentos.

For Each doc in Documents

    If LCase(doc.Name) = "ventas.doc" Then isOpen = True

Next doc

If isOpen <> True Then Documents.Open _

    FileName:="C:\Documentos\Ventas.doc"

Documents("Ventas.doc").AddToFavorites


Método Open

Sintaxis 1: Abre el documento especificado y lo agrega al conjunto Documents. Devuelve un objeto Document.

Sintaxis 2: Abre el objeto especificado. Cuando se aplica a un objeto Subdocument o RecentFile, Sintaxis 2 devuelve un objeto Document.

Sintaxis 1

expresión.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format)

Sintaxis 2

expresión.Open

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Documents.

Sintaxis 2: Requerida. Expresión que devuelve un objeto OLEFormat, RecentFile, Subdocument o Version.

Filename   Variant requerida. El nombre del documento (se aceptan rutas de acceso). En Windows, se pueden especificar varios archivos separando los nombres con espacios; en Macintosh sólo se puede especificar un archivo.

ConfirmConversions   Variant opcional. True para mostrar el cuadro de diálogo Convertir archivo si el archivo no está en formato Word.

ReadOnly   Variant opcional. True para abrir el documento como de sólo lectura.

AddToRecentFiles   Variant opcional. True para agregar el nombre del archivo a la lista de archivos recientemente utilizados en la parte inferior del menú Archivo.

PasswordDocument   Variant opcional. La contraseña para poder abrir el documento.

PasswordTemplate   Variant opcional. La contraseña para poder abrir la plantilla.

Revert   Variant opcional. Controla lo que sucede si Name es el nombre del archivo de un documento abierto. True para descartar cualquier cambio no guardado del documento abierto y reabrir el archivo. False para activar el documento abierto.

WritePasswordDocument   Variant opcional. Contraseña para guardar los cambios del documento.

WritePasswordTemplate   Variant opcional. Contraseña para guardar los cambios de la plantilla.

Format   Variant opcional. El convertidor de archivos que se va a usar para abrir el documento. Puede ser una de las siguientes constantes WdOpenFormat: wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText o wdOpenFormatUnicodeText. El valor predeterminado es wdOpenFormatAuto.

Para especificar un formato de archivo externo, aplique la propiedad OpenFormat a un objeto FileConverter para determinar el valor que se va a utilizar con este argumento.


Ejemplo del método Open

En este ejemplo se abre MiDoc.doc como un documento de sólo lectura.

Documents.Open FileName:="C:\MisArchivos\MiDoc.doc", ReadOnly:=True

En este ejemplo se abren todos los documentos del conjunto RecentFiles.

For Each rArchivo In RecentFiles

    rArchivo.Open

Next rArchivo

En este ejemplo se abre la versión más reciente de Informe.doc.

Set miDoc = Documents("Informe.doc")

miDoc.Versions(myDoc.Versions.Count).Open

En este ejemplo se abre Prueba.wp mediante el convertidor de archivos de WordPerfect 6.x.

num = FileConverters("WordPerfect6x").OpenFormat

Documents.Open FileName:="C:\Prueba.wp", Format:=num

En este ejemplo de Macintosh se abre el documento de nombre Hola.

Documents.Open FileName:="Disco duro:Archivos:Hola"


Propiedad PageSize

Devuelve o establece el tamaño de página de la etiqueta postal personalizada especificada. Puede ser una de las siguientes constantes WdCustomLabelPageSize: wdCustomLabelA4, wdCustomLabelA4LS, wdCustomLabelA5, wdCustomLabelA5LS, wdCustomLabelB5, wdCustomLabelFanfold, wdCustomLabelLetter, wdCustomLabelLetterLS o wdCustomLabelMini. Long de Lectura/Escritura.


Ejemplo de la propiedad PageSize

En este ejemplo, se crea un nueva etiqueta personalizada denominada "Domicilio" y se definen varias propiedades para la etiqueta, incluido el tamaño de página.

Set miEtiqueta = Application.MailingLabel _

    .CustomLabels.Add(Name:="Domicilio", DotMatrix:=False)

With miEtiqueta

    .Height = InchesToPoints(0.5)

    .HorizontalPitch = InchesToPoints(2.06)

    .NumberAcross = 4

    .NumberDown = 20

    .PageSize = wdCustomLabelLetter

    .SideMargin = InchesToPoints(0.28)

    .TopMargin = InchesToPoints(0.5)

    .VerticalPitch = InchesToPoints(0.5)

    .Width = InchesToPoints(1.75)

End With


Propiedad EnlargeFontsLessThan

Devuelve o establece el tamaño por debajo del cual a las fuentes de pantalla se les aplica automáticamente un tamaño mayor. Long de Lectura/Escritura.

Nota   Esta propiedad sólo afecta al texto de la forma descrita en la vista Diseño en pantalla. Los tamaños que se muestran en la barra de herramientas Formato y que se usan para la impresión no se cambian.


Ejemplo de la propiedad EnlargeFontsLessThan

En este ejemplo, se pasa la ventana activa a la vista Diseño en pantalla y se aumentan las fuentes que sean más pequeñas de 10 puntos.

With ActiveWindow.View

    .Type = wdOnlineView

    .EnlargeFontsLessThan = 10

End With

En este ejemplo, se pasa la ventana activa a la vista Diseño en pantalla y se aumenta en 2 puntos el valor actual de la opción Agrandar fuentes menores que de la ficha Ver del cuadro de diálogo Opciones.

With ActiveWindow.View

    .Type = wdOnlineView

    .EnlargeFontsLessThan = .EnlargeFontsLessThan + 2

End With


Propiedad DefaultOpenFormat

Devuelve o establece el convertidor de archivos predeterminado que va a utilizarse para abrir los documentos. Puede ser un número que devuelve la propiedad OpenFormat o una de las siguientes constantes WdOpenFormat: wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText o wdOpenFormatUnicodeText. Long de Lectura/Escritura.

Nota   Use el argumento Format con el método Open para especificar el convertidor de archivos que vaya a utilizar cuando abra un solo documento.


Ejemplo de la propiedad DefaultOpenFormat

En este ejemplo, se establece el convertidor predeterminado para abrir archivos en el formato de documento de Word y después se abre Previsión.doc.

Options.DefaultOpenFormat = wdOpenFormatDocument

Documents.Open FileName:="C:\Ventas\Previsión.doc"

En este ejemplo, se establece el convertidor predeterminado para abrir documentos de forma que automáticamente se determine el convertidor de archivos apropiado que va a usarse al abrirlos.

Options.DefaultOpenFormat = wdOpenFormatAuto

En este ejemplo, se establece el convertidor predeterminado para abrir documentos con el formato de WordPerfect 6.x.

Options.DefaultOpenFormat = FileConverters("WordPerfect6.x").OpenFormat


Método GetCrossReferenceItems

Devuelve una matriz de elementos a los que pueden aplicarse referencias cruzadas en función del tipo de referencia cruzada especificada. La matriz corresponde a los elementos mostrados en el cuadro Para qué del cuadro de diálogo Referencia cruzada (menú Insertar).

Nota   Un elemento que devuelve este método puede usarse como argumento ReferenceWhich del método InsertCrossReference.

Sintaxis

expresión.GetCrossReferenceItems(ReferenceType)

expresión   Requerida. Expresión que devuelve un objeto Document.

ReferenceType   Variant requerida. Tipo de elemento para el que desea insertarse una referencia cruzada. Puede ser una de las siguientes constantes WdReferenceType: wdRefTypeBookmark, wdRefTypeEndnote, wdRefTypeFootnote, wdRefTypeHeading o wdRefTypeNumberedItem.


Ejemplo del método GetCrossReferenceItems

En este ejemplo, se muestra el nombre del primer marcador del documento activo al que se le puede aplicar una referencia cruzada.

If ActiveDocument.Bookmarks.Count >= 1 Then

    misMarcadores = AvtiveDocument.GetCrossReferenceItems(wdRefTypeBookmark)

    MsgBox misMarcadores(1)

End If

En este ejemplo, se utiliza el método GetCrossReferenceItems para recuperar una lista de títulos a los que se les puede aplicar una referencia cruzada y, a continuación, se insertar una referencia cruzada a la página que incluya el título "Introducción".

misTítulos = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)

For i = 1 To Ubound(misTítulos)

    If Instr(LCase$(misTítulos(i)), "Introducción") Then

        Selection.InsertCrossReference ReferenceType:=wdRefTypeHeading, _

            ReferenceKind:=wdPageNumber, ReferenceItem:=i

        Selection.InsertParagraphAfter

    End If

Next i


Propiedad SaveFormat

Devuelve el formato de archivo del documento o convertidor de archivo especificado. Puede ser un número único que especifique un convertidor de archivos externo o una de las siguientes constantes WdSaveFormat: wdFormatDocument, wdFormatDOSText, wdFormatDOSTextLineBreaks, wdFormatRTF, wdFormatTemplate, wdFormatText, wdFormatTextLineBreaks o wdFormatUnicodeText. Long de sólo lectura.


Ejemplo de la propiedad SaveFormat

Si el documento activo es un documento con formato rtf, en este ejemplo se guarda como documento de Word.

If ActiveDocument.SaveFormat = wdFormatRTF Then

    ActiveDocument.SaveAs FileFormat:=wdFormatDocument

End If

En este ejemplo, se muestran los convertidores que pueden usarse para guardar documentos. El cuadro de mensaje muestra el valor del único formato que se ha aplicado para guardar y el nombre del mismo.

For Each fc In FileConverters

    If fc.CanSave = True Then MsgBox fc.SaveFormat & vbCr & fc.FormatName

Next fc

En este ejemplo, se guarda el documento activo en formato de archivo secundario de WordPerfect 5.1 o 5.2.

ActiveDocument.SaveAs FileFormat:=FileConverters("WrdPrfctDat").SaveFormat


Método UpdateSummaryProperties

Actualiza la palabra clave y el texto de comentario del cuadro de diálogo Propiedades (menú Archivo) para que refleje el contenido de Autorresumen del documento especificado.

Sintaxis

expresión.UpdateSummaryProperties

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método UpdateSummaryProperties

En este ejemplo, se resaltan los puntos principales del documento activo y se actualiza la información de resumen del cuadro de diálogo Propiedades (menú Archivo).

With ActiveDocument

    .AutoSummarize Length:=wd25Percent, Mode:=wdSummaryModeHighlight

    .UpdateSummaryProperties

End With


Método New

Inserta un objeto de imagen de Word, vacío, de 2,54 cm2 rodeado por un borde. Este método devuelve el nuevo gráfico como objeto InlineShape.

Sintaxis

expresión.New(Range)

expresión   Requerida. Expresión que devuelve un objeto InlineShapes.

Range   Objeto Range requerido. Posición del nuevo gráfico.


Ejemplo del método New

En este ejemplo, se inserta una imagen nueva, vacía, en el documento activo y se aplica un borde de sombra alrededor de la imagen.

Set miImagen = ActiveDocument.InlineShapes.New(Range:=Selection.Range)

miImagen.Borders.Shadow = True

ActiveWindow.View.ShowFieldCodes = False


Propiedad Background

Devuelve un objeto Shape que representa la imagen de fondo del documento especificado. Es de sólo lectura.

Nota   Los fondos sólo se ven en la vista Diseño en pantalla.


Ejemplo de la propiedad Background

En este ejemplo, se establece el color de fondo de la vista Diseño en pantalla de la ventana activa como gris claro.

ActiveWindow.View.Type = wdOnlineView

With ActiveDocument.Background.Fill

    .Visible = True

    .ForeColor.RGB = RGB(192, 192, 192)

End With

En este ejemplo, se establece la imagen de mapa de bits de fondo de la vista Diseño en pantalla como Burbujas.bmp.

ActiveWindow.View.Type = wdOnlineView

ActiveDocument.Background.Fill.UserPicture PictureFile:="C:\Windows\Burbujas.bmp"


Método Reload

Carga de nuevo un documento en memoría resolviendo el hipervínculo al documento y descargándolo. Este método solamente está disponible con documentos en memoría (no puede usarse con archivos FAT).

Nota   Si el documento ya se ha abierto con anterioridad, este método asegura que no se usa la versión en memoría del documento especificado. Si el documento especificado no se ha abierto desde World Wide Web o una intranet local, se produce un error.

Sintaxis

expresión.Reload

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método Reload

En este ejemplo, se abre y se carga de nuevo el hipervínculo a la dirección "principal" de una intranet local.

With ActiveDocument

    .FollowHyperlink Address:="http://principal"

    .Reload

End With


Método Follow

Muestra un documento en memoría asociado con el objeto Hyperlink especificado, si ya se ha descargado. De lo contrario, este método resuelve el hipervínculo, descarga el documento de destino y muestra el documento en la aplicación apropiada.

Nota   Si el hipervínculo utiliza el protocolo del archivo, este método abre el documento en lugar de descargarlo.

Sintaxis

expresión.Follow(NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)

expresión   Requerida. Expresión que devuelve un objeto Hyperlink.

NewWindow   Variant opcional. True para mostrar el documento de destino en una nueva ventana. El valor predeterminado es False.

AddHistory   Variant opcional. Este argumento se reserva para uso futuro. El valor predeterminado es True.

ExtraInfo   Variant opcional. Cadena o matriz de bytes que especifica la información adicional que HTTP va a utilizar para resolver el hipervínculo. Por ejemplo, se puede utilizar ExtraInfo para especificar las coordenadas de un mapa de imágenes, el contenido de un formulario o un nombre de archivo FAT. La cadena se envía o se anexa, en función del valor de Method. Use la propiedad ExtraInfoRequired para determinar si se necesita información adicional.

Method   Variant opcional. Especifica el modo en que se trata la información adicional de HTTP. Puede ser una de las siguientes constantes MsoExtraInfoMethod:

Constante	Descripción
msoMethodGet	ExtraInfo es una cadena que se anexa a la dirección.
msoMethodPost	ExtraInfo se envía como cadena o matriz de bytes.
HeaderInfo   Variant opcional. Cadena que especifica información de encabezado de la petición de HTTP. El valor predeterminado es una cadena vacía. Se pueden combinar varias líneas de encabezado en una sola cadena utilizando la sintaxis siguiente: "cadena1" & vbCr & "cadena2". La cadena especificada se convierte automáticamente en caracteres ANSI. Tenga en cuenta que el argumento HeaderInfo puede sobrescribir campos de encabezado HTTP predeterminados.


Ejemplo del método Follow

En este ejemplo, se sigue el primer hipervínculo de Casa.doc.

Documents("Casa.doc").HyperLinks(1).Follow

En este ejemplo, se inserta un hipervínculo a www.msn.com y, a continuación, se sigue el hipervínculo.

With Selection

    .Collapse Direction:=wdCollapseEnd

    .InsertAfter "MSN "

    .Previous

End With

Set miVínculo = ActiveDocument.Hyperlinks.Add(Address:="http://www.msn.com", _

    Anchor:=Selection.Range)

miVínculo.Follow NewWindow:=False, AddHistory:=True


Método FollowHyperlink

Muestra un documento en memoría, si ya se ha descargado. De lo contrario, este método resuelve el hipervínculo, descarga el documento de destino y muestra el documento en la aplicación apropiada.

Nota   Si el hipervínculo utiliza el protocolo de archivo, este método abre el documento en lugar de descargarlo.

Sintaxis

expresión.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)

expresión   Requerida. Expresión que devuelve un objeto Document.

Address   String requerida. Dirección del documento de destino.

SubAddress   Variant opcional. Ubicación en el documento de destino. El valor predeterminado es una cadena vacía.

NewWindow   Variant opcional. True para mostrar la ubicación de destino en una nueva ventana. El valor predeterminado es False.

AddHistory   Variant opcional. Este argumento se reserva para uso futuro. El valor predeterminado es True.

ExtraInfo   Variant opcional. Cadena o matriz de bytes que especifica la información adicional que HTTP va a utilizar para resolver el hipervínculo. Por ejemplo, se puede utilizar ExtraInfo para especificar las coordenadas de un mapa de imágenes, el contenido de un formulario o un nombre de archivo FAT. La cadena se envía o se anexa, en función del valor de Method. Use la propiedad ExtraInfoRequired para determinar si se necesita información adicional.

Method   Variant opcional. Especifica el modo en que se trata la información adicional de HTTP. Puede ser una de las siguientes constantes MsoExtraInfoMethod:

Constante	Descripción
msoMethodGet	ExtraInfo es una cadena que se anexa a la dirección.
msoMethodPost	ExtraInfo se envía como cadena o matriz de bytes.
HeaderInfo   Variant opcional. Cadena que especifica información de encabezado de la petición de HTTP. El valor predeterminado es una cadena vacía. Se pueden combinar varias líneas de encabezado en una sola cadena utilizando la sintaxis siguiente: "cadena1" & vbCr & "cadena2". La cadena especificada se convierte automáticamente en caracteres ANSI. Tenga en cuenta que el argumento HeaderInfo puede sobrescribir campos de encabezado HTTP predeterminados.


Ejemplo del método FollowHyperlink

En este ejemplo, se sigue la dirección URL y se muestra la página principal de Microsoft en una nueva ventana.

ActiveDocument.FollowHyperlink Address:="http://www.Microsoft.com", _

    NewWindow:=True, AddHistory:=True

En este ejemplo, se muestra el documento HTML denominado "Predeterminado.htm".

ActiveDocument.FollowHyperlink Address:="archivo:C:\Páginas\Predeterminado.htm"


Propiedad ExtraInfoRequired

True si se necesita información adicional para resolver el hipervínculo especificado. Boolean de sólo lectura.

Nota   Se puede especificar información adicional mediante el uso del argumento ExtraInfo con el método Follow o con el método FollowHyperlink. Por ejemplo, se puede utilizar ExtraInfo para especificar las coordenadas de un mapa de imágenes, el contenido de un formulario o un nombre de archivo FAT.


Ejemplo de la propiedad ExtraInfoRequired

En este ejemplo, se inserta un hipervínculo a www.msn.com y, a continuación, se sigue el hipervínculo si no se necesita información adicional.

With Selection

    .Collapse Direction:=wdCollapseEnd

    .InsertAfter "MSN "

    .Previous

End With

Set miVínculo = ActiveDocument.Hyperlinks.Add(Address:="http://www.msn.com", _

    Anchor:=Selection.Range)

If miVínculo.ExtraInfoRequired = False Then

    miVínculo.Follow

End If


Propiedad CodeName

Devuelve el nombre de código del documento especificado. String de sólo lectura.

Comentarios

El nombre de código es el nombre del módulo que guarda las macros de eventos de un documento. El nombre predeterminado del módulo es "EsteDocumento"; puede verse en la ventana Project. Para obtener información acerca de la utilización de eventos con el objeto Document, consulte Uso de eventos con el objeto Document.


Ejemplo de la propiedad CodeName

En este ejemplo se devuelve el nombre de la ventana de código del documento activo.

Msgbox ActiveDocument.CodeName


Propiedad Container

Devuelve el objeto que representa la aplicación contenedora del objeto OLE especificado. Es de sólo lectura.

Comentarios

Esta propiedad proporciona acceso a la aplicación contenedora del documento especificado si el documento está incrustado en otra aplicación como objeto OLE.

La propiedad Container también proporciona el camino hacia el modelo de objeto de la aplicación contenedora si un documento de Word se abre como documento ActiveX; por ejemplo, si un documento de Word se abre en el Cuaderno de Microsoft Office o en Internet Explorer 3.0.


Ejemplo de la propiedad Container

En este ejemplo se muestra el nombre de la aplicación contenedora de la primera forma del documento activo. Para que el ejemplo tenga validez, la forma debe ser un objeto OLE.

Msgbox ActiveDocument.Shapes(1).OLEFormat.Object.Container.Name


Propiedad FormsDesign

True si el documento especificado está en modo de diseño de formularios. Boolean de sólo lectura.

Nota   Esta propiedad siempre devolverá False si se ejecuta desde una macro de Word.

Comentarios

Cuando Word está en modo de diseño de formularios, se muestra el Cuadro de controles. Esta barra de herramientas permite insertar controles ActiveX, tales como botones de comandos, barras de desplazamiento y botones de opciones. En el modo de diseño de formularios, los procedimientos asociados a eventos no se ejecutan y, al hacer clic en un control incrustado, aparecen los controladores de tamaño.


Ejemplo de la propiedad FormsDesign

En este ejemplo se muestra un cuadro de mensaje que indica si el documento activo está en modo de diseño de formularios. En este ejemplo siempre se devolverá False.

Msgbox ActiveDocument.FormsDesign


Método PresentIt

Abre PowerPoint y carga el documento de Word especificado.

Sintaxis

expresión.PresentIt

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método PresentIt

En este ejemplo se envía una copia del documento "MiPresentación.doc" a PowerPoint.

Documents("MiPresentación.doc").PresentIt


Método SendFax

Objeto Application: Inicia el Asistente para faxes.

Objeto Document: Envía el documento especificado como un fax, sin intervención del usuario.

Sintaxis 1

expresión.SendFax

Sintaxis 2

expresión.SendFax(Address, Subject)

expresión   Requerida. Expresión que devuelve un objeto Application (Sintaxis 1) o un objeto Documento (Sintaxis 2).

Address   String requerida. Número de fax del destinatario.

Subject   Variant opcional. Texto de la línea de asunto. El límite de caracteres es de 255.


Ejemplo del método SendFax

En este ejemplo se envía el documento activo como un fax.

ActiveDocument.SendFax Address:="12065551234", _

   Subject:="Fax importante"

En este ejemplo se inicia el Asistente para faxes.

Application.SendFax


Propiedad VBProject

Devuelve el objeto VBProject para la plantilla o documento especificados. Es de sólo lectura.

Comentarios

Esta propiedad se utiliza para obtener acceso a módulos de códigos y formularios de usuario.

Para ver el objeto VBProject en el examinador de objetos, debe activar la casilla de verificación Microsoft Visual Basic for Applications Extensibility en el cuadro de diálogo Referencias (menú Herramientas) del Editor de Visual Basic.


Ejemplo de la propiedad VBProject

En este ejemplo se muestra el nombre del proyecto de Visual Basic para la plantilla Normal.

Set ProyNorm = NormalTemplate.VBProject

MsgBox ProyNorm.Name

En este ejemplo se muestra el nombre del proyecto de Visual Basic para el documento activo.

Set proyActual = ActiveDocument.VBProject

MsgBox proyActual.Name

En este ejemplo se agrega un módulo de código estándar al documento activo y se le asigna el nombre "MiMódulo".

Set nuevoMódulo = ActiveDocument.VBProject.VBComponents.Add(vbext_ct_StdModule)

NuevoMódulo.Name = "MiMódulo"


Método ViewCode

Muestra la ventana de códigos para el control ActiveX seleccionado en el documento especificado.

Nota   Este método está disponible sólo si está fuera de Word.

Sintaxis

expresión.ViewCode

expresión   Requerida. Expresión que devuelve un objeto Document.


Método ViewPropertyBrowser

Muestra la ventana de propiedades para el control ActiveX seleccionado en el documento especificado.

Nota   Este método está disponible sólo si está fuera de Word.

Sintaxis

expresión.ViewPropertyBrowser

expresión   Requerida. Expresión que devuelve un objeto Document.


Propiedad LanguageSpecific

True si el diccionario personalizado va a utilizarse sólo con texto con formato para un idioma específico. Boolean de Lectura/Escritura.


Ejemplo de la propiedad LanguageSpecific

En este ejemplo se verifica si existen diccionarios personalizados específicos para un idioma. Si es así, se quitan de la lista de diccionarios personalizados activos.

For each d in CustomDictionaries

   If d.LanguageSpecific = True Then d.Delete

Next d

En este ejemplo se agrega un diccionario personalizado que revisará sólo el texto que tenga formato de idioma alemán.

Set miD = CustomDictionaries.Add("MiAlemán.dic")

miD.LanguageSpecific = True

miD.LanguageID = wdGerman


Propiedad SpellingDictionaryType

Devuelve o establece el tipo de herramienta de revisión. Puede ser una de las siguientes constantes WdDictionaryType: wdGrammar, wdHyphenation, wdSpelling, wdSpellingComplete, wdSpellingCustom, wdSpellingLegal, wdSpellingMedical o wdThesaurus. Long de Lectura/Escritura.

Comentarios

Esta propiedad sirve para cambiar el diccionario ortográfico activo por uno de los diccionarios complementarios disponibles que funcionan con Word. Por ejemplo, existen diccionarios ortográficos jurídicos, médicos y completos que pueden utilizarse en lugar del diccionario estándar.


Ejemplo de la propiedad SpellingDictionaryType

En este ejemplo se devuelve el tipo de diccionario ortográfico utilizado para el inglés de EE.UU.

miTipo = Languages(wdEnglishUS).SpellingDictionaryType

En este ejemplo, el diccionario jurídico se establece como diccionario ortográfico activo.

Languages(wdEnglishUS).SpellingDictionaryType = wdSpellingLegal


Propiedad DefaultLabelName

Devuelve o establece el nombre de la etiqueta postal predeterminada. String de Lectura/Escritura.

Nota   Para encontrar la cadena de la etiqueta integrada que especifique, selecciónela en el cuadro de diálogo Opciones para etiquetas (menú Herramientas, cuadro de diálogo Sobres y etiquetas, ficha Etiquetas, botón Opciones). Después haga clic en Detalles y observe el cuadro Nombre de etiqueta, que contiene la cadena correcta que debe utilizarse para la propiedad. Para establecer una etiqueta personalizada como etiqueta postal predeterminada, utilice el nombre de la etiqueta que aparece en el cuadro de diálogo Detalles o utilice la propiedad Name con un objeto CustomLabel.


Ejemplo de la propiedad DefaultLabelName

En este ejemplo se devuelve el nombre de la etiqueta postal predeterminada actual.

Msgbox Application.MailingLabel.DefaultLabelName

En este ejemplo se establece la etiqueta de dirección Avery 5160 estándar como etiqueta postal predeterminada.

Application.MailingLabel.DefaultLabelName = "5160"


Método AppendToSpike

Elimina el intervalo especificado y agrega su contenido al elemento Especial (elemento de Autotexto integrado). Este método devuelve el valor de Especial como un objeto AutoTextEntry.

Sintaxis

expresión.AppendToSpike(Range)

expresión   Requerida. Expresión que devuelve un objeto AutoTextEntries.

Range   Objeto Range requerido. Intervalo que se elimina y anexa al elemento Especial.


Ejemplo del método AppendToSpike

Este ejemplo elimina la selección y agrega su contenido al elemento Especial en la plantilla Normal.

If Len(Selection.Range.Text) > 1 Then

    NormalTemplate.AutoTextEntries.AppendToSpike _

        Range:=Selection.Range

End If

Este ejemplo borra el elemento Especial y agrega la primera y la tercera palabras del documento activo al elemento Especial de la plantilla adjunta. A continuación, se inserta el contenido de dicho elemento en el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

Set miPlantilla = ActiveDocument.AttachedTemplate

For Each entrada In miPlantilla.AutoTextEntries

    If entrada.Name = "Especial" Then entrada.Delete

Next entrada

With miPlantilla.AutoTextEntries

    .AppendToSpike Range:= ActiveDocument.Words(3)

    .AppendToSpike Range:= ActiveDocument.Words(1)

    .Item("Especial").Insert Where:=Selection.Range

End With


Propiedad AttachedTemplate

Devuelve un objeto Template que representa la plantilla adjunta al documento especificado. Para establecer esta propiedad, especifique el nombre de la plantilla o una expresión que devuelva un objeto Template. Variant de Lectura/Escritura.


Ejemplo de la propiedad AttachedTemplate

Este ejemplo muestra el nombre y la ruta de acceso de la plantilla adjunta al documento activo.

Set miPlantilla = ActiveDocument.AttachedTemplate

MsgBox miPlantilla.Path & Application.PathSeparator & _

    miPlantilla.Name

Este ejemplo inserta el contenido del elemento Especial (elemento de Autotexto integrado) al principio del documento uno.

Set miIntervalo = Documents(1).Range(0, 0)

Documents(1).AttachedTemplate.AutoTextEntries("Especial").Insert miIntervalo

Este ejemplo adjunta la plantilla "Carta.dot" al documento activo.

ActiveDocument.AttachedTemplate = "C:\Plantillas\Carta.dot"


Propiedad AutoTextEntries

Devuelve un conjunto de AutoTextEntries que representa todas los elementos de Autotexto de la plantilla especificada. Es de sólo lectura.

Para obtener información acerca de cómo obtener un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad AutoTextEntries

Este ejemplo elimina el elemento de Autotexto denominado "Hola" si dicho elemento existe en la plantilla adjunta.

For Each entrada In ActiveDocument.AttachedTemplate.AutoTextEntries

    If entrada.Name = "Hola" Then entrada.Delete

Next entrada

Este ejemplo agrega un elemento de Autotexto denominado "Temp" a la plantilla Normal. A continuación, aparece un cuadro de mensaje en el que se muestra el contenido del elemento de Autotexto; es decir, la primera palabra del documento.

Set miElemento = NormalTemplate.AutoTextEntries.Add(Name:="Temp", _

    Range:=ActiveDocument.Words(1))

MsgBox miElemento.Value

Este ejemplo guarda en la plantilla adjunta el contenido de la selección como un elemento de Autotexto denominado "Dirección".

If Len(Selection.Text) > 1 Then

    ActiveDocument.AttachedTemplate.AutoTextEntries.Add _

        Range:=Selection.Range, Name:="Dirección"

End If


Método OpenAsDocument

Abre la plantilla especificada como un documento y devuelve un objeto Document.

Nota:   si la plantilla se abre como documento, el usuario puede modificar el contenido de la misma. Esta acción puede ser necesaria si en el objeto Template no se dispone de ningún método o propiedad; como por ejemplo la propiedad Styles.

Sintaxis

expresión.OpenAsDocument()

expresión   Requerida. Expresión que devuelve un objeto Template.


Ejemplo del método OpenAsDocument

Este ejemplo abre la plantilla adjunta al documento activo, muestra un cuadro de mensaje si la plantilla contiene otros datos aparte de una sola marca de párrafo y, a continuación, la cierra.

Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument

If aDoc.Content.Text <> Chr(13) Then

    MsgBox "La plantilla no está vacía"

Else

    MsgBox "La plantilla está vacía"

End If

aDoc.Close SaveChanges:=wdDoNotSaveChanges

Este ejemplo guarda una copia de la plantilla Normal como "Copiaseg.dot".

Set aDoc = PlantillaNormal.OpenAsDocument

With aDoc

    .SaveAs FileName:="Copiaseg.dot"

    .Close SaveChanges:=wdDoNotSaveChanges

End With

Este ejemplo cambia el formato del estilo de Título 1 en la plantilla adjunta al documento activo. El método UpdateStyles actualiza los estilos del documento activo.

Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument

With aDoc.Styles(wdStyleHeading1).Font

    .Name = "Arial"

    .Size = 16

    .Bold = False

End With

aDoc.Close SaveChanges:=wdSaveChanges

ActiveDocument.UpdateStyles


Propiedad Templates

Devuelve un conjunto de Templates que representa a todas las plantillas disponibles: tanto las globales como las adjuntas a los documentos abiertos. Es de sólo lectura.

Para obtener información acerca de cómo obtener un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Templates

Este ejemplo muestra el nombre de todas las plantillas del conjunto Templates.

Contador = 1

For Each aTemplate In Templates

    MsgBox aTemplate.Name & " es la plantilla número " & Contador

    Contador = Contador + 1

Next aTemplate

En el ejemplo siguiente, si la plantilla uno es una plantilla global, su ruta de acceso se guarda en laRuta. La sentencia ChDir se utiliza para que la carpeta actual sea la carpeta con la ruta de acceso guardada en laRuta. Una vez efectuado este cambio, aparecerá el cuadro de diálogo Abrir.

If Templates(1).Type = wdGlobalTemplate Then

    laRuta = Templates(1).Path

    If laRuta <> "" Then ChDir laRuta

    Dialogs(wdDialogFileOpen).Show

End If


Propiedad NormalTemplate

Devuelve un objeto Template que representa a la plantilla Normal. Es de sólo lectura.


Ejemplo de la propiedad NormalTemplate

Este ejemplo inserta el elemento de Autotexto denominado "Prueba" desde la plantilla Normal, si el conjunto AutoTextEntries incluye dicho elemento.

For Each entrada In NormalTemplate.AutoTextEntries

    If entrada.Name = "Prueba" Then entrada.Insert Where:=Selection.Range

Next entrada

Este ejemplo guarda la plantilla Normal si se han efectuado cambios en ella.

If NormalTemplate.Saved = False Then NormalTemplate.Save


Propiedad Duplicate

Objeto Font: Devuelve un objeto Font que representa el formato de caracteres de la fuente especificada. Es de sólo lectura.

Objeto LetterContent: Devuelve un objeto LetterContent que representa el contenido de la carta especificada, creada por el Asistente para cartas. Es de sólo lectura.

Objeto ParagraphFormat: Devuelve un objeto ParagraphFormat que representa el formato de párrafo del párrafo especificado. Es de sólo lectura.

Objeto Range: Devuelve un objeto Range que representa todas las propiedades del intervalo especificado. Es de sólo lectura.

Objeto TextRetrievalMode: Devuelve un objeto TextRetrievalMode que representa las opciones relacionadas con la recuperación de texto del objeto Range especificado. Es de sólo lectura.

Comentarios

Puede utilizar la propiedad Duplicate para recoger los valores de todas las propiedades de un objeto Font, LetterContent o ParagraphFormat duplicado. Puede asignar el objeto devuelto por la propiedad Duplicate a otro objeto del mismo tipo para que todos los valores se apliquen a la vez. Antes de asignar el objeto duplicado a otro objeto, puede cambiar cualquiera de las propiedades del primero sin afectar al original.

Al duplicar un objeto Range, puede cambiar la posición inicial o final de los caracteres del intervalo duplicado sin cambiar el intervalo original.


Ejemplo de la propiedad Duplicate

En este ejemplo se duplica el objeto Range asignado a la variable miIntervalo. En el ejemplo se contrae el intervalo duplicado hasta el punto final, se expande un carácter y se pone éste último en mayúscula. A continuación, se aplica formato de cursiva al objeto Range original (miIntervalo).

Set miIntervalo = Selection.Range

With miIntervalo.Duplicate

    .Collapse Direction:=wdCollapseEnd

    .Expand Unit:=wdCharacter

    .Case = wdUpperCase

End With

miIntervalo.Font.Italic = True

En este ejemplo se establece la variable MiFuenteDup con el formato de caracteres de la selección, se quita el formato de negrita a MiFuenteDup y en su lugar se le aplica formato de cursiva. También se crea un nuevo documento, se inserta texto en él y, a continuación, se le aplica el formato guardado en MiFuenteDup.

Set miFuenteDup = Selection.Font.Duplicate

With miFuenteDup

    .Bold = False

    .Italic = True

End With

Documents.Add

Selection.InsertAfter "Esto es texto."

Selection.Font = miFuenteDup

En este ejemplo se duplica el formato de párrafo del primer párrafo del documento activo, se guarda el formato en la variable miDup y, a continuación, se cambia la sangría izquierda de miDup a 2,5 centímetros. También se crea un nuevo documento, se inserta texto en él y, a continuación, se le aplica el formato de párrafo guardado en MiDup.

ActiveDocument.Range(Start:=0, End:=0).InsertAfter "Párrafo número 1"

Set miDup = ActiveDocument.Paragraphs(1).Format.Duplicate

miDup.LeftIndent = InchesToPoints(1)

Documents.Add

Selection.InsertAfter "Éste es un nuevo párrafo."

Selection.Paragraphs.Format = miDup


Document, HeaderFooter, HyperLink


Adjustments, Range, CalloutFormat, Frame, InlineShape, ShapeRange, FillFormat, Shape GroupShapes, Hyperlink, LineFormat, LinkFormat, OLEFormat, ShapeNodes, PictureFormat, ShadowFormat, TextEffectFormat, TextFrame, ThreeDFormat, WrapFormat


Objeto Shape

Representa un objeto de la capa de dibujo, como una Autoforma, una forma libre, un objeto OLE, un control ActiveX o una imagen. El objeto Shape es un miembro del conjunto Shapes, que incluye todas las formas del contenido principal de un documento o de todos los encabezados y pies de página del mismo.

Las formas siempre se adjuntan a un intervalo de fijación. Puede colocar la forma en cualquier parte de la página que contenga el punto de fijación.

Nota   Existen tres objetos que representan formas: el conjunto Shapes, que representa todas las formas de un documento; el conjunto ShapeRange, que representa un subconjunto especificado de las formas de un documento, por ejemplo, un objeto ShapeRange podría representar las formas una y cuatro del documento o todas las formas seleccionadas del documento; el objeto Shape, que representa una sola forma del documento. Si desea trabajar con varias formas al mismo tiempo o con formas dentro de la selección, utilice un conjunto ShapeRange.

Uso del objeto Shape

En esta sección se describe el modo de:

•	Devolver una forma existente de un documento, indizada por nombre o número.

•	Devolver una o varias formas de una selección.

•	Devolver una forma recién creada.

•	Devolver una sola forma desde un grupo.

•	Devolver un grupo de formas recién creado.

Devolver una forma existente en un documento

Utilice Shapes(index), donde index corresponde al nombre o al número de índice, para devolver un solo objeto Shape. En el siguiente ejemplo, se voltea horizontalmente la forma uno del documento activo.

ActiveDocument.Shapes(1).Flip msoFlipHorizontal

En el siguiente ejemplo, se voltea horizontalmente la forma denominada "Rectángulo1" del documento activo.

ActiveDocument.Shapes("Rectángulo 1").Flip msoFlipHorizontal

A cada forma se le asigna un nombre predeterminado cuando se crea. Por ejemplo, si agrega tres formas distintas a un documento, podrían denominarse: "Rectángulo 2", "CuadroTexto 3" y "Elipse 4". Para asignar a una forma un nombre más descriptivo, establezca la propiedad Name.

Devolver una o varias formas de una selección

Utilice Selection.ShapeRange(index), donde index corresponde al nombre o al número de índice, para devolver un objeto Shape que represente a la forma dentro de una selección. En el ejemplo siguiente se establece el relleno de la primera forma de la selección, asumiendo que la selección contiene una forma por lo menos.

Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

En el siguiente ejemplo se establece el relleno de todas las formas de la selección, asumiendo que la selección contiene una forma por lo menos.

Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)

Devolver una forma recién creada

Para agregar un objeto Shape al conjunto de formas del documento especificado y devolver un objeto Shape que represente la forma recién creada, utilice uno de los siguientes métodos del conjunto Shapes: AddCallout, AddCurve, AddLabel, AddLine, AddOleControl, AddOleObject, AddPolyline, AddShape, AddTextbox, AddTextEffect o BuildFreeForm. En el siguiente ejemplo se agrega un rectángulo al documento activo.

ActiveDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

Devolver una sola forma desde un grupo

Utilice GroupItems(index), donde index corresponde al nombre de la forma o al número de índice, para devolver un objeto Shape que represente a una sola forma de una forma agrupada.

Devolver un grupo de formas recién creado

Utilice el método Group o Regroup para agrupar un intervalo de formas y devolver un solo objeto Shape que represente al grupo recién formado. Una vez formado el grupo, puede trabajar con él de la misma forma que lo haría con cualquier otra forma.

Fijar y colocar una forma

Todos los objetos Shape se fijan a un intervalo de texto. La forma se fija al principio del primer párrafo que contenga el intervalo de fijación. La forma siempre permanecerá en la misma página que su punto de fijación.

Puede ver el punto de fijación estableciendo el valor de la propiedad ShowObjectAnchors como True. Las propiedades Top y Left de la forma determinan sus posiciones vertical y horizontal. Las propiedades RelativeHorizontalPosition y RelativeVerticalPosition de la forma determinan si la posición se mide desde el párrafo de fijación, la columna que contiene dicho párrafo, el margen o el borde de la página.

Si se establece el valor de la propiedad LockAnchor como True, no podrá arrastrar el punto de fijación desde su posición en la página.

Aplicar formato a una forma

Utilice la propiedad Fill para devolver el objeto FillFormat, que contiene todas las propiedades y todos los métodos para aplicar formato al relleno de una forma cerrada. La propiedad Shadow devuelve el objeto ShadowFormat, que se utiliza para aplicar formato a una sombra. Utilice la propiedad Line para devolver el objeto LineFormat, que contiene las propiedades y los métodos para aplicar formato a las líneas y flechas. La propiedad TextEffect devuelve el objeto TextEffectFormat, que se utiliza para aplicar formato a los objetos WordArt. La propiedad Callout devuelve el objeto CalloutFormat, que se utiliza para aplicar formato a las llamadas de las líneas. La propiedad WrapFormat devuelve el objeto WrapFormat, que se utiliza para definir el modo que el texto se ajustará alrededor de las formas. La propiedad ThreeD devuelve el objeto ThreeDFormat, que se utiliza para crear formas 3D. Puede utilizar los métodos PickUp y Apply para transferir formato de una forma a otra.

Utilice el método SetShapesDefaultProperties de un objeto Shape para establecer el formato de la forma predeterminada del documento. Las nuevas formas heredan muchos de sus atributos de la forma predeterminada.

Otras propiedades importantes de las formas

Utilice la propiedad Type para especificar el tipo de forma, por ejemplo: forma libre, Autoforma, objeto OLE, llamada o imagen vinculada. Utilice la propiedad AutoShapeType para especificar el tipo de Autoforma, por ejemplo: elipse, rectángulo o globo.

Utilice las propiedades Width y Height para especificar el tamaño de la forma.

La propiedad TextFrame devuelve el objeto TextFrame, que contiene todas las propiedades y todos los métodos para adjuntar texto a las formas y vincular el texto entre marcos de texto.

Comentarios

Los objetos Shape se fijan a un intervalo de texto, pero son objetos flotantes y pueden situarse en cualquier parte de la página. Los objetos InlineShape se tratan y se colocan como caracteres dentro de la línea de texto. Puede utilizar los métodos ConvertToInlineShape y ConvertToShape para convertir formas de un tipo a otro. Sólo puede convertir imágenes, objetos OLE o controles ActiveX a formas entre líneas.


Range, Selection


Adjustments, Range, CalloutFormat, Frame, InlineShape, ShapeRange, FillFormat, Shape, GroupShapes, Hyperlink, LineFormat, ShapeNodes, PictureFormat, ShadowFormat, TextEffectFormat, TextFrame, ThreeDFormat, WrapFormat


Objeto de conjunto ShapeRange

Representa un intervalo de formas, que es el conjunto de formas de un documento. Un intervalo de formas puede contener tan sólo una única forma, o bien todas las formas del documento. Para crear un intervalo de formas puede incluir las formas que desee, elegidas entre todas las formas del documento o de la selección. Por ejemplo, puede crear un conjunto ShapeRange que contenga las tres primeras formas, todas las formas seleccionadas o todas las formas libres de un documento.

Nota   La mayoría de las operaciones que puede llevar a cabo con un objeto Shape, también podrá realizarlas con un objeto ShapeRange que contenga una única forma. Algunas operaciones, cuando se realizan en un objeto ShapeRange que contiene varias formas, producirán un error.

Uso del conjunto ShapeRange

En esta sección se describe el modo de:

•	Devolver un conjunto de formas especificadas por nombre o número de índice.

•	Devolver un objeto ShapeRange de una selección o intervalo.

Devolver un conjunto de formas especificadas por nombre o número de índice

Utilice Shapes.Range(index), donde index corresponde al nombre o al número de índice de la forma o a una matriz que contiene nombres o números de índice de formas, para devolver un conjunto ShapeRange que represente al conjunto de formas de un documento. Puede utilizar la función Array para crear una matriz de nombres y números de índice. En el siguiente ejemplo, se establece la trama de relleno de las formas una y tres del documento activo.

ActiveDocument.Shapes.Range(Array(1, 3)).Fill.Patterned msoPatternHorizontalBrick

En el siguiente ejemplo se seleccionan las formas denominadas "Elipse 4" y "Rectángulo 5" del documento activo.

ActiveDocument.Shapes.Range(Array("Elipse 4", "Rectángulo 5")).Select

Aunque puede utilizar el método Range para devolver cualquier número de formas, es más sencillo usar el método Item si únicamente desea devolver un solo miembro del conjunto. Por ejemplo, Shapes(1) es más sencillo que Shapes.Range(1).

Devolver un objeto ShapeRange de una selección o intervalo

Utilice Selection.ShapeRange(index), donde index corresponde al nombre o al número de índice, para devolver un objeto Shape que represente a la forma dentro de una selección. En el ejemplo siguiente se establece el relleno de la primera forma de la selección, asumiendo que la selección contiene una forma por lo menos.

Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

En este ejemplo se seleccionan todas las formas de la primera sección del documento activo.

Set miIntervalo = ActiveDocument.Sections(1).Range

miIntervalo.ShapeRange.Select

Alinear, distribuir y agrupar formas en un objeto ShapeRange

Utilice los métodos Align, Distribute y ZOrder para colocar un conjunto de formas en relación unas con otras o con relación al documento.

Utilice los métodos Group, Regroup y UnGroup para crear y trabajar con una sola forma creada desde un intervalo de formas. La propiedad GroupItems de un objeto Shape devuelve el objeto GroupShapes, que representa a todas las formas que se hayan agrupado para crear una forma.

Comentarios

La grabadora siempre utiliza la propiedad ShapeRange para grabar formas.

Un objeto ShapeRange no incluye objetos InlineShape.


Objeto de conjunto Shapes

Conjunto de objetos Shape que representan a todas las formas del documento o todas las formas de todos los encabezados y pies de página del documento. Cada objeto Shape representa un objeto de la capa de dibujo, como una Autoforma, una forma libre, un objeto OLE o una imagen.

Nota   Si desea trabajar con un subconjunto de formas en un documento; por ejemplo, para hacer algo sólo en las Autoformas de un documento o sólo en las formas seleccionadas, deberá crear un conjunto ShapeRange que contenga las formas con las que desee trabajar.

Uso del conjunto Shapes

Utilice la propiedad Shapes para devolver el conjunto Shapes. En el siguiente ejemplo se seleccionan todas las formas del documento activo.

ActiveDocument.Shapes.SelectAll

Nota   Si desea hacer algo, como eliminar o establecer una propiedad, en todas las formas de un documento a la vez, utilice el método Range para crear un objeto ShapeRange que contenga todas las formas del conjunto Shapes y, a continuación, aplique la propiedad o el método adecuado al objeto ShapeRange.

Utilice uno de los siguientes métodos del conjunto Shapes: AddCallout, AddCurve, AddLabel, AddLine, AddOleControl, AddOleObject, AddPolyline, AddShape, AddTextbox, AddTextEffect o BuildFreeForm para agregar una forma a un documento y que se devuelva un objeto Shape que represente a la forma recién creada. En el siguiente ejemplo se agrega un rectángulo al documento activo.

ActiveDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

Utilice Shapes(index), donde index corresponde al nombre o al número de índice, para devolver un solo objeto Shape. En el ejemplo siguiente se voltea horizontalmente la forma uno del documento activo.

ActiveDocument.Shapes(1).Flip msoFlipHorizontal

En este ejemplo se voltea horizontalmente la forma denominada "Rectángulo1" del documento activo.

ActiveDocument.Shapes("Rectángulo 1").Flip msoFlipHorizontal

A cada forma se la asigna un nombre predeterminado cuando se crea. Por ejemplo, si agrega tres formas distintas a un documento, podrían denominarse: "Rectángulo 2", "CuadroTexto 3" y "Elipse 4". Para asignar a una forma un nombre más descriptivo, establezca la propiedad Name.

Comentarios

El conjunto Shapes no incluye objetos InlineShape. Los objetos InlineShape se tratan y se colocan como caracteres dentro de la línea de texto. Todos los objetos Shape se fijan a un intervalo de texto, pero son objetos flotantes y pueden situarse en cualquier parte de la página. Puede utilizar el método ConvertToInlineShape y el método ConvertToShape para convertir formas de un tipo a otro. Sólo puede convertir imágenes, objetos OLE o controles ActiveX en formas entre líneas.

La propiedad Count de este conjunto del documento devuelve sólo el número de elementos del contenido principal. Para contar las formas de todos los encabezados y pies de página, utilice el conjunto Shapes con cualquier objeto HeaderFooter.


Shape, ShapeRange


Range, TextFrame


Objeto TextFrame

Representa el marco de texto de un objeto Shape. Contiene el texto del marco de texto, así como las propiedades que controlan los márgenes y la orientación del marco de texto.

Uso del objeto TextFrame

Utilice la propiedad TextFrame para devolver el objeto TextFrame de una forma. La propiedad TextRange devuelve un objeto Range que representa al intervalo de texto dentro del marco de texto especificado. En el ejemplo siguiente se agrega texto al marco de texto de la forma uno del documento activo.

ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "Mi texto"

Nota   Algunas formas no admiten texto adjunto, como por ejemplo las líneas, las formas libres, las imágenes y los objetos OLE. Si trata de devolver o establecer propiedades que controlen el texto de un marco de texto para dichos objetos, se producirá un error.

Utilice la propiedad HasText para determinar si el marco de texto contiene texto, como se muestra en el ejemplo siguiente.

For Each s In ActiveDocument.Shapes

    With s.TextFrame

        If .HasText Then MsgBox .TextRange.Text

    End With

Next

Los marcos de texto pueden vincularse de forma que el texto fluya desde el marco de texto de una forma al de otra. Utilice las propiedades Next y Previous para vincular marcos de texto. En el siguiente ejemplo, se crea un cuadro de texto, que es un rectángulo con un marco de texto, y se agrega texto al mismo. A continuación, se crea otro cuadro de texto y se vinculan los dos marcos de texto para que fluya el texto del primer marco de texto al segundo.

Set miTB1 = ActiveDocument.Shapes.AddTextbox _

    (msoTextOrientationHorizontal, 72, 72, 72, 36)

miTB1.TextFrame.TextRange = "Esto es texto. Esto es más texto."

Set miTB2 = ActiveDocument.Shapes.AddTextbox _

    (msoTextOrientationHorizontal, 72, 144, 72, 36)

miTB1.TextFrame.Next = miTB2.TextFrame

Utilice la propiedad ContainingRange para devolver un objeto Range que represente todo el contenido que fluye entre marcos de texto vinculados. En el siguiente ejemplo se revisa la ortografía del texto del CuadroTexto 3 y cualquier otro texto vinculado a dicho cuadro de texto.

Set miContenido = ActiveDocument.Shapes("CuadroTexto 3") _

    .TextFrame.ContainingRange

miContenido.CheckSpelling


marco de texto

Dentro de una forma, se refiere al área que puede contener texto.


Shape, ShapeRange


Objeto WrapFormat

Representa todas las propiedades de ajuste de texto alrededor de una forma o de un intervalo de formas.

Uso del objeto WrapFormat

Utilice la propiedad WrapFormat para devolver un objeto WrapFormat. En el ejemplo siguiente se agrega una elipse al documento activo y se especifica que el texto del documento se ajuste a los lados izquierdo y derecho del cuadrado que circunscribe la elipse. Se establecerá un margen de 0,04 cm entre el texto del documento y los lados superior, inferior, izquierdo y derecho del cuadrado.

Set miElipse = ActiveDocument.Shapes.AddShape(msoShapeOval, 36, 36, 100, 35)

With miElipse.WrapFormat

    .Type = wdWrapSquare

    .Side = wdWrapBoth

    .DistanceTop = InchesToPoints(0.1)

    .DistanceBottom = InchesToPoints(0.1)

    .DistanceLeft = InchesToPoints(0.1)

    .DistanceRight = InchesToPoints(0.1)

End With


Objeto InlineShape

Representa el objeto de la capa de texto de un documento. Una forma entre líneas sólo puede ser una imagen, un objeto OLE o un control ActiveX. Los objetos InlineShape se tratan y se colocan como caracteres dentro de la línea de texto. El objeto InlineShape es un miembro del conjunto InlineShapes. El conjunto InlineShapes contiene todas las formas de un documento, de un intervalo o de una selección.

Uso del objeto InlineShape

Utilice InlineShapes(index), donde index corresponde al número de índice, para devolver un solo objeto InlineShape. Las formas entre líneas no tienen nombres. En el ejemplo siguiente se activa la primera forma entre líneas del documento activo.

ActiveDocument.InlineShapes(1).Activate

Comentarios

Todos los objetos Shape se fijan a un intervalo de texto, pero son objetos flotantes y pueden situarse en cualquier parte de la página. Puede utilizar el método ConvertToInlineShape y el método ConvertToShape para convertir formas de un tipo a otro. Sólo puede convertir imágenes, objetos OLE o controles ActiveX en formas entre líneas. Utilice la propiedad Type para devolver el tipo de forma entre líneas: imagen, imagen vinculada, objeto OLE incrustado, objeto OLE vinculado o control ActiveX.

Cuando abra un documento creado en una versión anterior de Word, las imágenes se convertirán en formas entre líneas.


Objeto de conjunto InlineShapes

Conjunto de objetos InlineShape que representa a todas las formas entre líneas de un documento, de un intervalo o de una selección.

Uso del conjunto InlineShapes

Utilice la propiedad InlineShapes para devolver el conjunto InlineShapes. En el ejemplo siguiente se convierte cada forma entre líneas del documento activo en un objeto Shape.

For Each Formalíneas In ActiveDocument.InlineShapes

    Formalíneas.ConvertToShape

Next Formalíneas

Utilice el método New para crear una nueva imagen como forma entre líneas. Puede utilizar los métodos AddPicture y AddOLEObject para agregar imágenes u objetos OLE y vincularlos a un archivo de origen. Utilice el método AddOLEControl para agregar un control ActiveX.

Comentarios

Todos los objetos Shape se fijan a un intervalo de texto, pero son objetos flotantes y pueden situarse en cualquier parte de la página. Puede utilizar los métodos ConvertToInlineShape y ConvertToShape para convertir formas de un tipo a otro. Sólo puede convertir imágenes, objetos OLE o controles ActiveX en formas entre líneas.

La propiedad Count de este conjunto del documento devuelve sólo el número de elementos del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.

Cuando abra un documento creado en una versión anterior de Word, las imágenes se convertirán en formas entre líneas.


Document, Range, Selection, Field


Borders, Shape, Field, FillFormat, Hyperlink, LineFormat, LinkFormat, OLEFormat, PictureFormat, Range


Objeto Adjustments

Contiene un conjunto de valores de ajuste para el objeto de Autoforma o WordArt especificado. Cada valor de ajuste representa un modo en el que puede ajustarse un controlador de ajuste. Puesto que algunos controladores de ajuste pueden ajustarse de dos maneras distintas; por ejemplo, algunos controladores pueden ajustarse tanto horizontal como verticalmente, una forma puede tener más valores de ajuste que controladores de ajuste. Una forma puede tener hasta un máximo de ocho ajustes.

Uso del objeto Adjustments

Utilice la propiedad Adjustments para devolver un objeto Adjustments. Utilice Adjustments(index), donde index corresponde al número de índice del valor de ajuste, para devolver un solo valor de ajuste.

Las formas distintas tienen números de valores de ajuste diferentes, los distintos tipos de ajuste cambian la geometría de una forma de distintas formas y los tipos de ajuste diferentes tienen intervalos de valores válidos distintos. Por ejemplo, la siguiente ilustración muestra lo que contribuye cada uno de los cuatro valores de ajuste de una llamada de flecha hacia la derecha a la definición de la geometría de la llamada.

Nota   Puesto que cada forma ajustable tiene un conjunto de ajustes distinto, la mejor forma de comprobar el funcionamiento del ajuste de una forma específica es crear manualmente un ejemplo de la forma, hacer los ajustes con la grabadora de macros activada y, a continuación, examinar el código grabado.

La siguiente tabla resume el intervalo de valores de ajuste válidos para distintos tipos de ajustes. En la mayoría de los casos, si especifica un valor no incluido en el intervalo de valores válidos, se asignará al ajuste el valor válido más parecido.

Tipo de ajuste	Valores válidos
Lineal, horizontal o vertical	Normalmente, el valor 0,0 representa el borde izquierdo o superior de la forma y el valor 1,0 el derecho o inferior. Los valores válidos corresponden a los ajustes válidos que puede realizar en la forma manualmente. Por ejemplo, sólo puede arrastrar un controlador de ajuste la mitad del recorrido de la forma manualmente, el valor máximo del ajuste correspondiente será 0,5. Para las formas como por ejemplo las llamadas, donde los valores 0,0 y 1,0 representan a los límites del rectángulo definido por los puntos inicial y final de la línea de llamada, los números negativos y los que sean superiores a 1,0 serán números válidos.
Radial	El valor de ajuste de 1,0 corresponde al ancho de la forma. El valor máximo es 0,5 o la mitad de la forma.
Ángulo	Los valores se expresan en grados. Si especifica un valor fuera del intervalo comprendido entre -180 y 180, se regulará para incluirlo en dicho intervalo.
En el ejemplo siguiente se agrega una llamada de flecha hacia la derecha al documento activo y se establecen los valores de ajuste de la llamada. Observe que aunque la forma tenga sólo tres controladores de ajuste, tiene cuatro ajustes. Los ajustes tres y cuatro corresponden al controlador situado entre la cabeza y el cuello de la flecha.

Set rac = ActiveDocument.Shapes.AddShape(msoShapeRightArrowCallout, 10, 10, 250, 190)

With rac.Adjustments

    .Item(1) = 0.5    'ajusta el ancho del cuadro de texto

    .Item(2) = 0.15   'ajusta el ancho de la cabeza de la flecha

    .Item(3) = 0.8    'ajusta la longitud de la cabeza de la flecha

    .Item(4) = 0.4    'ajusta el ancho del cuello de la flecha

End With


Objeto CalloutFormat

Contiene las propiedades y los métodos que se aplican a las llamadas de línea.

Uso del objeto CalloutFormat

Utilice la propiedad Callout para devolver un objeto CalloutFormat. En el ejemplo siguiente se especifican los siguientes atributos de la forma tres, una llamada de línea, del documento activo: la llamada tendrá una barra de acento vertical para separar el texto de la línea de llamada; el ángulo situado entre la línea de llamada y el lateral del cuadro de texto de la llamada tendrá 30 grados; no habrá bordes alrededor del texto de la llamada; la línea de la llamada se adjuntará a la parte superior del cuadro de texto y esta línea contendrá dos segmentos. Para que funcione este ejemplo, la forma tres debe ser una llamada.

With ActiveDocument.Shapes(3).Callout

    .Accent = True

    .Angle = msoCalloutAngle30

    .Border = False

    .PresetDrop msoCalloutDropTop

    .Type = msoCalloutThree

End With


Objeto ColorFormat

Representa el color de un objeto monocromo, o bien el primer plano o el fondo de un objeto con degradado o relleno de entramado. Puede establecer los colores en un valor rojo-verde-azul explícito utilizando la propiedad RGB.

Uso del objeto ColorFormat

Utilice una de las propiedades que aparecen en la siguiente tabla para devolver un objeto ColorFormat.

Para devolver un objeto ColorFormat que represente	Use esta propiedad	Con este objeto
El color de relleno del fondo, utilizado en un relleno con sombreado o de entramado	BackColor	FillFormat
El color de relleno del primer plano, o bien el color de relleno de un relleno sólido	ForeColor	FillFormat
El color de línea de fondo, utilizado en un relleno de entramado	BackColor	LineFormat
El color de línea del primer plano, o bien el color de línea de una línea sólida	ForeColor	LineFormat
El color de sombreado	ForeColor	ShadowFormat
El color de los lados de un objeto extruido	ExtrusionColor	ThreeDFormat
Utilice la propiedad RGB para establecer un color en un valor rojo-verde-azul explícito. En el siguiente ejemplo se agrega un rectángulo al documento activo y, a continuación, se establece el color de primer plano, el color de fondo y el degradado para el relleno del rectángulo.

With ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With


FillFormat, LineFormat, ShadowFormat, ThreeDFormat


Objeto FillFormat

Representa el formato de relleno de una forma. Una forma puede tener un relleno sólido, degradado, de textura, de entramado, de imagen o semitransparente.

Uso del objeto FillFormat

Utilice la propiedad Fill para devolver un objeto FillFormat. En el ejemplo siguiente se agrega un rectángulo al documento activo y, a continuación, se establecen el degradado y el color para el relleno del rectángulo.

With ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill

    .ForeColor.RGB = RGB(0, 128, 128)

    .OneColorGradient msoGradientHorizontal, 1, 1

End With

Comentarios

Muchas de las propiedades del objeto FillFormat son de sólo lectura. Para establecer una de estas propiedades, deberá aplicar el método correspondiente.


Objeto FreeformBuilder

Representa la geometría de una forma libre mientras se crea.

Uso del objeto FreeformBuilder

Utilice el método BuildFreeform para devolver un objeto FreeformBuilder. Utilice el método AddNodes para agregar nodos a la forma libre. Utilice el método ConvertToShape para crear la forma definida en el objeto FreeformBuilder y agregarla al conjunto Shapes. En el ejemplo siguiente se agrega una forma libre con cuatro segmentos al documento activo.

With ActiveDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


Objeto LineFormat

Representa el formato de la línea y la punta de flecha. Para una línea, el objeto LineFormat contiene información de formato de la propia línea; para una forma con un borde, este objeto contiene información de formato del borde de la forma.

Uso del objeto LineFormat

Utilice la propiedad Line para devolver un objeto LineFormat. En el ejemplo siguiente se agrega una línea discontinua azul al documento activo. Hay una elipse corta y estrecha en el punto inicial de la línea y un triángulo ancho y largo en el punto final.

With ActiveDocument.Shapes.AddLine(100, 100, 200, 300).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(50, 0, 128)

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Objeto PictureFormat

Contiene las propiedades y los métodos que se aplican a las imágenes y a los objetos OLE. El objeto LinkFormat contiene las propiedades y los métodos que se aplican sólo a los objetos OLE. El objeto OLEFormat contiene las propiedades y los métodos que se aplican a los objetos OLE independientemente de que estén o no vinculados.

Uso del objeto PictureFormat

Utilice la propiedad PictureFormat para devolver un objeto PictureFormat. En el siguiente ejemplo, se establece el brillo, el contraste y la transformación de color de la forma uno del documento activo y se recorta 18 puntos la parte inferior de la forma. Para que funcione este ejemplo, la forma uno debe ser una imagen o un objeto OLE.

With ActiveDocument.Shapes(1).PictureFormat

    .Brightness = 0.3

    .Contrast = 0.7

    .ColorType = msoPictureGrayScale

    .CropBottom = 18

End With


Objeto ShadowFormat

Representa el formato de sombreado de una forma.

Uso del objeto ShadowFormat

Utilice la propiedad Shadow para devolver un objeto ShadowFormat. En el ejemplo siguiente se agrega un rectángulo con sombreado al documento activo. La sombra semitransparente azul se desplaza 5 puntos a la derecha del rectángulo y 3 puntos sobre el mismo.

With ActiveDocument.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 200).Shadow

    .ForeColor.RGB = RGB(0, 0, 128)

    .OffsetX = 5

    .OffsetY = -3

    .Transparency = 0.5

    .Visible = True

End With


Objeto ShapeNode

Representa las propiedades de geometría y de edición geométrica de los nodos de una forma libre definida por el usuario. Los nodos incluyen los vértices entre los segmentos de la forma libre y los puntos de control de los segmentos curvos. El objeto ShapeNode es un miembro del conjunto ShapeNodes. El conjunto ShapeNodes contiene todos los nodos de una forma libre.

Uso del objeto ShapeNode

Utilice Nodes(index), donde index corresponde al número de índice del nodo, para devolver un solo objeto ShapeNode. Si el nodo uno de la forma tres del documento activo es el punto de una esquina, en el siguiente ejemplo se convierte en un punto suave. Para que funcione este ejemplo, la forma tres debe ser una forma libre.

With ActiveDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With


Objeto de conjunto ShapeNodes

Conjunto de todos los objetos ShapeNode de la forma libre especificada. Cada objeto ShapeNode representa un nodo entre los segmentos de una forma libre o un punto de control del segmento curvo de una forma libre. Puede crear una forma libre manualmente o utilizando los métodos BuildFreeform y ConvertToShape.

Uso del conjunto ShapeNodes

Utilice la propiedad Nodes para devolver el conjunto ShapeNodes. En el siguiente ejemplo se elimina el nodo cuatro de la forma tres del documento activo. Para que funcione este ejemplo, la forma tres deberá ser una forma libre con cuatro nodos como mínimo.

ActiveDocument.Shapes(3).Nodes.Delete 4

Utilice el método Insert para crear un nuevo nodo y agregarlo al conjunto ShapeNodes. En el ejemplo siguiente se agrega un nodo suave con un segmento curvo después del nodo cuatro de la forma tres del documento activo. Para que funcione este ejemplo, la forma tres debe ser una forma libre con cuatro nodos como mínimo.

With ActiveDocument.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

Utilice Nodes(index), donde index corresponde al número de índice del nodo, para devolver un solo objeto ShapeNode. Si el nodo uno de la forma tres del documento activo es el punto de una esquina, en el siguiente ejemplo se convierte en un punto suave. Para que funcione este ejemplo, la forma tres debe ser una forma libre.

With ActiveDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With


Objeto ThreeDFormat

Representa el formato tridimensional de una forma.

Uso del objeto ThreeDFormat

Utilice la propiedad ThreeD para devolver un objeto ThreeDFormat. En el siguiente ejemplo se agrega una elipse al documento activo y, a continuación, se especifica que la profundidad de extrusión de la elipse será de 50 puntos y que la extrusión será de color púrpura.

Set miForma = ActiveDocument.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)

With miForma.ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' valor RGB para el color púrpura

End With

Comentarios

No se puede aplicar formato tridimensional a ciertos tipos de formas, como las formas biseladas o a varias rutas de acceso independientes. Si es así, la mayoría de las propiedades y de los métodos del objeto ThreeDFormat para dicha forma producirán un error.


Objeto de conjunto GroupShapes

Representa las formas individuales de una forma agrupada. Cada una de las formas se representa mediante un objeto Shape. Utilizando el método Item con este objeto, podrá trabajar con las formas individuales de un grupo sin tener que desagruparlas.

Uso del conjunto Groupshapes

Utilice la propiedad GroupItems para devolver el conjunto GroupShapes. Utilice GroupItems(index), donde index corresponde al número de formas individuales de una forma agrupada, para devolver una sola forma del conjunto GroupShapes. En el siguiente ejemplo se agregan tres triángulos al documento activo, se agrupan, se establece un color para todo el grupo y, a continuación, se cambia el color sólo del segundo triángulo.

With ActiveDocument.Shapes

    .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100).Name = "formaUno"

    .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100).Name = "formaDos"

    .AddShape(msoShapeIsoscelesTriangle, 300, 10, 100, 100).Name = "formaTres"

    With .Range(Array("formaUno", "formaDos", "formaTres")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble

    End With

End With


Objeto TextEffectFormat

Contiene las propiedades y los métodos que se aplican a los objetos de WordArt.

Uso del objeto TextEffectFormat

Utilice la propiedad TextEffect para devolver un objeto TextEffectFormat. En el siguiente ejemplo se establece el nombre de fuente y el formato para la forma uno del documento activo. Para que funcione este ejemplo, la forma uno debe ser un objeto de WordArt.

With ActiveDocument.Shapes(1).TextEffect

    .FontName = "Courier New"

    .FontBold = True

    .FontItalic = True

End With


Método AddCallout

Crea una llamada de línea sin borde. Devuelve un objeto Shape que representa a la nueva llamada.

Sintaxis

expresión.AddCallout(Type, Left, Top, Width, Height, Anchor)

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

Type  Long requerido. Puede ser una de las siguientes constantes MsoCalloutType. msoCalloutOne (línea de llamada de un solo segmento que puede ser horizontal o vertical), msoCalloutTwo (línea de llamada de un solo segmento de giro libre), msoCalloutThree (línea de dos segmentos) o msoCalloutFour (línea de tres segmentos).

Left, Top   Single requerido. La posición, en puntos, de la esquina superior izquierda del cuadro de límite de la llamada, relativa al punto de fijación.

Width, Height   Single requerido. El ancho y el alto del cuadro de límite de la llamada, en puntos.

Anchor   Variant opcional. Objeto Range que representa el texto al que está unida la llamada. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y la llamada se sitúa en relación con los bordes superior e izquierdo de la página.

Comentarios

Puede insertar una gran variedad de llamadas con el método AddShape.


Ejemplo del método AddCallout

En este ejemplo se agrega una llamada a un documento recién creado y, a continuación, se establece el ángulo de la llamada en 45 grados.

Set miDocumento = Documents.Add

Set miLlamada = miDocumento.Shapes.AddCallout(msoCalloutTwo, 72, 36, 25, 25)

miLlamada.Callout.Angle = msoCalloutAngle45


Método AddCurve

Crea una curva de Bézier. Devuelve un objeto Shape que representa la nueva curva.

Sintaxis

expresión.AddCurve(SafeArrayOfPoints, Anchor)

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

SafeArrayOfPoints   Variant requerida. Matriz de coordenadas que especifica los vértices y los puntos de control de la curva. El primer punto especificado es el vértice inicial y los dos puntos siguientes son puntos de control para el primer segmento de Bézier. A continuación, para cada segmento adicional de la curva, especifique un vértice y dos puntos de control. El último punto especificado es el vértice final de la curva. Observe que debe especificar siempre 3n + 1 puntos, donde n es el número de segmentos de la curva.

Anchor   Variant opcional. Objeto Range que representa el texto al que está unida la curva. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y la curva se sitúa en relación con los bordes superior e izquierdo de la página.


coordenadas

Valores que representan a las coordenadas x e y de un punto y que se almacenan en una matriz bidimensional que puede contener coordenadas de muchos puntos.

En el siguiente ejemplo se crea una matriz con base cero que contiene los pares de coordenadas 50, 150 y 100, 200. Observe que al establecer las dimensiones de la matriz, el tamaño de la primera dimensión es el número de puntos que desee incluir y el tamaño de la segunda dimensión es dos; la primera posición dentro de la dimensión es la coordenada x y la segunda es la coordenada y).

Dim cpArray(1, 1)

cpArray(0, 0) = 50     ' La coordenada x del primer punto

cpArray(0, 1) = 150    ' La coordenada y del primer punto

cpArray(1, 0) = 100    ' La coordenada x del segundo punto

cpArray(1, 1) = 200    ' La coordenada y del segundo punto


Ejemplo del método AddCurve

En este ejemplo se agrega una curva de Bézier de dos segmentos a miDoc y se fija la curva al segundo párrafo.

Dim pts(1 To 7, 1 To 2) As Single

pts(1, 1) = 0

pts(1, 2) = 0

pts(2, 1) = 72

pts(2, 2) = 72

pts(3, 1) = 100

pts(3, 2) = 40

pts(4, 1) = 20

pts(4, 2) = 50

pts(5, 1) = 90

pts(5, 2) = 120

pts(6, 1) = 60

pts(6, 2) = 30

pts(7, 1) = 150

pts(7, 2) = 90

Set miDoc = ActiveDocument

miDoc.Shapes.AddCurve pts, miDoc.Paragraphs(2).Range


Método AddLabel

Crea una etiqueta. Devuelve un objeto Shape que representa a la nueva etiqueta.

Sintaxis

expresión.AddCallout(Orientation, Left, Top, Width, Height, Anchor)

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

Orientation   Long requerido. Orientación del texto. Puede ser una de las siguientes constantes MsoTextOrientation: msoTextOrientationDownward, msoTextOrientationHorizontal, msoTextOrientationMixed o msoTextOrientationUpward. No utilice constantes MsoTextOrientation distintas a éstas en las versiones de inglés americano de Word.

Left, Top   Single requerido. La posición, en puntos, de la esquina superior izquierda de la etiqueta, relativa al punto de fijación.

Width, Height   Single requerido. El ancho y el alto de la etiqueta, en puntos.

Anchor   Variant opcional. Objeto Range que representa el texto al que está unida la etiqueta. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y la etiqueta se sitúa en relación con los bordes superior e izquierdo de la página.


Ejemplo del método AddLabel

En este ejemplo se agrega una etiqueta que contiene el texto "Etiqueta de prueba" a un documento nuevo.

Set miDocumento = Documents.Add

Set miEtiqueta = miDocumento.Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _

    Left:=100, Top:=100, Width:=300, Height:=200)

miEtiqueta.TextFrame.TextRange = "Etiqueta de prueba"


Método AddLine

Crea una línea. Devuelve un objeto Shape que representa la nueva línea.

Sintaxis

expresión.AddLine(BeginX, BeginY, EndX, EndY, Anchor)

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

BeginX, BeginY   Single requerida. La posición, en puntos, del punto inicial de la línea, relativa al punto de fijación.

EndX, EndY   Single requerida. La posición, en puntos, del punto final de la línea, relativa al punto de fijación.

Anchor   Variant opcional. Objeto Range que representa el texto al que está unida la línea. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y la línea se sitúa en relación con los bordes superior e izquierdo de la página.

Comentarios

Para crear una flecha, utilice la propiedad Line para dar formato a una línea.


Ejemplo del método AddLine

En este ejemplo se agrega una línea discontinua de color verde a un documento nuevo.

Set miDocumento = Documents.Add

Set miLínea = miDocumento.Shapes.AddLine(100, 100, 60, 20)

With miLínea.Line

    .DashStyle = msoLineDash

    .ForeColor.RGB = RGB(0, 128, 0)

End With

En este ejemplo se agrega una línea al documento activo y, a continuación, se aplica formato a la línea como una flecha roja.

Set miLínea = ActiveDocument.Shapes.AddLine(100, 100, 60, 20)

With miLínea.Line

    .BeginArrowheadStyle = msoArrowheadNone

    .EndArrowheadStyle = msoArrowheadTriangle

    .ForeColor.RGB = RGB(128, 0, 0)

End With


Método AddPolyline

Crea una polilínea abierta o un dibujo poligonal cerrado. Devuelve un objeto Shape que representa la nueva polilínea o el nuevo polígono.

Sintaxis

expresión.AddPolyline(SafeArrayOfPoints)

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

SafeArrayOfPoints   Variant requerida. Matriz de coordenadas que especifica los vértices del dibujo de la polilínea.

Comentarios

Para formar un polígono cerrado, asigne las mismas coordenadas a los vértices primero y último del dibujo de la polilínea.


Ejemplo del método AddPolyline

En este ejemplo se agrega un triángulo a miDocumento. Puesto que los puntos primero y último del triángulo tienen las mismas coordenadas, el polígono se cierra y se rellena.

Dim triArray(1 To 4, 1 To 2) As Single

triArray(1, 1) = 25

triArray(1, 2) = 100

triArray(2, 1) = 100

triArray(2, 2) = 150

triArray(3, 1) = 150

triArray(3, 2) = 50

triArray(4, 1) = 25     ' El último punto tiene las mismas coordenadas que el primero

triArray(4, 2) = 100

Set miDocumento = Documents.Add

miDocumento.Shapes.AddPolyline triArray


Método AddShape

Crea una Autoforma. Devuelve un objeto Shape que representa a la nueva Autoforma.

Sintaxis

expresión.AddShape(Type, Left, Top, Width, Height, Anchor)

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

Type   Long requerida. Tipo de Autoforma que va a crearse. Puede ser una de las constantes MsoAutoShapeType.

Left, Top   Single requerido. La posición, en puntos, de la esquina superior izquierda del cuadro de límite de la Autoforma, relativa al punto de fijación.

Width, Height   Single requerido. El ancho y el alto del cuadro de límite de la Autoforma, en puntos.

Anchor   Variant opcional. Objeto Range que representa el texto al que está unida la Autoforma. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y la Autoforma se sitúa en relación con los bordes superior e izquierdo de la página.

Comentarios

Para cambiar el tipo de Autoforma que haya agregado, establezca la propiedad AutoShapeType.


Ejemplo del método AddShape

En este ejemplo se agrega un rectángulo a un documento nuevo.

Set miDocumento = Documents.Add

miDocumento.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200


Método AddTextbox

Crea un cuadro de texto. Devuelve un objeto Shape que representa al nuevo cuadro de texto.

Sintaxis

expresión.AddTextbox(Orientation, Left, Top, Width, Height, Anchor)

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

Orientation   Long requerida. Orientación del texto. Puede ser una de las siguientes constantes MsoTextOrientation: msoTextOrientationDownward, msoTextOrientationHorizontal, msoTextOrientationMixed o msoTextOrientationUpward. No utilice constantes MsoTextOrientation distintas a éstas en las versiones de inglés americano de Word.

Left, Top   Single requerido. La posición, en puntos, de la esquina superior izquierda del cuadro de texto, relativa al punto de fijación.

Width, Height   Single requerido. El ancho y el alto del cuadro de texto, en puntos.

Anchor   Variant opcional. Objeto Range que representa el texto al que está unido el cuadro de texto. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y el cuadro de texto se sitúa en relación con los bordes superior e izquierdo de la página.


Ejemplo del método AddTextbox

En este ejemplo se agrega un cuadro de texto que contiene el texto "Cuadro de prueba" a un documento nuevo.

Set miDocumento = Documents.Add

Set miCuadroT = miDocumento.Shapes.AddTextBox(Orientation:=msoTextOrientationHorizontal, _

    Left:=100, Top:=100, Width:=300, Height:=200)

miCuadroT.TextFrame.TextRange = "Cuadro de prueba"


Método AddTextEffect

Crea un objeto de WordArt. Devuelve un objeto Shape que representa al nuevo objeto de WordArt.

Sintaxis

expresión.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top, Anchor

expresión   Requerida. Expresión que devuelve un conjunto Shapes.

PresetTextEffect   Long requerida. Efecto del texto preestablecido. Puede ser una de las siguientes constantes MsoPresetTextEffect:

msoTextEffect1 msoTextEffect2 msoTextEffect3 msoTextEffect4 msoTextEffect5 msoTextEffect6 msoTextEffect7 msoTextEffect8 msoTextEffect9 msoTextEffect10 msoTextEffect11 msoTextEffect12 msoTextEffect13 msoTextEffect14 msoTextEffect15	msoTextEffect16 msoTextEffect17 msoTextEffect18 msoTextEffect19 msoTextEffect20 msoTextEffect21 msoTextEffect22 msoTextEffect23 msoTextEffect24 msoTextEffect25 msoTextEffect26 msoTextEffect27 msoTextEffect28 msoTextEffect29 msoTextEffect30
Los valores de estas constantes corresponden a los formatos del cuadro de diálogo Galería de WordArt, numerados de izquierda a derecha y de arriba a abajo.

Text   String requerida. Texto del objeto WordArt.

FontName   String requerida. Nombre de la fuente utilizada en el objeto WordArt.

FontSize   Single requerida. Tamaño, en puntos, de la fuente utilizada en el objeto WordArt.

FontBold   Long requerido. True para establecer la fuente utilizada en el objeto WordArt como negrita.

FontItalic   Long requerido. True para establecer la fuente utilizada en el objeto WordArt como cursiva.

Left, Top   Single requerido. La posición, en puntos, de la esquina superior izquierda del cuadro de límite del objeto WordArt, relativa al punto de fijación.

Anchor   Variant opcional. Objeto Range que representa el texto al que está unido el objeto WordArt. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y el objeto WordArt se sitúa en relación con los bordes superior e izquierdo de la página.

Comentarios

Cuando agregue un objeto WordArt a un documento, el alto y ancho se establecen automáticamente en función del tamaño y la cantidad de texto especificado.


Ejemplo del método AddTextEffect

En este ejemplo se agrega un objeto WordArt que contiene el texto "Texto de prueba" al documento activo y se fija el objeto WordArt al segundo párrafo.

ActiveDocument.Shapes.AddTextEffect _

    PresetTextEffect:=msoTextEffect11, _

    Text:="Texto de prueba", _

    FontName:="Arial Black", _

    FontSize:=36, _

    FontBold:=True, _

    FontItalic:=False, _

    Left:=InchesToPoints(1), _

    Top:=InchesToPoints(1), _

    Anchor:=ActiveDocument.Paragraphs(2).Range


Propiedad Hyperlink

Devuelve un objeto Hyperlink que representa al hipervínculo asociado al objeto Shape, InlineShape o ShapeRange especificado. Es de sólo lectura.

Nota   Si no hay ningún hipervínculo asociado a la forma especificada, se producirá un error.


Ejemplo de la propiedad Hyperlink

En este ejemplo se muestra la dirección del hipervínculo de la primera forma del documento activo.

MsgBox ActiveDocument.Shapes(1).Hyperlink.Address


Método SelectAll

Objeto Selection: Selecciona todo el texto de la selección.

Objeto Shapes: Selecciona todas las formas del contenido principal del documento o de todos los encabezados y pies de página del documento.

Sintaxis

expresión.SelectAll

expresión   Requerida. Expresión que devuelve un objeto Shapes o Selection.

Comentarios

Este método no selecciona objetos InlineShape.


Ejemplo del método SelectAll

En este ejemplo se selecciona todo el texto de la selección.

Selection.SelectAll

En este ejemplo se seleccionan todas las formas del documento activo.

ActiveDocument.Shapes.SelectAll

En este ejemplo se seleccionan todas las formas de los encabezados y pies de página del documento activo y se agrega una sombra a cada forma.

With ActiveWindow

    .View.Type = wdPageView

    .ActivePane.View.SeekView = wdSeekCurrentPageHeader

End With

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.SelectAll

Selection.ShapeRange.Shadow.Type = msoShadow10


Método ConvertToShape

Objeto InlineShape: Convierte una forma entre líneas en una forma flotante libre. Devuelve un objeto Shape que representa a la nueva forma.

Objeto FreeformBuilder: Crea una forma con las características geométricas del objeto especificado. Devuelve un objeto Shape que representa a la nueva forma.

Sintaxis 1

expresión.ConvertToShape

Sintaxis 2

expresión.ConvertToShape(Anchor)

expresión   Requerida. Expresión que devuelve un objeto InlineShape (Sintaxis 1) o un objeto FreeformBuilder (Sintaxis 2).

Anchor   Variant opcional. Objeto Range que representa el texto al que está unida la forma. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo de fijación se selecciona automáticamente y la forma se sitúa en relación con los bordes superior e izquierdo de la página.

Comentarios

Debe aplicar el método AddNodes a un objeto FreeformBuilder al menos una vez antes de utilizar el método ConvertToShape.


Ejemplo del método ConvertToShape

En este ejemplo se convierte la primera forma entre líneas del documento activo en una forma flotante.

ActiveDocument.InlineShapes(1).ConvertToShape

En este ejemplo se agrega una forma libre con cinco vértices a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


Propiedad RGB

Devuelve o establece el valor rojo-verde-azul (RGB) del color especificado. Long de Lectura/Escritura.


valor rojo-verde-azul (RGB)

Valor devuelto por la función RGB, que especifica un color como combinación de los valores rojo, verde y azul. La función RGB tiene la siguiente sintaxis:

RGB(red, green, blue)

Los argumentos especifican los componentes rojo, verde y azul del color como números enteros desde 0 (cero) a 255.


Ejemplo de la propiedad RGB

En este ejemplo se establece el color de la segunda forma del documento activo como gris.

ActiveDocument.Shapes(2).Fill.ForeColor.RGB = RGB(128, 128, 128)

En este ejemplo se establece el color de la sombra del Rectángulo 1 del documento activo como azul.

ActiveDocument.Shapes("Rectángulo 1").Shadow.ForeColor.RGB = RGB(0, 0, 255)

En este ejemplo se devuelve el valor del color de primer plano de la primera forma del documento activo.

MsgBox ActiveDocument.Shapes(1).Fill.ForeColor.RGB


Propiedad TextRange

Devuelve un objeto Range que representa al texto del marco de texto especificado. Es de sólo lectura.


Ejemplo de la propiedad TextRange

En este ejemplo se agrega un cuadro de texto al documento activo y, a continuación, se agrega texto al cuadro de texto.

Set miCuadroT = ActiveDocument.Shapes.AddTextBox(Orientation:=msoTextOrientationHorizontal, _

    Left:=100, Top:=100, Width:=300, Height:=200)

miCuadroT.TextFrame.TextRange = "Cuadro de texto"

En este ejemplo se agrega texto al CuadroTexto 1 del documento activo.

ActiveDocument.Shapes("CuadroTexto 1").TextFrame.TextRange.InsertAfter("Texto nuevo")

En este ejemplo se devuelve el texto del CuadroTexto 1 del documento activo y se muestra en un cuadro de mensaje.

MsgBox ActiveDocument.Shapes("CuadroTexto 1").TextFrame.TextRange.Text


Propiedad InlineShape

Devuelve un objeto InlineShape que representa a la imagen, el objeto OLE o el control ActiveX que es el resultado de un campo INCLUIRIMAGEN o INCRUSTAR. Es de sólo lectura.

Comentarios

Objeto InlineShape que se trata como un carácter y se sitúa como tal dentro de la línea de texto.


Ejemplo de la propiedad InlineShape

En este ejemplo se devuelve el ancho de la forma entre líneas asociada al primer campo del documento activo. Para que este ejemplo funcione, el campo debe ser un campo INCLUIRIMAGEN.

If ActiveDocument.Fields(1).Type = wdFieldIncludePicture Then

    MsgBox ActiveDocument.Fields(1).InlineShape.Width

End If


Propiedad InlineShapes

Devuelve un conjunto InlineShapes que representa todos los objetos InlineShape de un documento, intervalo o selección. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad InlineShapes

En este ejemplo se muestra el número de formas y de formas entre líneas del documento activo.

Set doc = ActiveDocument

Msgbox "FormaEntreLíneas = " & doc.InlineShapes.Count & _

    vbCr & "Formas = " & doc.Shapes.Count


Propiedad Item

Devuelve o establece el valor de ajuste especificado por el argumento Index. Para ajustes lineales, un valor de ajuste de 0,0 generalmente corresponde al lado izquierdo o superior de la forma, y un valor de 1,0 al lado derecho o inferior de la forma. Sin embargo, en algunas formas, los ajustes pueden sobrepasar los límites de la forma. En ajustes radiales, un valor de ajuste de 1,0 corresponde al ancho de la forma. En ajustes angulares, el valor de ajuste se especifica en grados. La propiedad Item se aplica sólo a formas que tengan ajustes. Single de Lectura/Escritura.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Una expresión que devuelve un objeto Adjustments.

Index   Long requerido. Número de índice del ajuste.

Comentarios

Los objetos de Autoformas y de WordArt pueden tener hasta ocho ajustes.


Ejemplo de la propiedad Item

En este ejemplo se agregan dos cruces a miDocumento y, a continuación, se establece el valor del ajuste uno (el único en este tipo de autoforma) en cada cruz.

Set miDocumento = Documents(1)

With miDocumento.Shapes

    .AddShape(msoShapeCross, 10, 10, 100, 100).Adjustments.Item(1) = 0.4

    .AddShape(msoShapeCross, 150, 10, 100, 100).Adjustments.Item(1) = 0.2

End With

Este ejemplo tiene el mismo resultado que el ejemplo anterior, aunque no utiliza explícitamente la propiedad Item.

Set miDocumento = Documents(1)

With miDocumento.Shapes

    .AddShape(msoShapeCross, 10, 10, 100, 100).Adjustments(1) = 0.4

    .AddShape(msoShapeCross, 150, 10, 100, 100).Adjustments(1) = 0.2

End With


Propiedad Line

Devuelve un objeto LineFormat que contiene las propiedades de formato de línea de la autoforma especificada. En una línea, el objeto LineFormat representa la línea en sí; en una forma con borde, el objeto LineFormat representa el borde. Es de sólo lectura.


Ejemplo de la propiedad Line

En este ejemplo se agrega una línea discontinua azul a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(50, 0, 128)

End With

En este ejemplo se agrega una cruz a miDocumento y, a continuación, se establece su borde en 8 puntos de grosor y en color rojo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeCross, 10, 10, 50, 70).Line

    .Weight = 8

    .ForeColor.RGB = RGB(255, 0, 0)

End With


Propiedad LockAspectRatio

True si la forma especificada mantiene sus proporciones originales al cambiarle el tamaño. False si, al cambiar el tamaño de la forma, puede cambiar el alto y el ancho independientemente uno del otro. Long de Lectura/Escritura.


Ejemplo de la propiedad LockAspectRatio

En este ejemplo se agrega un cubo a miDocumento. Es posible mover y cambiar el tamaño del cubo, pero no cambiar su proporción.

Set miDocumento = ActiveDocument

miDocumento.Shapes.AddShape(msoShapeCube, 50, 50, 100, 200).LockAspectRatio = True


Propiedad Nodes

Devuelve un conjunto ShapeNodes que representa la descripción geométrica de la forma especificada. Se aplica a los objetos Shape o ShapeRange que representan dibujos de forma libre.


Ejemplo de la propiedad Nodes

En este ejemplo se agrega un nodo suave con un segmento curvado después del nodo cuatro de la forma tres en miDocumento.  La forma tres debe ser un dibujo de forma libre con, al menos, cuatro nodos.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With


Método PickUp

Copia el formato de la forma especificada. Utilice el método Apply para aplicar el formato copiado a otra forma.

Sintaxis

expresión.PickUp

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.


Ejemplo del método PickUp

En este ejemplo se copia el formato de la forma uno de miDocumento y se aplica el formato copiado a la forma dos.

Set miDocumento = ActiveDocument

With miDocumento

    .Shapes(1).PickUp

    .Shapes(2).Apply

End With


Propiedad PictureFormat

Devuelve un objeto PictureFormat que contiene las propiedades de formato de imagen del objeto especificado. Se aplica a objetos Shape, ShapeRange o InlineShape que representan imágenes u objetos OLE. Es de sólo lectura.


Ejemplo de la propiedad PictureFormat

En este ejemplo se establece el brillo y el contraste de la forma uno de miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).PictureFormat

    .Brightness = 0.3

    .Contrast = .75

End With


Propiedad Rotation

Devuelve o establece el número de grados que la forma especificada se gira alrededor del eje Z. Un valor positivo indica un giro en sentido de las agujas del reloj; un valor negativo indica un giro en sentido contrario a las agujas del reloj. Single de Lectura/Escritura.

Comentarios

Para establecer el giro de una forma tridimensional alrededor del eje X o del eje Y, utilice las propiedades RotationX o RotationY del objeto ThreeDFormat.


Ejemplo de la propiedad Rotation

En este ejemplo se hace coincidir el giro de todas las formas de miDocumento con el giro de la forma uno.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    sh1Rotation = .Item(1).Rotation

    For o = 1 To .Count

        .Item(o).Rotation = sh1Rotation

    Next

End With


Propiedad TextEffect

Devuelve un objeto TextEffectFormat que contiene las propiedades de formato de efecto de texto de la forma especificada. Se aplica a los objetos Shape o ShapeRange que representan WordArt. Es de sólo lectura.


Ejemplo de la propiedad TextEffect

En este ejemplo se establece el estilo de fuente en negrita para la forma tres de miDocumento si la forma es WordArt.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3)

    If .Type = msoTextEffect Then

        .TextEffect.FontBold = True

    End If

End With


Propiedad TextFrame

Devuelve un objeto TextFrame que contiene el texto de la forma especificada.


Ejemplo de la propiedad TextFrame

En este ejemplo se agrega un rectángulo a miDocumento, se agrega texto al rectángulo y se establecen los márgenes del marco de texto.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Este es un texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad ThreeD

Devuelve un objeto ThreeDFormat que contiene las propiedades de formato de efecto 3D de la forma especificada. Es de sólo lectura.


Ejemplo de la propiedad ThreeD

En este ejemplo se establece la profundidad, el color de extrusión, la dirección de extrusión y la dirección de iluminación de los efectos 3D aplicados a la forma uno de miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' RGB value for purple

    .SetExtrusionDirection msoExtrusionTop

    .PresetLightingDirection = msoLightingLeft

End With


Método Ungroup

Desagrupa todas las formas agrupadas en la forma o intervalo de formas especificados. Separa imágenes y objetos OLE dentro de la forma o intervalo de formas especificados. Devuelve las formas desagrupadas como un único objeto ShapeRange.

Sintaxis

expresión.Ungroup

expresión   Requerida. Una expresión que devuelve un objeto ShapeRange.

Comentarios

Debido a que un grupo de formas se trata como un único objeto, al agrupar y desagrupar formas cambia el número de elementos del conjunto Shapes y cambia el número de índice de los elementos ubicados después de los elementos del conjunto afectados.


Ejemplo del método Ungroup

En este ejemplo se desagrupan todas las formas agrupadas y se separan todas las imágenes y objetos OLE de miDocumento.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    s.Ungroup

Next

En este ejemplo se desagrupan todas las formas agrupadas de miDocumento sin separar las imágenes y objetos OLE.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    If s.Type = msoGroup Then s.Ungroup

Next


Propiedad VerticalFlip

True si la forma especificada se voltea alrededor del eje vertical. Long de sólo lectura.


Ejemplo de la propiedad VerticalFlip

En este ejemplo se restablece cada forma de miDocumento a su estado original si ha sido volteada horizontal o verticalmente.

For Each s In ActiveDocument.Shapes

    If s.HorizontalFlip Then s.Flip msoFlipHorizontal

    If s.VerticalFlip Then s.Flip msoFlipVertical

Next


Propiedad Vertices

Devuelve las coordenadas de los vértices del dibujo de forma libre especificado (y los puntos de control de las curvas Bézier) como una serie de pares de coordenadas Puede utilizar la matriz devuelta por esta propiedad como agumento al método AddCurve o AddPolyLine. Variant de sólo lectura.

La siguiente tabla muestra cómo la propiedad Vertices asocia los valores de la matriz matrizVert() con las coordenadas de los vértices de un triángulo.

Elemento matrizVert	Contiene
matrizVert (1, 1)	La distancia horizontal desde el primer vértice hasta el lado izquierdo del documento.
matrizVert (1, 2)	La distancia vertical desde el primer vértice hasta el lado superior del documento.
matrizVert (2, 1)	La distancia horizontal desde el segundo vértice hasta el lado izquierdo del documento.
matrizVert (2, 2)	La distancia vertical desde el segundo vértice hasta el lado superior del documento.
matrizVert (3, 1)	La distancia horizontal desde el tercer vértice hasta el lado izquierdo del documento.
matrizVert (3, 2)	La distancia vertical desde el tercer vértice hasta el lado superior del documento.


Ejemplo de la propiedad Vertices

En este ejemplo se asignan las coordenadas de los vértices de la forma uno de miDocumento a la variable de matriz matrizVert() y se muestran las coordenadas del primer vértice. La forma uno debe ser un dibujo de forma libre.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1)

    matrizVert = .Vertices

    x1 = matrizVert(1, 1)

    y1 = matrizVert(1, 2)

    MsgBox "Coordenadas del primer vértice: " & x1 & ", " & y1

End With

En este ejemplo se crea una curva con la misma descripción geométrica que la forma uno de miDocumento. La forma uno debe ser una curva de Bézier con 3n+1 vértices para que tenga éxito el ejemplo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddCurve .Item(1).Vertices, Selection.Range

End With


Método ZOrder

Mueve la forma especificada delante o detrás de otras formas del conjunto (es decir, cambia la posición de la forma en el plano Z).

Sintaxis

expresión.ZOrder(ZOrderCmd)

expresión   Requerida. Una expresión que devuelve un objeto Shape.

ZOrderCmd   Long requerido. Especifica dónde se moverá la forma especificada con relación a las otras formas. Puede ser una de las siguientes constantes MsoZOrderCmd: msoBringForward, msoBringInFrontOfText, msoBringToFront, msoSendBackward, msoSendBehindText o msoSendToBack.

Comentarios

Utilice la propiedad ZOrderPosition para determinar la posición actual de una forma en el plano Z.


Ejemplo del método ZOrder

En este ejemplo se agrega una elipse a miDocumento y, a continuación, se sitúa la elipse en segundo lugar desde el fondo del plano Z, si existe, al menos, otra forma en el documento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300)

    While .ZOrderPosition > 2

        .ZOrder msoSendBackward

    Wend

End With


Propiedad ZOrderPosition

Devuelve la posición de la forma especificada en el plano Z. Shapes(1) devuelve la posición de la forma que está al fondo en el plano Z y Shapes(Shapes.Count) devuelve la posición de la forma que está al frente en el plano Z. Long de sólo lectura.

Esta propiedad es de sólo lectura. Para establecer la posición de la forma en el plano Z, utilice el método ZOrder.

Comentarios

La posición de una forma en el plano Z corresponde al número de índice de la forma en el conjunto Shapes. Por ejemplo, si hay cuatro formas en miDocumento, la expresión miDocumento.Shapes(1) devuelve la forma que está al fondo en el plano Z, y la expresión miDocumento.Shapes(4) devuelve la forma que está al frente en el plano Z.

Siempre que agregue una nueva forma a un conjunto, se agrega automáticamente al frente del plano Z.


Ejemplo de la propiedad ZOrderPosition

En este ejemplo se agrega una elipse a miDocumento y, a continuación, se sitúa la elipse en segundo lugar desde el fondo del plano Z, si existe, al menos, otra forma en el documento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300)

    While .ZOrderPosition > 2

        .ZOrder msoSendBackward

    Wend

End With


Propiedad Adjustments

Devuelve un objeto Adjustments que contiene los valores de ajuste de todos los ajustes de la forma especificada. Se aplica a todos los objetos Shape o ShapeRange que representen una autoforma o WordArt. Es de sólo lectura.


Ejemplo de la propiedad Adjustments

Este ejemplo establece en 0,25 el valor del ajuste uno en la forma tres de miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes(3).Adjustments(1) = 0.25


Método Align

Alinea las formas del intervalo especificado.

Sintaxis

expresión.Align(AlignCmd, RelativeTo)

expresión   Requerida. Una expresión que devuelve un objeto ShapeRange.

AlignCmd   Long requerido. Especifica la manera en que se alinearán las formas de un intervalo. Puede ser una de las siguientes constantes MsoAlignCmd: msoAlignBottoms, msoAlignCenters, msoAlignLefts, msoAlignMiddles, msoAlignRights o msoAlignTops.

RelativeTo   Long requerido. True para alinear las formas respecto a los lados del documento. False para alinear las formas una en relación con otra.


Ejemplo del método Align

Este ejemplo alinea los lados izquierdos de todas las formas de la selección de miDocumento con el lado izquierdo de la forma situada más a la izquierda en el intervalo.

Set intervaloFormas = Selection.ShapeRange

intervaloFormas.Align msoAlignLefts, False


Propiedad AutoShapeType

Devuelve o establece el tipo de forma del objeto Shape o ShapeRange especificado, que debe representar una autoforma distinta de una línea o de un dibujo de forma libre. Long de Lectura/Escritura.

Nota   Al cambiar el tipo de una forma, ésta mantiene su tamaño, color y otros atributos.

Puede ser una de las siguientes constantes MsoAutoShapeType:

msoShape16pointStar msoShape24pointStar msoShape32pointStar msoShape4pointStar msoShape5pointStar msoShape8pointStar msoShapeActionButtonBackorPrevious msoShapeActionButtonBeginning msoShapeActionButtonCustom msoShapeActionButtonDocument msoShapeActionButtonEnd msoShapeActionButtonForwardorNext msoShapeActionButtonHelp msoShapeActionButtonHome msoShapeActionButtonInformation msoShapeActionButtonMovie msoShapeActionButtonReturn msoShapeActionButtonSound msoShapeArc msoShapeBalloon msoShapeBentArrow msoShapeBentUpArrow msoShapeBevel msoShapeBlockArc msoShapeCan msoShapeChevron msoShapeCircularArrow msoShapeCloudCallout msoShapeCross msoShapeCube msoShapeCurvedDownArrow msoShapeCurvedDownRibbon msoShapeCurvedLeftArrow msoShapeCurvedRightArrow msoShapeCurvedUpArrow msoShapeCurvedUpRibbon msoShapeDiamond msoShapeDonut msoShapeDoubleBrace msoShapeDoubleBracket msoShapeDoubleWave msoShapeDownArrow msoShapeDownArrowCallout msoShapeDownRibbon msoShapeExplosion1 msoShapeExplosion2 msoShapeFlowchartAlternateProcess msoShapeFlowchartCard msoShapeFlowchartCollate msoShapeFlowchartConnector msoShapeFlowchartData msoShapeFlowchartDecision msoShapeFlowchartDelay msoShapeFlowchartDirectAccessStorage msoShapeFlowchartDisplay msoShapeFlowchartDocument msoShapeFlowchartExtract msoShapeFlowchartInternalStorage msoShapeFlowchartMagneticDisk msoShapeFlowchartManualInput msoShapeFlowchartManualOperation msoShapeFlowchartMerge msoShapeFlowchartMultidocument msoShapeFlowchartOffpageConnector msoShapeFlowchartOr msoShapeFlowchartPredefinedProcess msoShapeFlowchartPreparation msoShapeFlowchartProcess msoShapeFlowchartPunchedTape msoShapeFlowchartSequentialAccessStorage	msoShapeFlowchartSort msoShapeFlowchartStoredData msoShapeFlowchartSummingJunction msoShapeFlowchartTerminator msoShapeFoldedCorner msoShapeHeart msoShapeHexagon msoShapeHorizontalScroll msoShapeIsoscelesTriangle msoShapeLeftArrow msoShapeLeftArrowCallout msoShapeLeftBrace msoShapeLeftBracket msoShapeLeftRightArrow msoShapeLeftRightArrowCallout msoShapeLeftRightUpArrow msoShapeLeftUpArrow msoShapeLightningBolt msoShapeLineCallout1 msoShapeLineCallout1AccentBar msoShapeLineCallout1BorderandAccentBar msoShapeLineCallout1NoBorder msoShapeLineCallout2 msoShapeLineCallout2AccentBar msoShapeLineCallout2BorderandAccentBar msoShapeLineCallout2NoBorder msoShapeLineCallout3 msoShapeLineCallout3AccentBar msoShapeLineCallout3BorderandAccentBar msoShapeLineCallout3NoBorder msoShapeLineCallout4 msoShapeLineCallout4AccentBar msoShapeLineCallout4BorderandAccentBar msoShapeLineCallout4NoBorder msoShapeMixed msoShapeMoon msoShapeNoSymbol msoShapeNotchedRightArrow msoShapeNotPrimitive msoShapeOctagon msoShapeOval msoShapeOvalCallout msoShapeParallelogram msoShapePentagon msoShapePlaque msoShapeQuadArrow msoShapeQuadArrowCallout msoShapeRectangle msoShapeRectangularCallout msoShapeRegularPentagon msoShapeRightArrow msoShapeRightArrowCallout msoShapeRightBrace msoShapeRightBracket msoShapeRightTriangle msoShapeRoundedRectangle msoShapeRoundedRectangularCallout msoShapeSmileyFace msoShapeStripedRightArrow msoShapeSun msoShapeTrapezoid msoShapeUpArrow msoShapeUpArrowCallout msoShapeUpDownArrow msoShapeUpDownArrowCallout msoShapeUpRibbon msoShapeUTurnArrow msoShapeVerticalScroll msoShapeWave


Ejemplo de la propiedad AutoShapeType

Este ejemplo reemplaza todas las estrellas de 16 puntas por estrellas de 32 puntas en miDocumento.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    If s.AutoShapeType = msoShape16pointStar Then

        s.AutoShapeType = msoShape32pointStar

    End If

Next


Método BuildFreeform

Genera un objeto de forma libre. Devuelve un objeto FreeformBuilder que representa la forma libre según se genera. Utilice el método AddNodes para agregar segmentos a la forma libre. Después de agregar al menos un segmento a la forma libre, puede utilizar el método ConvertToShape para convertir el objeto FreeformBuilder en un objeto Shape que tenga la descripción geométrica definida en el objeto FreeformBuilder.

Sintaxis

expresión.BuildFreeform(EditingType, X1, Y1)

expresión   Requerida. Una expresión que devuelve un objeto Shapes.

EditingType   Long requerido. Propiedad de modificación del primer nodo. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto o msoEditingCorner (no puede ser msoEditingSmooth ni msoEditingSymmetric).

X1, Y1   Single requerido. Posición (en puntos) del primer nodo del dibujo de forma libre respecto a la esquina superior izquierda del documento.


Ejemplo del método BuildFreeform

Este ejemplo agrega una forma libre con cinco vértices a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


Propiedad Callout

Devuelve un objeto CalloutFormat que contiene las propiedades de formato de llamada de la forma especificada. Se aplica a los objetos Shape o ShapeRange que representan llamadas. Es de sólo lectura.


Ejemplo de la propiedad Callout

Este ejemplo agrega a miDocumento una elipse y una llamada que señala a la elipse. El texto de la llamada no tendrá un borde, pero tendrá una barra de énfasis vertical que separa el texto de la línea de llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddShape msoShapeOval, 180, 200, 280, 130

    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)

        .TextFrame.TextRange.Text = "Mi elipse"

        With .Callout

            .Accent = True

            .Border = False

        End With

    End With

End With


Propiedad Fill

Devuelve un objeto FillFormat que contiene las propiedades de formato de relleno de la forma especificada. Es de sólo lectura.


Ejemplo de la propiedad Fill

Este ejemplo agrega un rectángulo a miDocumento y establece el color del primer plano, el color del plano de fondo y el degradado del relleno del rectángulo.

Set miDocumento = Documents(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With


Método Flip

Voltea la forma especificada alrededor de su eje horizontal o vertical.

Sintaxis

expresión.Flip(FlipCmd)

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

FlipCmd   Long requerido. Especifica si la forma se volteará horizontal o verticalmente. Puede ser una de las siguientes constantes MsoFlipCmd: msoFlipHorizontal o msoFlipVertical.


Ejemplo del método Flip

Este ejemplo agrega un triángulo a miDocumento, lo duplica y, a continuación, voltea el duplicado verticalmente y cambia su color a rojo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRightTriangle, 10, 10, 50, 50).Duplicate

    .Fill.ForeColor.RGB = RGB(255, 0, 0)

    .Flip msoFlipVertical

End With


Método Group

Agrupa las formas del intervalo especificado. Devuelve las formas agrupadas como un único objeto Shape.

Sintaxis

expresión.Group

expresión   Requerida. Una expresión que devuelve un objeto ShapeRange.

Comentarios

Debido a que un grupo de formas se trata como una única forma, al agrupar y desagrupar formas cambia el número de elementos del conjunto Shapes y cambia el número de índice de los elementos ubicados después de los elementos del conjunto afectados.


Ejemplo del método Group

Este ejemplo agrega dos formas a miDocumento, agrupa las dos nuevas formas, establece el relleno del grupo, lo gira y lo envía al fondo de la capa de dibujo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddShape(msoShapeCan, 50, 10, 100, 200).Name = "fmaUno"

    .AddShape(msoShapeCube, 150, 250, 100, 200).Name = "fmaDos"

    With .Range(Array("fmaUno", "fmaDos")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .Rotation = 45

        .ZOrder msoSendToBack

    End With

End With


Propiedad GroupItems

Devuelve un objeto GroupShapes que representa las formas individuales del grupo especificado. Utilice el método Item del objeto GroupShapes para devolver una única forma del grupo. Se aplica a los objetos Shape o ShapeRange que representan formas agrupadas. Es de sólo lectura.


Ejemplo de la propiedad GroupItems

Este ejemplo agrega tres triángulos a miDocumento, los agrupa, establece un color para todo el grupo y, a continuación, cambia el color sólo del segundo triángulo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100).Name = "fmaUno"

    .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100).Name = "fmaDos"

    .AddShape(msoShapeIsoscelesTriangle, 300, 10, 100, 100).Name = "fmaTres"

    With .Range(Array("fmaUno", "fmaDos", "fmaTres")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble

    End With

End With


Propiedad HorizontalFlip

True si la forma especificada se voltea alrededor del eje horizontal. Long de sólo lectura.


Ejemplo de la propiedad HorizontalFlip

Este ejemplo restablece cada forma de miDocumento a su estado original si ha sido volteado horizontal o verticalmente.

For Each s In ActiveDocument.Shapes

    If s.HorizontalFlip Then s.Flip msoFlipHorizontal

    If s.VerticalFlip Then s.Flip msoFlipVertical

Next


Propiedad Accent

True si una barra de énfasis vertical separa el texto de la llamada de la línea de la llamada. Long de Lectura/Escritura.


Ejemplo de la propiedad Accent

Este ejemplo agrega a miDocumento una elipse y una llamada que señala a la elipse. El texto de la llamada no tendrá un borde, pero tendrá una barra de énfasis vertical que separa el texto de la línea de la llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddShape msoShapeOval, 180, 200, 280, 130

    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)

        .TextFrame.TextRange.Text = "Mi elipse"

        With .Callout

            .Accent = True

            .Border = False

        End With

    End With

End With


Método AddNodes

Inserta un nuevo segmento al final de la forma línea que se está creando y agrega los nodos que definen el segmento. Puede utilizar este método tantas veces como desee agregar nodos a la forma libre que esté creando. Cuando finalice de agregar nodos, utilice el método ConvertToShape para crear la forma libre definida. Para agregar nodos a una forma libre después de crearla, utilice el método Insert del conjunto ShapeNodes.

Sintaxis

expresión.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

expresión   Requerida. Una expresión que devuelve un objeto FreeformBuilder.

SegmentType   Long requerido. Tipo de segmento que se va a agregar. Puede ser una de las siguientes constantes MsoSegmentType: msoSegmentCurve o msoSegmentLine.

EditingType   Long requerido. Propiedad de modificación del vértice. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto o msoEditingCorner (no puede ser msoEditingSmooth ni msoEditingSymmetric). Si SegmentType es msoSegmentLine, EditingType debe ser msoEditingAuto.

X1   Single requerido. Si el EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el punto extremo del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.

Y1   Single requerido. Si el EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el punto extremo del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.

X2   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.

Y2   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.

X3   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el punto extremo del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.

Y3   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el punto extremo del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.


Ejemplo del método AddNodes

Este ejemplo agrega una forma libre con cinco vértices a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


Propiedad Angle

Devuelve o establece el ángulo de la línea de la llamada. Si la línea de la llamada contiene más de un segmento de línea, esta propiedad devuelve o establece el ángulo del segmento más alejado del cuadro de texto de la llamada. Puede ser una de las siguientes constantes MsoCalloutAngleType: msoCalloutAngle30, msoCalloutAngle45, msoCalloutAngle60, msoCalloutAngle90, msoCalloutAngleAutomatic o msoCalloutAngleMixed. Long de Lectura/Escritura.

Comentarios

Si establece un valor para esta propiedad diferente de msoCalloutAngleAutomatic, la línea de la llamada mantiene un ángulo fijo a medida que arrastra la llamada.


Ejemplo de la propiedad Angle

Este ejemplo establece en 90 grados el ángulo de la llamada denominada "co1" en miDocumento.

Set miDocumento = Documents(1)

miDocumento.Shapes("co1").Callout.Angle = msoCalloutAngle90


Propiedad AutoAttach

True si el lugar donde la línea de la llamada se adjunta al cuadro de texto cambia según si el origen de la línea (donde señala la llamada) es la izquierda o la derecha del cuadro de texto de la llamada. Long de Lectura/Escritura.

Comentarios

Cuando el valor de esta propiedad es True, el valor de drop (distancia vertical desde el borde del cuadro de texto de la llamada al lugar donde se adjunta la línea de la llamada) se mide desde la parte superior del cuadro de texto cuando está hacia la derecha del origen, y se mide desde la parte inferior del cuadro de texto cuando está hacia la izquierda del origen. Cuando el valor de esta propiedad es False, el valor de drop siempre se mide desde la parte superior del cuadro de texto, independientemente de las posiciones relativas del cuadro de texto y del origen. Utilice el método CustomDrop para establecer el valor de drop, y utilice la propiedad Drop para devolver el valor de drop.

Esta propiedad afecta a una llamada sólo si tiene un valor de drop explícitamente establecido, es decir, si el valor de la propiedad DropType es msoCalloutDropCustom. Cuando se crean llamadas, se establecen automáticamente valores de drop de forma explícita.


Ejemplo de la propiedad AutoAttach

Este ejemplo agrega dos llamadas a miDocumento. Si arrastra el cuadro de texto de cada una de estas llamadas a la izquierda del origen de la línea de la llamada, el lugar del cuadro de texto donde se adjunta la línea cambiará para la llamada que se ha adjuntado automáticamente.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    With .AddCallout(msoCalloutTwo, 100, 170, 200, 50)

        .TextFrame.TextRange.Text = "autoadjuntado"

        .Callout.AutoAttach = True

    End With

    With .AddCallout(msoCalloutTwo, 100, 350, 200, 50)

        .TextFrame.TextRange.Text = "no autoadjuntado"

        .Callout.AutoAttach = False

    End With

End With


Propiedad AutoLength

True si el primer segmento de la línea de la llamada (el segmento adjunto al cuadro de texto) se ajusta automáticamente siempre que se mueva la llamada. False si el primer segmento de la llamada mantiene la longitud fija especificada por la propiedad Length siempre que se mueva la llamada. Se aplica sólo a llamadas cuyas líneas consten de más de un segmento (tipos msoCalloutThree y msoCalloutFour). Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura; Utilice el método AutomaticLength para establecer esta propiedad en True, y utilice el método CustomLength para establecerla en False.


Ejemplo de la propiedad AutoLength

Este ejemplo alterna entre un primer segmento de ajuste automático y uno de longitud fija para la línea de la llamada de la forma uno en miDocumento. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Callout

    If .AutoLength Then

        .CustomLength 50

    Else

        .AutomaticLength

    End If

End With


Método AutomaticLength

Especifica que el primer segmento de la línea de la llamada (el segmento adjunto al cuadro de texto) se ajustará automáticamente siempre que se mueva la llamada. Utilice el método CustomLength para especificar que el primer segmento de la línea de la llamada mantendrá la longitud fija devuelta por la propiedad Length siempre que la llamada se mueva. Se aplica sólo a llamadas cuyas líneas consten de más de un segmento (tipos msoCalloutThree y msoCalloutFour).

Sintaxis

expresión.AutomaticLength

expresión   Requerida. Una expresión que devuelve un objeto CalloutFormat.

Comentarios

Al aplicar este método se establece la propiedad AutoLength en True.


Ejemplo del método AutomaticLength

Este ejemplo alterna entre un primer segmento de ajuste automático y uno de longitud fija para la línea de la llamada de la forma uno en miDocumento. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Callout

    If .AutoLength Then

        .CustomLength 50

    Else

        .AutomaticLength

    End If

End With


Propiedad BackColor

Devuelve o establece un objeto ColorFormat que representa el color del plano de fondo del relleno o línea de entramado especificados. Lectura/Escritura.


Ejemplo de la propiedad BackColor

Este ejemplo agrega un rectángulo a miDocumento y establece el color del primer plano, el color del plano de fondo y el degradado del relleno del rectángulo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With

Este ejemplo agrega una línea de entramado a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(10, 100, 250, 0).Line

    .Weight = 6

    .ForeColor.RGB = RGB(0, 0, 255)

    .BackColor.RGB = RGB(128, 0, 0)

    .Pattern = msoPatternDarkDownwardDiagonal

End With


Propiedad BeginArrowheadLength

Devuelve o establece la longitud de la punta de flecha al principio de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadLength: msoArrowheadLengthMedium, msoArrowheadLengthMixed, msoArrowheadLong o msoArrowheadShort. Long de Lectura/Escritura.


Ejemplo de la propiedad BeginArrowheadLength

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea, y un triángulo ancho y largo en el punto extremo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad BeginArrowheadStyle

Devuelve o establece el estilo de la punta de flecha al principio de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadStyle: msoArrowheadDiamond, msoArrowheadNone, msoArrowheadOval, msoArrowheadOpen, msoArrowheadStealth, msoArrowheadStyleMixed o msoArrowheadTriangle. Long de Lectura/Escritura.


Ejemplo de la propiedad BeginArrowheadStyle

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea, y un triángulo ancho y largo en el punto extremo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad BeginArrowheadWidth

Devuelve o establece el ancho de la punta de flecha al principio de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadWidth: msoArrowheadNarrow, msoArrowheadWide, msoArrowheadWidthMedium o msoArrowheadWidthMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad BeginArrowheadWidth

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea, y un triángulo ancho y largo en el punto extremo.

Set miDocumento = Documents(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad Border

True si el texto de la llamada especificada está rodeado por un borde. Long de Lectura/Escritura.


Ejemplo de la propiedad Border

Este ejemplo agrega a miDocumento una elipse y una llamada que señala a la elipse. El texto de la llamada no tendrá un borde, pero tendrá una barra de énfasis vertical que separa el texto de la línea de la llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddShape msoShapeOval, 180, 200, 280, 130

    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)

        .TextFrame.TextRange.Text = "Mi elipse"

        With .Callout

            .Accent = True

            .Border = False

        End With

    End With

End With


Propiedad Brightness

Devuelve o establece el brillo de la imagen u objeto OLE especificados. El valor de esta propiedad debe ser un número entre 0,0 (el más tenue) y 1,0 (el más brillante). Single de Lectura/Escritura.


Ejemplo de la propiedad Brightness

Este ejemplo establece el brillo de la forma uno en miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActiveDocument

miDocumento.Shapes(1).PictureFormat.Brightness = 0.3


Propiedad ColorType

Devuelve o establece el tipo de transformación de color aplicado a la imagen u objeto OLE especificados. Puede ser una de las siguientes constantes MsoPictureColorType: msoPictureAutomatic, msoPictureBlackAndWhite, msoPictureGrayscale, msoPictureMixed o msoPictureWatermark. Long de Lectura/Escritura.


Ejemplo de la propiedad ColorType

Este ejemplo establece la transformación de color en escala de grises para la forma uno en miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActiveDocument

miDocumento.Shapes(1).PictureFormat.ColorType = msoPictureGrayScale


Propiedad Contrast

Devuelve o establece el contraste de la imagen u objeto OLE especificados. El valor de esta propiedad debe ser un número entre 0,0 (el menor contraste) y 1,0 (el mayor contraste). Single de Lectura/Escritura.


Ejemplo de la propiedad Contrast

Este ejemplo establece el contraste de la forma uno en miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = Documents(1)

miDocumento.Shapes(1).PictureFormat.Contrast = 0.8


Método CustomDrop

Establece la distancia vertical (en puntos) desde el lado del cuadro de límite de texto hasta el lugar donde la línea de la llamada se adjunta al cuadro de texto. Esta distancia se mide desde la parte superior del cuadro de texto, a menos que la propiedad AutoAttach esté establecida en True y el cuadro de texto esté a la izquierda del origen de la línea de la llamada (lugar al que señala la llamada), en cuyo caso la distancia de caída se mide desde la parte inferior del cuadro de texto.

Sintaxis

expresión.CustomDrop(Drop)

expresión   Requerida. Una expresión que devuelve un objeto CalloutFormat.

Drop   Single requerido. Distancia de drop, en puntos.

Comentarios

Si anteriormente se utilizó el método PresetDrop para establecer el drop de la llamada especificada, utilice la instrucción PresetDrop msoCalloutDropCustom antes de utilizar el método CustomDrop para que la configuración de drop establecida tenga efecto.


Ejemplo del método CustomDrop

Este ejemplo cancela cualquier drop preestablecido para la forma uno de miDocumento, establece la distancia de drop personalizada en 14 puntos y especifica que la distancia de drop siempre se medirá desde la parte superior. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Callout

    .PresetDrop msoCalloutDropCustom

    .CustomDrop 14

    .AutoAttach = False

End With


Método CustomLength

Especifica que el primer segmento de la línea de la llamada (el segmento adjunto al cuadro de texto) mantenga una longitud fija siempre que se mueva la llamada. Utilice el método AutomaticLength para especificar que el primer segmento de la línea de la llamada se ajuste automáticamente siempre que la llamada se mueva. Se aplica sólo a llamadas cuyas líneas consten de más de un segmento (tipos msoCalloutThree y msoCalloutFour).

Sintaxis

expresión.CustomLength(Length)

expresión   Requerida. Una expresión que devuelve un objeto CalloutFormat.

Length   Single requerido. Longitud del primer segmento de la llamada, en puntos.

Comentarios

Al aplicar este método se establece la propiedad AutoLength en False y la propiedad Length en el valor especificado por el argumento Length.


Ejemplo del método CustomLength

Este ejemplo alterna entre un primer segmento de ajuste automático y uno de longitud fija para la línea de la llamada de la forma uno en miDocumento. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Callout

    If .AutoLength Then

        .CustomLength 50

    Else

        .AutomaticLength

    End If

End With


Propiedad DashStyle

Devuelve o establece el estilo de guión de la línea especificada. Puede ser una de las siguientes constantes MsoLineDashStyle: msoLineDash, msoLineDashDot, msoLineDashDotDot, msoLineDashStyleMixed, msoLineLongDash, msoLineLongDashDot, msoLineRoundDot, msoLineSolid o msoLineSquareDot. Long de Lectura/Escritura.


Ejemplo de la propiedad DashStyle

Este ejemplo agrega una línea discontinua azul a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(50, 0, 128)

End With


Propiedad Depth

Devuelve o establece la profundidad de extrusión de la forma. Puede ser un valor comprendido entre – 600 y 9600 (los valores positivos producen una extrusión cuya cara anterior es la forma original; los valores negativos producen una extrusión cuya cara posterior es la forma original). Single de Lectura/Escritura.


Ejemplo de la propiedad Depth

Este ejemplo agrega una elipse a miDocumento y, a continuación, especifica que la profundidad de extrusión de la elipse sea de 50 puntos y que la extrusión sea morada.

Set miDocumento = ActiveDocument

Set miForma = miDocumento.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)

With miForma.ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' RGB value for purple

End With


Propiedad Drop

Para llamadas con un valor de drop explícitamente establecido, esta propiedad devuelve la distancia vertical (en puntos) desde el borde del cuadro de límite de texto al lugar donde la línea de la llamada se adjunta al cuadro de texto. Esta distancia se mide desde la parte superior del cuadro de texto, a menos que la propiedad AutoAttach esté establecida en True y el cuadro de texto esté a la izquierda del origen de la línea de la llamada (lugar al que señala la llamada), en cuyo caso la distancia de caída se mide desde la parte inferior del cuadro de texto. Single de sólo lectura.

Comentarios

Utilice el método CustomDrop para establecer el valor de esta propiedad.

El valor de esta propiedad refleja con exactitud la posición del punto de unión de la línea de la llamada al cuadro de texto sólo si la llamada tiene un valor de drop explícitamente establecido, es decir, si el valor de la propiedad DropType es msoCalloutDropCustom. Utilice la instrucción PresetDrop msoCalloutCustomDrop para establecer la propiedad DropType en msoCalloutDropCustom.


Ejemplo de la propiedad Drop

Este ejemplo reemplaza el drop personalizado de la forma uno de miDocumento por uno de los dos drops preestablecidos, dependiendo de si el valor de drop personalizado es mayor o menor que la mitad del alto del cuadro de texto de la llamada. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Callout

    If .DropType = msoCalloutDropCustom Then

        If .Drop < .Parent.Height / 2 Then

            .PresetDrop msoCalloutDropTop

        Else

            .PresetDrop msoCalloutDropBottom

        End If

    End If

End With


Propiedad DropType

Devuelve un valor que indica dónde se adjunta la línea de la llamada al cuadro de texto. Puede ser una de las siguientes constantes MsoCalloutDropType: msoCalloutDropBottom, msoCalloutDropCenter, msoCalloutDropCustom, msoCalloutDropMixed o msoCalloutDropTop. Long de sólo lectura.

Comentarios

Si el tipo de drop de la llamada es msoCalloutDropCustom, para determinar dónde se adjunta la línea de la llamada al cuadro de texto de la llamada se utilizan los valores de las propiedades Drop y AutoAttach y las posiciones relativas del cuadro de texto y el origen de la línea (el lugar al que señala la llamada).

Esta propiedad es de sólo lectura. Utilice el método PresetDrop para establecer el valor de esta propiedad.


Ejemplo de la propiedad DropType

Este ejemplo determina si la forma tres de miDocumento es una llamada con un drop personalizado. Si es así, el código reemplaza el drop personalizado por uno de los dos drops preestablecidos, dependiendo de si el valor de drop personalizado es mayor o menor que la mitad del alto del cuadro de texto de la llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3)

    If .Type = msoCallout Then

        With .Callout

            If .DropType = msoCalloutDropCustom Then

                If .Drop < .Parent.Height / 2 Then

                    .PresetDrop msoCalloutDropTop

                Else

                    .PresetDrop msoCalloutDropBottom

                End If

            End If

        End With

    End If

End With


Propiedad EditingType

Si el nodo especificado es un vértice, esta propiedad devuelve un valor que indica cómo afectarán a los dos segmentos conectados al nodo los cambios que se realicen en el mismo. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto, msoEditingCorner, msoEditingSmooth o msoEditingSymmetric. Si el nodo es un punto de control de un segmento curvado, esta propiedad devuelve el tipo de modificación del vértice adyacente. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método SetEditingType para establecer el valor de esta propiedad.


Ejemplo de la propiedad EditingType

Este ejemplo cambia todos los nodos de esquina por nodos suaves en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Nodes

    For n = 1 to .Count

        If .Item(n).EditingType = msoEditingCorner Then

            .SetEditingType n, msoEditingSmooth

        End If

    Next

End With


Propiedad EndArrowheadLength

Devuelve o establece la longitud de la punta de flecha al final de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadLength: msoArrowheadLengthMedium, msoArrowheadLengthMixed, msoArrowheadLong o msoArrowheadShort. Long de Lectura/Escritura.


Ejemplo de la propiedad EndArrowheadLength

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea, y un triángulo ancho y largo en el punto extremo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad EndArrowheadStyle

Devuelve o establece el estilo de la punta de flecha al final de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadStyle: msoArrowheadDiamond, msoArrowheadNone, msoArrowheadOpen, msoArrowheadOval, msoArrowheadStealth, msoArrowheadStyleMixed o msoArrowheadTriangle. Long de Lectura/Escritura.


Ejemplo de la propiedad EndArrowheadStyle

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea, y un triángulo ancho y largo en el punto extremo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad EndArrowheadWidth

Devuelve o establece el ancho de la punta de flecha al final de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadWidth: msoArrowheadNarrow, msoArrowheadWide, msoArrowheadWidthMedium o msoArrowheadWidthMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad EndArrowheadWidth

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea, y un triángulo ancho y largo en el punto extremo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad ExtrusionColor

Devuelve un objeto ColorFormat que representa el color de extrusión de la forma. Es de sólo lectura.


Ejemplo de la propiedad ExtrusionColor

Este ejemplo agrega una elipse a miDocumento y, a continuación, especifica que la profundidad de extrusión de la elipse sea de 50 puntos y que la extrusión sea morada.

Set miDocumento = ActiveDocument

Set miForma = miDocumento.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)

With miForma.ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' RGB value for purple

End With


Propiedad ExtrusionColorType

Devuelve o establece un valor que indica si el color de extrusión está basado en el relleno de la forma (cara frontal de la extrusión) y cambia automáticamente cuando cambia el relleno de la forma o cuando el color de extrusión es independiente del relleno de la forma. Puede ser una de las siguientes constantes MsoExtrusionColorType: msoExtrusionColorAutomatic (color de extrusión basado en el relleno de la forma), msoExtrusionColorCustom (color de extrusión independiente del relleno de la forma) o msoExtrusionColorTypeMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad ExtrusionColorType

Si la forma uno de miDocumento tiene un color de extrusión automático, este ejemplo asigna un color amarillo personalizado a la extrusión.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    If .ExtrusionColorType = msoExtrusionColorAutomatic Then

        .ExtrusionColor.RGB = RGB(240, 235, 16)

    End If

End With


Propiedad FontBold

True si la fuente del objeto WordArt especificado es negrita. Long de Lectura/Escritura.


Ejemplo de la propiedad FontBold

Este ejemplo establece en negrita la fuente de la forma tres de miDocumento, si la forma es un objeto de WordArt.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3)

    If .Type = msoTextEffect Then

        .TextEffect.FontBold = True

    End If

End With


Propiedad FontItalic

True si la fuente del objeto de WordArt especificado es cursiva. Long de Lectura/Escritura.


Ejemplo de la propiedad FontItalic

Este ejemplo establece en cursiva la fuente de la forma "WordArt4" de miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes("WordArt 4").TextEffect.FontItalic = True


Propiedad FontSize

Devuelve o establece el tamaño de fuente del WordArt especificado. Single de Lectura/Escritura.


Ejemplo de la propiedad FontSize

En este ejemplo, se establece en 16 puntos el tamaño de fuente de la forma "WordArt 2" de miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes("WordArt 2").TextEffect.FontSize = 16


Propiedad ForeColor

Devuelve o establece un objeto ColorFormat que representa el color del primer plano del relleno, línea o sombra. Lectura/Escritura.


Ejemplo de la propiedad ForeColor

En este ejemplo, se agrega un rectángulo a miDocumento y se establece el color de primer plano, el color del fondo y el degradado del relleno del rectángulo.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With

En este ejemplo, se agrega una línea de entramado a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(10, 100, 250, 0).Line

    .Weight = 6

    .ForeColor.RGB = RGB(0, 0, 255)

    .BackColor.RGB = RGB(128, 0, 0)

    .Pattern = msoPatternDarkDownwardDiagonal

End With


Propiedad Gap

Devuelve o establece la distancia horizontal (en puntos) entre el final de la línea de la llamada y el cuadro de límite de texto. Single de Lectura/Escritura.


Ejemplo de la propiedad Gap

En este ejemplo, se establece en 3 puntos la distancia entre la línea de la llamada y el cuadro de límite de texto de la forma uno de miDocumento. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

miDocumento.Shapes(1).Callout.Gap = 3


Propiedad GradientColorType

Devuelve el tipo de color degradado del relleno especificado. Puede ser una de las siguientes constantes MsoGradientColorType: msoGradientColorMixed, msoGradientOneColor, msoGradientPresetColors o msoGradientTwoColors. Long de sólo lectura.

Esta propiedad es de sólo lectura; Utilice el método OneColorGradient, PresetGradient o TwoColorGradient para establecer el tipo de degradado del relleno.


Ejemplo de la propiedad GradientColorType

En este ejemplo, se cambia el relleno de todas las formas de miDocumento que tengan un relleno degradado de dos colores por un relleno degradado preestablecido.

Set miDocumento = Documents(1)

For Each s In miDocumento.Shapes

    With s.Fill

        If .GradientColorType = msoGradientTwoColors Then

            .PresetGradient msoGradientHorizontal, 1, msoGradientBrass

        End If

    End With

Next


Propiedad GradientDegree

Devuelve un valor que indica la claridad u oscuridad del relleno degradado de un color. Un valor 0 (cero) indica que el color de primer plano de la forma está mezclado con negro para formar el degradado; un valor 1 indica que el color de primer plano está mezclado con blanco y los valores comprendidos entre 0 y 1 indican que está mezclado con una sombra más clara o más oscura del color del fondo. Single de sólo lectura.

Esta propiedad es de sólo lectura. Utilice el método OneColorGradient, para establecer el grado de degradado del relleno.


Ejemplo de la propiedad GradientDegree

En este ejemplo, se agrega un rectángulo a miDocumento y se establece el grado de degradado del relleno para que coincida con el de la forma "Rectángulo 2". Si Rectángulo 2 no tiene ningún relleno degradado de un color, este ejemplo falla.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    gradDegree1 = .Item("Rectángulo 2").Fill.GradientDegree

    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

        .ForeColor.RGB = RGB(0, 128, 128)

        .OneColorGradient msoGradientHorizontal, 1, gradDegree1

    End With

End With


Propiedad GradientStyle

Devuelve el estilo de degradado del relleno especificado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientHorizontal, msoGradientMixed o msoGradientVertical. La constante msoGradientFromTitle se utiliza sólo en PowerPoint. Long de sólo lectura.

Esta propiedad es de sólo lectura. Utilice el método OneColorGradient o TwoColorGradient para establecer el estilo de degradado del relleno.

Nota   Al tratar de devolver esta propiedad para un relleno que no tenga ningún degradado se genera un error. Utilice la propiedad Type para determinar si el relleno tiene degradado.


Ejemplo de la propiedad GradientStyle

En este ejemplo, se agrega un rectángulo a miDocumento y se establece el degradado del relleno para que coincida con el de la forma "rect1". Para que el ejemplo funcione, rect1 debe tener un relleno degradado.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    gradStyle1 = .Item("rect1").Fill.GradientStyle

    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

        .ForeColor.RGB = RGB(128, 0, 0)

        .OneColorGradient gradStyle1, 1, 1

    End With

End With


Propiedad GradientVariant

Devuelve la variante de degradado del relleno especificado como valor entero de 1 a 4 para la mayoría de los degradados. Si el estilo de degradado es msoGradientFromCenter, esta propiedad devuelve el valor 1 ó 2. Los valores de esta propiedad corresponden a las variantes de degradado, numeradas de izquierda a derecha y de arriba a abajo, de la ficha Degradado del cuadro de diálogo Efectos de relleno. Long de sólo lectura.

Esta propiedad es de sólo lectura. Utilice el método OneColorGradient o TwoColorGradient para establecer la variante de degradado del relleno.


Ejemplo de la propiedad GradientVariant

En este ejemplo, se agrega un rectángulo a miDocumento y se establece el degradado del relleno para que coincida con el de la forma "rect1". Para que el ejemplo funcione, rect1 debe tener un relleno degradado.

With ActiveDocumento.Shapes

    gradVar1 = .Item("rect1").Fill.GradientVariant

    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

        .ForeColor.RGB = RGB(128, 0, 0)

        .OneColorGradient msoGradientHorizontal, gradVar1, 1

    End With

End With


Propiedad HasText

True si la forma especificada tiene texto asociado. Boolean de sólo lectura.


Ejemplo de la propiedad HasText

Si la forma dos de miDocumento contiene texto, en este ejemplo se muestra un mensaje si el texto desborda el marco.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(2).TextFrame

    If .HasText = True Then

        If .Overflowing = True Then

            Msgbox "El texto desborda el marco."

        End If

    End If

End With


Método IncrementBrightness

Cambia el brillo de la imagen según se especifique. Utilice la propiedad Brightness para establecer el brillo absoluto de la imagen.

Sintaxis

expresión.IncrementBrightness(Increment)

expresión   Requerida. Expresión que devuelve un objeto PictureFormat.

Increment   Single requerida. Especifica cuánto cambiará el valor de la propiedad Brightness de la imagen. Un valor positivo da más brillo a la imagen; un valor negativo la oscurece.

Comentarios

No es posible ajustar el brillo de una imagen pasado el límite superior o inferior de la propiedad Brightness. Por ejemplo, si el valor de la propiedad Brightness está inicialmente establecido en 0,9 y especifica 0,3 en el argumento Increment, el nivel de brillo resultante será 1,0, que es el límite superior de la propiedad Brightness, en lugar de 1,2.


Ejemplo del método IncrementBrightness

En este ejemplo, se crea un duplicado de la forma uno en miDocumento y, a continuación, se mueve y se oscurece el duplicado. Para que el ejemplo funcione, la forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Duplicate

    .PictureFormat.IncrementBrightness -0.2

    .IncrementLeft 50

    .IncrementTop 50

End With


Método IncrementContrast

Cambia el contraste de la imagen según se especifique. Utilice la propiedad Contrast para establecer el contraste absoluto de la imagen.

Sintaxis

expresión.IncrementContrast(Increment)

expresión   Requerida. Expresión que devuelve un objeto PictureFormat.

Increment   Single requerida. Especifica cuánto cambiará el valor de la propiedad Contrast de la imagen. Un valor positivo aumenta el contraste; un valor negativo lo reduce.

Comentarios

No es posible ajustar el contraste de una imagen pasado el límite superior o inferior de la propiedad Contrast. Por ejemplo, si el valor de la propiedad Contrast está inicialmente establecido en 0,9 y especifica 0,3 en el argumento Increment, el nivel de contraste resultante será 1,0, que es el límite superior de la propiedad Contrast, en lugar de 1,2.


Ejemplo del método IncrementContrast

En este ejemplo, se incrementa el contraste de todos los objetos OLE incrustados en miDocumento cuyo valor de contraste no esté establecido en el máximo.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    If s.Type = msoEmbeddedOLEObject Then

        s.PictureFormat.IncrementContrast 0.1

    End If

Next


Método IncrementLeft

Mueve la forma horizontalmente el número de puntos especificado.

Sintaxis

expresión.IncrementLeft(Increment)

expresión   Requerida. Expresión que devuelve un objeto Shape.

Increment   Single requerida. Especifica cuánto se moverá la forma horizontalmente, en puntos. Un valor positivo mueve la forma hacia la derecha; un valor negativo la mueve hacia la izquierda.


Ejemplo del método IncrementLeft

En este ejemplo, se duplica la forma uno de miDocumento, se establece el relleno del duplicado, se mueve 70 puntos hacia la derecha y 50 puntos hacia arriba y se gira 30 grados en el sentido de las agujas del reloj.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

End With


Método IncrementOffsetX

Cambia el desplazamiento horizontal de la sombra el número de puntos especificado. Utilice la propiedad OffsetX para establecer el desplazamiento horizontal absoluto de la sombra.

Sintaxis

expresión.IncrementOffsetX(Increment)

expresión   Requerida. Expresión que devuelve un objeto ShadowFormat.

Increment   Single requerida. Especifica cuánto se moverá el desplazamiento de la sombra horizontalmente, en puntos. Un valor positivo mueve la sombra hacia la derecha; un valor negativo la mueve hacia la izquierda.


Ejemplo del método IncrementOffsetX

En este ejemplo, se mueve 3 puntos a la izquierda la sombra de la forma tres de miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes(3).Shadow.IncrementOffsetX -3


Método IncrementOffsetY

Cambia el desplazamiento vertical de la sombra el número de puntos especificado. Utilice la propiedad OffsetY para establecer el desplazamiento vertical absoluto de la sombra.

Sintaxis

expresión.IncrementOffsetY(Increment)

expresión   Requerida. Expresión que devuelve un objeto ShadowFormat.

Increment   Single requerida. Especifica cuánto se moverá el desplazamiento de la sombra verticalmente, en puntos. Un valor positivo mueve la sombra hacia abajo; un valor negativo la mueve hacia arriba.


Ejemplo del método IncrementOffsetY

En este ejemplo, se mueve 3 puntos hacia arriba la sombra de la forma tres de miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes(3).Shadow.IncrementOffsetY -3


Método IncrementRotation

Cambia el giro de la forma alrededor del eje Z el número especificado de grados. Utilice la propiedad Rotation para establecer el giro absoluto de la forma.

Sintaxis

expresión.IncrementRotation(Increment)

expresión   Requerida. Una expresión que devuelve un objeto Shape.

Increment   Single requerida. Especifica cuánto girará horizontalmente la forma, en grados. Un valor positivo gira la forma en el sentido de las agujas del reloj; un valor negativo la gira en sentido contrario a las agujas del reloj.

Comentarios

Para girar una forma tridimensional alrededor del eje X o del eje Y, utilice el método IncrementRotationX o IncrementRotationY.


Ejemplo del método IncrementRotation

En este ejemplo, se duplica la forma uno de miDocumento, se establece el relleno del duplicado, se mueve 70 puntos hacia la derecha y 50 puntos hacia arriba y se gira 30 grados en sentido de las agujas del reloj.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

End With


Método IncrementRotationX

Cambia el giro de la forma alrededor del eje X el número especificado de grados. Utilice la propiedad RotationX para establecer el giro absoluto de la forma alrededor del eje X.

Sintaxis

expresión.IncrementRotationX(Increment)

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

Increment   Single requerida. Especifica cuántos grados cambiará el giro de la forma alrededor del eje X.

 Un valor positivo inclina la forma hacia arriba; un valor negativo la inclina hacia abajo.

Comentarios

Para cambiar el giro de una forma alrededor del eje Y, utilice el método IncrementRotationY. Para cambiar el giro de una forma alrededor del eje Z, utilice el método IncrementRotation.


Ejemplo del método IncrementRotationX

En este ejemplo, se inclina 10 grados hacia arriba la forma uno de miDocumento. La figura uno debe ser una forma extruída para que pueda ver el efecto de este código.

Set miDocumento = ActiveDocument

miDocumento.Shapes(1).ThreeD.IncrementRotationX 10


Método IncrementRotationY

Cambia el giro de la forma alrededor del eje Y el número especificado de grados. Utilice la propiedad RotationY para establecer el giro absoluto de la forma alrededor del eje Y.

Sintaxis

expresión.IncrementRotationX(Increment)

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

Increment   Single requerida. Especifique cuántos grados cambiará el giro de la forma alrededor del eje Y. Un valor positivo inclina la forma hacia la izquierda; un valor negativo la inclina hacia la derecha.

Comentarios

Para cambiar el giro de una forma alrededor del eje X, utilice el método IncrementRotationX. Para cambiar el giro de una forma alrededor del eje Z, utilice el método IncrementRotation.

No puede ajustarse la rotación alrededor del eje Y de la forma especificada excediendo los límites superior o inferior de la propiedad RotationY (desde 90 grados a - 90 grados). Por ejemplo, si la propiedad RotationY se establece inicialmente en 80 y se especifica 40 para el argumento Increment, la rotación resultante será 90(el límite superior de la propiedad RotationY) en vez de 120.


Ejemplo del método IncrementRotationY

En este ejemplo, se inclina 10 grados hacia la derecha la forma uno de miDocumento. La figura uno debe ser una forma extruída para que pueda ver el efecto de este código.

Set miDocumento = ActiveDocument

miDocumento.Shapes(1).ThreeD.IncrementRotationY -10


Método IncrementTop

Mueve la forma verticalmente el número de puntos especificado.

Sintaxis

expresión.IncrementTop(Increment)

expresión   Requerida. Una expresión que devuelve un objeto Shape.

Increment   Single requerida. Especifica cuánto se moverá la forma verticalmente, en puntos. Un valor positivo mueve la figura hacia abajo; un valor negativo la mueve hacia arriba.


Ejemplo del método IncrementTop

En este ejemplo, se duplica la forma uno de miDocumento, se establece el relleno del duplicado, se mueve 70 puntos hacia la derecha y 50 puntos hacia arriba y se gira 30 grados en el sentido de las agujas del reloj.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

End With


Propiedad KernedPairs

True si el espacio entre pares de caracteres del WordArt especificado está ajustado. Long de Lectura/Escritura.


Ejemplo de la propiedad KernedPairs

En este ejemplo, se activa el ajuste del espacio entre pares de caracteres de la forma tres de miDocumento, si la forma es WordArt.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3)

    If .Type = msoTextEffect Then

        .TextEffect.KernedPairs =True

    End If

End With


Propiedad MarginBottom

Devuelve o establece la distancia, en puntos, entre la parte inferior del marco de texto y la inferior del rectángulo inscrito en la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginBottom

En este ejemplo, se agrega un rectángulo a miDocumento, se agrega texto al rectángulo y, a continuación, se establecen los márgenes del marco de texto.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Este es un texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad MarginLeft

Devuelve o establece la distancia, en puntos, entre el borde izquierdo del marco de texto y el izquierdo del rectángulo inscrito en la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginLeft

En este ejemplo, se agrega un rectángulo a miDocumento, se agrega texto al rectángulo y, a continuación, se establecen los márgenes del marco de texto.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Este es un texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad MarginRight

Devuelve o establece la distancia, en puntos, entre el borde derecho del marco de texto y el derecho del rectángulo inscrito en la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginRight

En este ejemplo, se agrega un rectángulo a miDocumento, se agrega texto al rectángulo y, a continuación, se establecen los márgenes del marco de texto.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Este es un texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad MarginTop

Devuelve o establece la distancia, en puntos, entre la parte superior del marco de texto y la superior del rectángulo inscrito en la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginTop

En este ejemplo, se agrega un rectángulo a miDocumento, se agrega texto al rectángulo y, a continuación, se establecen los márgenes del marco de texto.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Este es un texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad NormalizedHeight

True si todos los caracteres del WordArt especificado, tanto en mayúsculas como en minúsculas, tienen el mismo alto. Long de Lectura/Escritura.


Ejemplo de la propiedad NormalizedHeight

En este ejemplo, se agrega un WordArt que contiene el texto "Efecto de prueba" a miDocumento y se asigna al nuevo WordArt el nombre "efectexto1". El código iguala el alto de todos los caracteres de la forma denominada "efectexto1".

Set miDocumento = ActiveDocument

miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, _

    Text:="Efecto de prueba", FontName:="Courier New", FontSize:=44, FontBold:=True, _

    FontItalic:=False, Left:=10, Top:=10).Name = "texteff1"

miDocumento.Shapes("efectexto1").TextEffect.NormalizedHeight = True


Propiedad Obscured

True si la sombra de la forma especificada aparece rellena y está oscurecida por la forma, aunque la forma no tenga relleno. False si la sombra no tiene relleno y el contorno de la sombra es visible a través de la forma si ésta no tiene relleno. Long de Lectura/Escritura.


Ejemplo de la propiedad Obscured

En este ejemplo, se establecen los desplazamientos horizontal y vertical de la sombra de la forma tres de miDocumento. La sombra se desplaza 5 puntos a la derecha de la forma y 3 puntos sobre ella. Si la forma aún no tiene ninguna sombra, en este ejemplo se agrega una. La sombra se rellenará y será oscurecida por la forma, aunque ésta no tenga relleno.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .OffsetX = 5

    .OffsetY = -3

    .Obscured = True

End With


Propiedad OffsetX

Devuelve o establece el desplazamiento horizontal de la sombra de la forma especificada, en puntos. Un valor positivo desplaza la sombra hacia la derecha de la forma; un valor negativo la desplaza a la izquierda. Single de Lectura/Escritura.

Comentarios

Si desea empujar una sombra, horizontal o verticalmente, desde su posición actual sin necesidad de especificar una posición absoluta, utilice el método IncrementOffsetX o IncrementOffsetY.


Ejemplo de la propiedad OffsetX

En este ejemplo, se establecen los desplazamientos horizontal y vertical de la sombra de la forma tres de miDocumento. La sombra se desplaza 5 puntos a la derecha de la forma y 3 puntos sobre ella. Si la forma aún no tiene ninguna sombra, en este ejemplo se agrega una.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .OffsetX = 5

    .OffsetY = -3

End With


Propiedad OffsetY

Devuelve o establece el desplazamiento vertical de la sombra de la forma especificada, en puntos. Un valor positivo desplaza la sombra hacia la derecha de la forma; un valor negativo la desplaza a la izquierda. Single de Lectura/Escritura.

Comentarios

Si desea empujar una sombra, horizontal o verticalmente, desde su posición actual sin necesidad de especificar una posición absoluta, utilice el método IncrementOffsetX o IncrementOffsetY.


Ejemplo de la propiedad OffsetY

En este ejemplo, se establecen los desplazamientos horizontal y vertical de la sombra de la forma tres de miDocumento. La sombra se desplaza 5 puntos a la derecha de la forma y 3 puntos sobre ella. Si la forma aún no tiene ninguna sombra, en este ejemplo se agrega una.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .OffsetX = 5

    .OffsetY = -3

End With


Método OneColorGradient

Establece el degradado de un color para el relleno especificado.

Sintaxis

expresión.OneColorGradient(Style, Variant, Degree)

expresión   Requerida. Expresión que devuelve un objeto FillFormat.

Style   Long requerida. Estilo de degradado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientHorizontal o msoGradientVertical. La constante msoGradientFromTitle se utiliza sólo en PowerPoint.

Variant   Long requerida. Variante de degradado. Puede ser un valor de 1 a 4, que corresponden a las cuatro variantes de la ficha Degradado del cuadro de diálogo Efectos de relleno. Si Style es msoGradientFromCenter, el valor de este argumento puede ser 1 ó 2.

Degree   Single requerida. Grado de degradado. Puede ser un valor de 0,0 (oscuro) a 1,0 (claro).


Ejemplo del método OneColorGradient

En este ejemplo, se agrega un rectángulo con un relleno degradado de un color a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill

    .ForeColor.RGB = RGB(0, 128, 128)

    .OneColorGradient msoGradientHorizontal, 1, 1

End With


Propiedad Pattern

Devuelve un valor que representa la trama aplicada a la línea o al relleno especificado. Long de sólo lectura.

Puede ser una de las siguientes constantes MsoPatternType:

msoPattern10Percent msoPattern20Percent msoPattern25Percent msoPattern30Percent msoPattern40Percent msoPattern50Percent msoPattern5Percent msoPattern60Percent msoPattern70Percent msoPattern75Percent msoPattern80Percent msoPattern90Percent msoPatternDarkDownwardDiagonal msoPatternDarkHorizontal msoPatternDarkUpwardDiagonal msoPatternDarkVertical msoPatternDashedDownwardDiagonal msoPatternDashedHorizontal msoPatternDashedUpwardDiagonal msoPatternDashedVertical msoPatternDiagonalBrick msoPatternDivot msoPatternDottedDiamond msoPatternDottedGrid msoPatternHorizontalBrick	msoPatternLargeCheckerBoard msoPatternLargeConfetti msoPatternLargeGrid msoPatternLightDownwardDiagonal msoPatternLightHorizontal msoPatternLightUpwardDiagonal msoPatternLightVertical msoPatternMixed msoPatternNarrowHorizontal msoPatternNarrowVertical msoPatternOutlinedDiamond msoPatternPlaid msoPatternShingle msoPatternSmallCheckerBoard msoPatternSmallConfetti msoPatternSmallGrid msoPatternSolidDiamond msoPatternSphere msoPatternTrellis msoPatternWave msoPatternWeave msoPatternWideDownwardDiagonal msoPatternWideUpwardDiagonal msoPatternZigZag
Esta propiedad es de sólo lectura. Utilice el método Patterned para establecer la trama del relleno o de la línea.

Utilice las propiedades BackColor y ForeColor para establecer los colores utilizados en la trama.


Ejemplo de la propiedad Pattern

En este ejemplo, se agrega un rectángulo a miDocumento y se establece la trama del relleno para que coincida con la de la forma "rect1". El nuevo rectángulo tiene la misma trama que rect1, pero no necesariamente los mismos colores. Los colores utilizados en la trama se establecen con las propiedades BackColor y ForeColor.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    trama1 = .Item("rect1").Fill.Pattern

    With .AddShape(msoShapeRectangle, 100, 100, 120, 80).Fill

        .ForeColor.RGB = RGB(128, 0, 0)

        .BackColor.RGB = RGB(0, 0, 255)

        .Patterned trama1

    End With

End With

En este ejemplo, se agrega una línea de entramado a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(10, 100, 250, 0).Line

    .Weight = 6

    .ForeColor.RGB = RGB(0, 0, 255)

    .BackColor.RGB = RGB(128, 0, 0)

    .Pattern = msoPatternDarkDownwardDiagonal

End With


Método Patterned

Establece una trama para el relleno especificado.

Sintaxis

expresión.Patterned(Pattern)

expresión   Requerida. Expresión que devuelve un objeto FillFormat.

Pattern   Long requerida. Trama que va a utilizarse para el relleno especificado. Puede ser una de las constantes MsoPatternType.

Comentarios

Utilice las propiedades BackColor y ForeColor para establecer los colores utilizados en la trama.


Ejemplo del método Patterned

En este ejemplo, se agrega una elipse con una trama de relleno a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeOval, 60, 60, 80, 40).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(0, 0, 255)

    .Patterned msoPatternDarkVertical

End With


Propiedad Perspective

True si la extrusión aparece en perspectiva; es decir, si los planos de la extrusión se estrechan hacia un punto hasta desaparecer. False si la extrusión es una proyección paralela u ortogonal; es decir, si los planos no se estrechan hacia un punto hasta desaparecer. Long de Lectura/Escritura.


Ejemplo de la propiedad Perspective

En este ejemplo, se establece en 100 puntos la profundidad de extrusión de la forma uno de miDocumento y se especifica que la extrusión sea paralela u ortogonal.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .Depth = 100

    .Perspective = False

End With


Propiedad Points

Devuelve la posición del nodo especificado como par de coordenadas. Cada coordenada se expresa en puntos. Variant de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método SetPosition para establecer la posición del nodo.


Ejemplo de la propiedad Points

En este ejemplo, se mueve 200 puntos hacia la derecha y 300 puntos hacia abajo el nodo dos de la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Nodes

    matrizPuntos = .Item(2).Points

    valorXactual = matrizPuntos(0, 0)

    valorYactual = matrizPuntos(0, 1)

    .SetPosition 2, valorXactual + 200, valorYactual + 300

End With


Método PresetDrop

Especifica si la línea de la llamada se adjunta al lado superior, inferior o central del cuadro de texto de la llamada, o Bien si se adjunta a un punto situado a una distancia especificada desde el lado superior o inferior del cuadro de texto.

Sintaxis

expresión.PresetDrop(DropType)

expresión   Requerida. Expresión que devuelve un objeto CalloutFormat.

DropType   Long requerida. Punto de inicio de la línea de la llamada en relación al cuadro de límite de texto. Puede ser una de las siguientes constantes MsoCalloutDropType: msoCalloutDropBottom, msoCalloutDropCenter, msoCalloutDropCustom o msoCalloutDropTop. Si especifica msoCalloutDropCustom, para determinar dónde se adjunta la línea de la llamada al cuadro de texto de la llamada se utilizan los valores de las propiedades Drop y AutoAttach y las posiciones relativas del cuadro de texto y el origen de la línea; es decir, el lugar al que señala la llamada.


Ejemplo del método PresetDrop

En este ejemplo, se especifica que la línea de la llamada se adjunta a la parte superior del cuadro de límite de texto de la forma uno miDocumento. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

miDocumento.Shapes(1).Callout.PresetDrop msoCalloutDropTop

En este ejemplo, se cambia entre dos descendentes preestablecidos en la forma uno de miDocumento. Para que el ejemplo funcione, la forma uno debe ser una llamada.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).Callout

    If .DropType = msoCalloutDropTop Then

        .PresetDrop msoCalloutDropBottom

    ElseIf .DropType = msoCalloutDropBottom Then

        .PresetDrop msoCalloutDropTop

    End If

End With


Propiedad PresetExtrusionDirection

Devuelve la dirección en que se aleja la extrusión de la forma extruída (cara frontal de la extrusión). Puede ser una de las siguientes constantes MsoPresetExtrusionDirection: msoExtrusionBottom, msoExtrusionBottomLeft, msoExtrusionBottomRight, msoExtrusionLeft, msoExtrusionNone, msoExtrusionRight, msoExtrusionTop, msoExtrusionTopLeft, msoExtrusionTopRight o msoPresetExtrusionDirectionMixed. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método SetExtrusionDirection para establecer el valor de esta propiedad.


Ejemplo de la propiedad PresetExtrusionDirection

En este ejemplo, se cambia cada extrusión de miDocumento que se extienda hacia la esquina superior izquierda de la cara frontal de la extrusión por una extrusión que se extiende hacia la esquina inferior derecha de la cara frontal.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    With s.ThreeD

        If .PresetExtrusionDirection = msoExtrusionTopLeft Then

            .SetExtrusionDirection msoExtrusionBottomRight

        End If

    End With

Next


Método PresetGradient

Establece un degradado preestablecido para el relleno especificado.

Sintaxis

expresión.PresetGradient(Style, Variant, PresetGradientType)

expresión   Requerida. Expresión que devuelve un objeto FillFormat.

Style   Long requerida. Estilo de degradado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientHorizontal o msoGradientVertical. La constante msoGradientFromTitle se utiliza sólo en PowerPoint.

Variant   Long requerida. Variante de degradado. Puede ser un valor de 1 a 4, que corresponden a las cuatro variantes de la ficha Degradado en el cuadro de diálogo Efectos de relleno. Si Style es msoGradientFromCenter, el valor de este argumento puede ser 1 ó 2.

PresetGradientType   Long requerida. Tipo de degradado. Puede ser una de las siguientes constantes MsoPresetGradientType:

msoGradientBrass msoGradientCalmWater msoGradientChrome msoGradientChromeII msoGradientDaybreak msoGradientDesert msoGradientEarlySunset msoGradientFire msoGradientFog msoGradientGold msoGradientGoldII msoGradientHorizon	msoGradientLateSunset msoGradientMahogany msoGradientMoss msoGradientNightfall msoGradientOcean msoGradientParchment msoGradientPeacock msoGradientRainbow msoGradientRainbowII msoGradientSapphire msoGradientSilver msoGradientWheat


Ejemplo del método PresetGradient

En este ejemplo, se agrega un rectángulo con un relleno degradado preestablecido a miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 140, 80) _

    .Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass


Propiedad PresetGradientType

Devuelve el tipo de degradado preestablecido del relleno especificado. Long de sólo lectura.

Puede ser una de las siguientes constantes MsoPresetGradientType:

msoGradientBrass msoGradientCalmWater msoGradientChrome msoGradientChromeII msoGradientDaybreak msoGradientDesert msoGradientEarlySunset msoGradientFire msoGradientFog msoGradientGold msoGradientGoldII msoGradientHorizon msoGradientLateSunset	msoGradientMahogany msoGradientMoss msoGradientNightfall msoGradientOcean msoGradientParchment msoGradientPeacock msoGradientRainbow msoGradientRainbowII msoGradientSapphire msoGradientSilver msoGradientWheat msoPresetGradientMixed
Esta propiedad es de sólo lectura. Utilice el método PresetGradient para establecer el tipo de degradado preestablecido del relleno.


Ejemplo de la propiedad PresetGradientType

En este ejemplo, se cambia el relleno de todas las formas de miDocumento que tengan el relleno degradado preestablecido Musgo por el relleno degradado preestablecido Niebla.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    With s.Fill

        If .PresetGradientType = msoGradientMoss Then

            .PresetGradient msoGradientHorizontal, 1, msoGradientFog

        End If

    End With

Next


Propiedad PresetLightingDirection

Devuelve o establece la posición de la fuente de luz en relación con la extrusión. Puede ser una de las siguientes constantes MsoPresetLightingDirection: msoLightingBottom, msoLightingBottomLeft, msoLightingBottomRight, msoLightingLeft, msoLightingNone, msoLightingRight, msoLightingTop, msoLightingTopLeft, msoLightingTopRight o msoPresetLightingDirectionMixed. Long de Lectura/Escritura.

Nota   No verá los efectos de iluminación establecidos si la extrusión tiene una superficie de estructura metálica.


Ejemplo de la propiedad PresetLightingDirection

En este ejemplo, se especifica que la extrusión de la forma uno de miDocumento se extiende hacia la parte superior de la forma y que la iluminación de la extrusión viene de la izquierda.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .SetExtrusionDirection msoExtrusionTop

    .PresetLightingDirection = msoLightingLeft

End With


Propiedad PresetLightingSoftness

Devuelve o establece la intensidad de la iluminación de la extrusión. Puede ser una de las siguientes constantes MsoPresetLightingSoftness: msoLightingBright, msoLightingDim, msoLightingNormal o msoPresetLightingSoftnessMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad PresetLightingSoftness

En este ejemplo, se especifica que la extrusión de la forma uno de miDocumento recibirá una iluminación brillante desde la izquierda.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .PresetLightingSoftness = msoLightingBright

    .PresetLightingDirection = msoLightingLeft

End With


Propiedad PresetMaterial

Devuelve o establece el material de la superficie de la extrusión. Puede ser una de las siguientes constantes MsoPresetMaterial: msoMaterialMatte, msoMaterialMetal, msoMaterialPlastic, msoMaterialWireFrame o msoPresetMaterialMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad PresetMaterial

En este ejemplo, se especifica que la superficie de la extrusión de la forma uno de miDocumento será una estructura metálica.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .PresetMaterial = msoMaterialWireFrame

End With


Propiedad PresetShape

Devuelve o establece la forma del WordArt especificado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes MsoPresetTextEffectShape:

msoTextEffectShapeArchDownCurve msoTextEffectShapeArchDownPour msoTextEffectShapeArchUpCurve msoTextEffectShapeArchUpPour msoTextEffectShapeButtonCurve msoTextEffectShapeButtonPour msoTextEffectShapeCanDown msoTextEffectShapeCanUp msoTextEffectShapeCascadeDown msoTextEffectShapeCascadeUp msoTextEffectShapeChevronDown msoTextEffectShapeChevronUp msoTextEffectShapeCircleCurve msoTextEffectShapeCirclePour msoTextEffectShapeCurveDown msoTextEffectShapeCurveUp msoTextEffectShapeDeflate msoTextEffectShapeDeflateBottom msoTextEffectShapeDeflateInflate msoTextEffectShapeDeflateInflateDeflate msoTextEffectShapeDeflateTop	msoTextEffectShapeDoubleWave1 msoTextEffectShapeDoubleWave2 msoTextEffectShapeFadeDown msoTextEffectShapeFadeLeft msoTextEffectShapeFadeRight msoTextEffectShapeFadeUp msoTextEffectShapeInflate msoTextEffectShapeInflateBottom msoTextEffectShapeInflateTop msoTextEffectShapeMixed msoTextEffectShapePlainText msoTextEffectShapeRingInside msoTextEffectShapeRingOutside msoTextEffectShapeSlantDown msoTextEffectShapeSlantUp msoTextEffectShapeStop msoTextEffectShapeTriangleDown msoTextEffectShapeTriangleUp msoTextEffectShapeWave1 msoTextEffectShapeWave2
Comentarios

Al establecer la propiedad PresetTextEffect automáticamente se establece la propiedad PresetShape.


Ejemplo de la propiedad PresetShape

En este ejemplo, se cambia la forma de todos los WordArt de miDocumento por un cheurón cuyo centro señala hacia abajo.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    If s.Type = msoTextEffect Then

        s.TextEffect.PresetShape = msoTextEffectShapeChevronDown

    End If

Next


Propiedad PresetTexture

Devuelve la textura preestablecida del relleno especificado. Long de sólo lectura.

Puede ser una de las siguientes constantes MsoPresetTexture:

msoPresetTextureMixed msoTextureBlueTissuePaper msoTextureBouquet msoTextureBrownMarble msoTextureCanvas msoTextureCork msoTextureDenim msoTextureFishFossil msoTextureGranite msoTextureGreenMarble msoTextureMediumWood msoTextureNewsprint msoTextureOak	msoTexturePaperBag msoTexturePapyrus msoTextureParchment msoTexturePinkTissuePaper msoTexturePurpleMesh msoTextureRecycledPaper msoTextureSand msoTextureStationery msoTextureWalnut msoTextureWaterDroplets msoTextureWhiteMarble msoTextureWovenMat
Esta propiedad es de sólo lectura. Utilice el método PresetTextured para establecer la textura preestablecida del relleno.


Ejemplo de la propiedad PresetTexture

En este ejemplo, se agrega un rectángulo a miDocumento y se establece la textura preestablecida para que coincida con la de la forma dos. Para que el ejemplo funcione, la forma dos debe tener un relleno con textura preestablecida.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    texturaPreest2 = .Item(2).Fill.PresetTexture

    .AddShape(msoShapeRectangle, 100, 0, 40, 80).Fill _

        .PresetTextured texturaPreest2

End With


Método PresetTextured

Establece una textura preestablecida para el relleno especificado.

Sintaxis

expresión.PresetTextured(PresetTexture)

expresión   Requerida. Expresión que devuelve un objeto FillFormat.

PresetTexture   Long requerida. Textura preestablecida. Puede ser una de las siguientes constantes MsoPresetTexture:

msoTextureBlueTissuePaper msoTextureBouquet msoTextureBrownMarble msoTextureCanvas msoTextureCork msoTextureDenim msoTextureFishFossil msoTextureGranite msoTextureGreenMarble msoTextureMediumWood msoTextureNewsprint msoTextureOak	msoTexturePaperBag msoTexturePapyrus msoTextureParchment msoTexturePinkTissuePaper msoTexturePurpleMesh msoTextureRecycledPaper msoTextureSand msoTextureStationery msoTextureWalnut msoTextureWaterDroplets msoTextureWhiteMarble msoTextureWovenMat


Ejemplo del método PresetTextured

En este ejemplo, se agrega un rectángulo con un relleno de textura de mármol verde a miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _

    .Fill.PresetTextured msoTextureGreenMarble


Propiedad PresetThreeDFormat

Devuelve el formato de extrusión preestablecido. Cada formato de extrusión preestablecido contiene un conjunto de valores preestablecidos para las diferentes propiedades de la extrusión. Si la extrusión tiene un formato personalizado en lugar de un formato preestablecido, esta propiedad devuelve el valor msoPresetThreeDFormatMixed. Puede ser una de las siguientes constantes MsoPresetThreeDFormat: msoPresetThreeDFormatMixed, msoThreeD1, msoThreeD10, msoThreeD11, msoThreeD12, msoThreeD13, msoThreeD14, msoThreeD15, msoThreeD16, msoThreeD17, msoThreeD18, msoThreeD19, msoThreeD2, msoThreeD20, msoThreeD3, msoThreeD4, msoThreeD5, msoThreeD6, msoThreeD7, msoThreeD8 o msoThreeD9. Los valores de esta propiedad corresponden a las opciones mostradas al hacer clic en el botón 3D de la barra de herramientas Dibujo, las opciones se numeran de izquierda a derecha y de arriba a abajo. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Para establecer el formato de extrusión preestablecido, utilice el método SetThreeDFormat.


Ejemplo de la propiedad PresetThreeDFormat

En este ejemplo, se establece el Estilo 3D 12 como formato de extrusión de la forma uno de miDocumento si la forma tenía originalmente un formato de extrusión personalizado.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then

        .SetThreeDFormat msoThreeD12

    End If

End With


Método ResetRotation

Restablece a 0 (cero) el giro de la extrusión alrededor del eje X y del eje Y para que la parte frontal de la extrusión aparezca en primer plano. Este método no restablece el giro alrededor del eje Z.

Sintaxis

expresión.ResetRotation

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

Comentarios

Para establecer un giro alrededor del eje X y del eje Y distinto de 0 (cero), utilice las propiedades RotationX y RotationY del objeto ThreeDFormat. Para establecer el giro alrededor del eje Z, utilice la propiedad Rotation del objeto Shape que representa el objeto extruído.


Ejemplo del método ResetRotation

En este ejemplo, se restablece a 0 (cero) el giro alrededor del eje X y del eje Y de la extrusión de la forma uno de miDocumento.

Set miDocumento = ActiveDocument

miDocumento.Shapes(1).ThreeD.ResetRotation


Propiedad RotatedChars

True si los caracteres del WordArt especificado giran 90 grados en relación con la forma de límite de WordArt. False si los caracteres del WordArt especificado mantienen su orientación original en relación con la forma de límite. Long de Lectura/Escritura.

Comentarios

Si el WordArt tiene texto horizontal, al establecer la propiedad RotatedChars en True, los caracteres giran 90 grados en sentido contrario a las agujas del reloj. Si el WordArt tiene texto vertical, al establecer la propiedad RotatedChars en False, los caracteres giran 90 grados en el sentido de las agujas del reloj. Utilice el método ToggleVerticalText para cambiar entre flujo de texto horizontal y vertical.

El método Flip y la propiedad Rotation del objeto Shape y la propiedad RotatedChars y el método ToggleVerticalText del objeto TextEffectFormat afectan a la orientación de los caracteres y a la dirección del flujo de texto del objeto Shape que representa WordArt. Es posible que deba experimentar cómo combinar los efectos de estas propiedades y métodos para obtener el resultado que desee.


Ejemplo de la propiedad RotatedChars

En este ejemplo, se agrega un WordArt que contiene el texto "Prueba" a miDocumento y se giran los caracteres 90 grados en sentido contrario a las agujas del reloj.

Set miDocumento = ActiveDocument

Set nuevoWordArt = miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:="Prueba", _

    FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=10, Top:=10)

nuevoWordArt.TextEffect.RotatedChars = True


Propiedad RotationY

Devuelve o establece el giro de la forma extruída alrededor del eje Y, en grados. Puede ser un valor comprendido entre – 90 y 90. Un valor positivo indica un giro hacia la izquierda; un valor negativo indica un giro hacia la derecha. Single de Lectura/Escritura.

Comentarios

Para establecer el giro de la forma extruída alrededor del eje X, utilice la propiedad RotationX del objeto ThreeDFormat. Para establecer el giro de la forma extruída alrededor del eje Z, utilice la propiedad Rotation del objeto Shape. Para cambiar la dirección de la extrusión sin girar la cara frontal de la misma, utilice el método SetExtrusionDirection.


Ejemplo de la propiedad RotationY

En este ejemplo, se agregan tres elipses extraídas idénticas a miDocumento y se establece el giro alrededor del eje Y en –30, 0 y 30 grados, respectivamente.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    With .AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD

        .Visible = True

        .RotationY = -30

    End With

    With .AddShape(msoShapeOval, 30, 70, 50, 25).ThreeD

        .Visible = True

        .RotationY = 0

    End With

    With .AddShape(msoShapeOval, 30, 110, 50, 25).ThreeD

        .Visible = True

        .RotationY = 30

    End With

End With


Propiedad SegmentType

Devuelve un valor que indica si el segmento asociado al nodo especificado es recto o curvo. Puede ser una de las siguientes constantes MsoSegmentType: msoSegmentCurve o msoSegmentLine. Si el nodo especificado es un punto de control de un segmento curvo, esta propiedad devuelve msoSegmentCurve. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método SetSegmentType para establecer el valor de la misma.


Ejemplo de la propiedad SegmentType

En este ejemplo, se cambian todos los segmentos rectos por segmentos curvos en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Nodes

    n = 1

    While n <= .Count

        If .Item(n).SegmentType = msoSegmentLine Then

            .SetSegmentType n, msoSegmentCurve

        End If

        n = n + 1

    Wend

End With


Método SetEditingType

Establece el tipo de modificación del nodo especificado por Index. Si el nodo es un punto de control de un segmento curvo, este método establece el tipo de modificación del nodo adyacente que une dos segmentos. Observe que, dependiendo del tipo de modificación, este método puede afectar a la posición de los nodos adyacentes.

Sintaxis

expresión.SetEditingType(Index, EditingType)

expresión   Requerida. Expresión que devuelve un objeto ShapeNodes.

Index   Long requerida. Nodo cuyo tipo de modificación va a establecerse.

EditingType   Long requerida. Propiedad de modificación del vértice. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto, msoEditingCorner, msoEditingSmooth o msoEditingSymmetric.


Ejemplo del método SetEditingType

En este ejemplo, se cambian todos los nodos de esquina por nodos suaves en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Nodes

    For n = 1 to .Count

        If .Item(n).EditingType = msoEditingCorner Then

            .SetEditingType n, msoEditingSmooth

        End If

    Next

End With


Método SetExtrusionDirection

Establece la dirección en que se aleja la extrusión de la forma extruída.

Sintaxis

expresión.SetExtrusionDirection(PresetExtrusionDirection)

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

PresetExtrusionDirection   Long requerida. Especifica la dirección de la extrusión. Puede ser una de las siguientes constantes MsoPresetExtrusionDirection: msoExtrusionBottom, msoExtrusionBottomLeft, msoExtrusionBottomRight, msoExtrusionLeft, msoExtrusionNone, msoExtrusionRight, msoExtrusionTop, msoExtrusionTopLeft o msoExtrusionTopRight.

Comentarios

Este método establece la dirección especificada por el argumento PresetExtrusionDirection para la propiedad PresetExtrusionDirection.


Ejemplo del método SetExtrusionDirection

En este ejemplo, se especifica que la extrusión de la forma uno de miDocumento se extiende hacia la parte superior de la forma y que la iluminación de la extrusión viene de la izquierda.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .SetExtrusionDirection msoExtrusionTop

    .PresetLightingDirection = msoLightingLeft

End With


Método SetPosition

Establece la ubicación del nodo especificado por Index. Observe que, dependiendo del tipo de modificación del nodo, este método puede afectar la posición de los nodos adyacentes.

Sintaxis

expresión.SetPosition(Index, X1, Y1)

expresión   Requerida. Expresión que devuelve un objeto ShapeNodes.

Index   Long requerida. Nodo cuya posición va a establecerse.

X1, Y1   Single requerida. Posición, en puntos, del nuevo nodo en relación con la esquina superior izquierda del documento.


Ejemplo del método SetPosition

En este ejemplo, se mueve 200 puntos hacia la derecha y 300 puntos hacia abajo el nodo dos de la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Nodes

    matrizPuntos = .Item(2).Points

    valorXactual = matrizPuntos(0, 0)

    valorYactual = matrizPuntos(0, 1)

    .SetPosition 2, valorXactual + 200, valorYactual + 300

End With


Método SetSegmentType

Establece el tipo de segmento que sigue al nodo especificado por Index. Si el nodo es un punto de control de un segmento curvo, este método establece el tipo de segmento de esa curva. Observe que puede afectar al número total de nodos al insertar o eliminar nodos adyacentes.

Sintaxis

expresión.SetSegmentType(Index, SegmentType)

expresión   Requerida. Expresión que devuelve un objeto ShapeNodes.

Index   Long requerida. Nodo cuyo tipo de segmento va a establecerse.

SegmentType   Long requerida. Especifica si el segmento es recto o curvo. Puede ser una de las siguientes constantes MsoSegmentType: msoSegmentCurve o msoSegmentLine.


Ejemplo del método SetSegmentType

En este ejemplo, se cambian todos los segmentos rectos por segmentos curvos en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Nodes

    n = 1

    While n <= .Count

        If .Item(n).SegmentType = msoSegmentLine Then

            .SetSegmentType n, msoSegmentCurve

        End If

        n = n + 1

    Wend

End With


Método SetThreeDFormat

Establece el formato de extrusión preestablecido. Cada formato de extrusión preestablecido contiene un conjunto de valores preestablecidos para las diferentes propiedades de la extrusión.

Sintaxis

expresión.SetThreeDFormat(PresetThreeDFormat)

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

PresetThreeDFormat   Long requerida. Especifica una extrusión preestablecida que corresponde a una de las opciones mostradas al hacer clic en el botón 3D de la barra de herramientas Dibujo, las opciones se numeran de izquierda a derecha y de arriba a abajo. Puede ser una de las siguientes constantes MsoPresetThreeDFormat: msoThreeD1, msoThreeD10, msoThreeD11, msoThreeD12, msoThreeD13, msoThreeD14, msoThreeD15, msoThreeD16, msoThreeD17, msoThreeD18, msoThreeD19, msoThreeD2, msoThreeD20, msoThreeD3, msoThreeD4, msoThreeD5, msoThreeD6, msoThreeD7, msoThreeD8 o msoThreeD9. Observe que al especificar msoPresetThreeDFormatMixed en este argumento se produce un error.

Comentarios

Este método establece el formato especificado por el argumento PresetThreeDFormat para la propiedad PresetThreeDFormat.


Ejemplo del método SetThreeDFormat

En este ejemplo, se agrega una elipse a miDocumento y se establece el formato de extrusión en Estilo 3D 12.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD

    .Visible = True

    .SetThreeDFormat msoThreeD12

End With


Método Solid

Establece un color uniforme para el relleno especificado. Utilice este método para convertir un relleno degradado, con textura, de fondo o con trama en un relleno sólido.

Sintaxis

expresión.Solid

expresión   Requerida. Expresión que devuelve un objeto FillFormat.


Ejemplo del método Solid

En este ejemplo, se convierten todos los rellenos de miDocumento en rellenos rojos uniformes.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    With s.Fill

        .Solid

        .ForeColor.RGB = RGB(255, 0, 0)

    End With

Next


Propiedad TextureName

Devuelve el nombre del archivo de textura personalizada del relleno especificado. String de sólo lectura.

Esta propiedad es de sólo lectura. Utilice el método UserTextured para establecer el archivo de textura del relleno.


Ejemplo de la propiedad TextureName

En este ejemplo, se agrega una elipse a miDocumento. Si la forma dos de miDocumento tiene un relleno con textura definida por el usuario, la nueva elipse tendrá el mismo relleno que dicha forma. Si la forma dos tiene otro tipo de relleno, la nueva elipse tendrá un relleno de mármol verde.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    Set nuevoRelleno = .AddShape(msoShapeOval, 0, 0, 200, 90).Fill

    With .Item(2).Fill

        If.TextureType = msoTextureUserDefined Then

            nuevoRelleno.UserTextured .TextureName

        Else

            nuevoRelleno.PresetTextured msoTextureGreenMarble

        End If

    End With

End With


Propiedad TextureType

Devuelve el tipo de textura del relleno especificado. Puede ser una de las siguientes constantes MsoTextureType: msoTexturePreset, msoTextureTypeMixed o msoTextureUserDefined. Long de sólo lectura.

Esta propiedad es de sólo lectura. Utilice el método PresetTextured, UserPicture o UserTextured para establecer el tipo de textura del relleno.


Ejemplo de la propiedad TextureType

En este ejemplo, se cambia el relleno de todas las formas de miDocumento que tengan un relleno con textura personalizada por un relleno de lienzo.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    With s.Fill

        If .TextureType = msoTextureUserDefined Then

            .PresetTextured msoTextureCanvas

        End If

    End With

Next


Propiedad Tracking

Devuelve o establece la relación del espacio horizontal asignado a cada carácter del WordArt especificado en el ancho del carácter. Puede ser un valor comprendido entre 0 (cero) y 5. Valores grandes para esta propiedad indican amplio espacio entre caracteres; valores inferiores a 1 pueden producir solapamiento de los caracteres. Single de Lectura/Escritura.

La siguiente tabla muestra los valores de la propiedad Tracking que corresponden a los valores disponibles en la interfaz de usuario.

Configuración de la interfaz de usuario	Valor de la propiedad Tracking equivalente
Muy estrecha	0,8
Estrecha	0,9
Normal	1,0
Separada	1,2
Muy Separada	1,5


Ejemplo de la propiedad Tracking

En este ejemplo, se agrega un WordArt que contiene el texto "Prueba" a miDocumento y se especifica que los caracteres tendrán un espaciado muy estrecho.

Set miDocumento = ActiveDocument

Set nuevoWordArt = miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:="Prueba", _

    FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=100, Top:=100)

nuevoWordArt.TextEffect.Tracking = 0.8


Propiedad Transparency

Devuelve o establece el grado de transparencia del relleno, sombra o línea especificado como valor comprendido entre 0,0 (opaco) y 1,0 (transparente). Single de Lectura/Escritura.

Comentarios

El valor de esta propiedad afecta al aspecto sólo de los rellenos y las líneas de colores sólidos; no afecta al de las líneas de entramado ni a los rellenos de entramado, degradado, de imagen o de textura.


Ejemplo de la propiedad Transparency

En este ejemplo, se establece la sombra de la forma tres de miDocumento en rojo semitransparente. Si la forma aún no tiene ninguna sombra, en este ejemplo se agrega una.

Set miDocumento = ActiveDocument

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .ForeColor.RGB = RGB(255, 0, 0)

    .Transparency = 0.5

End With


Propiedad TransparencyColor

Devuelve o establece el color transparente de la imagen especificada como valor RGB rojo, verde y azul. Para que esta propiedad tenga efecto, el valor de la propiedad TransparentBackground debe establecerse en True. Sólo se aplica a mapas de bits. Long de Lectura/Escritura.

Comentarios

Si desea ver, a través de las partes transparentes de la imagen, los objetos situados detrás de la misma, debe establecer en False el valor de la propiedad Visible del objeto FillFormat de la imagen. Si la imagen tiene un color transparente y la propiedad Visible del objeto FillFormat de la imagen es True, el relleno de la imagen se verá a través del color transparente, pero se oscurecerán los objetos situados detrás de ella.


Ejemplo de la propiedad TransparencyColor

En este ejemplo, se establece el color que tiene el valor RGB devuelto por la función RGB(0, 0, 255) como el color transparente de la forma uno de miDocumento. Para que el ejemplo funcione, la forma uno debe ser un mapa de bits.

pantallaAzul = RGB(0, 0, 255)

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1)

    With .PictureFormat

        .TransparentBackground = True

        .TransparencyColor = pantallaAzul

    End With

    .Fill.Visible = False

End With


Propiedad TransparentBackground

True si las partes de la imagen cuyo color está definido como transparente aparecen transparentes. Utilice la propiedad TransparencyColor para establecer el color transparente. Sólo se aplica a mapas de bits. Long de Lectura/Escritura.

Comentarios

Si desea ver, a través de las partes transparentes de la imagen, los objetos situados detrás de la misma, debe establecer en False el valor de la propiedad Visible del objeto FillFormat de la imagen. Si la imagen tiene un color transparente y la propiedad Visible del objeto FillFormat de la imagen es True, el relleno de la imagen se verá a través del color transparente, pero se oscurecerán los objetos situados detrás de ella.


Ejemplo de la propiedad TransparentBackground

En este ejemplo, se establece el color que tiene el valor RGB devuelto por la función RGB(24, 0, 240) como el color transparente de la forma uno de miDocumento. Para que el ejemplo funcione, la forma uno debe ser un mapa de bits.

pantallaAzul = RGB(0, 0, 255)

Set miDocumento = ActiveDocument

With miDocumento.Shapes(1)

    With .PictureFormat

        .TransparentBackground = True

        .TransparencyColor = pantallaAzul

    End With

    .Fill.Visible = False

End With


Método TwoColorGradient

Establece el valor del relleno especificado en un degradado de bicolor.

Sintaxis

expresión.TwoColorGradient(Style, Variant)

expresión   Requerida. Expresión que devuelve un objeto FillFormat.

Style   Long requerida. Estilo de degradado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientHorizontal o msoGradientVertical. La constante msoGradientFromTitle se utiliza sólo en PowerPoint.

Variant   Long requerida. Variante de degradado. Puede ser un valor de 1 a 4, que corresponde a las cuatro variantes de la ficha Degradado en el cuadro de diálogo Efectos de relleno. Si Style es msoGradientFromCenter, este argumento puede ser 1 ó 2.


Ejemplo del método TwoColorGradient

En este ejemplo, se agrega un rectángulo con un relleno de dos colores a miDocumento y se establecen el color de primer plano y el color de fondo del relleno.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(0, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With


Método UserPicture

Rellena la forma especificada con una imagen grande. Si desea rellenar la forma con mosaicos pequeños de una imagen, utilice el método UserTextured.

Sintaxis

expresión.UserPicture(PictureFile)

expresión   Requerida. Expresión que devuelve un objeto FillFormat.

PictureFile   String requerida. Nombre del archivo de la imagen.


Ejemplo del método UserPicture

En este ejemplo, se agregan dos rectángulos a miDocumento. El rectángulo de la izquierda se rellena con una imagen grande de la imagen de Mosaicos.bmp; el de la derecha con muchos mosaicos pequeños de la imagen de Mosaicos.bmp.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddShape(msoShapeRectangle, 0, 0, 200, 100).Fill _

        .UserPicture "c:\windows\mosaicos.bmp"

    .AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _

        .UserTextured "c:\windows\mosaicos.bmp"

End With


Método UserTextured

Rellena la forma especificada con mosaicos pequeños de una imagen. Si desea rellenar la forma con una imagen grande, utilice el método UserPicture.

Sintaxis

expresión.UserTextured(TextureFile)

expresión   Requerida. Expresión que devuelve un objeto FillFormat.

TextureFile   String requerida. Nombre del archivo de la imagen.


Ejemplo del método UserTextured

En este ejemplo, se agregan dos rectángulos a miDocumento. El rectángulo de la izquierda se rellena con una imagen grande de la imagen de Mosaicos.bmp; el de la derecha con muchos mosaicos pequeños de la imagen de Mosaicos.bmp.

Set miDocumento = ActiveDocument

With miDocumento.Shapes

    .AddShape(msoShapeRectangle, 0, 0, 200, 100).Fill _

        .UserPicture "c:\windows\mosaicos.bmp"

    .AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _

        .UserTextured "c:\windows\mosaicos.bmp"

End With


Propiedad Weight

Devuelve o establece el grosor, en puntos, de la línea especificada. Single de Lectura/Escritura.


Ejemplo de la propiedad Weight

En este ejemplo, se agrega una línea discontinua verde de dos puntos de grosor a miDocumento.

Set miDocumento = ActiveDocument

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(0, 255, 255)

    .Weight = 2

End With


Propiedad PresetTextEffect

Devuelve o establece el estilo del WordArt especificado. Los valores de esta propiedad corresponden a los formatos del cuadro de diálogo Galería de WordArt, numerados de izquierda a derecha y de arriba a abajo. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes MsoPresetTextEffect:

msoTextEffect1 msoTextEffect2 msoTextEffect3 msoTextEffect4 msoTextEffect5 msoTextEffect6 msoTextEffect7 msoTextEffect8 msoTextEffect9 msoTextEffect10 msoTextEffect11 msoTextEffect12 msoTextEffect13 msoTextEffect14 msoTextEffect15 msoTextEffect16	msoTextEffect17 msoTextEffect18 msoTextEffect19 msoTextEffect20 msoTextEffect21 msoTextEffect22 msoTextEffect23 msoTextEffect24 msoTextEffect25 msoTextEffect26 msoTextEffect27 msoTextEffect28 msoTextEffect29 msoTextEffect30 msoTextEffectMixed
Comentarios

Al establecer la propiedad PresetTextEffect automáticamente se establecen otras propiedades de formato de la forma especificada.


Ejemplo de la propiedad PresetTextEffect

En este ejemplo, se establece el estilo de todos los WordArt de miDocumento en el primer estilo que aparece en el cuadro de diálogo Galería de WordArt.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    If s.Type = msoTextEffect Then

        s.TextEffect.PresetTextEffect = msoTextEffect1

    End If

Next


Método ScaleHeight

Ajusta el alto de la forma según un factor especificado. Para imágenes y objetos OLE, puede indicar si desea ajustar el tamaño de la forma en relación con el tamaño original o al tamaño actual. El tamaño de las formas distintas de imágenes y objetos OLE siempre se ajustan en relación con su alto actual.

Sintaxis

expresión.ScaleHeight(Factor, RelativeToOriginalSize, Scale)

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Factor   Single requerida. Especifica la relación entre el alto de la forma después de cambiar su tamaño y el alto original o actual. Por ejemplo, para crear un rectángulo un 50 por ciento más grande, especifique el valor 1,5 en este argumento.

RelativeToOriginalSize   Long requerida. True para ajustar el tamaño de la forma con relación a su tamaño original. False para cambiar su tamaño con relación a su tamaño actual. Puede indicar True en este argumento sólo si la forma especificada es una imagen u objeto OLE.

Scale   Long opcional. La parte de la forma que conserva su posición cuando se ajusta la forma. Puede ser una de las siguientes constantes MsoScaleFrom: msoScaleFromBottomRight, msoScaleFromMiddle o msoScaleFromTopLeft. El valor predeterminado es msoScaleFromTopLeft.


Ejemplo del método ScaleHeight

En este ejemplo, se ajusta el tamaño de todas las imágenes y objetos OLE de miDocumento a un 175 por ciento de su alto y ancho originales y ajusta el tamaño de todas las demás formas a un 175 por ciento de su alto y ancho actuales.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    Select Case s.Type

    Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoOLEControlObject, _

            msoLinkedPicture, msoPicture

        s.ScaleHeight 1.75, True

        s.ScaleWidth 1.75, True

    Case Else

        s.ScaleHeight 1.75, False

        s.ScaleWidth 1.75, False

    End Select

Next


Método ScaleWidth

Ajusta el ancho de la forma según un factor especificado. Para imágenes y objetos OLE, puede indicar si desea ajustar el tamaño de la forma con relación al tamaño original o al tamaño actual. El tamaño de las formas distintas de imágenes y objetos OLE siempre se ajustan con relación a su ancho actual.

Sintaxis

expresión.ScaleWidth(Factor, RelativeToOriginalSize, Scale)

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Factor   Single requerida. Especifica la relación entre el ancho de la forma después de cambiar su tamaño y el ancho original o actual. Por ejemplo, para crear un rectángulo un 50 por ciento más grande, especifique el valor 1,5 en este argumento.

RelativeToOriginalSize   Long requerida. True para ajustar el tamaño de la forma con relación a su tamaño original. False para cambiar su tamaño con relación al tamaño actual. Puede indicar True en este argumento sólo si la forma especificada es una imagen u objeto OLE.

Scale   Long opcional. La parte de la forma que conserva su posición cuando se ajusta la forma. Puede ser una de las siguientes constantes MsoScaleFrom: msoScaleFromBottomRight, msoScaleFromMiddle o msoScaleFromTopLeft. El valor predeterminado es msoScaleFromTopLeft.


Ejemplo del método ScaleWidth

En este ejemplo, se ajusta el tamaño de todas las imágenes y objetos OLE de miDocumento a un 175 por ciento de su alto y ancho originales y ajusta el tamaño de todas las demás formas a un 175 por ciento de su alto y ancho actuales.

Set miDocumento = ActiveDocument

For Each s In miDocumento.Shapes

    Select Case s.Type

    Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoOLEControlObject, _

            msoLinkedPicture, msoPicture

        s.ScaleHeight 1.75, True

        s.ScaleWidth 1.75, True

    Case Else

        s.ScaleHeight 1.75, False

        s.ScaleWidth 1.75, False

    End Select

Next


Método ToggleVerticalText

Cambia el flujo de texto del WordArt especificado de horizontal a vertical o viceversa.

Sintaxis

expresión.ToggleVerticalText

expresión   Requerida. Expresión que devuelve un objeto TextEffectFormat.

Comentarios

Al utilizar el método ToggleVerticalText se intercambian los valores de las propiedades Width y Height del objeto Shape que representa el WordArt y deja las propiedades Left y Top sin cambiar.

El método Flip y la propiedad Rotation del objeto Shape y la propiedad RotatedChars y el método ToggleVerticalText del objeto TextEffectFormat afectan a la orientación de los caracteres y a la dirección del flujo de texto del objeto Shape que representa WordArt. Es posible que deba experimentar cómo combinar los efectos de estas propiedades y métodos para obtener el resultado que desee.


Ejemplo del método ToggleVerticalText

En este ejemplo, se agrega a miDocumento un WordArt que contiene el texto "Prueba" y se cambia el flujo de texto horizontal, valor predeterminado para el estilo del WordArt especificado msoTextEffect1, a vertical.

Set miDocumento = ActiveDocument

Set nuevoWordArt = miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:="Prueba", _

    FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=100, Top:=100)

nuevoWordArt.TextEffect.ToggleVerticalText


Método Regroup

Vuelve a agrupar el grupo al que pertenecía anteriormente el intervalo de forma especificado. Devuelve las formas reagrupadas como un único objeto Shape.

Sintaxis

expresión.Regroup

expresión   Requerida. Expresión que devuelve un objeto ShapeRange.

Comentarios

El método Regroup sólo restaura el grupo de la primera forma agrupada anteriormente que encuentre en el conjunto ShapeRange especificado. Por lo tanto, si el intervalo de forma especificado contiene las formas que pertenecían anteriormente a distintos grupos, sólo se restaurará uno de ellos.

Debido a que un grupo de formas se trata como una única forma, al agrupar y desagrupar formas cambia el número de elementos del conjunto Shapes y cambia el número de índice de los elementos situados después de los elementos afectados del conjunto.


Ejemplo del método Regroup

En este ejemplo se reagrupan las formas de la selección de la ventana activa. Si las formas no se han agrupado y desagrupado previamente, este ejemplo no funcionará.

ActiveWindow.Selection.ShapeRange.Regroup


Propiedad CropBottom

Devuelve o establece el número de puntos recortados de la parte inferior de la imagen especificada o del objeto OLE. Single de Lectura/Escritura.

Nota   El recorte se calcula en relación con el tamaño original de la imagen. Por ejemplo, si inserta una imagen cuyo alto es originalmente de 100 puntos, ajústela para que sea de 200 y, a continuación, establezca el valor de la propiedad CropBottom en 50; se recortarán 100 puntos (no 50) de la parte inferior de la imagen.


Ejemplo de la propiedad CropBottom

En este ejemplo se recortan 20 puntos de la parte inferior de la forma tres del documento activo. Para que el ejemplo funcione, la forma tres debe ser una imagen o un objeto OLE.

ActiveDocument.Shapes(3).PictureFormat.CropBottom = 20

En este ejemplo se recorta el porcentaje especificado por el usuario de la parte inferior de la forma seleccionada, independientemente de si se ha ajustado el tamaño de la imagen. Para que el ejemplo funcione, la forma seleccionada debe ser una imagen o un objeto OLE.

percentToCrop = InputBox("¿Qué porcentaje desea recortar de la parte inferior de esta imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleHeight 1, True

    origHeight = .Height

    .Delete

End With

cropPoints = origHeight * percentToCrop / 100

formaARecortar.PictureFormat.CropBottom = cropPoints


Propiedad CropLeft

Devuelve o establece el número de puntos recortados del lado izquierdo de la imagen especificada o del objeto OLE. Single de Lectura/Escritura.

Nota   El recorte se calcula en función del tamaño original de la imagen. Por ejemplo, si inserta una imagen cuyo ancho es originalmente de 100 puntos, ajústela para que sea de 200 y, a continuación, establezca el valor de la propiedad CropLeft en 50; se recortarán 100 puntos (no 50) del lado izquierdo de la imagen.


Ejemplo de la propiedad CropLeft

En este ejemplo se recortan 20 puntos del lado izquierdo de la forma tres del documento activo. Para que el ejemplo funcione, la forma tres debe ser una imagen o un objeto OLE.

ActiveDocument.Shapes(3).PictureFormat.CropLeft = 20

En este ejemplo se recorta el porcentaje especificado por el usuario del lado izquierdo de la forma seleccionada, independientemente de si se ha ajustado el tamaño de la imagen. Para que el ejemplo funcione, la forma seleccionada debe ser una imagen o un objeto OLE.

percentToCrop = InputBox("¿Qué porcentaje desea recortar del lado izquierdo de esta imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleWidth 1, True

    origWidth = .Width

    .Delete

End With

cropPoints = origWidth * percentToCrop / 100

formaARecortar.PictureFormat.CropLeft = cropPoints


Propiedad CropRight

Devuelve o establece el número de puntos recortados del lado derecho de la imagen especificada o del objeto OLE. Single de Lectura/Escritura.

Nota   El recorte se calcula en función del tamaño original de la imagen. Por ejemplo, si inserta una imagen cuyo ancho es originalmente de 100 puntos, ajústela para que sea de 200 y, a continuación, establezca el valor de la propiedad CropRight en 50; se recortarán 100 puntos (no 50) del lado derecho de la imagen.


Ejemplo de la propiedad CropRight

En este ejemplo se recortan 20 puntos del lado derecho de la forma tres del documento activo. Para que funcione este ejemplo, la forma tres debe ser una imagen o un objeto OLE.

ActiveDocument.Shapes(3).PictureFormat.CropRight = 20

En este ejemplo se recorta el porcentaje especificado por el usuario del lado derecho de la forma seleccionada, independientemente de si se ha ajustado el tamaño de la imagen. Para que el ejemplo funcione, la forma seleccionada debe ser una imagen o un objeto OLE.

percentToCrop = InputBox("¿Qué porcentaje desea recortar del lado derecho de esta imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleWidth 1, True

    origWidth = .Width

    .Delete

End With

cropPoints = origWidth * percentToCrop / 100

formaARecortar.PictureFormat.CropRight = cropPoints


Propiedad CropTop

Devuelve o establece el número de puntos recortados de la parte superior de la imagen especificada o del objeto OLE. Single de Lectura/Escritura.

Nota   El recorte se calcula en función del tamaño original de la imagen. Por ejemplo, si inserta una imagen cuyo alto es originalmente de 100 puntos, ajústela para que sea de 200 y, a continuación, establezca el valor de la propiedad CropTop en 50; se recortarán 100 puntos (no 50) de la parte superior de la imagen.


Ejemplo de la propiedad CropTop

En este ejemplo se recortan 20 puntos de la parte superior de la forma tres del documento activo. Para que el ejemplo funcione, la forma tres debe ser una imagen o un objeto OLE.

ActiveDocument.Shapes(3).PictureFormat.CropTop = 20

En este ejemplo se recorta el porcentaje especificado por el usuario de la parte superior de la forma especificada, independientemente de si se ha ajustado el tamaño de la imagen. Para que el ejemplo funcione, la forma seleccionada debe ser una imagen o un objeto OLE.

percentToCrop = InputBox("¿Qué porcentaje desea recortar de la parte superior de esta imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleHeight 1, True

    origHeight = .Height

    .Delete

End With

cropPoints = origHeight * percentToCrop / 100

formaARecortar.PictureFormat.CropTop = cropPoints


Método Distribute

Distribuye uniformemente las formas del intervalo de formas especificado. Puede especificar si desea distribuir las formas horizontal o verticalmente y si desea distribuirlas en toda la página o sólo en el espacio que ocupan originalmente.

Sintaxis

expresión.Distribute(DistributeCmd, RelativeTo)

expresión   Requerida. Expresión que devuelve un objeto ShapeRange.

DistributeCmd   Long requerida. Especifica si las formas del intervalo van a distribuirse horizontal o verticalmente. Puede ser una de las siguientes constantes MsoDistributeCmd: msoDistributeHorizontally o msoDistributeVertically.

RelativeTo   Long requerido. True para distribuir las formas uniformemente por el espacio horizontal o vertical de la página. False para distribuirlas en el espacio horizontal o vertical que ocupa el intervalo de formas originalmente.


Ejemplo del método Distribute

En este ejemplo se define un intervalo de formas que contiene todas las Autoformas del documento activo y, a continuación, se distribuyen las formas horizontalmente en este intervalo.

With ActiveDocument.Shapes

    numShapes = .Count

    If numShapes > 1 Then

        numAutoShapes = 0

        ReDim autoShpArray(1 To numShapes)

        For i = 1 To numShapes

            If .Item(i).Type = msoAutoShape Then

                numAutoShapes = numAutoShapes + 1

                autoShpArray(numAutoShapes) = .Item(i).Name

            End If

        Next

        If numAutoShapes > 1 Then

            ReDim Preserve autoShpArray(1 To numAutoShapes)

            Set comoIntervalo = .Range(autoShpArray)

            comoIntervalo.Distribute msoDistributeHorizontally, False

        End If

    End If

End With


Propiedad Length

Cuando se establece el valor de la propiedad AutoLength de la llamada especificada como False, la propiedad Length devuelve la longitud, en puntos, del primer segmento de la línea de llamada; es decir, el segmento adjunto al cuadro de la llamada de texto. Se aplica sólo a las llamadas cuyas líneas consten de varios segmentos, tipos msoCalloutThree y msoCalloutFour. Single de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método CustomLength para establecer el valor de esta propiedad para el objeto CalloutFormat.


Ejemplo de la propiedad Length

Si el primer segmento de la línea de la llamada denominada "lla1" tiene una longitud fija, en este ejemplo se especifica que también se fijará la longitud del primer segmento de la línea de la llamada denominada "lla2" en dicha longitud. Para que funcione el ejemplo, ambas llamadas deben tener líneas de múltiples segmentos.

With ActiveDocument.Shapes

    With .Item("lla1").Callout

        If Not .AutoLength Then len1 = .Length

    End With

    If len1 Then .Item("lla2").Callout.CustomLength len1

End With


Propiedad RotationX

Devuelve o establece el giro de la forma extruida alrededor del eje X, en grados. Puede ser un valor comprendido entre -90 y 90. Un valor positivo indica un giro hacia arriba; un valor negativo indica un giro hacia abajo. Single de Lectura/Escritura.

Comentarios

Para establecer el giro de la forma extruida alrededor del eje Y, utilice la propiedad RotationY del objeto ThreeDFormat. Para establecer el giro de la forma extruida alrededor del eje Z, utilice la propiedad Rotation del objeto Shape. Para cambiar la dirección de la extrusión sin girar la cara frontal de la misma, utilice el método SetExtrusionDirection.


Ejemplo de la propiedad RotationX

En este ejemplo se agregan tres elipses extruidas idénticas al documento activo y se establece el giro alrededor del eje X en –30, 0 y 30 grados, respectivamente.

With ActiveDocument.Shapes

    With .AddShape(msoShapeOval, 30, 60, 50, 25).ThreeD

        .Visible = True

        .RotationX = -30

    End With

    With .AddShape(msoShapeOval, 90, 60, 50, 25).ThreeD

        .Visible = True

        .RotationX = 0

    End With

    With .AddShape(msoShapeOval, 150, 60, 50, 25).ThreeD

        .Visible = True

        .RotationX = 30

    End With

End With


Propiedad AddressStyle

Devuelve un objeto Style que representa el estilo de dirección del sobre. Es de sólo lectura.

Nota   Si se agrega un sobre al documento, el texto al que se le da formato con el estilo Dirección se actualiza automáticamente.


Ejemplo de la propiedad AddressStyle

En este ejemplo se modifica el formato de fuente asociado con el estilo Dirección.

With ActiveDocument.Envelope.AddressStyle.Font

    .Bold = False

    .Name = "Times New Roman"

    .Size = 16

End With


Propiedad ReturnAddressStyle

Devuelve un objeto Style que representa el estilo del remite del sobre. Es de sólo lectura.

Nota   Si se agrega un sobre al documento, el texto al que se le da formato con el estilo Remite se actualiza automáticamente.


Ejemplo de la propiedad ReturnAddressStyle

En este ejemplo se muestra el nombre del estilo y la descripción del remite.

Set miEstilo = ActiveDocument.Envelope.ReturnAddressStyle

MsgBox Prompt:=miEstilo.Description, Title:=miEstilo.NameLocal

En este ejemplo se establece el formato de interlineado y el espacio después de cada párrafo del estilo del remite.

With ActiveDocument.Envelope.ReturnAddressStyle.ParagraphFormat

    .LineSpacingRule = wdLineSpaceExactly

    .LineSpacing = 13

    .SpaceAfter = 6

End With


Propiedad CustomLabels

Devuelve un conjunto CustomLabels que representa las etiquetas postales personalizadas disponibles. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad CustomLabels

En este ejemplo se crea una nueva etiqueta personalizada de nombre "DirecciónAdmón" y, a continuación, se crea una página de etiquetas postales utilizando un remite predefinido.

dirección = "Administración" & vbCr & "Mail Stop 22-16"

Set miEtiqueta = Application.MailingLabel _

    .CustomLabels.Add(Name:="DirecciónAdmón", DotMatrix:= False)

With miEtiqueta

    .Height = InchesToPoints(0.5)

    .Width = InchesToPoints(1)

    .HorizontalPitch = InchesToPoints(2.06)

    .VerticalPitch = InchesToPoints(0.5)

    .NumberAcross = 4

    .NumberDown = 20

    .PageSize = wdCustomLabelLetter

    .SideMargin = InchesToPoints(0.28)

    .TopMargin = InchesToPoints(0.5)

End With

Application.MailingLabel.CreateNewDocument Name:="DirecciónAdmón", Address:=dirección


Propiedad DefaultFaceUp

True si los sobres se colocan mirando hacia arriba de manera predeterminada. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DefaultFaceUp

En este ejemplo se establece que los sobres se coloquen mirando hacia arriba de manera predeterminada. El método UpdateDocument actualiza el sobre del documento activo.

With ActiveDocument.Envelope

    .DefaultFaceUp = True

    .DefaultOrientation = wdCenterPortrait

    .UpdateDocument

End With

En este ejemplo se muestra un mensaje en el que se indica al usuario cómo colocar los sobres en la impresora en función del valor predeterminado.

If ActiveDocument.Envelope.DefaultFaceUp = True Then

    MsgBox "Coloque sobres mirando hacia arriba."

Else

    MsgBox "Coloque sobres mirando abajo."

End If


Propiedad DefaultOrientation

Devuelve o establece la orientación predeterminada para la colocación de los sobres. Puede ser una de las siguientes constantes WdEnvelopeOrientation: wdCenterClockwise, wdCenterLandscape, wdCenterPortrait, wdLeftClockwise, wdLeftLandscape, wdLeftPortrait, wdRightClockwise, wdRightLandscape o wdRightPortrait. Long de Lectura/Escritura


Ejemplo de la propiedad DefaultOrientation

En este ejemplo se establece que los sobres se coloquen mirando hacia arriba, centrados y orientados verticalmente.

With ActiveDocument.Envelope

    .DefaultFaceUp = True

    .DefaultOrientation = wdCenterPortrait

    MsgBox "Coloque sobres mirando hacia arriba, centrados y orientados verticalmente"

End With


Propiedad DefaultWidth

Devuelve o establece el ancho predeterminado del sobre en puntos. Single de Lectura/Escritura.

Nota   Si se define la propiedad DefaultHeight o DefaultWidth, el tamaño de sobre cambia automáticamente a Tamaño personal en el cuadro de diálogo Opciones para sobres (menú Herramientas). Utilice la propiedad DefaultSize para establecer el tamaño predeterminado a un tamaño predefinido.


Ejemplo de la propiedad DefaultWidth

En este ejemplo se definen el ancho y alto del sobre personalizado y se agrega un sobre al documento activo.

dirección = "Juan Gómez Cifuentes" & vbCr & "Goya,123" & vbCr & "28020 Madrid"

ret = "Carlos Ramírez Sanjuan" & vbCr & "Orense, 58" & vbCr & "28020 Madrid"

With ActiveDocument.Envelope

    .DefaultWidth = InchesToPoints(9)

    .DefaultHeight = InchesToPoints(3.85)

End With

ActiveDocument.Envelope.Insert Address:=dirección, ReturnAddress:=ret


Método UpdateDocument

Actualiza el sobre del documento con los valores actuales del sobre.

Nota   Si se usa esta propiedad antes de agregar un sobre al documento, se producirá un error.

Sintaxis

expresión.UpdateDocument

expresión   Requerida. Expresión que devuelve un objeto Envelope.


Ejemplo del método UpdateDocument

En este ejemplo se da formato al sobre de Informe.doc para utilizar un tamaño de sobre personalizado (11 x 19 cm).

On Error GoTo errhandler

With Documents("Informe.doc").Envelope

    .DefaultHeight = InchesToPoints(4.5)

    .DefaultWidth = InchesToPoints(7.5)

    .UpdateDocument

End With

errhandler:

If Err = 5852 Then MsgBox "Informe.doc no incluye un sobre"

En este ejemplo se agrega un sobre al documento activo y se utilizan direcciones predefinidas.

dirección = "Elisa Casares Arcos" & vbCr & "Rosas, 45" & vbCr & "28220 Villalba del Monte"

rte = "Patricia Villa Martínez" & vbCr & "Coronel Varela, 56" & vbCr & "45678 Villanueva del Valle"

ActiveDocument.Envelope.Insert Address:=dirección, ReturnAddress:=rte

With ActiveDocument.Envelope

    .UpdateDocument

End With


Propiedad DefaultLaserTray

Devuelve o establece la bandeja de papel predeterminada que contiene las hojas de las etiquetas postales. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormatBin wdPrinterTractorFeed wdPrinterUpperBin


Ejemplo de la propiedad DefaultLaserTray

En este ejemplo se hace una comprobación para determinar si la impresora de etiquetas postales está configurada para la alimentación manual de etiquetas y, a continuación, se muestra un mensaje en la barra de estado.

If Application.MailingLabel.DefaultLaserTray = wdPrinterManualEnvelopeFeed Then

    StatusBar = "Impresora configurada para la alimentación manual de etiquetas"

Else

    StatusBar = "Compruebe la configuración de la bandeja de papel de la impresora"

End If

En este ejemplo se configura la bandeja de papel de las etiquetas postales como la bandeja superior.

Application.MailingLabel.DefaultLaserTray = wdPrinterUpperBin


Propiedad AddressFromLeft

Devuelve o establece la distancia, en puntos, entre el borde izquierdo del sobre y la dirección. Single de Lectura/Escritura.

Nota   Se produce un error si se utiliza esta propiedad antes de agregar un sobre al documento.


Ejemplo de la propiedad AddressFromLeft

En este ejemplo se crea un nuevo documento y se agrega un sobre con una dirección y un remite predeterminados. En el ejemplo se establece luego la distancia entre el borde izquierdo del sobre y la dirección en 9,5 cm.

addr = "Enrique Ballina" & vbCr & "Av. Benavides 4858 Dept. 201" & vbCr & "Lima 31, PERÚ"

retaddr = "Agustina Rivera" & vbCr & "Jr. Carabaya 442" & vbCr & "Lima 1, PERÚ"

With Documents.Add.Envelope

    .Insert Address:=addr, ReturnAddress:=retaddr

    .AddressFromLeft = InchesToPoints(3.75)

End With

ActiveWindow.View.Type = wdPageView


Propiedad AddressFromTop

Devuelve o establece la distancia, en puntos, entre el borde superior del sobre y la dirección. Single de Lectura/Escritura.

Nota   Se produce un error si se utiliza esta propiedad antes de agregar un sobre al documento.


Ejemplo de la propiedad AddressFromTop

En este ejemplo se crea un documento nuevo y se agrega un sobre con una dirección y un remite predeterminados. En el ejemplo se establece luego la distancia entre el borde superior del sobre y la dirección en 4,5 cm y la distancia entre el borde izquierdo del sobre y la dirección en 9,5 cm.

addr = "Daniel Rendich" & vbCr & "Canavesio 727" & vbCr & "6000 Junín (Bs. As.) ARGENTINA"

retaddr = "Mara Belén Zardain" & vbCr & "Carlos Pellegrini 1263 Main" & vbCr & "1002 Capital Federal ARGENTINA"

With Documents.Add.Envelope

    .Insert Address:=addr, ReturnAddress:=retaddr

    .AddressFromTop = InchesToPoints(1.75)

    .AddressFromLeft = InchesToPoints(3.75)

End With

ActiveWindow.View.Type = wdPageView


Método CreateNewDocument

Crea un nuevo documento de etiquetas mediante la utilización de las opciones para etiquetas predeterminadas u otras especificadas por el usuario. Devuelve un objeto Document.

Sintaxis

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

expresión   Requerida. Expresión que devuelve un objeto MailingLabel.

Name   Variant opcional. Nombre de la etiqueta postal.

Address   Variant opcional. Texto de la etiqueta postal.

AutoText   Variant opcional. El nombre del elemento de Autotexto que incluye el texto de la etiqueta postal.

ExtractAddress   Variant opcional. 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   Variant opcional. La bandeja de la impresora láser. Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormatBin wdPrinterTractorFeed wdPrinterUpperBin


Ejemplo del método CreateNewDocument

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

addr = "Dr. Ernesto Méndez" & vbCr & "Apartado postal: 13 123" & vbCr & "1045 Caracas VENEZUELA"

Application.MailingLabel.CreateNewDocument _

    Name:="mini 2160", 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 Dirección como dirección.

If ActiveDocument.Bookmarks.Exists("Dirección") = True Then

    Application.MailingLabel.CreateNewDocument _

        Name:="Etiqueta autoadhesiva 3,8cm (1,5 pda)", ExtractAddress:=True

End If


Propiedad DefaultHeight

Devuelve o establece el alto predeterminado del sobre en puntos. Single de Lectura/Escritura.

Nota   Si se establece la propiedad DefaultHeight o la DefaultWidth, el tamaño de sobre se cambia automáticamente a Tamaño personal del cuadro de diálogo Opciones para sobres (menú Herramientas). Utilice la propiedad DefaultSize para establecer el tamaño predeterminado como tamaño predefinido.


Ejemplo de la propiedad DefaultHeight

En este ejemplo se establece el tamaño de sobre predeterminado en 11,4 x 19,5 cm (4,5 x 7,5 pda).

With ActiveDocument.Envelope

    .DefaultHeight = InchesToPoints(4.5)

    .DefaultWidth = InchesToPoints(7.5)

End With


Propiedad DefaultOmitReturnAddress

True si el remite se omite de los sobres de manera predeterminada. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DefaultOmitReturnAddress

En este ejemplo se omiten los remites de los nuevos sobres de manera predeterminada.

ActiveDocument.Envelope.DefaultOmitReturnAddress = True

En este ejemplo se muestra el estado del remite en un cuadro de mensaje.

If ActiveDocument.Envelope.DefaultOmitReturnAddress = True Then

    MsgBox "No se incluye un remite de manera predeterminada."

Else

    MsgBox "Se incluye un remite de manera predeterminada."

End If


Propiedad DotMatrix

True si el tipo de impresora para la etiqueta personalizada especificada es matricial. False si el tipo de la impresora es láser o de chorro de tinta. Boolean de sólo lectura.


Ejemplo de la propiedad DotMatrix

En este ejemplo se muestra el nombre y el tipo de impresora de la primera etiqueta postal personalizada.

Set miEtiqueta = Application.MailingLabel

If miEtiqueta.CustomLabels.Count >= 1 Then

    If miEtiqueta.CustomLabels(1).DotMatrix = True Then

        MsgBox miEtiqueta.CustomLabels(1).Name & " es matricial"

    Else

        MsgBox miEtiqueta.CustomLabels(1).Name & " es láser o de chorro de tinta"

    End If

End If


Propiedad Envelope

Devuelve un objeto Envelope que representa la funcionalidad del sobre y el sobre del documento especificado. Es de sólo lectura.


Ejemplo de la propiedad Envelope

En este ejemplo se establece el tamaño de sobre predeterminado en C4 (229 x 324 mm).

ActiveDocument.Envelope.DefaultSize = "C4"

En este ejemplo se muestra la dirección si un sobre se ha agregado al documento, de otro modo, se muestra un cuadro de mensaje.

On Error GoTo errhandler

addr = ActiveDocument.Envelope.Address.Text

MsgBox Prompt:=addr, Title:="Dirección"

errhandler:

If Err = 5852 Then MsgBox "Agregar un sobre al documento"

En este ejemplo se crea un nuevo documento y se agrega un sobre con una dirección y un remite predeterminados.

addr = "Guillermo Alzaga" & vbCr & "Patricio Sanz 602-201 Colonia del Valle" & vbCr & "03100 México, D.F. MÉXICO"

retaddr = "Susana F. Medrano" & vbCr & "Gonzalo de Cossio Nº 114 Colonia del Valle" & vbCr & "03100 México, D.F. MÉXICO"

Documents.Add.Envelope.Insert Address:=addr, ReturnAddress:=retaddr

ActiveWindow.View.Type = wdPageView


Propiedad FeedSource

Devuelve o establece la bandeja de papel para el sobre. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterManualFeed wdPrinterDefaultBin wdPrinterMiddleBin wdPrinterEnvelopeFeed wdPrinterOnlyBin wdPrinterFormSource wdPrinterPaperCassette	wdPrinterLargeCapacityBin wdPrinterSmallFormatBin wdPrinterLargeFormatBin wdPrinterTractorFeed wdPrinterLowerBin wdPrinterUpperBin wdPrinterManualEnvelopeFeed
Nota   Se produce un error si se utiliza esta propiedad antes de agregar un sobre al documento.


Ejemplo de la propiedad FeedSource

En este ejemplo se pregunta al usuario si los sobres se van a colocar a la impresora manualmente. Si la respuesta es afirmativa, en el ejemplo se configura la bandeja para llevar a cabo la alimentación manual.

response = MsgBox("¿Se van a colocar los sobres manualmente?.", vbYesNo)

If response = vbYes then

    On Error GoTo errhandler

    ActiveDocument.Envelope.FeedSource = wdPrinterManualEnvelopeFeed

    errhandler:

    If Err = 5852 Then MsgBox "El sobre no forma parte del documento activo"

End If


Propiedad HorizontalPitch

Devuelve o establece la distancia horizontal, en puntos, entre el borde izquierdo de una etiqueta postal personalizada y el borde izquierdo de la siguiente etiqueta postal. Single de Lectura/Escritura.

Nota   Se produce un error, si esta propiedad se cambia a un valor que no sea válido para el diseño especificado de etiqueta postal.


Ejemplo de la propiedad HorizontalPitch

En este ejemplo se define el diseño de la etiqueta personalizada denominada "Etiquetas láser". La distancia horizontal entre el borde izquierdo de una etiqueta y el borde izquierdo de la siguiente se establece en 10,64 cm (4,19 pda).

With Application.MailingLabel.CustomLabels("Etiquetas láser")

    .Height = InchesToPoints(2)

    .HorizontalPitch = InchesToPoints(4.19)

    .NumberAcross = 2

    .NumberDown = 5

    .PageSize = wdCustomLabelLetter

    .SideMargin = InchesToPoints(0.16)

    .TopMargin = InchesToPoints(0.5)

    .VerticalPitch = InchesToPoints(2)

    .Width = InchesToPoints(4)

End With


Propiedad NumberAcross

Devuelve o establece el número de etiquetas postales personalizadas que habrá en la página en sentido transversal. Long de Lectura/Escritura.

Nota   Se produce un error, si esta propiedad se cambia a un valor que no sea válido para el diseño de etiqueta postal especificada.


Ejemplo de la propiedad NumberAcross

En este ejemplo se crea un nueva etiqueta personalizada denominada "Etiquetas Dept." y se define el diseño, incluso el número de etiquetas que habrá en sentido transversal en la página.

Set miEtiqueta = Application.MailingLabel.CustomLabels.Add(Name:="Etiquetas Dept.", _

    DotMatrix:=False)

With miEtiqueta

    .Height = InchesToPoints(0.5)

    .HorizontalPitch = InchesToPoints(2.06)

    .NumberAcross = 4

    .NumberDown = 20

    .PageSize = wdCustomLabelLetter

    .SideMargin = InchesToPoints(0.28)

    .TopMargin = InchesToPoints(0.5)

    .VerticalPitch = InchesToPoints(2)

    .Width = InchesToPoints(1.75)

End With


Propiedad NumberDown

Devuelve o establece el número de etiquetas postales personalizadas que habrá en la página en sentido longitudinal. Long de Lectura/Escritura.

Nota   Se produce un error, si esta propiedad se cambia a un valor que no sea válido para el diseño especificado de etiqueta postal.


Ejemplo de la propiedad NumberDown

En este ejemplo se muestra el número de etiquetas que hay en la página en sentido transversal y longitudinal para la primera etiqueta personalizada del conjunto CustomLabels.

numTransv = Application.MailingLabel.CustomLabels(1).NumberAcross

numLongit = Application.MailingLabel.CustomLabels(1).Numberdown

MsgBox  Prompt:= "Número de etiquetas en sentido transversal " & numTransv & vbCr & _

    "Número de etiquetas en sentido longitudinal " & numLongit & vbCr , _

    Title:="Configuración de la página de etiquetas"


Propiedad ReturnAddress

Objeto Envelope: Devuelve un objeto Range que representa el remite del sobre. Es de sólo lectura.

Objeto Letter Content: Devuelve o establece el remite de una carta creada con el Asistente para cartas. String de Lectura/Escritura.

Nota   Se produce un error si se utiliza esta propiedad antes agregar un sobre al documento.


Ejemplo de la propiedad ReturnAddress

En este ejemplo se muestra el remite si un sobre se ha agregado al documento activo, de lo contrario, se muestra un cuadro de mensaje.

On Error GoTo errhandler

addr = ActiveDocument.Envelope.ReturnAddress.Text

MsgBox Prompt:=addr, Title:="Remite"

errhandler:

If Err = 5852 Then MsgBox "El documento activo no incluye un sobre"

En este ejemplo se crea un objeto LetterContent nuevo, se establecen el remite y varias propiedades más y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Dim oLC as New LetterContent

With oLC

    .LetterStyle = wdFullBlock

    .Salutation ="Hola"

    .SalutationType = wdSalutationOther

    .ReturnAddress = Application.UserAddress

End With

Documents.Add.RunLetterWizard LetterContent:=oLC


Propiedad ReturnAddressFromLeft

Devuelve o establece la distancia, en puntos, entre el borde izquierdo del sobre y el remite. Single de Lectura/Escritura.

Nota   Se produce un error si se utiliza esta propiedad antes de agregar un sobre al documento.


Ejemplo de la propiedad ReturnAddressFromLeft

En este ejemplo se crea un nuevo documento y se agrega un sobre con una dirección y un remite predeterminados. El ejemplo establece luego la distancia entre el borde izquierdo del sobre y el remite en 1,9 cm (0,75 pda)

addr = "María Belén Zardain" & vbCr & "Carlos Pellegrini 1263" & vbCr & "1002 Capital Federal ARGENTINA"

retaddr = "Daniel Rendic" & vbCr & "Cavavesio 727" & vbCr & "6000 Junín (Bs. As.) ARGENTINA"

With Documents.Add.Envelope

    .Insert Address:=addr, ReturnAddress:=retaddr

    .ReturnAddressFromLeft = InchesToPoints(0.75)

End With

ActiveWindow.View.Type = wdPageView


Propiedad ReturnAddressFromTop

Devuelve o establece la distancia, en puntos, entre el borde superior del sobre y el remite. Single de Lectura/Escritura.

Nota   Se produce un error si se utiliza esta propiedad antes de agregar un sobre al documento.


Ejemplo de la propiedad ReturnAddressFromTop

En este ejemplo se crea un nuevo documento y se agrega un sobre con una dirección y un remite predeterminados. El ejemplo establece luego la distancia entre el borde superior del sobre y el remite en 1,25 cm (0,5 pda) y la distancia entre el borde izquierdo del sobre y el remite en 1,9 cm (0,75 pda).

addr = "Juan Camilo Pardo" & vbCr & "C/ Córcega 452. 2º 1ª" & vbCr & "0825 Barcelona ESPAÑA"

retaddr = "Agustina Rivera" & vbCr & "Jr. Carabaya 442" & vbCr & "Lima 31, PERÚ"

With Documents.Add.Envelope

    .Insert Address:=addr, ReturnAddress:=retaddr

    .ReturnAddressFromTop = InchesToPoints(0.5)

    .ReturnAddressFromLeft = InchesToPoints(0.75)

End With


Propiedad SideMargin

Devuelve o establece los anchos de los márgenes laterales, en puntos, de la etiqueta postal personalizada especificada. Single de Lectura/Escritura.

Nota   Se produce un error, si esta propiedad se cambia a un valor que no sea válido para el diseño de etiqueta postal especificado.


Ejemplo de la propiedad SideMargin

En este ejemplo se crea una etiqueta personalizada denominada "Pase de visitante" y se define su diseño. Los márgenes izquierdo y derecho de cada etiqueta tienen 1,9 cm (0,75 pda).

Set miEtiqueta = Application.MailingLabel.CustomLabels.Add(Name:="Pase de visitante", _

    DotMatrix:=False)

With miEtiqueta

    .Height = InchesToPoints(2.17)

    .HorizontalPitch = InchesToPoints(3.5)

    .NumberAcross = 2

    .NumberDown = 4

    .PageSize = wdCustomLabelLetter

    .SideMargin = InchesToPoints(0.75)

    .TopMargin = InchesToPoints(0.17)

    .VerticalPitch = InchesToPoints(2.17)

    .Width = InchesToPoints(3.5)

End With


Propiedad VerticalPitch

Devuelve o establece la distancia vertical entre la parte superior de una etiqueta postal y la parte superior de la siguiente. Single de Lectura/Escritura.

Nota   Se produce un error, si esta propiedad se cambia a un valor que no sea válido para el diseño especificado de etiqueta postal.


Ejemplo de la propiedad VerticalPitch

En este ejemplo se crea una etiqueta personalizada denominada "Pase de visitante" y se define su diseño. La distancia entre el borde superior de una etiqueta y el borde superior de la siguiente es de 5,51 cm (2,17 pda).

Set miEtiqueta = Application.MailingLabel.CustomLabels.Add(Name:="Pase de visitante", _

    DotMatrix:=False)

With miEtiqueta

    .Height = InchesToPoints(2.17)

    .HorizontalPitch = InchesToPoints(3.5)

    .NumberAcross = 2

    .NumberDown = 4

    .PageSize = wdCustomLabelLetter

    .SideMargin = InchesToPoints(0.75)

    .TopMargin = InchesToPoints(0.17)

    .VerticalPitch = InchesToPoints(2.17)

    .Width = InchesToPoints(3.5)

End With


Evento Close

Este evento se produce al cerrar un documento.

Sintaxis

Private Sub Document_Close()

Comentarios

Si se guarda el procedimiento del evento en una plantilla, el procedimiento se ejecutará cuando se cierre un nuevo documento basado en dicha plantilla y cuando se cierre la propia plantilla, después de haberse abierto como documento.

Para obtener información acerca de la utilización de eventos con el objeto Document, vea Uso de eventos con el objeto Document.


Ejemplo del evento Close

En este ejemplo se hace una copia de seguridad del documento en un servidor de archivos al cerrar el documento. El procedimiento se guarda en un documento, no en una plantilla.

Private Sub Document_Close()

    ThisDocument.Save

    ThisDocument.SaveAs "\\red\copia de seguridad\" & ThisDocument.Name

End Sub


Evento DocumentChange

Este evento se produce al crear un nuevo documento, al abrir un documento existente o al convertir otro documento en el documento activo.

Sintaxis

Private Sub object_DocumentChange()

object   Objeto de tipo Application declarado con eventos en un módulo de clase. Para obtener información acerca de la utilización de eventos con el objeto Application, vea Uso de eventos con el objeto Application.


Ejemplo del evento DocumentChange

En este ejemplo se organizan todas las ventanas abiertas al cambiar la selección del documento.

Private Sub miAp_DocumentChange()

    Application.Windows.Arrange wdTiled

End Sub


Evento New

Este evento se produce al crear un nuevo documento basado en la plantilla. Sólo se ejecutará un procedimiento para el evento New si se guarda en una plantilla.

Sintaxis

Private Sub Document_New()

Comentarios

Para obtener información acerca de la utilización de eventos con el objeto Document, vea Uso de eventos con el objeto Document.


Ejemplo del evento New

En este ejemplo se organizan todas las ventanas al crear un nuevo documento basado en la plantilla. El procedimiento se guarda en una plantilla, no en un documento.

Private Sub Document_New()

    Application.Windows.Arrange wdTiled

End Sub


Evento Quit

Este evento se produce cuando el usuario sale de Word.

Sintaxis

Private Sub object_Quit()

object   Objeto de tipo Application declarado con eventos en un módulo de clase. Para obtener información acerca de la utilización de eventos con el objeto Application, vea Uso de eventos con el objeto Application.


Ejemplo del evento Quit

En este ejemplo se garantiza que las barras de herramientas Estándar y Formato estarán visibles antes de que el usuario salga de Word. Como resultado, cuando se vuelva a iniciar Word, aparecerán las barras de herramientas Estándar y Formato.

Private Sub miAp_Quit()

    CommandBars("Estándar").Visible = True

    CommandBars("Formato").Visible = True

End Sub


Evento Open

Este evento se produce al abrir un documento.

Sintaxis

Private Sub Document_Open()

Comentarios

Si se guarda el procedimiento del evento en una plantilla, el procedimiento se ejecutará cuando se abra un nuevo documento basado en dicha plantilla y cuando se abra la propia plantilla como documento.

Para obtener información acerca de la utilización de eventos con el objeto Document, vea Uso de eventos con el objeto Document.


Ejemplo del evento Open

En este ejemplo se muestra un mensaje cuando se abre un documento.

Private Sub Document_Open()

    Msgbox "Este documento está protegido por los derechos de autor"

End Sub


Evento GotFocus

Este evento se produce cuando la selección se pasa a un control ActiveX incrustado.

Para obtener información acerca del uso de eventos con controles ActiveX, vea Uso de eventos con controles ActiveX.

Sintaxis

Private Sub object_GotFocus()

object   Nombre de un control ActiveX.


Ejemplo del evento GotFocus

En este ejemplo se muestra un mensaje cuando se pasa la selección a CasillaVerificación1.

Private Sub CheckBox1_GotFocus()

    Msgbox "Active esta casilla de verificación si es un empleado fijo."

End Sub


Evento LostFocus

Este evento se produce cuando se desactiva la selección de un control ActiveX incrustado.

Para obtener información acerca del uso de eventos con controles ActiveX, vea Uso de eventos con controles ActiveX.

Sintaxis

Private Sub object_LostFocus()

object   Nombre de un control ActiveX.


Ejemplo del evento LostFocus

En este ejemplo se deja deshabilitado BotónComando1 hasta que el usuario escriba un valor en CuadroTexto1.

Private Sub TextBox1_LostFocus()

    If TextBox1.Value = "" Then

        CommandButton1.Enabled = False

    Else

        CommandButton1.Enabled = True

    End If

End Sub


Propiedad IncludeHiddenText

True si el texto recuperado del intervalo especificado incluye texto oculto. Boolean de Lectura/Escritura.

Nota   El valor predeterminado es el mismo que el valor actual de la opción Texto oculto de la ficha Ver del cuadro de diálogo Opciones (menú Herramientas), hasta que se haya establecido el valor de esta propiedad. Utilice la propiedad Text con un objeto Range para recuperar texto desde el intervalo especificado.


Ejemplo de la propiedad IncludeHiddenText

En este ejemplo se muestra el texto de la primera oración del documento activo en un cuadro de mensaje. En el ejemplo se utiliza la propiedad IncludeHiddenText para incluir texto oculto.

Set miIntervalo = ActiveDocument.Sentences(1)

miIntervalo.TextRetrievalMode.IncludeHiddenText = True

MsgBox miIntervalo.Text

En este ejemplo se envía un mensaje si el formato de toda la selección es texto oculto.

If Selection.Type = wdSelectionNormal Then

    Set miIntervalo = Selection.Range

    miIntervalo.TextRetrievalMode.IncludeHiddenText = False

    If miIntervalo.Text = "" Then MsgBox "La selección está oculta"

End If


Propiedad IncludeFieldCodes

True si el texto recuperado del intervalo especificado incluye códigos de campo. Boolean de Lectura/Escritura.

Nota   El valor predeterminado es el mismo que el valor de la opción Códigos de campo de la ficha Ver del cuadro de diálogo Opciones (menú Herramientas), hasta que se haya establecido el valor de esta propiedad. Utilice la propiedad Text con un objeto Range para recuperar texto desde el intervalo especificado.


Ejemplo de la propiedad IncludeFieldCodes

En este ejemplo se muestra el texto del primer párrafo del documento activo en un cuadro de mensaje. En el ejemplo se utiliza la propiedad IncludeFieldCodes para excluir los códigos de campo.

Set miIntervalo = ActiveDocument.Paragraphs(1).Range

miIntervalo.TextRetrievalMode.IncludeFieldCodes = False

MsgBox miIntervalo.Text

En este ejemplo se excluyen los códigos de campo y el texto oculto del intervalo que hace referencia al texto seleccionado y, a continuación, se muestra el texto en un cuadro de mensaje.

If Selection.Type = wdSelectionNormal Then

    Set miIntervalo = Selection.Range

    With miIntervalo.TextRetrievalMode

        .IncludeHiddenText = False

        .IncludeFieldCodes = False

    End With

    MsgBox miIntervalo.Text

End If


Propiedad Code

Devuelve un objeto Range que representa un código de campo. Todo lo comprendido entre los caracteres de campo ({ }), incluidos los caracteres de espacio inicial y posterior, constituye un código de campo. Puede obtener acceso a un código de campo sin cambiar la vista de los resultados de campo. Lectura/Escritura.


Ejemplo de la propiedad Code

Este ejemplo muestra el código de campo de todos los campos del documento activo.

For Each unCampo In ActiveDocument.Fields

    MsgBox Chr(34) & unCampo.Code.Text & Chr(34)

Next unCampo

Este ejemplo cambia el código de campo del primer campo del documento activo a FECHACREACIÓN.

Set miIntervalo = ActiveDocument.Fields(1).Code

miIntervalo.Text = " FECHACREACIÓN "

ActiveDocument.Fields(1).Update

Este ejemplo determina si el documento activo incluye un campo de combinación de correspondencia denominado "Título".

For Each unCampo In ActiveDocument.MailMerge.Fields

    If InStr(1, unCampo.Code.Text, "Título", 1) Then

        MsgBox "En este documento hay un campo de combinación de correspondencia llamado Título"

    End If

Next unCampo


Propiedad Fields

Objeto Document, Range o Selection: devuelve un conjunto de Fields que representa a todos los campos del documento, intervalo o selección. Es de sólo lectura.

Nota:   cuando se aplica la propiedad Fields al objeto Document, devuelve un conjunto de Fields que únicamente contiene los campos del texto principal.

Objeto MailMerge: devuelve un conjunto de MailMergeFields que representa a todos los campos de combinación de correspondencia relacionados del documento especificado. Es de sólo lectura.

Para obtener información acerca de cómo obtener un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Fields

Este ejemplo actualiza todos los campos del documento activo.

ActiveDocument.Fields.Update

Este ejemplo quita todos los campos del texto principal y del pie de página del documento activo.

For Each unCampo in ActiveDocument.Fields

    unCampo.Delete

Next unCampo

Set miIntervalo = ActiveDocument.Sections(1).Footers _

    (wdHeaderFooterPrimary).Range

For Each unCampo In miIntervalo.Fields

    unCampo.Delete

Next unCampo

Este ejemplo agrega un campo FECHA en el punto de inserción.

With Selection

    .Collapse Direction:=wdCollapseStart

    .Fields.Add Range:= Selection.Range, Type:=wdFieldDate

End With

Este ejemplo agrega un campo de combinación de correspondencia denominado "Título" en el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.MailMerge.Fields.Add Range:= Selection.Range, _

    Name:= "Título"


Propiedad Result

Objeto Field: devuelve un objeto Range que representa un resultado de campo. Puede obtener acceso a un campo de resultado sin cambiar la vista de códigos de campo. Lectura/Escritura.

Nota:   utilice la propiedad Text para devolver texto desde un objeto Range.

Objeto FormField: devuelve el resultado del campo de formulario especificado. String de Lectura/Escritura.


Ejemplo de la propiedad Result

Este ejemplo muestra el resultado de los campos de formulario del documento activo.

For Each unCampo In ActiveDocument.FormFields

    MsgBox unCampo.Result

Next unCampo

Este ejemplo aplica el formato de negrita al primer campo de la selección.

If Selection.Fields.Count >= 1 Then

    Set miIntervalo = Selection.Fields(1).Result

    miIntervalo.Bold = True

End If


Método Unlink

Objeto Field: sustituye el campo especificado por su resultado más reciente.

Objeto Fields: sustituye todos los campos del conjunto Fields por sus resultados más recientes.

Sintaxis

expresión.Unlink

expresión   Requerida. Expresión que devuelve un objeto Field o Fields.

Comentarios

Al desvincular un campo, su resultado actual se convierte en texto o gráfico y ya no se puede actualizar automáticamente. Observe que algunos campos, como los campos EÍ (Elemento de índice) y SEC (Secuencia), no pueden desvincularse.


Ejemplo del método Unlink

Este ejemplo desvincula el primer campo de "Ventas.doc".

Documents("Ventas.doc").Fields(1).Unlink

Este ejemplo actualiza y desvincula todos los campos de la primera sección del documento activo.

With ActiveDocument.Sections(1).Range.Fields

    .Update

    .Unlink

End With


Método DoClick

Hace clic en el campo especificado. Si el campo es un campo BOTÓNIRA, este método mueve el punto de inserción a la posición especificada o selecciona el marcador especificado. Si el campo es un campo BOTÓNMACRO, este método ejecuta la macro especificada. Si el campo es un campo HIPERVÍNCULO, este método salta a la posición de destino.

Sintaxis

expresión.DoClick

expresión   Requerida. Expresión que devuelve un objeto Field.


Ejemplo del método DoClick

Si el primer campo de la selección es un campo BOTÓNIRA, se hace clic en él, se mueve el punto de inserción a la posición especificada o se selecciona el marcado especificado.

Set miCampo = Selection.Fields(1)

If miCampo.Type = wdFieldGoToButton Then miCampo.DoClick


Método UpdateSource

Guarda los cambios realizados en los resultados de un campo INCLUIRTEXTO en el documento de origen.

Nota   El formato del documento de origen deberá ser documento de Word.

Sintaxis

expresión.UpdateSource

expresión   Requerida. Expresión que devuelve un objeto Field o Fields.


Ejemplo del método UpdateSource

En este ejemplo se actualizan los campos INCLUIRTEXTO del documento activo.

For Each UnCampo In ActiveDocument.Fields

    If UnCampo.Type = wdFieldIncludeText Then UnCampo.UpdateSource

Next UnCampo


Propiedad Field

Devuelve un objeto Field que representa al campo asociado a la forma especificada. Es de sólo lectura.

Nota   Utilice la propiedad Fields para devolver un conjunto Fields.


Ejemplo de la propiedad Field

En este ejemplo se inserta un gráfico como una forma entre líneas, utilizando el campo INCLUIRIMAGEN y después se muestra el código de campo de la forma.

Set FormaEntreLíneas = ActiveDocument.InlineShapes.AddPicture(FileName:="C:\Windows\Mosaicos.bmp", _

    LinkToFile:=True, SaveWithDocument:=False, Range:=Selection.Range)

MsgBox FormaEntreLíneas.Field.Code.Text


Propiedad LinkFormat

Devuelve un objeto LinkFormat que representa las opciones de vínculo del campo, la forma entre líneas o la forma especificada vinculada a un archivo. Es de sólo lectura.


Ejemplo de la propiedad LinkFormat

En este ejemplo se inserta un gráfico como una forma entre líneas, utilizando el campo INCLUIRIMAGEN y después se muestra el nombre de origen (Mosaicos.bmp).

Set Formaentrelíneas = ActiveDocument.InlineShapes.AddPicture(FileName:="C:\windows\Mosaicos.bmp", _

    LinkToFile:=True, SaveWithDocument:=False, Range:=Selection.Range)

MsgBox Formaentrelíneas.LinkFormat.SourceName

En este ejemplo se actualizan los campos del documento activo que no se actualicen automáticamente.

For Each unCampo In ActiveDocument.Fields

    If unCampo.LinkFormat.AutoUpdate = False Then unCampo.LinkFormat.Update

Next unCampo


Propiedad ShowCodes

True si se muestran los códigos de campo para el campo especificado en vez de sus resultados. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowCodes

En este ejemplo se selecciona el siguiente campo y se muestran los códigos de campo.

With Selection

    .GoTo What:=wdGoToField

    .Expand Unit:=wdWord

    If .Fields.Count = 1 Then .Fields(1).ShowCodes = True

End With

En este ejemplo se actualiza y se muestra el resultado del primer campo del documento activo.

If ActiveDocument.Fields.Count >= 1 Then

    With ActiveDocument.Fields(1)

        .Update

        .ShowCodes = False

    End With

End If


Método ToggleShowCodes

Activa o desactiva la presentación de los códigos de campo o los resultados de campo.

Nota   Utilice la propiedad ShowCodes para controlar la presentación de un campo individual.

Sintaxis

expresión.ToggleShowCodes

expresión   Requerida. Expresión que devuelve un objeto Fields.


Ejemplo del método ToggleShowCodes

En este ejemplo se activa la presentación de los campos de la selección, el equivalente a presionar la combinación de teclas MAYÚS+F9.

Selection.Fields.ToggleShowCodes

En este ejemplo se activa la presentación de los campos del documento activo, el equivalente a presionar la combinación de teclas ALT+F9.

ActiveDocument.Fields.ToggleShowCodes


Método ClearFormatting

Quita todos los formatos especificados como parte de una operación de búsqueda y sustitución. Corresponde al botón Sin formato del cuadro de diálogo Buscar y reemplazar (menú Edición).

Nota   Para asegurar que no se incluyen formatos no deseados en los criterios de búsqueda y sustitución, utilice este método antes de realizar la operación.

Sintaxis

expresión.ClearFormatting

expresión   Requerida. Expresión que devuelve un objeto Find o Replacement.


Ejemplo del método ClearFormatting

En este ejemplo, se borra el formato de los criterios de búsqueda y sustitución antes de reemplazar la palabra "Admón." por "Administración" en el documento activo.

Set miIntervalo = ActiveDocument.Content

With miIntervalo.Find

    .ClearFormatting

    .Replacement.ClearFormatting

    .MatchWholeWord = True

    .Execute FindText:="Admón.", ReplaceWith:="Administración", Replace:=wdReplaceAll

End With

En este ejemplo, se quita el formato de los criterios de búsqueda antes de buscar en la selección. Si se encuentra la palabra "Hola" con formato de negrita, se selecciona el párrafo entero y se copia al Portapapeles.

With Selection.Find

    .ClearFormatting

    .Font.Bold = True

    .Execute FindText:="Hola", Format:=True, Forward:=True

    If .Found = True Then

        .Parent.Expand Unit:=wdParagraph

        .Parent.Copy

    End If

End With


Propiedad Find

Devuelve un objeto Find que contiene los criterios para una operación de búsqueda. Es de sólo lectura.

Nota   Cuando se utiliza esta propiedad con un objeto Selection, la selección cambia si la operación de búsqueda tiene éxito. Si esta propiedad se utiliza con un objeto Range, la selección no cambia a menos que se aplique el método Select.


Ejemplo de la propiedad Find

En el siguiente ejemplo, se busca hacia abajo en documento la palabra "Microsoft". Si se encuentra esta palabra, se selecciona automáticamente.

With Selection.Find

    .Forward = True

    .ClearFormatting

    .MatchWholeWord = True

    .MatchCase = False

    .Wrap = wdFindContinue

    .Execute FindText:="Microsoft"

End With

En este ejemplo, se inserta "Sugerencia: " al principio de cada párrafo con estilo Título 3 en el documento activo. La instrucción Do…Loop se utiliza para repetir una serie de acciones cada vez que se encuentre este estilo.

With ActiveDocument.Content.Find

    .ClearFormatting

    .Style = wdStyleHeading3

    Do While .Execute(FindText:="", Forward:=True, Format:=True) = True

        With .Parent

            .StartOf Unit:=wdParagraph, Extend:=wdMove

            .InsertAfter "Sugerencia: "

            .Move Unit:=wdParagraph, Count:=1

        End With

    Loop

End With


Propiedad Highlight

Objeto Find: True si el formato seleccionado se incluye en los criterios de búsqueda. Puede devolver o establecerse su valor en True, False o wdUndefined. Long de Lectura/Escritura.

Nota   El valor wdUndefined puede utilizarse con el objeto Find para omitir el estado del formato seleccionado en la selección o el intervalo en el que se está buscando.

Objeto Replacement: True si el formato seleccionado se aplica al texto de sustitución. Puede devolver o establecerse su valor en True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad Highlight

En este ejemplo, se buscan todas las repeticiones del texto seleccionado en el documento activo y se quita el formato seleccionado estableciendo la propiedad Highlight del objeto Replacement en False.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

With miIntervalo.Find

    .ClearFormatting

    .Highlight = True

    With .Replacement

        .ClearFormatting

        .Highlight = False

    End With

    .Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _

         ReplaceWith:="", Format:=True

End With

En este ejemplo, se aplica al formato seleccionado la siguiente instancia de texto en negrita del documento activo.

With Selection.Find

    .ClearFormatting

    .Font.Bold = True

    With .Replacement

        .ClearFormatting

        .Highlight = True

    End With

    .Execute Forward:=True, FindText:="", ReplaceWith:="", _

        Format:=True

End With


Propiedad MatchCase

True si la búsqueda distingue mayúsculas de minúsculas. Boolean de Lectura/Escritura.

Nota   Utilice la propiedad Text del objeto Find o el argumento FindText con el método Execute para especificar el texto va a buscarse en el documento.


Ejemplo de la propiedad MatchCase

En este ejemplo, se selecciona la siguiente aparición de la palabra "biblioteca" de la selección, independientemente de las mayúsculas y las minúsculas.

With Selection.Find

    .ClearFormatting

    .MatchWholeWord = True

    .MatchCase = False

    .Execute FindText:="biblioteca"

End With


Propiedad MatchWildcards

True si el texto va a buscarse contiene comodines de búsqueda. Corresponde a la casilla de verificación Usar caracteres comodín del cuadro de diálogo Buscar y reemplazar (menú Edición). Boolean de Lectura/Escritura.

Nota   Utilice la propiedad Text del objeto Find o el argumento FindText con el método Execute para especificar el texto va a buscarse en el documento.


Ejemplo de la propiedad MatchWildcards

En este ejemplo, se busca y se selecciona la siguiente palabra de tres letras que comiencen por "s" y terminen en "t".

With Selection.Find

    .ClearFormatting

    .Text = "s?t"

    .MatchWildcards = True

    .Execute Format:=False, Forward:=True

End With


Propiedad MatchWholeWord

True si la operación de búsqueda sólo busca palabras completas y no texto que forme parte de una palabra. Boolean de Lectura/Escritura.

Nota   Utilice la propiedad Text del objeto Find o el argumento FindText con el método Execute para especificar el texto va a buscarse en el documento.


Ejemplo de la propiedad MatchWholeWord

En este ejemplo, se borran todos los formatos de los criterios de búsqueda y sustitución antes de reemplazar la palabra "Admón." por "Administración" del documento activo.

With ActiveDocument.Content.Find

    .ClearFormatting

    .Replacement.ClearFormatting

    .MatchWholeWord = True

    .Execute FindText:="Admón.", ReplaceWith:="Administración", Replace:=wdReplaceAll

End With


Propiedad Replacement

Devuelve un objeto Replacement que contiene los criterios de una operación de búsqueda. Es de sólo lectura.


Ejemplo de la propiedad Replacement

En este ejemplo, se quita todo el formato de negrita del documento activo. El valor de la propiedad Bold es True para el objeto Find y False para el objeto Replacement.

With ActiveDocument.Content.Find

    .ClearFormatting

    .Font.Bold = True

    With .Replacement

        .ClearFormatting

        .Font.Bold = False

    End With

    .Execute FindText:="", ReplaceWith:="", Format:=True, _

        Replace:=wdReplaceAll

End With

En este ejemplo, se buscan todas las instancias de la palabra "Inicio" del documento activo y se reemplazan por "Fin". Esta operación de búsqueda omite el formato y distingue las mayúsculas de las minúsculas del texto que va a buscarse ("Inicio").

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

With miIntervalo.Find

    .ClearFormatting

    .Text = "Inicio"

    With .Replacement

        .ClearFormatting

        .Text = "Fin"

    End With

    .Execute Replace:=wdReplaceAll, Format:=True, MatchCase:=True, _

        MatchWholeWord:=True

End With


Propiedad Forward

True si es una operación de búsqueda hacia abajo en el documento. False si busca hacia arriba en el documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Forward

En este ejemplo, se reemplaza la siguiente repetición de la palabra "Sr." de la selección por "Señor".

With Selection.Find

    .Forward = True

    .Text = "Sr."

    .ClearFormatting

    .Replacement.Text = "Señor"

    .Execute Replace:=wdReplaceOne

End With

En el siguiente ejemplo, se busca hacia arriba en el documento la palabra "Microsoft". Si se encuentra esta palabra, se selecciona automáticamente.

Selection.Collapse Direction:=wdCollapseStart

With Selection.Find

    .Forward = False

    .ClearFormatting

    .MatchWholeWord = True

    .MatchCase = False

    .Wrap = wdFindContinue

    .Execute FindText:="Microsoft"

End With


Propiedad AllCaps

True: si el formato de la fuente es mayúsculas. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.

Comentarios

Si se establece el valor de AllCaps como True, se establece SmallCaps como False y viceversa.


Ejemplo de la propiedad AllCaps

Este ejemplo comprueba si el tercer párrafo del documento activo contiene texto con el formato mayúsculas.

If ActiveDocument.Paragraphs(3).Range.Font.AllCaps = True Then

    MsgBox "Todo el texto está en mayúsculas"

Else

    MsgBox "Todo el texto no está en mayúsculas "

End if

Este ejemplo da el formato de mayúsculas al texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.AllCaps = True

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Animation

Devuelve o establece el tipo de animación aplicada a la fuente. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdAnimation:

wdAnimationBlinkingBackground wdAnimationLasVegasLights wdAnimationMarchingBlackAnts wdAnimationMarchingRedAnts	wdAnimationNone wdAnimationShimmer wdAnimationSparkleText


Ejemplo de la propiedad Animation

Este ejemplo anima el texto de un documento nuevo.

Set nuevoDoc = Documentos.Add

With nuevoDoc.Content

    .InsertAfter "Esta es una prueba de animación"

    .Font.Animation = wdAnimationLasVegasLights

End With

Este ejemplo anima el texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Animation = wdAnimationShimmer

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Bold

True: si el formato de la fuente o del intervalo es Negrita. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.


Ejemplo de la propiedad Bold

En este ejemplo se asigna el formato de negrita a la sexta palabra de un documento nuevo.

Set nuevoDoc = Documentos.Add

Set miIntervalo = nuevoDoc.Content

miIntervalo.InsertAfter "Esta es una prueba en negrita"

miIntervalo.Words(6).Bold = True

Este ejemplo aplica el formato de negrita a toda la selección si alguna parte de la misma ya lo está.

If Selection.Type = wdSelectionNormal Then

    If Selection.Font.Bold = wdUndefined Then Selection.Font.Bold = True

Else

    MsgBox "Debe seleccionar texto"

End If

Este ejemplo activa o desactiva el formato de negrita en el texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Range.Bold = wdToggle

End If

Este ejemplo aplica el formato de negrita al primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Range.Bold = True


Método Grow

Aumenta el tamaño de la fuente con el siguiente tamaño disponible. Si la selección o el intervalo contiene varios tamaños de fuente, cada uno de ellos se aumenta al siguiente valor disponible.

Sintaxis

expresión.Grow

expresión    Requerida. Expresión que devuelve un objeto Font.


Ejemplo del método Grow

Este ejemplo aumenta el tamaño de la fuente de la cuarta palabra de un nuevo documento.

Set miIntervalo = Documentos.Add.Content

miIntervalo.InsertAfter "Esta es una prueba del método Grow"

MsgBox "Haga clic en Aceptar para incrementar el tamaño de fuente de la cuarta palabra"

miIntervalo.Words(4).Font.Grow

Este ejemplo aumenta el tamaño de la fuente del texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Grow

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Hidden

True: si el formato de la fuente es Texto oculto. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.

Comentarios

Para controlar la presentación en pantalla del texto oculto, use la propiedad ShowHiddenText del objeto View.

Para controlar si las propiedades y los métodos que devuelven objetos Range incluyen o excluyen texto oculto cuando no se ve en pantalla dicho texto, use la propiedad IncludeHiddenText del objeto TextRetrievalMode.


Ejemplo de la propiedad Hidden

Este ejemplo inserta texto y da el formato de texto oculto al número de la contraseña.

Selection.Collapse Direction:=wdCollapseEnd

With Selection.Range

    .InsertAfter "Contraseña de la cuenta del Sr. García: 8116"

    .Words(10).Font.Hidden = True

End With

Este ejemplo comprueba si la selección contiene texto oculto.

If Selection.Type = wdSelectionNormal Then

    If Selection.Font.Hidden = wdUndefined or _

    Selection.Font.Hidden = True Then

        MsgBox "La selección contiene texto oculto"

    Else

        MsgBox "La selección no contiene texto oculto"

    End If

Else

    MsgBox "Debe seleccionar texto"

End If

Este ejemplo hace que se vea todo el texto oculto de la ventana activa y, a continuación, da el formato de texto oculto a la selección.

ActiveWindow.View.ShowHiddenText = True

If Selection.Type = wdSelectionNormal Then Selection.Font.Hidden = True


Propiedad Engrave

True: si el formato de fuente es Grabado. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.

Comentarios

Si se establece el valor de Engrave como True, se establece Emboss como False y viceversa.


Ejemplo de la propiedad Engrave

En este ejemplo se asigna el formato de grabado a la primera letra del documento activo.

Set miIntervalo = ActiveDocument.Characters(1)

With miIntervalo.Font

    .Size = 20

    .Engrave = True

End With

En el ejemplo siguiente se asigna el formato de grabado a la selección.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Engrave = True

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Italic

True: si el formato de la fuente o del intervalo es cursiva. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.


Ejemplo de la propiedad Italic

En este ejemplo se aplica el formato de cursiva a la primera palabra del documento activo.

ActiveDocument.Words(1).Italic = True

El ejemplo siguiente busca y quita de la selección el formato de cursiva.

If Selection.Type = wdSelectionNormal Then

    miSel = Selection.Font.Italic

    If miSel = wdUndefined or miSel = True Then

        MsgBox "La selección contiene texto en cursiva. Haga clic en Aceptar para quitarlo"

        Selection.Font.Italic = False

    Else

        MsgBox "La selección no contiene texto en cursiva"

    End If

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Kerning

Devuelve o establece el tamaño mínimo de fuente para el que Word ajustará automáticamente el espacio. Single de Lectura/Escritura.


Ejemplo de la propiedad Kerning

Este ejemplo ajusta el espacio de todo el texto del documento activo cuyo tamaño de fuente sea de 12 puntos o superior.

ActiveDocument.Content.Font.Kerning = 12

Este ejemplo determina el tamaño mínimo de fuente para el que Word ajustará automáticamente el espacio del texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    MsgBox Selection.Font.Kerning

Else

    MsgBox "Debe seleccionar texto"

End If


Método Shrink

Objeto Font: reduce el tamaño de la fuente al siguiente tamaño disponible. Si la selección o el intervalo contiene varios tamaños de fuente, cada uno de ellos se reduce al siguiente valor disponible.

Objeto Selection: comprime la selección a la siguiente unidad inferior de texto. La progresión es la siguiente: todo el documento, toda la sección, todo el párrafo, toda la frase, toda la palabra, el punto de inserción.

Sintaxis

expresión.Shrink

expresión   Requerida. Expresión que devuelve un objeto Font o Selection.


Ejemplo del método Shrink

Este ejemplo inserta en un nuevo documento una línea de letras Z cuyo tamaño va reduciéndose.

Set miIntervalo = Documents.Add.Content

miIntervalo.Font.Size = 45

For Count = 1 To 5

    miIntervalo.InsertAfter "Z"

    For Count2 = 1 to 3

        miIntervalo.Characters(Count).Font.Shrink

    Next Count2

Next Count

Este ejemplo reduce el tamaño de la fuente del texto seleccionado en un punto.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Shrink

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Size

Objeto Font: devuelve o establece el tamaño en puntos de la fuente. Single de Lectura/Escritura.

Objeto CheckBox: devuelve o establece el tamaño en puntos de la casilla de verificación especificada. Single de Lectura/Escritura.


Ejemplo de la propiedad Size

Este ejemplo inserta texto y, a continuación, establece el tamaño de la fuente de la séptima palabra del texto insertado en 20 puntos.

Selection.Collapse Direction:=wdCollapseEnd

With Selection.Range

    .Font.Reset

    .InsertBefore "Esta es una demostración de tamaño de fuente"

    .Words(7).Font.Size = 20

End With

Este ejemplo determina el tamaño de la fuente del texto seleccionado.

miSel = Selection.Font.Size

If miSel = wdUndefined Then

    MsgBox "Hay una combinación de tamaños de fuente en la selección"

Else

    MsgBox miSel & "puntos"

End If

Este ejemplo establece el tamaño de la casilla de verificación denominada "Casilla1" del documento activo en 12 puntos y, a continuación, establece la casilla de verificación según la selección realizada.

With ActiveDocument.FormFields("Casilla1").CheckBox

    .AutoSize = False

    .Size = 12

    .Value = True

End With


Propiedad SmallCaps

True: si el formato de la fuente es Versalitas. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.

Comentarios

Si se establece el valor de SmallCaps como True, se establece AllCaps como False y viceversa.


Ejemplo de la propiedad SmallCaps

Este ejemplo demuestra la diferencia entre versalitas y mayúsculas en un nuevo documento.

Set miIntervalo = Documents.Add.Content

With miIntervalo

    .InsertAfter "Esta es una demostración de versalitas"

    .Words(6).Font.SmallCaps = True

    .InsertParagraphAfter

    .InsertAfter " Esta es una demostración de mayúsculas"

    .Words(14).Font.AllCaps = True

End With

En este ejemplo se aplica el formato de versalitas a toda la selección si parte de la selección tiene dicho formato.

If Selection.Type = wdSelectionNormal Then

    miSel = Selection.Font.SmallCaps

    If miSel = wdUndefined Then Selection.Font.SmallCaps = True

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Spacing

Objeto Font: devuelve o establece el espacio entre caracteres en puntos. Single de Lectura/Escritura.

Objeto TextColumns: devuelve o establece en puntos el espacio entre las columnas del conjunto. Después de establecer esta propiedad, el valor de la propiedad EvenlySpaced es True. Single de Lectura/Escritura.

Nota:   para devolver o establecer el espacio de una sola columna de texto cuando el valor de EvenlySpaced es False, use la propiedad SpaceAfter del objeto TextColumn.


Ejemplo de la propiedad Spacing

Este ejemplo muestra dos espacios distintos entre caracteres al principio del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

With miIntervalo

    .InsertAfter "Demostración de ausencia de espacio entre caracteres"

    .InsertParagraphAfter

    .InsertAfter " Demostración de existencia de espacio entre caracteres (1,5 pt)"

    .InsertParagraphAfter

End With

ActiveDocument.Paragraphs(2).Range.Font.Spacing = 1.5

Este ejemplo establece el espacio entre caracteres del texto seleccionado en 2 puntos.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Spacing = 2

Else

    MsgBox "Debe seleccionar texto"

End If

Este ejemplo da formato al documento activo de forma que muestre el texto en dos columnas separadas por un espacio de 1,27 centímetros (36 puntos).

With ActiveDocument.PageSetup.TextColumns

    .SetCount NumColumns:=2

    .LineBetween = False

    .EvenlySpaced = True

    .Spacing = 36

End With


Propiedad StrikeThrough

True: si el formato de fuente es texto tachado. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse en True, False o wdToggle. Long de Lectura/Escritura.

Nota:   para establecer o devolver el formato de doble tachado, use la propiedad DoubleStrikeThrough.


Ejemplo de la propiedad StrikeThrough

En este ejemplo se aplica el formato de tachado a las tres primeras palabras del documento activo.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Words(1).Start, _

    End:=miDoc.Words(3).End)

miIntervalo.Font.StrikeThrough = True

Este ejemplo aplica el formato de tachado al texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.StrikeThrough = True

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Subscript

True: si el formato de la fuente es Subíndice. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.

Comentarios

Si se establece el valor de Subscript como True, se establece Superscript como False y viceversa.


Ejemplo de la propiedad Subscript

Este ejemplo inserta texto al principio del documento activo y aplica el formato de subíndice al noveno carácter del texto.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

miIntervalo.InsertAfter "Agua = H20"

miIntervalo.Characters(9).Font.Subscript = True

Este ejemplo busca subíndices en el texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    miSel = Selection.Font.Subscript

    If miSel = wdUndefined or miSel = True Then

        MsgBox "Hay subíndices en la selección"

    Else

        MsgBox "No hay subíndices en la selección"

    End If

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Superscript

True: si el formato de la fuente es Superíndice. Devuelve los valores True, False o wdUndefined, que es una combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.

Comentarios

Si se establece el valor de Superscript como True, se establece Subscript como False y viceversa.


Ejemplo de la propiedad Superscript

Este ejemplo inserta texto al principio del documento activo y aplica el formato de superíndice a un caracter de la cuarta palabra del texto.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

miIntervalo.InsertAfter "Superíndice en la 4a palabra"

ActiveDocument.Range(Start:=19, End:=20).Font.Superscript = True

Este ejemplo aplica el formato de superíndice al texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Superscript = True

Else

    MsgBox "Debe seleccionar texto"

End If


Propiedad Underline

Devuelve o establece el tipo de subrayado aplicado a la fuente o al intervalo. Puede ser una de las siguientes constantes WdUnderline: wdUnderlineNone, wdUnderlineDash, wdUnderlineDotDash, wdUnderlineDotDotDash, wdUnderlineThick, wdUnderlineDotted, wdUnderlineDouble, wdUnderlineSingle, wdUnderlineWords o wdUnderlineWavy. Long de Lectura/Escritura.


Ejemplo de la propiedad Underline

Este ejemplo aplica un doble subrayado a la cuarta palabra del documento activo.

ActiveDocument.Words(4).Underline = wdUnderlineDouble

Este ejemplo aplica un subrayado sencillo al texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Underline = wdUnderlineSingle

Else

    MsgBox "Debe seleccionar texto"

End If


Método SetAsTemplateDefault

Objeto Font: establece el formato de fuente especificado como predeterminado para el documento activo y para todos los nuevos documentos basados en la plantilla activa. El formato de fuente predeterminado se guarda en el estilo Normal.

Objeto PageSetup: establece la configuración de página especificada como predeterminada para el documento activo y para todos los nuevos documentos basados en la plantilla activa.

Sintaxis

expresión.SetAsTemplateDefault

expresión   Requerida. Expresión que devuelve un objeto Font o PageSetup.


Ejemplo del método SetAsTemplateDefault

En este ejemplo, se establece el formato de carácter de la selección como predeterminado.

Selection.Font.SetAsTemplateDefault

En este ejemplo, se cambia la configuración de los márgenes izquierdo y derecho del documento activo y, a continuación, se establece la configuración de página como predeterminada.

With ActiveDocument.PageSetup

    .LeftMargin = InchesToPoints(1)

    .RightMargin = InchesToPoints(1)

    .SetAsTemplateDefault

End With


Propiedad Shadow

Objeto Font: True si la fuente especificada tiene el formato de sombreado. Su valor puede ser True, False o wdUndefined. Long de Lectura/Escritura.

Objeto Borders: True si el borde especificado tiene el formato de sombreado. Boolean de Lectura/Escritura.

Objetos Shape y ShapeRange: devuelve un objeto ShadowFormat que representa el formato de sombreado de la forma especificada. Long de sólo lectura.


Ejemplo de la propiedad Shadow

En este ejemplo, se muestran dos estilos de borde diferentes en un documento nuevo.

Set miIntervalo = Documents.Add.Content

With miIntervalo

   .InsertAfter "Demostración de borde con sombra."

   .InsertParagraphAfter

   .InsertParagraphAfter

   .InsertAfter "Demostración de borde sin sombra."

End With

With ActiveDocument

    .Paragraphs(1).Borders.Shadow = True

    .Paragraphs(3).Borders.Enable = True

End With

En este ejemplo, se aplica un formato de sombreado y de negrita a la selección.

If Selection.Type = wdSelectionNormal Then

    With Selection.Font

        .Shadow = True

        .Bold = True

    End With

Else

    MsgBox "Debe seleccionar un texto."

End If

En este ejemplo, se agrega una flecha con formato de sombreado al documento activo.

Set miForma = ActiveDocument.Shapes.AddShape(Type:=msoShapeRightArrow, _

    Left:=90, Top:=79, Width:=64, Height:=43)

miForma.Shadow.Type = msoShadow5


Propiedad Emboss

True si la fuente especificada tiene el formato de relieve. Devuelve True, False o wdUndefined. Su valor puede establecerse en True, False o wdToggle. Long de Lectura/Escritura.

Comentarios

Si se establece el valor de Emboss en True, el de Engrave se establecerá en False y viceversa.


Ejemplo de la propiedad Emboss

En este ejemplo, se pone en relieve la segunda oración de un documento nuevo.

With Documents.Add.Content

    .InsertAfter "Esta es la primera oración. "

    .InsertAfter "Esta es la segunda oración. "

    .Sentences(2).Font.Emboss = True

End With

En este ejemplo, se pone en relieve el texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.Emboss = True

Else

    MsgBox "Debe seleccionar un texto."

End If


Propiedad Font

Devuelve o establece un objeto Font que representa el formato de carácter del objeto especificado. Para establecer esta propiedad, especifique una expresión que devuelva un objeto Font. Font de Lectura/Escritura.


Ejemplo de la propiedad Font

En este ejemplo, se quita el formato de negrita del estilo Título 1 en el documento activo.

ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

En este ejemplo, se cambia la fuente del segundo párrafo del documento activo entre Arial y Times New Roman.

Set miIntervalo = ActiveDocument.Paragraphs(2).Range

If miIntervalo.Font.Name = "Times New Roman" Then

    miIntervalo.Font.Name = "Arial"

Else

    miIntervalo.Font.Name = "Times New Roman"

End If

En este ejemplo, se muestra la fuente del texto seleccionado.

MsgBox Selection.Font.Name

En este ejemplo, se aplica el formato de carácter del texto seleccionado al primer párrafo del documento activo.

Set miFuente = Selection.Font.Duplicate

ActiveDocument.Paragraphs(1).Range.Font = miFuente

En este ejemplo, se busca el siguiente intervalo de texto que tenga formato de fuente Times New Roman.

With Selection.Find

    .ClearFormatting

    .Font.Name = "Times New Roman"

    .Execute FindText:="", ReplaceWith:="", Format:=True, _

        Forward:=True

End With


Propiedad ContinuationNotice

Devuelve un objeto Range que representa al aviso de continuación de notas al pie o al final. Es de sólo lectura.


Ejemplo de la propiedad ContinuationNotice

Este ejemplo reemplaza el aviso actual de continuación de nota al pie por el texto "Sigue...".

With ActiveDocument.Footnotes.ContinuationNotice

    .Delete

    .InsertBefore "Sigue..."

End With


Propiedad ContinuationSeparator

Devuelve un objeto Range que representa al separador de continuación de notas al pie o al final. Es de sólo lectura.


Ejemplo de la propiedad ContinuationSeparator

Este ejemplo reemplaza el separador actual de continuación de notas al final por una serie de caracteres de subrayado.

With ActiveDocument.Endnotes.ContinuationSeparator

    .Delete

    .InsertBefore "____"

End With


Método Convert

Objeto Footnotes o Endnotes: convierte las notas al final en notas al pie o viceversa.

Objeto ListTemplate: convierte una lista multinivel en una lista de nivel único o viceversa.

Sintaxis 1

expresión.Convert

Sintaxis 2

expresión.Convert(Level)

expresión   Requerida. Expresión que devuelve un objeto ListTemplate (Sintaxis 1) o un objeto Endnotes o Footnotes (Sintaxis 2).

Level   Long opcional. Nivel que va a utilizarse para dar formato a la nueva lista. Al convertir una lista multinivel en una lista de nivel único, este argumento puede ser un número comprendido entre 1 y 9. Al convertir una lista de nivel único en una lista multinivel, 1 es el único valor válido. Si se omite este argumento, se utiliza el valor 1.

Comentarios

No puede usar el método Convert en una plantilla de lista derivada del conjunto ListGalleries.


Ejemplo del método Convert

Este ejemplo convierte todas las notas al final del documento activo en notas al pie.

Set misNotasalfinal = ActiveDocument.Endnotes

If misNotasalfinal.Count > 0 Then misNotasalfinal.Convert

Este ejemplo convierte las notas al pie de la selección en notas al final.

If Selection.Footnotes.Count > 0 Then Selection.Footnotes.Convert

Este ejemplo convierte la primera plantilla de lista en el documento activo. Si se trata de una plantilla de lista multinivel, se convertirá en una plantilla de nivel único o viceversa.

ActiveDocument.ListTemplates(1).Convert


Propiedad Endnotes

Devuelve un conjunto de Endnotes que representa a todas las notas al final de un intervalo, selección o documento. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Endnotes

Este ejemplo sitúa las notas al final del documento activo al final del mismo y aplica el formato de números romanos en minúsculas a las marcas de referencia de dichas notas.

With ActiveDocument.Endnotes

    .Location = wdEndOfDocument

    .NumberStyle = wdNoteNumberStyleLowercaseRoman

End With


Propiedad Footnotes

Devuelve un conjunto de Footnotes que representa a todas las notas al pie de un intervalo, selección o documento. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Footnotes

Este ejemplo cambia las marcas de referencia de las notas al pie del documento activo a letras minúsculas, empezando por la letra "c".

With ActiveDocument.Footnotes

    .StartingNumber = 3

    .NumberStyle = wdNoteNumberStyleLowercaseLetter

End With

Este ejemplo inserta una nota al pie numerada automáticamente en el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.Footnotes.Add Range:=Selection.Range, _

    Text:="(Noticiero Tempranero, 1995)"


Propiedad Location

Objeto Footnotes: devuelve o establece la posición de todas las notas al pie. Puede ser una de las siguientes constantes WdFootnoteLocation: wdBottomOfPage o wdBeneathText. Long de Lectura/Escritura.

Objeto Endnotes: devuelve o establece la posición de todas las notas al final. Puede ser una de las siguientes constantes WdEndnoteLocation: wdEndOfSection o wdEndOfDocument. Long de Lectura/Escritura.


Ejemplo de la propiedad Location

Este ejemplo sitúa las notas al pie en la parte inferior de cada página.

ActiveDocument.Footnotes.Location = wdBottomOfPage

Este ejemplo sitúa todas las notas al final al final de las secciones.

ActiveDocument.Endnotes.Location = wdEndOfSection


Propiedad NumberingRule

Devuelve o establece el sistema de numeración de las notas al pie o al final después de los saltos de página o de sección. Puede ser una de las siguientes constantes WdNumberingRule: wdRestartContinuous, wdRestartSection o wdRestartPage (sólo Footnotes). Long de Lectura/Escritura.


Ejemplo de la propiedad NumberingRule

Este ejemplo reinicia la numeración de las notas al final después de cada salto de sección del documento activo.

ActiveDocument.Endnotes.NumberingRule = wdRestartSection

Si la numeración de las notas al pie de la sección uno se establece para que se reinicie después de cada salto de sección, este ejemplo establece la numeración de forma que se reinicie en cada página.

Set miIntervalo = ActiveDocument.Sections(1).Range

If miIntervalo.Footnotes.NumberingRule = wdRestartSection Then

    miIntervalo.Footnotes.NumberingRule = wdRestartPage

End If


Propiedad Reference

Devuelve un objeto Range que representa una marca de referencia de nota al pie, nota al final o de comentario. Es de sólo lectura.


Ejemplo de la propiedad Reference

Este ejemplo establece miIntervalo en la primera marca de referencia de nota al pie del documento activo y, a continuación, copia la marca de referencia.

Set miIntervalo = ActiveDocument.Footnotes(1).Reference

miIntervalo.Copy

Este ejemplo aplica un formato de color rojo a las marcas de referencia de comentario de la selección.

For Each comen In Selection.Comments

    comen.Reference.Font.ColorIndex = wdRed

Next comen


Método ResetContinuationNotice

Restablece el aviso predeterminado de continuación de notas al pie o al final. El aviso predeterminado aparece en blanco; es decir, no contiene texto.

Sintaxis

expresión.ResetContinuationNotice

expresión   Requerida. Expresión que devuelve un objeto Endnotes o Footnotes.


Ejemplo del método ResetContinuationNotice

Este ejemplo restablece el aviso de continuación de nota al final en el documento activo.

ActiveDocument.Endnotes.ResetContinuationNotice

Este ejemplo restablece el aviso de continuación de nota al pie y establece el número 2 como el número inicial para las marcas de referencia de las notas al pie del documento "Ventas.doc".

With Documents("Ventas.doc").Sections(1).Range.Footnotes

    .ResetContinuationNotice

    .NumberingRule = wdRestartContinuous

    .StartingNumber = 2

End With


Método ResetContinuationSeparator

Restablece el separador de continuación de notas al pie o al final con el valor predeterminado. El separador predeterminado es una línea horizontal larga que separa el texto del documento de la continuación de las notas de la página anterior.

Sintaxis

expresión.ResetContinuationSeparator

expresión   Requerida. Expresión que devuelve un objeto Endnotes o Footnotes.


Ejemplo del método ResetContinuationSeparator

Este método restablece el separador de continuación de notas al pie con el valor predeterminado de la línea del separador.

ActiveDocument.Footnotes.ResetContinuationSeparator

Este ejemplo restablece el separador de continuación de notas al final de la primera sección de cada documento abierto.

For Each doc In Documents

    doc.Sections(1).Range.Endnotes.ResetContinuationSeparator

Next doc


Método ResetSeparator

Restablece el separador de notas al pie o al final con el valor del separador predeterminado. El separador predeterminado es una línea horizontal corta que separa el texto del documento de las notas.

Sintaxis

expresión.ResetSeparator

expresión   Requerida. Expresión que devuelve un objeto Endnotes o Footnotes.


Ejemplo del método ResetSeparator

Este ejemplo restablece el separador de notas al pie con el valor predeterminado de la línea del separador.

ActiveDocument.Footnotes.ResetSeparator

Este ejemplo restablece el separador de notas al final para las notas del documento donde se encuentra la selección.

Selection.Endnotes.ResetSeparator


Propiedad Separator

Objeto Endnotes o Footnotes: devuelve un objeto Range que representa al separador de notas al final o al pie. Es de sólo lectura.

Objeto CaptionLabel: devuelve o establece el carácter situado entre el número de capítulo y el de secuencia. Puede ser una de las siguientes constantes WdSeparatorType: wdSeparatorColon, wdSeparatorEmDash, wdSeparatorEnDash, wdSeparatorHyphen o wdSeparatorPeriod. Long de Lectura/Escritura.


Ejemplo de la propiedad Separator

Este ejemplo inserta el título de una ilustración, con dos puntos (:) situados entre el número de capítulo y el de secuencia.

With CaptionLabels("Ilustración")

    .Separator = wdSeparatorColon

    .IncludeChapterNumber = True

End With

Selection.InsertCaption "Ilustración"

Este ejemplo cambia el separador de notas al pie por un borde sencillo con una sangría de 7,5 centímetros desde el margen derecho.

With ActiveDocument.Footnotes.Separator

    .Delete

    .Borders(wdBorderTop).LineStyle = wdLineStyleSingle

    .ParagraphFormat.RightIndent = CentimetersToPoints(7.5)

End With


Propiedad SuppressEndnotes

True: si las notas al final se imprimen al final de la siguiente sección que no elimine las notas al final. Las notas al final eliminadas se imprimen antes de las notas al final de dicha sección. Boolean de Lectura/Escritura.

Nota:   esta propiedad se activa sólo si el valor de la propiedad Location es wdEndOfSection.


Ejemplo de la propiedad SuppressEndnotes

Este ejemplo elimina las notas al final de la primera sección del documento activo.

If ActiveDocument.Endnotes.Location = wdEndOfSection Then

 ActiveDocument.Sections(1).PageSetup.SuppressEndnotes = True

End If


Método SwapWithEndnotes

Convierte todas las notas al pie de un documento en notas al final y viceversa.

Nota:   para convertir un intervalo de notas al pie en notas al final, use el método Convert.

Sintaxis

expresión.SwapWithEndnotes

expresión   Requerida. Expresión que devuelve un objeto Footnotes.


Ejemplo del método SwapWithEndnotes

Este ejemplo convierte las notas al pie del documento activo en notas al final y viceversa.

ActiveDocument.Footnotes.SwapWithEndnotes


Método SwapWithFootnotes

Convierte todas las notas al final de un documento en notas al pie y viceversa.

Nota:   para convertir un intervalo de notas al final en notas al pie, use el método Convert.

Sintaxis

expresión.SwapWithFootnotes

expresión   Requerida. Expresión que devuelve un objeto Endnotes.


Ejemplo del método SwapWithFootnotes

Este ejemplo convierte las notas al final del documento activo en notas al pie y viceversa.

ActiveDocument.Endnotes.SwapWithFootnotes


Propiedad AutoSize

True: si el tamaño de la casilla de verificación lo determina el tamaño de la fuente del texto que lo rodea. False: si el tamaño de la casilla de verificación lo determina la propiedad Size. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoSize

Este ejemplo establece el tamaño de la casilla de verificación denominada "Casilla1" como Auto y, a continuación, la selecciona.

With ActiveDocument.FormFields("Casilla1").CheckBox

    .AutoSize = True

    .Value = True

End With


Propiedad CheckBox

Devuelve un objeto CheckBox que representa el campo de formulario de casilla de verificación. Sólo lectura.

Comentarios

Si se aplica la propiedad CheckBox a un objeto FormField que no es un campo de formulario de casilla de verificación, la propiedad no fallará, pero el valor de la propiedad Valid del objeto devuelto será False.


Ejemplo de la propiedad CheckBox

Este ejemplo borra la casilla de verificación denominada "Azul".

ActiveDocument.FormFields("Azul").CheckBox.Value = False

Este ejemplo compara el valor actual con el valor predeterminado de la casilla de verificación denominada "Casilla1". Si los valores son iguales, se establece el valor de la variable igual como True.

Set miCampo = ActiveDocument.FormFields("Casilla1").CheckBox

If miCampo.Default = miCampo.Value Then igual = True


Propiedad Default

Objeto CheckBox: devuelve o establece el valor predeterminado de la casilla de verificación. True: si se comprueba el valor predeterminado. Boolean de Lectura/Escritura.

Objeto DropDown: devuelve o establece el elemento desplegable predeterminado. El primer elemento de un campo con lista desplegable es 1, el segundo es 2, etc. Long de Lectura/Escritura.

Objeto TextInput: devuelve o establece el texto que representa el contenido del cuadro de texto predeterminado. String de Lectura/Escritura.


Ejemplo de la propiedad Default

Este ejemplo establece el texto predeterminado del campo de formulario de texto denominado "Nombre".

ActiveDocument.FormFields("Nombre").TextInput.Default = "su nombre"

Si el primer campo de formulario del documento activo es una casilla de verificación, este ejemplo recupera el valor predeterminado.

If ActiveDocument.FormFields(1).Type = wdFieldFormCheckBox Then _

    defvalue = ActiveDocument.FormFields(1).CheckBox.Default

Este ejemplo establece el elemento predeterminado para el campo con lista desplegable denominado "Colores" del documento "Ventas.doc".

Documentos("Ventas.doc").FormFields("Colores").DropDown.Default = 2


Propiedad DropDown

Devuelve un objeto DropDown que representa un campo con lista desplegable. Sólo lectura.

Comentarios

Si se aplica la propiedad DropDown a un objeto FormField que no sea un campo con lista desplegable, la propiedad no fallará, pero el valor de la propiedad Valid del objeto devuelto será False.


Ejemplo de la propiedad DropDown

Este ejemplo muestra el texto del elemento seleccionado en el campo con lista desplegable denominado "Colores".

Set miLista = ActiveDocument.FormFields("Colores").DropDown

MsgBox miLista.ListEntries(miDesple.Value).Name

Este ejemplo agrega "Madrid" al campo con lista desplegable denominado "Ciudades" en el documento "Formulario.doc".

With Documents("Formulario.doc").FormFields("Ciudades").DropDown.ListEntries

    .Add Name:="Madrid"

End With


Propiedad Enabled

Si se activa un campo de formulario. Si es así, el contenido del formulario se puede modificar a medida que se cumplimenta el mismo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Enabled

Si el primer campo de formulario del documento activo es una casilla de verificación activada, este ejemplo selecciona la casilla.

Set miCFormulario = ActiveDocument.FormFields(1)

If miCFormulario.Enabled = True And miCFormulario.Type = wdFieldFormCheckBox Then

 miCFormulario.CheckBox.Value = True

End If


Propiedad EntryMacro

Devuelve o establece un nombre de macro de entrada para el campo de formulario especificado: CheckBox, DropDown o TextInput. La macro de entrada se ejecuta cuando se selecciona el campo de formulario. String de Lectura/Escritura.


Ejemplo de la propiedad EntryMacro

Este ejemplo asigna la macro denominada "Azul" al primer campo de formulario del documento "Formulario.doc".

Documents("Formulario.doc").FormFields(1).EntryMacro = "Azul"

Este ejemplo asigna la macro denominada "Ancho" al campo de formulario "Texto1" del documento activo.

ActiveDocument.FormFields("Texto1").EntryMacro = "Ancho"


Propiedad ExitMacro

Devuelve o establece un nombre de macro de salida para el campo de formulario especificado: CheckBox, DropDown o TextInput. La macro de salida se ejecuta cuando se selecciona el campo de formulario. String de Lectura/Escritura.


Ejemplo de la propiedad ExitMacro

Este ejemplo asigna la macro denominada "NuevoFormato" al primer campo de formulario de la selección.

If Selection.FormFields.Count > 0 Then _

    Selection.FormFields(1).ExitMacro = "NuevoFormato"

Este ejemplo asigna la macro denominada "Azul" al último campo de formulario de "Formulario.doc".

iMax = Documents("Formulario.doc").FormFields.Count

Documents("Formulario.doc").FormFields(iMax).ExitMacro = "Azul"


Propiedad FormFields

Devuelve un conjunto de FormFields que representa a todos los campos de formulario del documento, intervalo o selección. Sólo lectura.

Para obtener información acerca de cómo obtener un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad FormFields

Este ejemplo establece el contenido del campo de formulario denominado "Texto1" como "Nombre".

ActiveDocument.FormFields("Texto1").Result = "Nombre"

Este ejemplo recupera el tipo del primer campo de formulario de la sección dos.

miTipo = ActiveDocument.Sections(2).Range.FormFields(1).Type

Select Case miTipo

    Case wdFieldFormTextInput

        thetype = "CuadroTexto"

    Case wdFieldFormDropDown

        thetype = "Desplegable"

    Case wdFieldFormCheckBox

        thetype = "CasillaVerificación"

End Select

Este ejemplo muestra el nombre del primer campo de formulario de la selección.

If Selection.FormFields.Count > 0 Then

    MsgBox Selection.FormFields(1).Name

End If


Propiedad HelpText

Devuelve o establece el texto que se muestra en un cuadro de mensaje cuando se selecciona el campo de formulario y el usuario presiona la tecla F1 (Windows), COMANDO+/ o AYUDA (Macintosh). Si se establece el valor de la propiedad OwnHelp como True, HelpText especifica el valor de la cadena de texto, pero si se establece como False, especifica el nombre de un elemento de Autotexto que contiene el texto de la Ayuda para el campo de formulario. String de Lectura/Escritura.


Ejemplo de la propiedad HelpText

Este ejemplo establece el texto de la Ayuda para el campo de formulario denominado "Nombre".

With ActiveDocument.FormFields("Nombre")

    .OwnHelp = True

    .HelpText = "Escriba su nombre completo"

End With


Propiedad ListEntries

Devuelve un conjunto de ListEntries que representa a todos los elementos de un objeto DropDown. Sólo lectura.

Para obtener información acerca de cómo obtener un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad ListEntries

Este ejemplo recupera el texto del elemento activo del campo con lista desplegable denominado "Desplegable1".

Set miCampo = ActiveDocument.FormFields("Desplegable1").DropDown

num = miCampo.Value

miNombre = miCampo.ListEntries(num).Name

Este ejemplo recupera el número total de elementos del campo con lista desplegable activo; los formularios del documento deben estar protegidos. Si hay varios elementos, este ejemplo establece el segundo elemento como el elemento activo.

Set miCampo = Selection.FormFields(1)

If miCampo.Type = wdFieldFormDropDown Then

    num = miCampo.DropDown.ListEntries.Count

    If num >= 2 Then miCampo.DropDown.Value = 2

End If


Propiedad OwnHelp

Especifica el origen del texto que aparece en un cuadro de mensaje cuando se selecciona un campo de formulario y el usuario presiona la tecla F1 (Windows), COMANDO+/ o AYUDA (Macintosh). Si el valor es True, se muestra el texto especificado por la propiedad HelpText ; si es False, se muestra el texto del elemento de Autotexto especificado por la propiedad HelpText. Boolean de Lectura/Escritura.


Ejemplo de la propiedad OwnHelp

Este ejemplo establece el texto de la Ayuda para el primer campo de formulario de la selección actual con el contenido del elemento de Autotexto denominado "Muestra".

With Selection.Sections(1).Range.FormFields(1)

    .OwnHelp = False

    .HelpText = "Muestra"

End With


Propiedad OwnStatus

Especifica el origen del texto que se muestra en la barra de estado cuando se selecciona un campo de formulario. Si el valor es True, el texto especificado por la propiedad StatusText se muestra en pantalla; si es False, se muestra el elemento de Autotexto especificado por la propiedad StatusText. Boolean de Lectura/Escritura.


Ejemplo de la propiedad OwnStatus

Este ejemplo establece el texto de la Ayuda de la barra de estado correspondiente al campo de formulario denominado "Cuenta" con el contenido del elemento de Autotexto denominado "Cta.".

With ActiveDocument.FormFields("Cuenta")

    .OwnStatus = False

    .StatusText = "Cta."

End With


Propiedad StatusText

Devuelve o establece el texto que se muestra en la barra de estado cuando se selecciona un campo de formulario. Si la propiedad OwnStatus se establece como True, StatusText especifica el texto de la barra de estado; si se establece como False, especifica el nombre de un elemento de Autotexto que contiene el texto de la barra de estado del campo de formulario. String de Lectura/Escritura.


Ejemplo de la propiedad StatusText

Este ejemplo establece el texto de la Ayuda de la barra de estado para el campo de formulario denominado "Edad".

With ActiveDocument.FormFields("Edad")

    .OwnStatus = True

    .StatusText = "Escriba su edad"

End With


Propiedad TextInput

Devuelve un objeto TextInput que representa un campo de formulario de texto. Sólo lectura.

Comentarios

Si se aplica la propiedad TextInput a un objeto FormField que no es un campo con lista desplegable, la propiedad no fallará, pero el valor de la propiedad Valid del objeto devuelto será False.

Utilice la propiedad Result con el objeto FormField para devolver o establecer el contenido de un objeto TextInput.

ActiveDocument.FormFields("Texto1").Result = "Jaime Helguero"


Ejemplo de la propiedad TextInput

Este ejemplo protege los formularios del documento activo y elimina el contenido del campo de formulario denominado "Texto1".

ActiveDocument.Protect Type:=wdAllowOnlyFormFields

ActiveDocument.FormFields("Texto1").TextInput.Clear

Si el primer campo de formulario del documento activo es un campo de formulario de texto que acepta texto normal, este ejemplo establece el contenido de dicho campo.

Set miCampo = ActiveDocument.FormFields(1)

If miCampo.Type = wdFieldFormTextInput And _

   miCampo.TextInput.Type = wdRegularText Then

   miCampo.Result = "Hola"

End If


Propiedad CalculateOnExit

True si las referencias al campo de formulario especificado se actualizan automáticamente siempre que se salga del campo. Boolean de Lectura/Escritura.

Comentarios

Puede utilizarse un campo REF para hacer referencia al contenido de un campo de formulario. Por ejemplo, {REF SubTotal} hace referencia al campo de formulario marcado por el marcador SubTotal.


Ejemplo de la propiedad CalculateOnExit

En este ejemplo, se evita que las referencias a campos de formulario en Formulario.doc se actualicen automáticamente al salir del campo.

For Each unCampoF In Documentos("Formulario.doc").FormFields

    unCampoF.CalculateOnExit = False

Next unCampoF

En este ejemplo, se agregan un campo con texto y un campo REF a un documento nuevo. El campo REF se actualiza automáticamente siempre que se escriba texto y se salga del campo Texto1.

With Documents.Add

    .FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput

    .Fields.Add Range:=Selection.Range, Type:=wdFieldRef, Text:="Texto1"

    .FormFields("Texto1").CalculateOnExit = True

    .Protect Type:=wdAllowOnlyFormFields

End With


Método EditType

Establece las opciones del campo con texto especificado.

Sintaxis

expresión.EditType(Type, Default, Format, Enabled)

expresión   Requerida. Expresión que devuelve un objeto TextInput.

Type   Long requerida. Tipo de cuadro de texto. Puede ser una de las siguientes constantes WdTextFormFieldType: wdCalculationText, wdCurrentDateText, wdCurrentTimeText, wdDateText, wdNumberText o wdRegularText.

Default   Variant opcional. Texto predeterminado que aparece en el cuadro de texto.

Format   Variant opcional. Cadena de formato utilizada para dar formato al texto, número o fecha; por ejemplo, "0,00", "Tipo Título" o "M/d/aa". Para obtener más ejemplos de formatos, consulte la lista de formatos del tipo de campo con texto especificado en el cuadro de diálogo Campo de formulario con texto.

Enabled   Variant opcional. True para activar el campo de formulario para la inclusión de texto.


Ejemplo del método EditType

En este ejemplo, se agrega un campo con texto denominado "Hoy" al principio del documento activo. El método EditType se utilizar para establecer el tipo de valor wdCurrentDateText y el formato de fecha en "M/d/aa."

With ActiveDocument.FormFields.Add(Range:=ActiveDocument.Range(0, 0), _

    Type:=wdFieldFormTextInput)

    .Name = "Hoy"

    .TextInput.EditType Type:=wdCurrentDateText, Format:="M/d/aa", Enabled:=False

End With


Propiedad Shaded

True si se aplica sombreado a los campos de formulario. Boolean de Lectura/Escritura.

Comentarios

El sombreado facilita la búsqueda de campos de formulario en un documento y no afecta a la copia impresa.


Ejemplo de la propiedad Shaded

En este ejemplo, se quita la sombra de los campos de formulario del documento Formulario de empleo.doc.

Documents("Formulario de empleo.doc").FormFields.Shaded = False

En este ejemplo, se agrega sombreado a los campos de formulario del documento activo y se protege el documento para formularios.

With ActiveDocument

    .FormFields.Shaded = True

    .Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End With


Propiedad ProtectedForForms

True si la sección especificada está protegida para formularios. Cuando una sección está protegida para formularios, puede seleccionar y modificar sólo el texto de los campos de formulario. Boolean de Lectura/Escritura.

Nota   Para proteger el documento completo, utilice el método Protect del objeto Document.


Ejemplo de la propiedad ProtectedForForms

En este ejemplo, se protege la segunda sección del documento activo para formularios.

If ActiveDocument.Sections.Count >= 2 Then _

    ActiveDocument.Sections(2).ProtectedForForms = True

En este ejemplo, se desprotege la primera sección de la selección.

Selection.Sections(1).ProtectedForForms = False

En este ejemplo, se cambia a la protección de la primera sección de la selección.

Selection.Sections(1).ProtectedForForms = Not _

    Selection.Sections(1).ProtectedForForms


Propiedad Valid

Objeto CheckBox, DropDown o TextInput: True si el objeto campo de formulario es un campo con casilla de verificación válido, un campo con lista desplegable o un campo con texto. False si no es válido. Boolean de sólo lectura.

Objeto CustomLabel: True si las diferentes propiedades de la etiqueta personalizada especificada; por ejemplo, Height, Width y NumberDown, funcionan juntas para crear una etiqueta de correo válida.

Comentarios

Utilice la propiedad Type del objeto FormField para determinar el tipo de campo de formulario antes de aplicar la propiedad CheckBox, DropDown o TextInput, devuelve wdFieldFormCheckBox, wdFieldFormDropDown o wdFieldFormTextInput. Esta precaución asegura que el objeto FormField sea del tipo esperado. Si el primer campo de formulario del documento activo es una casilla de verificación, en el siguiente ejemplo se activa.

If ActiveDocument.FormFields(1).Type = wdFieldFormCheckBox Then

    ActiveDocument.FormFields(1).CheckBox.Value = True

End If


Ejemplo de la propiedad Valid

En este ejemplo, se determina si el primer campo de formulario del documento activo es un campo con texto. Si el valor de la propiedad Valid es True, el contenido del campo con texto cambia a "Hola."

If ActiveDocument.FormFields(1).TextInput.Valid = True Then

    ActiveDocument.FormFields(1).Result = "Hola"

End If

En este ejemplo, se agrega un campo con texto en el punto de inserción. Puesto que miCampoFormulario no es un campo con casilla de verificación válido, el cuadro de mensaje muestra "False".

Selection.Collapse Direction:=wdCollapseStart

Set miCampoFormulario = ActiveDocument.FormFields.Add(Range:= _

    Selection.Range, Type:=wdFieldFormTextInput)

MsgBox miCampoFormulario.CheckBox.Valid

Si la configuración de la etiqueta personalizada "Mis Etiquetas" es válida, en este ejemplo se crea un nuevo documento de etiquetas utilizando la configuración de Mis Etiquetas.

addr = "Juan Camilo Pardo" & vbCr & "C/ Córcega, 452, 2º, 1ª" & vbCr _

    & "08025 Barcelona"

If Application.MailingLabel.CustomLabels("Mis Etiquetas").Valid = True Then

    Application.MailingLabel.CreateNewDocument _

        Name:="Mis Etiquetas", Address:=addr

End If


Propiedad Frame

Devuelve un objeto Frame que representa el formato del marco para el estilo especificado u operación de reemplazar. Es de sólo lectura.


Ejemplo de la propiedad Frame

En este ejemplo se crea un estilo con formato del marco y, a continuación, se aplica el estilo al primer párrafo de la selección.

Set miEstilo = ActiveDocument.Styles.Add(Name:="marco", Type:=wdStyleTypeParagraph)

With miEstilo.Frame

    .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin

    .HeightRule = wdFrameAuto

    .WidthRule = wdFrameAuto

    .TextWrap = True

End With

Selection.Paragraphs(1).Range.Style = "marco"

En este ejemplo se busca el primer marco con formato de ajuste automático. Si tal formato se encuentra, se muestra un mensaje en la barra de estado.

With ActiveDocument.Content.Find

    .Text = ""

    .Frame.TextWrap = True

    .Execute Forward:=True, Wrap:=wdFindContinue, Format:=True

    If .Found = True Then StatusBar = "Se encontró el marco"

    .Parent.Select

End With


Propiedad Frames

Devuelve un conjunto Frames que representa todos los marcos de un documento, intervalo o selección. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Frames

En este ejemplo se consigue que el texto se ajuste alrededor de los marcos de la primera sección del documento activo.

For Each unMarco In ActiveDocument.Sections(1).Range.Frames

    unMarco.TextWrap = True

Next unMarco

En este ejemplo se agrega un marco alrededor de la selección y se devuelve un objeto tipo marco a la variable miMarco.

Set miMarco = ActiveDocument.Frames.Add(Range:=Selection.Range)


Propiedad HorizontalDistanceFromText

Devuelve o establece la distancia horizontal, en puntos, entre un marco y el texto que lo rodea. Single de Lectura/Escritura.


Ejemplo de la propiedad HorizontalDistanceFromText

En este ejemplo se agrega un marco alrededor de la selección y se establece que la distancia horizontal entre el marco y el texto sean 12 puntos.

Set miMarco = ActiveDocument.Frames.Add(Range:=Selection.Range)

miMarco.HorizontalDistanceFromText = 12

En este ejemplo se agrega un marco alrededor del primer párrafo y se definen varias propiedades del marco.

Set unMarco = ActiveDocument.Frames.Add(Range:=ActiveDocument.Paragraphs(1).Range)

With unMarco

    .HorizontalDistanceFromText = InchesToPoints(0.25)

    .VerticalDistanceFromText = InchesToPoints(0.25)

    .HeightRule = wdFrameAuto

    .WidthRule = wdFrameAuto

    .Borders.Enable = False

End With


Propiedad HorizontalPosition

Devuelve o establece la distancia horizontal entre el borde del marco y el artículo especificado por la propiedad RelativeHorizontalPosition. Puede ser un número que indica una medida en puntos o puede ser una de las siguientes constantes WdFramePosition: wdFrameLeft, wdFrameRight, wdFrameCenter, wdFrameInside o wdFrameOutside. Single de Lectura/Escritura.


Ejemplo de la propiedad HorizontalPosition

En este ejemplo se alinea, horizontalmente con el margen derecho, el primer marco del documento activo.

If ActiveDocument.Frames.Count >= 1 Then

    With ActiveDocument.Frames(1)

        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin

        .HorizontalPosition = wdFrameRight

    End With

End If


Propiedad RelativeHorizontalPosition

Especifica con relación a qué es horizontal la posición de un marco o una forma. Puede ser una de las siguientes constantes WdRelativeHorizontalPosition: wdRelativeHorizontalPositionColumn, wdRelativeHorizontalPositionMargin o wdRelativeHorizontalPositionPage. Long de Lectura/Escritura.


Ejemplo de la propiedad RelativeHorizontalPosition

En este ejemplo se agrega un marco alrededor de la selección y se alinea el marco horizontalmente con el margen derecho.

Set miMarco = ActiveDocument.Frames.Add(Range:=Selection.Range)

With miMarco

    .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin

    .HorizontalPosition = wdFrameRight

End With

En este ejemplo se coloca en una nueva posición el objeto tipo forma seleccionado.

With Selection.ShapeRange

    .Left = InchesToPoints(0.6)

    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage

    .Top = InchesToPoints(1)

    .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph

End With


Propiedad RelativeVerticalPosition

Especifica con relación a qué es vertical la posición de un marco o una forma. Puede ser una de las siguientes constantes WdRelativeVerticalPosition: wdRelativeVerticalPositionMargin, wdRelativeVerticalPositionPage o wdRelativeVerticalPositionParagraph. Long de Lectura/Escritura.


Ejemplo de la propiedad RelativeVerticalPosition

En este ejemplo se agrega un marco alrededor de la selección y se alinea el marco verticalmente con la parte superior de la página.

Set miMarco = ActiveDocument.Frames.Add(Range:=Selection.Range)

With miMarco

    .RelativeVerticalPosition = wdRelativeVerticalPositionPage

    .VerticalPosition = wdFrameTop

End With

En este ejemplo se coloca en una nueva posición el primer objeto tipo forma del documento activo.

With ActiveDocument.Shapes(1)

    .Left = InchesToPoints(0.6)

    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage

    .Top = InchesToPoints(1)

    .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph

End With


Propiedad TextWrap

True si el texto del documento se ajusta alrededor del marco especificado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad TextWrap

En este ejemplo se consigue que el texto no se ajuste alrededor del primer marco del documento activo.

If ActiveDocument.Frames.Count >= 1 Then

    ActiveDocument.Frames(1).TextWrap = False

End If

En este ejemplo se consigue que el texto se ajuste alrededor de todos los marcos del documento activo.

For Each unMarco In ActiveDocument.Frames

    unMarco.TextWrap = True

Next unMarco


Propiedad VerticalDistanceFromText

Devuelve o establece la distancia vertical, en puntos, entre un marco y el texto que lo rodea. Single de Lectura/Escritura.


Ejemplo de la propiedad VerticalDistanceFromText

En este ejemplo se establece la distancia vertical entre el marco seleccionado y el texto que lo rodea en 12 puntos.

If Selection.Frames.Count = 1 Then

    Selection.Frames(1).VerticalDistanceFromText = 12

End If

En este ejemplo se agrega un marco alrededor de la selección y se definen varias propiedades del marco.

Set unMarco = ActiveDocument.Frames.Add(Range:=Selection.Range)

With unMarco

    .HorizontalDistanceFromText = InchesToPoints(0.13)

    .VerticalDistanceFromText = InchesToPoints(0.13)

    .HeightRule = wdFrameAuto

    .WidthRule = wdFrameAuto

End With


Propiedad VerticalPosition

Devuelve o establece la distancia vertical entre el borde del marco y el artículo especificado por la propiedad RelativeVerticalPosition. Puede ser un número que indica una medida en puntos o puede ser una de las siguientes constantes WdFramePosition: wdFrameTop, wdFrameBottom o wdFrameCenter. Single de Lectura/Escritura.


Ejemplo de la propiedad VerticalPosition

En este ejemplo se alinea, verticalmente con la parte superior de la página, el primer marco del documento activo.

Set miMarco = ActiveDocument.Frames(1)

With miMarco

    .RelativeVerticalPosition = wdRelativeVerticalPositionPage

    .VerticalPosition = wdFrameTop

End With

En este ejemplo se agrega un marco alrededor de la primera forma del documento activo y se ubica el marco a 2,54 cm del margen superior.

If ActiveDocument.Shapes.Count >= 1 Then

    ActiveDocument.Shapes(1).Select

    Set unMarco = ActiveDocument.Frames.Add(Range:=Selection.Range)

    With unMarco

        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin

        .VerticalPosition = InchesToPoints(1)

    End With

End If


Propiedad WidthRule

Devuelve o establece la norma utilizada para determinar el ancho de un marco. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdFrameSizeRule:

Constante	Descripción
wdFrameAuto	Establece el ancho de acuerdo con el ancho del artículo en el marco.
wdFrameExact	Establece el ancho a un valor exacto especificado por la propiedad Width.
wdFrameAtLeast	Establece el ancho a un valor igual o mayor al especificado por la propiedad Width.


Ejemplo de la propiedad WidthRule

En este ejemplo se establece el ancho del último marco del documento activo exactamente en 72 puntos (2,54 cm).

If ActiveDocument.Frames.Count >= 1 Then

    With ActiveDocument.Frames(ActiveDocument.Frames.Count)

        .WidthRule = wdFrameExact

        .Width = 72

    End With

End If


Propiedad DistanceBottom

Devuelve o establece la distancia, en puntos, entre el texto del documento y el borde inferior del área libre de texto que rodea a la forma especificada. El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto. Single de Lectura/Escritura.


Ejemplo de la propiedad DistanceBottom

En este ejemplo se agrega una elipse al documento activo y se especifica que el texto del documento se ajuste a los lados izquierdo y derecho del cuadrado que circunscribe la elipse. Asimismo, se establece un margen de 0,4 cm entre el texto del documento y los lados superior, inferior, izquierdo y derecho del cuadrado.

Set miElipse = ActiveDocument.Shapes.AddShape(msoShapeOval, 36, 36, 100, 35)

With miElipse.WrapFormat

    .Type = wdWrapSquare

    .Side = wdWrapBoth

    .DistanceTop = InchesToPoints(0.1)

    .DistanceBottom = InchesToPoints(0.1)

    .DistanceLeft = InchesToPoints(0.1)

    .DistanceRight = InchesToPoints(0.1)

End With


Propiedad DistanceLeft

Devuelve o establece la distancia, en puntos, entre el texto del documento y el borde izquierdo del área libre de texto que rodea a la forma especificada. El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto. Single de Lectura/Escritura.


Ejemplo de la propiedad DistanceLeft

En este ejemplo se agrega una elipse al documento activo y se especifica que se ajuste al máximo el texto del documento alrededor de la elipse. Asimismo, se establece un margen de 0,4 cm entre el texto del documento y los lados superior, inferior, izquierdo y derecho de la elipse.

Set miElipse = ActiveDocument.Shapes.AddShape(msoShapeOval, 0, 0, 200, 50)

With miElipse.WrapFormat

    .Type = wdWrapTight

    .Side = wdWrapBoth

    .DistanceTop = InchesToPoints(0.1)

    .DistanceBottom = InchesToPoints(0.1)

    .DistanceLeft = InchesToPoints(0.1)

    .DistanceRight = InchesToPoints(0.1)

End With


Propiedad DistanceRight

Devuelve o establece la distancia, en puntos, entre el texto del documento y el borde derecho del área libre de texto que rodea a la forma especificada. El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto. Single de Lectura/Escritura.


Ejemplo de la propiedad DistanceRight

En este ejemplo se agrega una elipse al documento activo y se especifica que el texto del documento se ajuste a los lados izquierdo y derecho del cuadrado que circunscribe la elipse. Asimismo, se establece un margen de 0,4 cm entre el texto del documento y los lados superior, inferior, izquierdo y derecho del cuadrado.

Set miElipse = ActiveDocument.Shapes.AddShape(msoShapeOval, 0, 0, 200, 50)

With miElipse.WrapFormat

    .Type = wdWrapSquare

    .Side = wdWrapBoth

    .DistanceTop = InchesToPoints(0.1)

    .DistanceBottom = InchesToPoints(0.1)

    .DistanceLeft = InchesToPoints(0.1)

    .DistanceRight = InchesToPoints(0.1)

End With


Propiedad DistanceTop

Devuelve o establece la distancia, en puntos, entre el texto del documento y el borde superior del área libre de texto que rodea a la forma especificada. El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto. Single de Lectura/Escritura.


Ejemplo de la propiedad DistanceTop

En este ejemplo se agrega una elipse al documento activo y se especifica que el texto del documento se ajuste a los lados izquierdo y derecho del cuadrado que circunscribe la elipse. Asimismo, se establece un margen de 0,4 cm entre el texto del documento y los lados superior, inferior, izquierdo y derecho del cuadrado.

Set miElipse = ActiveDocument.Shapes.AddShape(msoShapeOval, 0, 0, 200, 50)

With miElipse.WrapFormat

    .Type = wdWrapSquare

    .Side = wdWrapBoth

    .DistanceTop = InchesToPoints(0.1)

    .DistanceBottom = InchesToPoints(0.1)

    .DistanceLeft = InchesToPoints(0.1)

    .DistanceRight = InchesToPoints(0.1)

End With


Propiedad Side

Devuelve o establece un valor que indica si el texto del documento debe ajustarse a ambos lados de la forma especificada, sólo a la izquierda y a la derecha de la misma o en el lado de la forma más alejado del margen de la página. Si el texto se ajusta sólo a un lado de la forma, habrá un área libre de texto entre el otro lado de la forma y el margen de la página. Puede ser una de las siguientes constantes WdWrapSideType: wdWrapBoth, wdWrapLargest, wdWrapLeft o wdWrapRight. Long de Lectura/Escritura.


Ejemplo de la propiedad Side

En este ejemplo se agrega una elipse al documento activo y se especifica que el texto del documento se ajuste a los lados izquierdo y derecho del cuadrado que circunscribe la elipse. Asimismo, se establece un margen de 0,4 cm entre el texto del documento y los lados superior, inferior, izquierdo y derecho del cuadrado.

Set miElipse = ActiveDocument.Shapes.AddShape(msoShapeOval, 0, 0, 200, 50)

With miElipse.WrapFormat

    .Type = wdWrapSquare

    .Side = wdWrapBoth

    .DistanceTop = InchesToPoints(0.1)

    .DistanceBottom = InchesToPoints(0.1)

    .DistanceLeft = InchesToPoints(0.1)

    .DistanceRight = InchesToPoints(0.1)

End With


Propiedad ActiveGrammarDictionary

Devuelve un objeto Dictionary que representa el diccionario de gramática activo del idioma especificado. Es de sólo lectura.

Comentarios

Si no hay diccionario de gramática instalado en el idioma especificado, esta propiedad devuelve Nothing.


Ejemplo de la propiedad ActiveGrammarDictionary

En este ejemplo, se devuelve la ruta de acceso completa y el nombre del archivo del diccionario de gramática activo.

miIdioma = Selection.LanguageID

Set miGram = Languages(miIdioma).ActiveGrammarDictionary

MsgBox miGram.Path & Application.PathSeparator & miGram.Name


Propiedad ActiveHyphenationDictionary

Devuelve un objeto Dictionary que representa el diccionario de división de palabras activo del idioma especificado. Es de sólo lectura.

Comentarios

Si no hay diccionario de división de palabras instalado del idioma especificado, la propiedad devuelve Nothing.


Ejemplo de la propiedad ActiveHyphenationDictionary

En este ejemplo se muestra la ruta de acceso completa y el nombre del archivo del diccionario de división de palabras activo.

miIdioma = Selection.LanguageID

Set miDivPal = Languages(miIdioma).ActiveHyphenationDictionary

MsgBox miDivPal.Path & Application.PathSeparator & miDivPal.Name


Método CheckGrammar

Sintaxis 1: Inicia una revisión ortográfica y gramatical del documento o intervalo especificado. Si el documento o intervalo contiene errores, el método muestra el cuadro de diálogo Ortografía y gramática (menú Herramientas) con la opción Revisar gramática seleccionada. Cuando se aplica a un documento, el método comprueba todos los artículos disponibles, tales como encabezados, pies de página y cuadros de texto.

Sintaxis 2: Comprueba si hay errores gramaticales en una cadena. Devuelve True si la cadena no contiene errores.

Sintaxis 1

expresión.CheckGrammar()

Sintaxis 2

expresión.CheckGrammar(String)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Document o Range.

Sintaxis 2: Requerida. Expresión que devuelve un objeto Application.

String   String requerida. La cadena que se desea revisar por si hay errores gramaticales.


Ejemplo del método CheckGrammar

En este ejemplo se inicia una revisión ortográfica y gramatical de todos los artículos del documento activo.

ActiveDocument.CheckGrammar

En este ejemplo se inicia una revisión ortográfica y gramatical de la sección dos de MiDocumento.doc.

Set Range2 = Documents("MiDocumento.doc").Sections(2).Range

Range2.CheckGrammar

En este ejemplo se inicia una revisión ortográfica y gramatical de la selección.

Selection.Range.CheckGrammar

En este ejemplo se muestra el resultado de la revisión gramatical de la selección.

pass = Application.CheckGrammar(String:=Selection.Text)

MsgBox "La selección está gramaticalmente bien: " & pass


Propiedad CheckGrammarAsYouType

True si Word revisa la gramática y marca los errores automáticamente mientras se escribe. Boolean de Lectura/Escritura.

Comentarios

Esta propiedad marca los errores gramaticales, pero para verlos en pantalla se debe definir ShowGrammaticalErrors como True.


Ejemplo de la propiedad CheckGrammarAsYouType

En este ejemplo se define Word de modo que compruebe si hay errores gramaticales a medida que se escribe y que muestre cualquier error que se encuentre en el documento activo.

Options.CheckGrammarAsYouType = True

ActiveDocument.ShowGrammaticalErrors = True

En este ejemplo se devuelve el estado de la opción Revisar gramática mientras escribe de la ficha Ortografía y gramática del cuadro de diálogo Opciones (menú Herramientas).

temp = Options.CheckGrammarAsYouType


Propiedad GrammarChecked

True si se ejecutó una revisión gramatical del intervalo o documento especificado. False si una parte del intervalo o documento especificado no se revisó gramaticalmente. Boolean de Lectura/Escritura.

Comentarios

Para revisar de nuevo la gramática de un documento o intervalo, defina la propiedad GrammarChecked como False.


Ejemplo de la propiedad GrammarChecked

En este ejemplo se determina si se revisó la gramática del documento activo. Si se revisó, se muestra el número de palabras. Si no se revisó la gramática, se inicia una revisión ortográfica y gramatical.

Set miEstad = ActiveDocument.ReadabilityStatistics

gramOk = ActiveDocument.GrammarChecked

If gramOk = True Then

    Msgbox miEstad(1).Name & " - " & miEstad(1).Value

Else

    ActiveDocument.CheckGrammar

End If

En este ejemplo se define la propiedad GrammarChecked como False para el documento activo y, a continuación, se ejecuta de nuevo la revisión gramatical.

ActiveDocument.GrammarChecked = False

ActiveDocument.CheckGrammar


Propiedad ShowGrammaticalErrors

True si los errores gramaticales se marcan con una línea verde ondulada en el documento especificado. Boolean de Lectura/Escritura.

Nota   Para ver los errores gramaticales del documento, se debe definir la propiedad CheckGrammarAsYouType comoTrue.


Ejemplo de la propiedad ShowGrammaticalErrors

En este ejemplo se define Word de modo que compruebe si hay errores gramaticales mientras escribe y que muestre cualquier error que se encuentre en el documento activo.

Options.CheckGrammarAsYouType = True

ActiveDocument.ShowGrammaticalErrors = True

En este ejemplo se devuelve el valor opuesto de la opción Ocultar errores gramaticales de la ficha Ortografía y gramática del cuadro de diálogo Opciones (menú Herramientas).

temp = ActiveDocument.ShowGrammaticalErrors


Propiedad DefaultWritingStyle

Devuelve o define el estilo de escritura predeterminado utilizado por el corrector gramatical del idioma especificado. El nombre del estilo de escritura es el nombre localizado del idioma especificado. String de Lectura/Escritura.

Comentarios

Esta propiedad controla la configuración global del estilo de escritura. Al configurar esta propiedad, se debe utilizar el nombre exacto que se encuentre en el cuadro Estilo de escritura de la ficha Ortografía y gramática del cuadro de diálogo Opciones (menú Herramientas).

La propiedad ActiveWritingStyle establece el estilo de escritura para cada idioma del documento. El valor ActiveWritingStyle sobrescribe el valor DefaultWritingStyle.


Ejemplo de la propiedad DefaultWritingStyle

En este ejemplo se devuelve el estilo de escritura predeterminado en un cuadro de mensaje.

miIdioma= Selection.LanguageID

Msgbox Languages(miIdioma).DefaultWritingStyle

En este ejemplo se establece el estilo de escritura de español a Informal y, a continuación, se revisa la ortografía y la gramática del documento activo.

Languages(wdSpanishModernSort).DefaultWritingStyle = "Informal"

ActiveDocument.CheckGrammar


Propiedad CustomDictionaries

Devuelve un objeto Dictionaries que representa el conjunto de diccionarios personalizados activos. Los diccionarios personalizados activos tienen una marca de verificación en el cuadro de diálogo Diccionarios personalizados. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad CustomDictionaries

En este ejemplo se agrega un nuevo diccionario personalizado vacío al conjunto. La ruta de acceso y el nombre del archivo del nuevo diccionario personalizado se muestran luego en un cuadro de mensaje.

Set miPropio = CustomDictionaries.Add(Filename:="Casa.dic")

Msgbox miPropio.Path & Application.PathSeparator & miPropio.Name

En este ejemplo se quitan todos los diccionarios personalizados de forma que no queda ninguno activo, aunque no se eliminan los archivos de los diccionarios personalizados.

CustomDictionaries.ClearAll

En este ejemplo se muestra el nombre de cada diccionario personalizado del conjunto.

For Each di In CustomDictionaries

    MsgBox di.Name

Next di


Propiedad ActiveCustomDictionary

Devuelve o define un objeto Dictionary que representa el diccionario personalizado al que se le van agregar palabras. Lectura/Escritura.


Ejemplo de la propiedad ActiveCustomDictionary

En este ejemplo se muestra la ruta de acceso completa y el nombre del archivo del diccionario personalizado activo.

Set miPers = Application.CustomDictionaries.ActiveCustomDictionary

MsgBox miPers.Path & Application.PathSeparator & miPers.Name

En este ejemplo se desactivan todos los diccionarios personalizados actuales, se agrega un diccionario personalizado de nombre "Casa.dic" y, a continuación, se carga el diccionario nuevo.

Application.CustomDictionaries.ClearAll

Set miPers = Application.CustomDictionaries.Add(FileName:="C:\Archivos de programa\Microsoft Office\WinWord\Casa.dic")

CustomDictionaries.ActiveCustomDictionary = miPers


Propiedad GrammaticalErrors

Devuelve un conjunto ProofreadingErrors que representa las oraciones del documento o intervalo especificado que no superaron con éxito la revisión gramatical. Puede haber más de un error en cada frase. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.

Comentarios

Si no hay errores gramaticales, la propiedad Count del objeto ProofreadingErrors, que se devuelve por la propiedad GrammaticalErrors, devuelve 0 (cero).


Ejemplo de la propiedad GrammaticalErrors

En este ejemplo se revisa el tercer párrafo del documento activo por si hay errores gramaticales y se muestran las frases que tienen uno o más errores.

Set misErrores = ActiveDocument.Paragraphs(3).Range.GrammaticalErrors

For Each mierr In misErrores

    MsgBox mierr.Text

Next mierr

En este ejemplo se revisan los errores gramaticales del documento activo. Si no se encuentran errores, se inicia una nueva revisión ortográfica y gramatical.

If ActiveDocument.GrammaticalErrors.Count = 0 Then

    Msgbox "No hay errores gramaticales."

Else

    ActiveDocument.CheckGrammar

End If


Propiedad ReadabilityStatistics

Devuelve un conjunto ReadabilityStatistics que representa las estadísticas de legibilidad del documento o intervalo especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad ReadabilityStatistics

En este ejemplo se muestran todas las estadísticas de legibilidad, junto con sus valores, para el documento uno.

For Each rs In Documents(1).ReadabilityStatistics

    Msgbox rs.Name & " - " & rs.Value

Next rs


Propiedad WritingStyleList

Devuelve una matriz de cadenas que contiene los nombres de todos los estilos de escritura del idioma especificado. Variant de sólo lectura.


Ejemplo de la propiedad WritingStyleList

En este ejemplo se muestran todos los estilos de escritura disponibles en español. Cada estilo y su número en la matriz se presentan también en la ventana Inmediato del editor de Visual Basic.

esilEsc = Languages(wdSpanishModernSort).WritingStyleList

For i = 1 To UBound(estilEsc)

    MsgBox estilEsc(i)

    Debug.Print estilEsc(i) & " [" & Trim(Str$(i)) & "]"

Next i


Propiedad ActiveWritingStyle

Devuelve o establece el estilo de escritura para un idioma especificado del documento. String de Lectura/Escritura.

Nota   La propiedad WritingStyleList devuelve una matriz con los nombres de los estilos de escritura disponibles.

Sintaxis

expresión.ActiveWritingStyle(LanguageID)

expresión   Requerida. Expresión que devuelve un objeto Document.

LanguageID   Variant requerido. El idioma para el que desea definir el estilo de escritura en el documento especificado. Puede ser una cadena o una de las siguientes constantes WdLanguageID:

wdAfrikaans wdArabic wdBasque wdBelgianDutch wdBelgianFrench wdBrazilianPortuguese wdBulgarian wdByelorussian wdCatalan wdCroation wdCzech wdDanish wdDutch wdEnglishAUS wdEnglishCanadian wdEnglishNewZealand wdEnglishSouthAfrica wdEnglishUK wdEnglishUS wdEstonian wdFarsi wdFinnish wdFrench wdFrenchCanadian wdGerman wdGreek wdHebrew wdHungarian wdItalian wdIcelandic wdJapanese	wdKorean wdLatvian wdMacedonian wdMalaysian wdMexicanSpanish wdNorwegianBokmol wdNorwegianNynorsk wdPolish wdPortuguese wdRomanian wdRussian wdSerbianCyrillic wdSerbianLatin wdSesotho wdSimplifiedChinese wdSlovak wdSlovenian wdSpanish wdSpanishModernSort wdSwedish wdSwissFrench wdSwissGerman wdSwissItalian wdTraditionalChinese wdTsonga wdTswana wdTurkish wdUkrainian wdVenda wdXhosa wdZulu


Ejemplo de la propiedad ActiveWritingStyle

En este ejemplo se establece para el documento activo el estilo de escritura utilizado por el francés, el alemán y el españolDebe tener instalados los archivos de gramática para francés, alemán y español con el fin de ejecutar este ejemplo.

With ActiveDocument

    .ActiveWritingStyle(wdFrench) = "Commercial"

    .ActiveWritingStyle(wdGerman) = "Technisch/Wiss"

    .ActiveWritingStyle(wdSpanishModernSort) = "Técnico"

End With

En este ejemplo se devuelve el estilo de escritura del idioma de la selección.

miIdioma = Selection.LanguageID

MsgBox ActiveDocument.ActiveWritingStyle(miIdioma)


Método BuildKeyCode

Devuelve un número único para la combinación de teclas especificada.

Sintaxis

expresión.BuildKeyCode(Arg1, Arg2, Arg3, Arg4)

expresión   Opcional. Expresión que devuelve un objeto Application.

Arg1   Long requerida. Tecla especificada mediante una de las constantes WdKey.

Arg2 – Arg4   Variant opcional. Tecla especificada mediante una de las constantes WdKey.


Ejemplo del método BuildKeyCode

En este ejemplo, se asigna la combinación de teclas ALT + F1 al comando Organizer.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyF1), _

    KeyCategory:=wdKeyCategoryCommand, Command:="Organizer"

En este ejemplo, se quita la asignación de teclas ALT+F1 de la plantilla Normal.

CustomizationContext = NormalTemplate

FindKey(BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyF1)).Clear

En este ejemplo, se muestra el comando asignado a la tecla F1.

CustomizationContext = NormalTemplate

MsgBox FindKey(BuildKeyCode(Arg1:=wdKeyF1)).Command


Método Disable

Quita la combinación de teclas especificada si está actualmente asignada a un comando. Después de utilizar este método, la combinación de teclas no tiene efecto. El uso de este método es equivalente a hacer clic en el botón Quitar del cuadro de diálogo Personalizar teclado (menú Herramientas).

Nota   Utilice el método Clear con un objeto KeyBinding para restablecer la asignación de teclas predeterminada de un comando integrado. No es necesario quitar ni agregar ningún objeto KeyBinding antes de agregarlo en otra parte.

Sintaxis

expresión.Disable

expresión   Requerida. Expresión que devuelve un objeto KeyBinding.


Ejemplo del método Disable

En este ejemplo, se quita la asignación de teclas CTRL+MAYÚS+B. Esta combinación se asigna al comando Bold como valor predeterminado.

CustomizationContext = NormalTemplate

FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyB)).Disable

En este ejemplo, se asigna la combinación de teclas CTRL+MAYÚS+O al comando Organizer. A continuación, en el ejemplo se utiliza el método Disable para quitar la combinación de teclas CTRL+MAYÚS+O y se muestra un mensaje.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyO, wdKeyControl, wdKeyShift), _

    KeyCategory:=wdKeyCategoryCommand, Command:="Organizer"

With FindKey(BuildKeyCode(wdKeyO, wdKeyControl, wdKeyShift))

    MsgBox .Command & " está asignado a CTRL+MAYÚS+O"

    .Disable

    If .Command = "" Then MsgBox "No hay nada asignado a CTRL+MAYÚS+O"

End With

En este ejemplo, se quitan todas las asignaciones de teclas de la macro global "Macro1".

CustomizationContext = NormalTemplate

For Each aKey In KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, Command:="Macro1")

    aKey.Disable

Next aKey


Método Execute (objetos Dialog, KeyBinding y MailMerge)

Objeto Dialog: aplica la configuración actual de un cuadro de diálogo de Word.

Objeto KeyBinding: ejecuta el comando asociado a la combinación de teclas especificada.

Objeto MailMerge: realiza la operación de combinación de correspondencia especificada.

Sintaxis 1

expresión.Execute(Pause)

Sintaxis 2

expresión.Execute

expresión   Requerida. Expresión que devuelve un objeto MailMerge (Sintaxis 1), un objeto Dialog (Sintaxis 2) o un objeto KeyBinding (Sintaxis 3).

Pause   Variant opcional. True para que Word pause y muestre un cuadro de diálogo de solución de problemas si se encuentra un error en la combinación de correspondencia. False para notificar errores en un documento nuevo.


Ejemplo del método Execute (objetos Dialog, KeyBinding y MailMerge)

En el siguiente ejemplo, se activa la casilla de verificación Conservar con el siguiente de la ficha Líneas y saltos de páginas del cuadro de diálogo Párrafo.

With Dialogs(wdDialogFormatParagraph)

    .KeepWithNext = 1

    .Execute

End With

En este ejemplo, se asigna la combinación de teclas CTRL+MAYÚS+C al comando FileClose y, a continuación, se ejecuta (el documento se cierra).

CustomizationContext = ActiveDocument.AttachedTemplate

Keybindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyC), _

    KeyCategory:=wdKeyCategoryCommand, Command:="FileClose"

FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyC)).Execute

En este ejemplo, se ejecuta una combinación de correspondencia si el documento activo es un documento principal con un origen de datos adjunta.

Set miCombinación = ActiveDocument.MailMerge

If miCombinación.State = wdMainAndDataSource Then miCombinación.Execute


Método Execute (objeto Find)

Ejecuta la operación de búsqueda especificada. Devuelve el valor True si la operación de búsqueda tiene éxito.

Sintaxis

expresión.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, Forward, Wrap, Format, ReplaceWith, Replace)

expresión   Requerida. Expresión que devuelve un objeto Find.

FindText   Variant opcional. Texto que va a buscarse. Utilice una cadena vacía ("") para buscar sólo formato. Puede buscar caracteres especiales especificando los códigos de carácter apropiados. Por ejemplo, "^p" corresponde a una marca de párrafo y "^t" corresponde a una marca de tabulación. Para obtener una lista de caracteres especiales, consulte Ejemplos de caracteres especiales y elementos de documento que se pueden buscar y reemplazar.

Si MatchWildcards es True, puede especificar caracteres comodín y otros criterios de búsqueda avanzada. Por ejemplo, "*(ado)" busca todas las palabras que terminen en "ado". Para obtener más información, consulte Ejemplos de búsquedas con comodines.

Para buscar un símbolo, escriba un símbolo de intercalación (^), un cero y, a continuación, el código de carácter del símbolo. En Windows, por ejemplo, "^0151" corresponde a un guión largo (—).

MatchCase   Variant opcional. True para especificar que la búsqueda de texto distinga las mayúsculas de las minúsculas. Corresponde a la casilla de verificación Coincidir mayúsculas/minúsculas del cuadro de diálogo Buscar y reemplazar (menú Edición).

MatchWholeWord   Variant opcional. True para que la operación de búsqueda busque sólo palabras completas y no texto que forme parte de una palabra mayor. Corresponde a la casilla de verificación Palabras completas del cuadro de diálogo Buscar y reemplazar.

MatchWildcards   Variant opcional. True para que el texto que va a buscarse sea un operador de búsqueda especial. Corresponde a la casilla de verificación Usar caracteres comodín del cuadro de diálogo Buscar y reemplazar.

Forward   Variant opcional. True para buscar hacia abajo; es decir, hacia el final del documento.

Wrap   Variant opcional. Controla lo que ocurre si la búsqueda se inicia en un punto distinto al principio del documento y se llega al final del mismo, o viceversa si el valor de Forward está establecido en False. Este argumento también controla lo que ocurre si hay una selección o un intervalo y no se encuentra en ellos el texto de búsqueda. Puede ser una de las siguientes constantes WdFindWrap:

Constante	Descripción
wdFindAsk	Después de buscar la selección o el intervalo, Word muestra un mensaje preguntando si debe buscar en el resto del documento.
wdFindContinue	La operación de búsqueda continúa si se llega al principio o al final del intervalo de búsqueda.
wdFindStop	La operación de búsqueda termina si se llega al principio o al final del intervalo de búsqueda.
Format   Variant opcional. True para que la operación busque formatos además o en vez de texto.

ReplaceWith   Variant opcional. Texto de sustitución. Para eliminar el texto especificado en el argumento Find, utilice una cadena vacía (""). Los caracteres especiales y los criterios de búsqueda avanzada se especifican de la misma manera que en el argumento Find. Para especificar un objeto gráfico u otro objeto que no sea texto como la sustitución, ponga el elemento en el Portapapeles y escriba "^c" en ReplaceWith.

Replace   Variant opcional. Especifica cuántas sustituciones van a realizarse. una, todas o ninguna. Puede ser una de las siguientes constantes WdReplace: wdReplaceAll, wdReplaceNone o wdReplaceOne.


Ejemplo del método Execute (objeto Find)

En este ejemplo, se busca y se selecciona la siguiente aparición de la palabra "biblioteca".

With Selection.Find

    .ClearFormatting

    .MatchWholeWord = True

    .MatchCase = False

    .Execute FindText:="biblioteca"

End With

En este ejemplo, se buscan todas las apariciones de la palabra "Sr." en el documento activo y se sustituyen por "Señor".

Set miIntervalo = ActiveDocument.Content

miIntervalo.Find.Execute FindText:="Sr.", ReplaceWith:="Señor", Replace:=wdReplaceAll


Propiedad FindKey

Devuelve un objeto KeyBinding que representa la combinación de teclas especificada. Es de sólo lectura.

Sintaxis

expresión.FindKey(KeyCode, KeyCode2)

expresión   Opcional. Expresión que devuelve un objeto Application.

KeyCode   Long requerida. Tecla especificada mediante una de las constantes WdKey.

KeyCode2   Variant opcional. Segunda tecla especificada mediante una de las constantes WdKey.

Comentarios

Puede utilizar el método BuildKeyCode para crear el argumento KeyCode o KeyCode2.


Ejemplo de la propiedad FindKey

En este ejemplo, se inhabilita la combinación de teclas ALT+MAYÚS+F12 en la plantilla adjunta al documento activo. Para devolver un objeto KeyBinding que incluya más de dos teclas, utilice el método BuildKeyCode como se muestra en el ejemplo.

CustomizationContext = ActiveDocument.AttachedTemplate

FindKey(KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyShift, wdKeyF12)).Disable

En este ejemplo, se muestra el comando asignado a la tecla F1.

CustomizationContext = NormalTemplate

MsgBox FindKey(KeyCode:=wdKeyF1).Command


Método Key

Devuelve un objeto KeyBinding que representa la combinación de teclas personalizada especificada. Si la combinación de teclas no existe, este método devuelve el valor Nothing.

Sintaxis

expresión.Key(KeyCode, KeyCode2)

expresión   Requerida. Expresión que devuelve un objeto KeyBindings o KeysBoundTo.

KeyCode   Long requerida. Tecla especificada mediante una de las constantes WdKey.

KeyCode2   Variant opcional. Segunda tecla especificada mediante una de las constantes WdKey.

Comentarios

Puede utilizar el método BuildKeyCode para crear el argumento KeyCode o KeyCode2.


Ejemplo del método Key

En este ejemplo, se asigna la combinación de teclas ALT+F4 a la fuente Arial y, a continuación, se muestra el número de elementos del conjunto KeyBindings. A continuación, en el ejemplo se borran las combinaciones de teclas (devuelve su valor predeterminado) y se muestra de nuevo el número de elementos del conjunto KeyBindings.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4), _

    KeyCategory:=wdKeyCategoryFont, Command:="Arial"

MsgBox KeyBindings.Count & " teclas del conjunto KeyBindings"

KeyBindings.Key(KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4)).Clear

MsgBox KeyBindings.Count & " teclas del conjunto KeyBindings"

En este ejemplo, se asigna la combinación de teclas CTRL+MAYÚS+U a la macro "Macro1" del documento activo. En el ejemplo, se utiliza la propiedad Key para devolver un objeto KeyBinding de forma que Word pueda recuperar y mostrar el nombre del comando.

CustomizationContext = ActiveDocument

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyU), _

    KeyCategory:=wdKeyCategoryMacro, Command:="Macro1"

MsgBox KeyBindings.Key(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyU)).Command

En este ejemplo, se determina si la combinación de teclas CTRL+MAYÚS+A forma parte del conjunto KeyBindings.

CustomizationContext = NormalTemplate

Set miTecla = KeyBindings.Key(BuildKeyCode(wdKeyControl, wdKeyShift,wdKeyA))

If (miTecla Is Nothing) Then MsgBox "La tecla no está en el conjunto KeyBindings"


Propiedad KeyBindings

Devuelve un conjunto KeyBindings que representa las asignaciones de teclas personalizadas, que incluyen un código de tecla, una categoría de teclas y un comando. Es de sólo lectura.


Ejemplo de la propiedad KeyBindings

En este ejemplo, se asigna la combinación de teclas CTRL+ALT+W al comando FileClose. Esta combinación de teclas personalizada se guarda en la plantilla Normal.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW), _

    KeyCategory:=wdKeyCategoryCommand, Command:="FileClose"

En este ejemplo, se insertan la cadena con el nombre del comando y la combinación de teclas en cada elemento del conjunto KeyBindings.

CustomizationContext = NormalTemplate

For Each aKey In KeyBindings

    Selection.InsertAfter aKey.Command & vbTab & aKey.KeyString & vbCr

    Selection.Collapse Direction:=wdCollapseEnd

Next aKey


Propiedad KeyCode

Devuelve un número único para la primera tecla de la cadena de teclas especificada. Long de sólo lectura.

Nota   Este número se crea mediante el método BuildKeyCode al agregar cadenas de teclas mediante el método Add del objeto KeyBindings.


Ejemplo de la propiedad KeyCode

En este ejemplo, se muestra un mensaje si el conjunto KeyBindings incluye la combinación de teclas ALT+CTRL+W.

CustomizationContext = NormalTemplate

aCode = BuildKeyCode(wdKeyAlt, wdKeyControl, wdKeyW)

For Each aKey In KeyBindings

    If aCode = aKey.KeyCode Then

        MsgBox aKey.KeyString & " ya está en uso"

    End If

Next aKey


Propiedad KeyCode2

Devuelve un número único para la segunda tecla de la cadena de teclas especificada. Long de sólo lectura.


Ejemplo de la propiedad KeyCode2

En este ejemplo, se muestran los códigos de cada tecla del conjunto KeyBindings, el conjunto de todas las teclas personalizadas del documento activo.

CustomizationContext = ActiveDocument

For Each aKey In KeyBindings

    If aKey.KeyCode2 <> wdNoKey Then

        MsgBox aKey.KeyString & vbCr & "KeyCode1 = " & _

            aKey.KeyCode & vbCr & "KeyCode2 = " & aKey.KeyCode2

    Else

        MsgBox aKey.KeyString & vbCr & "KeyCode1 = " & aKey.KeyCode

    End If

Next aKey


Método KeyString

Devuelve la cadena de la combinación de las teclas especificadas; por ejemplo, CTRL+MAYÚS+A.

Sintaxis

expresión.KeyString(KeyCode, KeyCode2)

expresión   Opcional. Expresión que devuelve un objeto Application.

KeyCode   Long requerida. Tecla especificada mediante una de las constantes WdKey.

KeyCode2   Variant opcional. Segunda tecla especificada mediante una de las constantes WdKey.

Comentarios

Puede utilizar el método BuildKeyCode para crear el argumento KeyCode o KeyCode2.


Ejemplo del método KeyString

En este ejemplo, se muestra la cadena de la combinación de teclas (CTRL+MAYÚS+A) de las constantes WdKey: wdKeyControl, wdKeyShift y wdKeyA.

CustomizationContext = ActiveDocument.AttachedTemplate

MsgBox KeyString(KeyCode:=BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyA))


Propiedad KeyString

Devuelve la cadena de la combinación de las teclas especificadas; por ejemplo, CTRL+MAYÚS+A. String de sólo lectura.


Ejemplo de la propiedad KeyString

En este ejemplo, se muestra la cadena de la primera combinación de teclas de la plantilla Normal.

CustomizationContext = NormalTemplate

If KeyBindings.Count >= 1 Then

    MsgBox KeyBindings(1).KeyString

End If

En este ejemplo, se muestra un mensaje si el conjunto KeyBindings incluye la combinación de teclas ALT+CTRL+W.

CustomizationContext = NormalTemplate

aCode = BuildKeyCode(wdKeyAlt, wdKeyControl, wdKeyW)

For Each aKey In KeyBindings

    If aCode = aKey.KeyCode Then

        MsgBox aKey.KeyString & " ya está en uso"

    End If

Next aKey


Propiedad Protected

True si no puede cambiar la cadena de teclas especificada en el cuadro de diálogo Personalizar teclado (menú Herramientas). Boolean de sólo lectura.

Nota   El método Add del objeto KeyBindings agrega una combinación de teclas independientemente del estado protegido.


Ejemplo de la propiedad Protected

En este ejemplo, se muestra el estado de protección de la combinación de teclas CTRL+S.

CustomizationContext = ActiveDocument.AttachedTemplate

MsgBox FindKey(BuildKeyCode(wdKeyControl, wdKeyS)).Protected

En este ejemplo, se muestra un mensaje si la tecla A está protegida.

CustomizationContext = NormalTemplate

If FindKey(BuildKeyCode(wdKeyA)).Protected = True Then

    MsgBox "La tecla A está protegida"

End If


Método Rebind

Cambia el comando asignado a la combinación de teclas especificada.

Sintaxis

expresión.Rebind(KeyCategory, Command, CommandParameter)

expresión   Requerida. Expresión que devuelve un objeto KeyBinding.

KeyCategory   Long requerida. Categoría de teclas de la combinación de teclas especificada. Puede ser una de las siguientes constantes WdKeyCategory:

WdKeyCategoryAutoText WdKeyCategoryCommand WdKeyCategoryDisable WdKeyCategoryFont WdKeyCategoryMacro	WdKeyCategoryNil WdKeyCategoryPrefix WdKeyCategoryStyle WdKeyCategorySymbol
Command   String requerida. Nombre del comando especificado.

CommandParameter   Variant opcional. Texto adicional, si lo hay, requerido para el comando especificado por Command. Para obtener información acerca de los valores de este argumento, consulte el método Add del objeto KeyBindings.


Ejemplo del método Rebind

En este ejemplo, se asigna de nuevo la combinación de teclas CTRL+MAYÚS+S al comando FileSaveAs.

CustomizationContext = NormalTemplate

Set miTecla = FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyS))

miTecla.Rebind KeyCategory:=wdKeyCategoryCommand, Command:="FileSaveAs"

En este ejemplo, se agregan de nuevo a la macro "MacroInforme" todas las teclas asignadas a la macro "Macro1".

CustomizationContext = ActiveDocument.AttachedTemplate

For Each miTecla In KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _

    Command:="Macro1")

    miTecla.Rebind KeyCategory:=wdKeyCategoryMacro, Command:="MacroInforme"

Next miTecla


Propiedad Command

Devuelve el comando asignado a la combinación de teclas especificada. String de sólo lectura.


Ejemplo de la propiedad Command

En este ejemplo, se muestran las teclas asignadas a los nombres de fuentes. Si no se han asignado teclas a las fuentes, se muestra un mensaje.

For Each aKey In KeyBindings

    If aKey.KeyCategory = wdKeyCategoryFont Then

        Count = Count + 1

        MsgBox aKey.Command & vbCr & aKey.KeyString

    End If

Next aKey

If Count = 0 Then MsgBox "No se han asignado teclas a las fuentes"


Propiedad KeyCategory

Devuelve el tipo de elemento asignado a la combinación de teclas especificada. Long de sólo lectura.

Puede ser una de las siguientes constantes WdKeyCategory:

wdKeyCategoryAutoText wdKeyCategoryCommand wdKeyCategoryDisable wdKeyCategoryFont wdKeyCategoryMacro	wdKeyCategoryNil wdKeyCategoryPrefix wdKeyCategoryStyle wdKeyCategorySymbol


Ejemplo de la propiedad KeyCategory

En este ejemplo, se muestran las teclas asignadas a los nombres de fuentes. Si no se han asignado teclas a las fuentes, se muestra un mensaje.

For Each aKey In KeyBindings

    If aKey.KeyCategory = wdKeyCategoryFont Then

        Count = Count + 1

        MsgBox aKey.Command & vbCr & aKey.KeyString

    End If

Next aKey

If Count = 0 Then MsgBox "No se han asignado teclas a las fuentes"


Método Add (conjunto KeyBindings)

Agrega un nuevo objeto KeyBinding al conjunto KeyBindings. Un objeto KeyBinding representa una asignación de teclas personalizada, que incluye un código de tecla, una categoría de teclas y un comando.

Sintaxis

expresión.Add(KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)

expresión   Requerida. Expresión que devuelve un objeto KeyBindings.

KeyCategory   Long requerida. Categoría de la asignación de teclas. Puede ser una de las siguientes constantes WdKeyCategory:

wdKeyCategoryAutoText wdKeyCategoryCommand wdKeyCategoryDisable wdKeyCategoryFont wdKeyCategoryMacro	wdKeyCategoryNil wdKeyCategoryPrefix wdKeyCategoryStyle wdKeyCategorySymbol
Command   String requerida. Comando que ejecuta la combinación de teclas especificada.

KeyCode   Long requerida. Tecla especificada mediante una de las constantes WdKey.

KeyCode2   Variant opcional. Segunda tecla especificada mediante una de las constantes WdKey.

CommandParameter   Variant opcional. Texto adicional, si lo hay, requerido para el comando especificado por Command. Para obtener más detalles, consulte la sección "Comentarios".

Comentarios

Puede utilizar el método BuildKeyCode para crear el argumento KeyCode o KeyCode2.

En la siguiente tabla, la columna izquierda contiene los comandos que necesitan un valor de comando y la columna derecha describe qué debe hacer a fin de especificar CommandParameter para cada uno de estos comandos. La acción equivalente del cuadro de diálogo Personalizar teclado (menú Herramientas) para especificar CommandParameter es seleccionar un elemento del cuadro de lista que aparece al seleccionar uno de los siguientes comandos del cuadro Comandos.

Si el valor de Command es	CommandParameter será
Borders, Color o Shading	Un número, especificado como texto, que corresponde a la posición del valor seleccionado en el cuadro de lista que contiene los valores, donde 0 (cero) es el primer elemento, 1 es el segundo elemento, etc.
Columns	Un número comprendido entre 1 y 45, especificado como texto, que corresponde al número de columnas que desee aplicar.
Condensed	Una medida de texto entre 0,1 y 12,75 puntos, especificada en incrementos de 0,05 puntos (72 puntos = 2,54 centímetros)
Expanded	Una medida de texto comprendida entre 0,1 y 12,75 puntos, especificada en incrementos de 0,05 puntos (72 puntos = 2,54 centímetros)
FileOpenFile	La ruta de acceso y nombre del archivo que va a abrirse. Si no se especifica la ruta, se toma la carpeta actual.
Font Size	Una medida de texto positiva, especificada en incrementos de 0,5 puntos (72 puntos = 2,54 centímetros)
Lowered, Raised	Una medida de texto comprendida entre 1 y 64 puntos, especificada en incrementos de 0,5 puntos (72 puntos = 2,54 centímetros)
Symbol	Una cadena creada concatenando una instrucción Chr() y el nombre de una fuente de símbolos (por ejemplo, Chr(167) & "Símbolo")


Ejemplo del método Add (conjunto KeyBindings)

En este ejemplo, se asigna la combinación de teclas CTRL+ALT+W al comando FileClose. La combinación de teclas personalizada se guarda en la plantilla Normal.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, Command:="FileClose", KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)

En este ejemplo, se asigna la combinación de teclas ALT+F4 a la fuente Arial y luego se muestra el número de elementos del conjunto KeyBindings. A continuación, en el ejemplo se borra esta combinación de teclas, devuelve su valor predeterminado, y se muestra de nuevo el número de elementos del conjunto KeyBindings.

CustomizationContext = ActiveDocument.AttachedTemplate

Set miTecla = KeyBindings.Add(KeyCategory:=wdKeyCategoryFont, Command:="Arial", _

    KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4))

MsgBox KeyBindings.Count & " teclas del conjunto KeyBindings"

miTecla.Clear

MsgBox KeyBindings.Count & " teclas del conjunto KeyBindings"

En este ejemplo, se agrega la combinación de teclas CTRL+ALT+S al comando Font de 8 puntos especificado por el tamaño de fuente.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, Command:="FontSize", _

    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), CommandParameter:="8"

En este ejemplo, se asigna la combinación de teclas CTRL+ALT+H al estilo Título 1 del documento activo.

CustomizationContext = ActiveDocument

KeyBindings.Add KeyCategory:=wdKeyCategoryStyle, Command:="Título 1", _

    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyH)

En este ejemplo, se asigna la combinación de teclas CTRL+ALT+O al elemento de Autotexto "Hola".

CustomizationContext = ActiveDocument

KeyBindings.Add KeyCategory:=wdKeyCategoryAutoText, Command:="Hola", _

    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyO)


Propiedad Context

Devuelve un objeto que representa la ubicación del almacenamiento de la combinación de teclas especificada. Esta propiedad puede devolver un objeto Document, Template o Application. Es de sólo lectura.

Nota   Las asignaciones de teclas integradas (por ejemplo, CTRL+I para Italic) devuelven un objeto Application como contexto. Todas las combinaciones de teclas agregadas devolverán un objeto Document o Template, dependiendo del contexto de personalización que esté activo al agregar el objeto KeyBinding.


Ejemplo de la propiedad Context

En este ejemplo, se muestra el nombre del documento o de la plantilla donde se guarda la macro "Macro1".

Set kb = KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, Command:="Macro1")

MsgBox kb.Context.Name

En este ejemplo, se asigna la tecla F2 al comando Italic y, a continuación, se utiliza el loop For Each...Next para mostrar las teclas asignadas al comando Italic junto con el contexto.

CustomizationContext = NormalTemplate

KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _

    Command:="Italic", KeyCode:=wdKeyF2

For Each oKey In KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, Command:="Italic")

    MsgBox oKey.KeyString & vbCr & oKey.Context.Name

Next


Propiedad KeysBoundTo

Devuelve un objeto KeysBoundTo que representa todas las combinaciones de teclas asignadas al elemento especificado. Es de sólo lectura.

Sintaxis

expresión.KeysBoundTo(KeyCategory, Command, CommandParameter)

expresión   Opcional. Expresión que devuelve un objeto Application.

KeyCategory   Long requerido. Categoría de la combinación de teclas. Puede ser una de las siguientes constantes WdKeyCategory: wdKeyCategoryAutoText, wdKeyCategoryCommand, wdKeyCategoryFont, wdKeyCategoryMacro, wdKeyCategoryStyle o wdKeyCategorySymbol.

Command   String requerida. Nombre del comando.

CommandParameter   Variant opcional. Texto adicional requerido para el comando especificado por Command. Para obtener más información, consulte la sección "Comentarios" de Método Add (Objeto KeyBindings).


Ejemplo de la propiedad KeysBoundTo

En este ejemplo se muestran todas las combinaciones de teclas asignadas al comando FileOpen en la plantilla adjunta al documento activo.

CustomizationContext = ActiveDocument.AttachedTemplate

For Each miTecla In KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, Command:="FileOpen")

    miCad = miCad & miTecla.KeyString & vbCr

Next miTecla

MsgBox miCad

En este ejemplo, se quitan todas las asignaciones de teclas de Macro1 de la plantilla Normal.

CustomizationContext = NormalTemplate

For Each unaTecla In KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, Command:="Macro1")

    unaTecla.Disable

Next unaTecla


Propiedad AttentionLine

Devuelve o establece el texto de la línea de atención de una carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad AttentionLine

En este ejemplo se recuperan los elementos del Asistente para cartas del documento activo. Si la línea de atención no está vacía, se muestra el texto en un cuadro de mensaje.

If ActiveDocument.GetLetterContent.AttentionLine <> "" Then

    MsgBox ActiveDocument.GetLetterContent.AttentionLine

End If

En este ejemplo, se recuperan los elementos del Asistente para cartas del documento activo, se cambia el texto de la línea de atención y, a continuación, se usa el método SetLetterContent para actualizar el documento a fin de que refleje los cambios.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

ContenidoMiCarta.AttentionLine = "Saludos"

ActiveDocument.SetLetterContent LetterContent:=ContenidoMiCarta


Propiedad CCList

Devuelve o establece los destinatarios de la copia (CC) de una carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad CCList

En este ejemplo se muestra el texto de la lista de copias del documento activo.

MsgBox ActiveDocument.GetLetterContent.CCList

En este ejemplo se crea un objeto LetterContent nuevo, se definen las copias de cortesía estableciendo la propiedad CClist y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set ContenidoMiCarta = New LetterContent

ContenidoMiCarta.CCList = "C. García, D. Díaz, D. Menéndez"

ActiveDocument.RunLetterWizard LetterContent:=ContenidoMiCarta


Propiedad Closing

Devuelve o establece el texto de despedida de una carta creada por el Asistente para cartas; por ejemplo, "Sinceramente suyo". String de Lectura/Escritura.


Ejemplo de la propiedad Closing

En este ejemplo se muestra el texto de despedida del documento activo.

MsgBox ActiveDocument.GetLetterContent.Closing

En este ejemplo se recuperan los elementos de la carta del documento activo, se cambia el texto de despedida estableciendo la propiedad Closing y, a continuación, se utiliza el método SetLetterContent para actualizar el documento a fin de que refleje los cambios.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

ContenidoMiCarta.Closing = "Sinceramente suyo,"

ActiveDocument.SetLetterContent LetterContent:=ContenidoMiCarta


Propiedad DateFormat

Devuelve o establece la fecha de una carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad DateFormat

En este ejemplo, se muestra la fecha de la carta que aparece en el documento activo.

MsgBox ActiveDocument.GetLetterContent.DateFormat

En este ejemplo se crea un objeto LetterContent nuevo, se establece la línea de la fecha con la fecha actual y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set ContenidoUnaCarta = New LetterContent

ContenidoUnaCarta.DateFormat = Date$

ActiveDocument.RunLetterWizard LetterContent:=ContenidoUnaCarta


Propiedad EnclosureNumber

Devuelve o establece el número de documentos adjuntos de una carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad EnclosureNumber

En este ejemplo, se muestra el número de documentos adjuntos especificados en el documento activo.

MsgBox ActiveDocument.GetLetterContent.EnclosureNumber

En este ejemplo se recuperan los elementos de la carta del documento activo, se cambia el número de documentos adjuntos estableciendo la propiedad EnclosureNumber y, a continuación, se utiliza el método SetLetterContent para actualizar el documento activo a fin de que refleje los cambios.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

ContenidoMiCarta.EnclosureNumber = "5"

ActiveDocument.SetLetterContent LetterContent:=ContenidoMiCarta


Método GetLetterContent

Recupera los elementos de la carta del documento especificado y devuelve un objeto LetterContent.

Sintaxis

expresión.GetLetterContent

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método GetLetterContent

En este ejemplo se muestra el saludo y el nombre del destinatario de la carta del documento activo.

MsgBox ActiveDocument.GetLetterContent.Salutation & ActiveDocument.GetLetterContent.RecipientName

En este ejemplo se recuperan los elementos de la carta del documento activo, se cambia la lista de destinatarios de copias estableciendo la propiedad CClist y, a continuación, se utiliza el método SetLetterContent para actualizar el documento activo a fin de que refleje los cambios.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

With ContenidoMiCarta

    .CCList = "J. Díaz, L. Saavedra, C. Ramírez"

    .RecipientName = "Andrés García"

    .RecipientAddress = "C/ Moralzarzal, 86" & vbCr & "28034 Madrid, España"

    .LetterStyle = wdFullBlock

End With

ActiveDocument.SetLetterContent LetterContent:=ContenidoMiCarta


Propiedad Letterhead

True si se reserva el espacio para un papel con membrete en una carta creada por el Asistente para cartas. Boolean de Lectura/Escritura.

Nota   La propiedad LetterheadSize controla el tamaño del espacio reservado para el membrete.


Ejemplo de la propiedad Letterhead

En este ejemplo se crea un objeto LetterContent nuevo, se reserva un espacio de 2,5 centímetros en la parte superior de la página para un papel con membrete y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set ContenidoUnaCarta = New LetterContent

With ContenidoUnaCarta

    .Letterhead = True

    .LetterheadLocation = wdLetterTop

    .LetterheadSize = CentimetersToPoints(2.5)

End With

ActiveDocument.RunLetterWizard LetterContent:=ContenidoUnaCarta, WizardMode:=True


Propiedad LetterheadLocation

Devuelve o establece la posición del membrete en una carta creada por el Asistente para cartas. Puede ser una de las siguientes constantes WdLetterheadLocation: wdLetterBottom, wdLetterLeft, wdLetterRight o wdLetterTop. Long de Lectura/Escritura.


Ejemplo de la propiedad LetterheadLocation

En este ejemplo se crea un objeto LetterContent nuevo, se reserva un espacio de 2,5 centímetros en la parte superior de la página para un papel con membrete y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set ContenidoUnaCarta = New LetterContent

With ContenidoUnaCarta

    .Letterhead = True

    .LetterheadLocation = wdLetterTop

    .LetterheadSize = CentimetersToPoints(2.5)

End With

ActiveDocument.RunLetterWizard LetterContent:=ContenidoUnaCarta


Propiedad LetterheadSize

Devuelve o establece el espacio, en puntos, que debe reservarse para el membrete en una carta creada por el Asistente para cartas. Single de Lectura/Escritura.


Ejemplo de la propiedad LetterheadSize

En este ejemplo, se recuperan los elementos del Asistente para cartas del documento activo, se cambian los valores del membrete y, a continuación, se usa el método SetLetterContent para actualizar el documento activo a fin de que refleje los cambios.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

With ContenidoMiCarta

    .Letterhead = True

    .LetterheadLocation = wdLetterTop

    .LetterheadSize = CentimetersToPoints(4)

End With

ActiveDocument.SetLetterContent LetterContent:=ContenidoMiCarta


Propiedad LetterStyle

Devuelve o establece el diseño de una carta creada por el Asistente para cartas. Puede ser una de las siguientes constantes WdLetterStyle: wdFullBlock, wdModifiedBlock o wdSemiBlock. Long de Lectura/Escritura.


Ejemplo de la propiedad LetterStyle

En este ejemplo se crea un objeto LetterContent nuevo, se selecciona un estilo de carta y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set ContenidoUnaCarta = New LetterContent

ContenidoUnaCarta.LetterStyle = wdFullBlock

ActiveDocument.RunLetterWizard LetterContent:=ContenidoUnaCarta, WizardMode:=True


Propiedad MailingInstructions

Devuelve o establece la instrucción de correo de una carta creada por el Asistente para cartas; por ejemplo, "Correo certificado". String de Lectura/Escritura.


Ejemplo de la propiedad MailingInstructions

En este ejemplo, se recuperan los elementos del Asistente para cartas del documento activo, se cambia el texto de las instrucciones de correo y, a continuación, se usa el método SetLetterContent para actualizar el documento activo a fin de que refleje los cambios.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

ContenidoMiCarta.MailingInstructions = "Correo aéreo"

ActiveDocument.SetLetterContent LetterContent:=ContenidoMiCarta

En este ejemplo se crea un objeto LetterContent nuevo, se establecen varias propiedades, incluido el texto de la instrucción de correo, y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

With miContenido

    .RecipientReference = "En respuesta a:"

    .Salutation ="Hola"

    .MailingInstructions = "Correo certificado"

End With

Documents.Add.RunLetterWizard LetterContent:=miContenido


Propiedad PageDesign

Devuelve o establece el nombre de la plantilla adjunta al documento creado por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad PageDesign

En este ejemplo se crea un objeto LetterContent nuevo, se incluyen el encabezado y el pie de página de la plantilla Contemporary Letter y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

With miContenido

    .PageDesign = "C:\MSOffice\Plantillas\Cartas y faxes\Carta moderna.dot"

    .IncludeHeaderFooter = True

End With

Documents.Add.RunLetterWizard LetterContent:=miContenido


Propiedad RecipientAddress

Devuelve o establece la dirección de correo de la persona que recibirá la carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad RecipientAddress

En este ejemplo se crea un objeto LetterContent nuevo, se establecen varias propiedades, incluida la dirección del destinatario, y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Dim oLC as New LetterContent

With oLC

    .ReturnAddress = Application.UserAddress

    .RecipientName = "Andrés García"

    .RecipientAddress = "C/ Moralzarzal, 86" & vbCr & "28034 Madrid"

End With

Documents.Add.RunLetterWizard LetterContent:=oLC, WizardMode:=True


Propiedad RecipientName

Devuelve o establece el nombre de la persona que recibirá la carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad RecipientName

En este ejemplo se muestra el saludo y el nombre del destinatario del documento activo.

MsgBox ActiveDocument.GetLetterContent.Salutation & _

    Space(1) & ActiveDocument.GetLetterContent.RecipientName

En este ejemplo se crea un objeto LetterContent nuevo, se establecen varias propiedades, incluido el nombre del destinatario, y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Dim oLC as New LetterContent

With oLC

    .LetterStyle = wdFullBlock

    .ReturnAddress = Application.UserAddress

    .RecipientName = "Andrés García"

    .RecipientAddress = "C/ Moralzarzal, 86" & vbCr & "28034 Madrid"

End With

Documents.Add.RunLetterWizard LetterContent:=oLC, WizardMode:=True


Propiedad Salutation

Devuelve o establece el texto del saludo de una carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad Salutation

En este ejemplo se crea un objeto LetterContent nuevo, se establecen varias propiedades, incluido el texto del saludo, y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

miContenido.Salutation ="Hola,"

Documents.Add.RunLetterWizard LetterContent:=miContenido


Propiedad SalutationType

Devuelve o establece el estilo del tipo de saludo de una carta creada por el Asistente para cartas. Puede ser una de las siguientes constantes WdSalutationType: wdSalutationBusiness, wdSalutationFormat, wdSalutationInformal o wdSalutationOther. Long de Lectura/Escritura.


Ejemplo de la propiedad SalutationType

En este ejemplo se crea un objeto LetterContent nuevo, se establecen varias propiedades, incluido el texto del saludo, y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

miContenido.SalutationType = wdSalutationBusiness

Documents.Add.RunLetterWizard LetterContent:=miContenido, WizardMode:=True


Propiedad SenderCompany

Devuelve o establece el nombre de la organización a la que pertenece la persona que está creando una carta con el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad SenderCompany

En este ejemplo se recuperan los elementos del Asistente para cartas del documento activo. Si el nombre de la organización del remitente no está en blanco, se muestra el texto en un cuadro de mensaje.

If ActiveDocument.GetLetterContent.SenderCompany <> "" Then

    MsgBox ActiveDocument.GetLetterContent.SenderCompany

End If


Propiedad SenderJobTitle

Devuelve o establece el puesto de la persona que está creando una carta con el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad SenderJobTitle

En este ejemplo se recuperan los elementos del Asistente para cartas del documento activo y se muestra el puesto del remitente.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

MsgBox ContenidoMiCarta.SenderJobTitle


Propiedad SenderName

Devuelve o establece el nombre de la persona que está creando una carta con el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad SenderName

En este ejemplo se crea un objeto LetterContent nuevo, utilizando el nombre y las iniciales del remitente de la ficha Información del usuario, en el cuadro de diálogo Opciones (menú Herramientas). En este ejemplo se crea un nuevo documento y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

With miContenido

    .SenderName = Application.UserName

    .SenderInitials =Application.UserInitials

End With

Documents.Add.RunLetterWizard LetterContent:=miContenido, WizardMode:=True


Método SetLetterContent

Inserta el contenido del objeto LetterContent especificado en un documento.

Sintaxis

expresión.SetLetterContent(LetterContent)

expresión   Requerida. Expresión que devuelve un objeto Document.

LetterContent   Objeto LetterContent requerido. Objeto LetterContent que incluye los distintos elementos de la carta.

Comentarios

Este método es similar a RunLetterWizard, a excepción de que no muestra el cuadro de diálogo del Asistente para cartas. El método agrega, elimina o cambia el estilo de los elementos de la carta del documento especificado en función del contenido del objeto LetterContent.


Ejemplo del método SetLetterContent

En este ejemplo, se recuperan los elementos del Asistente para cartas del documento activo, se cambia el texto de la línea de atención y, a continuación, se usa el método SetLetterContent para actualizar el documento activo a fin de que refleje los cambios.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

ContenidoMiCarta.AttentionLine = "Saludos"

ActiveDocument.SetLetterContent LetterContent:=ContenidoMiCarta


Propiedad SenderInitials

Devuelve o establece las iniciales de la persona que está creando una carta con el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad SenderInitials

En este ejemplo se crea un objeto LetterContent nuevo, utilizando el nombre y las iniciales del remitente de la ficha Información del usuario, en el cuadro de diálogo Opciones (menú Herramientas). En este ejemplo se crea un nuevo documento y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

With miContenido

    .SenderName = Application.UserName

    .SenderInitials =Application.UserInitials

End With

Documents.Add.RunLetterWizard LetterContent:=miContenido, WizardMode:=True


Método RunLetterWizard

Ejecuta el Asistente para cartas en el documento especificado.

Sintaxis

expresión.RunLetterWizard(LetterContent, WizardMode)

expresión   Requerida. Expresión que devuelve un objeto Document.

LetterContent   Variant opcional. Objeto LetterContent. Las propiedades definidas en el objeto LetterContent se presentan como elementos previamente definidos en los cuadros de diálogo del Asistente para cartas. Si se omite este argumento, se utiliza automáticamente el método GetLetterContent para obtener un objeto LetterContent del documento especificado.

WizardMode   Variant opcional. True para que el cuadro de diálogo Asistente para cartas se muestre incluyendo una serie de pasos con los botones Siguiente, Anterior y Terminar. False para que el cuadro de diálogo Asistente para cartas se muestre como si se hubiese abierto desde el menú Herramientas, es decir, como un cuadro de diálogo de propiedades con botones Aceptar y Cancelar. El valor predeterminado es False.

Comentarios

El método CreateLetterContent se usa para devolver un objeto LetterContent, dadas algunas propiedades de elementos de cartas. Utilice el método GetLetterContent para devolver un objeto LetterContent en función del contenido del documento especificado. Puede utilizar el objeto LetterContent obtenido con el método RunLetterWizard para establecer de antemano los elementos del cuadro de diálogo Asistente para cartas.


Ejemplo del método RunLetterWizard

En este ejemplo se crea un objeto LetterContent nuevo, se establecen varias propiedades para él y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

With miContenido

    .Salutation ="Hola"

    .SalutationType = wdSalutationOther

    .SenderName = Application.UserName

    .SenderInitials =Application.UserInitials

End With

Documents.Add.RunLetterWizard LetterContent:=miContenido, WizardMode:=True

En el siguiente ejemplo se utiliza el método CreateLetterContent para crear un objeto LetterContent nuevo en el documento activo y, a continuación, se utiliza este objeto con el método RunLetterWizard.

Set miCarta = ActiveDocument.CreateLetterContent(DateFormat:="31 de julio de 1996", _

    IncludeHeaderFooter:=False, _

    PageDesign:="C:\MSOffice\Plantillas\Cartas y faxes\Carta moderna.dot", _

    LetterStyle:=wdFullBlock, Letterhead:=True, LetterheadLocation:=wdLetterTop, _

    LetterheadSize:=CentimetersToPoints(4), RecipientName:="Juan Camilo Pardo", _

    RecipientAddress:="C/ D. Ramón de la Cruz, 73" & vbCr & "28004 Madrid", _

    Salutation:="Estimado Juan,", SalutationType:=wdSalutationInformal, _

    RecipientReference:="", MailingInstructions:="", AttentionLine:="", _

    Subject:="Informe de final de ejercicio", CCList:="", ReturnAddress:="", _

    SenderName:="", Closing:="Sinceramente suyo,", SenderCompany:="", _

    SenderJobTitle:="", SenderInitials:="", EnclosureNumber:=0)

ActiveDocument.RunLetterWizard LetterContent:=miCarta


Método CreateLetterContent

Crea y devuelve un objeto LetterContent en función de los elementos de carta especificados.

Sintaxis

expresión.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, LetterStyle, Letterhead, LetterheadLocation, LetterheadSize, RecipientName, RecipientAddress, Salutation, SalutationType, RecipientReference, MailingInstructions, AttentionLine, Subject, CCList, ReturnAddress, SenderName, Closing, SenderCompany, SenderJobTitle, SenderInitials, EnclosureNumber, InfoBlock, RecipientCode, RecipientGender, ReturnAddressShortForm, SenderCity, SenderCode, SenderGender, SenderReference)

expresión   Requerida. Expresión que devuelve un objeto Document.

DateFormat   String requerida. Fecha de la carta.

IncludeHeaderFooter   Boolean requerida. True para incluir el encabezado y pie de página de la plantilla del diseño de página.

PageDesign   String requerida. Nombre de la plantilla adjunta al documento.

LetterStyle   Long requerida. Diseño del documento. Puede ser una de las siguientes constantes WdLetterStyle: wdFullBlock, wdModifiedBlock o wdSemiBlock.

Letterhead   Boolean requerida. True si desea reservar espacio para el membrete.

LetterheadLocation   Long requerida. Posición del membrete. Puede ser una de las siguientes constantes WdLetterheadLocation: wdLetterBottom, wdLetterLeft, wdLetterRight o wdLetterTop.

LetterheadSize   Single requerida. Espacio, en puntos, que debe reservarse para el membrete.

RecipientName   String requerida. Nombre de la persona que recibirá la carta.

RecipientAddress   String requerida. Dirección de correo de la persona que recibirá la carta.

Salutation   String requerida. Texto del saludo de la carta.

SalutationType   Long requerida. Tipo de saludo de la carta. Puede ser una de las siguientes constantes WdSalutationType: wdSalutationBusiness, wdSalutationFormat, wdSalutationInformal o wdSalutationOther.

RecipientReference   String requerida. Texto de la línea de referencia de la carta; por ejemplo, "En respuesta a:".

MailingInstructions   String requerida. Texto de la instrucción de correo de la carta; por ejemplo, "Correo certificado".

AttentionLine   String requerida. Texto de la línea de atención de la carta; por ejemplo, "Atención:".

Subject   String requerida. Texto del asunto de la carta especificada.

CCList   String requerida. Nombres de los destinatarios de la copia de la carta.

ReturnAddress   String requerida. Texto de la dirección de correo del remite de la carta.

SenderName   String requerida. Nombre de la persona que envía la carta.

Closing   String requerida. Texto de la despedida de la carta.

SenderCompany   String requerida. Nombre de la organización a la que pertenece la persona que crea la carta.

SenderJobTitle   String requerida. Puesto de la persona que crea la carta.

SenderInitials   String requerida. Iniciales de la persona que crea la carta.

EnclosureNumber   Long requerida. Número de documentos adjuntos de la carta.

InfoBlock   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.

RecipientCode   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.

RecipientGender   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.

ReturnAddressShortForm   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.

SenderCity   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.

SenderCode   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.

SenderGender   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.

SenderReference   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Word.


Ejemplo del método CreateLetterContent

En el siguiente ejemplo se utiliza el método CreateLetterContent para crear un objeto LetterContent nuevo en el documento activo y, a continuación, se utiliza este objeto con el método RunLetterWizard.

Set miCarta = ActiveDocument.CreateLetterContent(DateFormat:="31 de julio de 1996", _

    IncludeHeaderFooter:=False, PageDesign:="", _

    LetterStyle:=wdFullBlock, Letterhead:=True, LetterheadLocation:=wdLetterTop, _

    LetterheadSize:=CentimetersToPoints(4), RecipientName:="Juan Camilo Pardo", _

    RecipientAddress:="C/ D. Ramón de la Cruz, 73" & vbCr & "28004 Madrid", _

    Salutation:="Estimado Juan,", SalutationType:=wdSalutationInformal, _

    RecipientReference:="", MailingInstructions:="", AttentionLine:="", _

    Subject:="Informe de final de ejercicio", CCList:="", ReturnAddress:="", _

    SenderName:="", Closing:="Sinceramente suyo,", SenderCompany:="", _

    SenderJobTitle:="", SenderInitials:="", EnclosureNumber:=0)

ActiveDocument.RunLetterWizard LetterContent:=miCarta


Propiedad IncludeHeaderFooter

True si el encabezado y el pie de página de la plantilla del diseño de página se incluyen en una carta creada por el Asistente para cartas. Boolean de Lectura/Escritura.

Nota   Use la propiedad PageDesign para establecer el nombre de la plantilla adjunta a un documento creado por el Asistente para cartas.


Ejemplo de la propiedad IncludeHeaderFooter

En este ejemplo se crea un objeto LetterContent nuevo, se incluyen el encabezado y el pie de página de la plantilla Contemporary Letter y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

With miContenido

    .PageDesign = "C:\MSOffice\Plantillas\Cartas y faxes\Carta moderna.dot"

    .IncludeHeaderFooter = True

End With

Documents.Add.RunLetterWizard LetterContent:=miContenido


Propiedad RecipientReference

Devuelve o establece la línea de referencia, por ejemplo, "En respuesta a:", para una carta creada por el Asistente para cartas. String de Lectura/Escritura.


Ejemplo de la propiedad RecipientReference

En este ejemplo se crea un objeto LetterContent nuevo, se establecen varias propiedades, incluida la línea de referencia, y, a continuación, se ejecuta el Asistente para cartas utilizando el método RunLetterWizard.

Set miContenido = New LetterContent

With miContenido

    .RecipientReference = "En respuesta a:"

    .Salutation ="Hola"

    .MailingInstructions = "Correo certificado"

End With

Documents.Add.RunLetterWizard LetterContent:=miContenido


Propiedad InfoBlock

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Propiedad ReturnAddressShortForm

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Propiedad SenderReference

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Propiedad RecipientCode

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Propiedad SenderCode

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Propiedad SenderCity

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Propiedad RecipientGender

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Propiedad SenderGender

No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Método ApplyBulletDefault

Agrega viñetas y formato a los párrafos del intervalo del objeto ListFormat especificado. Si a los párrafos ya se les ha dado formato con viñetas, este método quita las viñetas y el formato.

Sintaxis

expresión.ApplyBulletDefault

expresión   Requerida. Expresión que devuelve un objeto ListFormat.


Ejemplo del método ApplyBulletDefault

En este ejemplo se agregan viñetas y formato a todos los párrafos de la selección. Si ya hay viñetas en la selección, el ejemplo quita las viñetas y el formato.

Selection.Range.ListFormat.ApplyBulletDefault

En este ejemplo se agregan o se quitan la viñeta y el formato al segundo párrafo de MiDoc.doc.

Documents("MiDoc.doc").Paragraphs(2).Range.ListFormat.ApplyBulletDefault

En este ejemplo se establece la variable miIntervalo para un intervalo que abarca los párrafos del documento activo desde el tres hasta el seis, ambos inclusive y, a continuación, se comprueba si el intervalo tiene formato de lista. Si no hay formato de lista, se agregan viñetas predeterminadas.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:= miDoc.Paragraphs(3).Range.Start, _

    End:=miDoc.Paragraphs(6).Range.End)

If miIntervalo.ListFormat.ListType = wdListNoNumbering Then

    miIntervalo.ListFormat.ApplyBulletDefault

End If


Método ApplyListTemplate

Aplica un conjunto de características de formato de lista al objeto List o ListFormat especificado.

Sintaxis 1

expresión.ApplyListTemplate(ListTemplate, ContinuePreviousList)

Sintaxis 2

expresión.ApplyListTemplate(ListTemplate, ContinuePreviousList, ApplyTo)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto List.

Sintaxis 2: Requerida. Expresión que devuelve un objeto ListFormat.

ListTemplate   Objeto ListTemplate requerido. La plantilla de lista que se va a aplicar.

ContinuePreviousList   Variant opcional. True para continuar la numeración como continuación de la lista previa, False para iniciar una nueva lista.

ApplyTo   Variant opcional. La porción de la lista a la que la plantilla de lista se va a aplicar. Puede ser una de las siguientes constantes WdListApplyTo: wdListApplyToSelection, wdListApplyToWholeList o wdListApplyToThisPointForward.


Ejemplo del método ApplyListTemplate

En este ejemplo se establece la variable miIntervalo para un intervalo del documento activo y, a continuación, se comprueba si el intervalo tiene formato de lista. Si no se ha aplicado formato de lista, la cuarta plantilla de lista de esquema numerado se aplica al intervalo.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:= miDoc.Paragraphs(3).Range.Start, _

    End:=miDoc.Paragraphs(6).Range.End)

If miIntervalo.ListFormat.ListType = wdListNoNumbering Then

    miIntervalo.ListFormat.ApplyListTemplate _

        ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(4)

End If

En este ejemplo se establece la variable miList para la cuarta lista de MiDocumento.doc y, a continuación, se aplica a la lista la tercera plantilla de lista con viñetas.

Set miList = Documents("MiDocumento.doc").Lists(4)

miList.ApplyListTemplate _

    ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(3)

En este ejemplo se establece la variable miIntervList para el formato de lista del segundo párrafo de MiDocumento.doc. En el ejemplo, a continuación, se aplica la tercera plantilla de lista numerada desde ese punto en adelante de la lista.

Set miIntervList = Documents("MiDocumento.doc").Paragraphs(2).Range.ListFormat

miIntervList.ApplyListTemplate _

    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(3), _

    ApplyTo:=wdListApplyToThisPointForward


Método ApplyOutlineNumberDefault

Agrega el esquema numerado predeterminado a los párrafos del intervalo del objeto ListFormat especificado. Si los párrafos ya tienen el formato de lista de esquema numerado, este método quita los números y el formato.

Sintaxis

expresión.ApplyOutlineNumberDefault

expresión   Requerida. Expresión que devuelve un objeto ListFormat.

Comentarios

Este método no quita estilos de títulos integrados que hayan sido aplicados a los párrafos.


Ejemplo del método ApplyOutlineNumberDefault

En este ejemplo se agrega numeración de esquema a los párrafos de la selección. Si la selección tiene ya formato de lista de esquema numerado, este método quita los números y el formato.

Selection.Range.ListFormat.ApplyOutlineNumberDefault

En este ejemplo se establece la variable miIntervalo para incluir los párrafos del documento activo desde el tres hasta el seis, ambos inclusive y, a continuación, se comprueba si el intervalo tiene formato de lista. Si no tiene formato de lista, se aplica el formato de lista de esquema numerado predeterminado.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:= miDoc.Paragraphs(3).Range.Start, _

    End:=miDoc.Paragraphs(6).Range.End)

If miIntervalo.ListFormat.ListType = wdListNoNumbering Then

    miIntervalo.ListFormat.ApplyOutlineNumberDefault

End If


Método ApplyNumberDefault

Agrega el esquema de numeración predeterminado a los párrafos del intervalo del objeto ListFormat especificado. Si los párrafos ya tienen formato de lista numerada, este método quita los números y el formato.

Sintaxis

expresión.ApplyNumberDefault

expresión   Requerida. Expresión que devuelve un objeto ListFormat.


Ejemplo del método ApplyNumberDefault

En este ejemplo se numeran los párrafos de la selección. Si la selección es ya una lista numerada, el ejemplo quita los números y el formato.

Selection.Range.ListFormat.ApplyNumberDefault

En este ejemplo se establece la variable miIntervalo para incluir los párrafos del documento activo desde el tres a seis, ambos inclusive y, a continuación, se comprueba si el intervalo tiene formato de lista. Si no hay formato de lista, se aplican al intervalo números predeterminados.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:= miDoc.Paragraphs(3).Range.Start, _

    End:=miDoc.Paragraphs(6).Range.End)

If miIntervalo.ListFormat.ListType = wdListNoNumbering Then

    miIntervalo.ListFormat.ApplyNumberDefault

End If


Propiedad Modified

True si la plantilla de lista especificada no es la plantilla de lista integrada para esa posición de la galería de lista. Boolean de sólo lectura.

Sintaxis

expresión.Modified(Index)

expresión   Requerida. Expresión que devuelve un objeto List Gallery.

Index   Long requerido. Un número del 1 al 7 que corresponde a la posición de la plantilla en el cuadro de diálogo Numeración y viñetas. Si se salta la opción Ninguno, las plantillas se numeran de izquierda a derecha, comenzando desde la fila superior.

Comentarios

Utilice el método Reset para configurar de nuevo una plantilla de lista de una galería de lista de en la plantilla de lista integrada.


Ejemplo de la propiedad Modified

En este ejemplo se comprueba si la primera plantilla de la ficha Viñetas del cuadro de diálogo Numeración y viñetas se ha cambiado. Si ha sido así, se restablece la primera plantilla.

plant = ListGalleries(wdBulletGallery).Modified(1)

If plant = True Then

    ListGalleries(wdBulletGallery).Reset(1)

Else

   Msgbox "Esta es la plantilla de lista integrada."

End If


Método CountNumberedItems

Devuelve el número de elementos con viñetas o numerados y campos NÚMEROLISTA del objeto Document, List o ListFormat especificado.

Sintaxis

expresión.CountNumberedItems(NumberType, Level)

expresión   Requerida. Expresión que devuelve un objeto Document, List o ListFormat.

NumberType   Variant opcional. El tipo de números que se va a contar. Puede ser una de las siguientes constantes WdNumberType: wdNumberParagraph, wdNumberListNum o wdNumberAllNumbers. El valor predeterminado es wdNumberAllNumbers.

Level   Variant opcional. Un número que corresponde al nivel de numeración que desea contar. Si este argumento se omite, se cuentan todos los niveles.

Comentarios

Los elementos con viñetas se cuentan cuando wdNumberParagraph o wdNumberAllNumbers (el predeterminado) se especifica para NumberType.

Hay dos tipos de números: números preestablecidos (wdNumberParagraph), que se pueden agregar a párrafos al seleccionar una plantilla del cuadro de diálogo Numeración y viñetas y campos NÚMEROLISTA (wdNumberListNum), que permiten agregar más de un número por párrafo.


Ejemplo del método CountNumberedItems

En este ejemplo se da formato a la selección actual como lista, utilizando la segunda plantilla de lista numerada. En el ejemplo, a continuación se cuentan los elementos numerados y con viñetas y los campos NÚMEROLISTA del documento activo y se presenta el resultado en un cuadro de mensaje.

Selection.Range.ListFormat.ApplyListTemplate _

    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)

Msgbox ActiveDocument.CountNumberedItems

En este ejemplo se cuenta el número de elementos de primer nivel numerados o con viñetas del documento activo.

Msgbox ActiveDocument.Content.ListFormat.CountNumberedItems(Level:=1)

En este ejemplo se muestra un cuadro de mensaje que informa sobre el número de elementos de cada lista de MiCarta.

i = 1

Set miDoc = Documents("MiCarta.doc")

For Each li In miDoc.Lists

    Msgbox "Lista " & i & " tiene " & li.CountNumberedItems & " elementos."

    i = i + 1

Next li

En este ejemplo se cuenta el número de campos NÚMEROLISTA de la variable miIntervalo. El resultado se muestra en un cuadro de mensaje.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Paragraphs(12).Range.Start, _

    End:=miDoc.Paragraphs(50).Range.End)

numfields = miIntervalo.ListFormat.CountNumberedItems(wdNumberListNum)

Msgbox numfields


Propiedad LinkedStyle

Devuelve o establece el nombre del estilo que está vinculado al objeto ListLevel especificado. String de Lectura/Escritura.


Ejemplo de la propiedad LinkedStyle

En este ejemplo se establece la variable miPlantList para la primera plantilla de lista (sin tener en cuenta Ninguno) de la ficha Esquema numerado del cuadro de diálogo Numeración y viñetas. Cada nivel de la lista tiene un estilo de título coincidente vinculado a él.

Set miPlantList = ListGalleries(wdOutlineNumberGallery).ListTemplates(1)

For Each minivel In miPlantList.ListLevels

    minivel.LinkedStyle = "Título " & minivel.index

Next minivel


Propiedad List

Devuelve un objeto List que representa la primera lista con formato contenida en el objeto ListFormat especificado. Es de sólo lectura.

Comentarios

Si el primer párrafo del intervalo del objeto ListFormat no tiene formato de lista, la propiedad List no devuelve nada.


Ejemplo de la propiedad List

En este ejemplo se devuelve la primera lista de la selección y, a continuación, se aplica la primera plantilla de lista (sin tener en cuenta Ninguno) de la ficha Numeración del cuadro de diálogo Numeración y viñetas. La selección sólo puede contener una lista.

Set miList = Selection.Range.ListFormat.List

miList.ApplyListTemplate ListTemplate:=ListGalleries(wdNumberGallery) _

    .ListTemplates(1)


Método ListIndent

Con este método el nivel de lista de los párrafos del intervalo del objeto ListFormat especificado se incrementa un nivel.

Sintaxis

expresión.ListIndent

expresión   Requerida. Expresión que devuelve un objeto ListFormat.


Ejemplo del método ListIndent

En este ejemplo se aplica una sangría de un nivel a cada párrafo de la primera lista del documento uno.

Documents(1).Lists(1).Range.ListFormat.ListIndent

En este ejemplo se da formato de lista de esquema numerado a los párrafos desde el cuatro hasta el ocho, ambos inclusive, del documento activo y, a continuación, se les aplica una sangría de un nivel.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:= miDoc.Paragraphs(4).Range.Start, _

    End:=miDoc.Paragraphs(8).Range.End)

With miIntervalo.ListFormat

    .ApplyOutlineNumberDefault

    .ListIndent

End With


Propiedad ListGalleries

Devuelve un conjunto ListGalleries que representa las tres galerías de plantillas de lista (Viñetas, Números y Esquema numerado). Cada galería corresponde a una ficha del cuadro de diálogo Numeración y viñetas. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad ListGalleries

En este ejemplo se establece la variable miplntlist para la segunda plantilla de lista de la ficha Esquema numerado del cuadro de diálogo Numeración y viñetas. El ejemplo luego aplica esa plantilla a la primera lista del documento activo.

Set miplntlist = ListGalleries(wdOutlineNumberGallery).ListTemplates(2)

ActiveDocument.Lists(1).ApplyListTemplate ListTemplate:=miplntlist

En este ejemplo se recorre el conjunto ListGalleries y se cambian de nuevo a la plantilla integrada las plantillas de cada galería de plantillas de lista.

For Each galdlist In ListGalleries

    For i = 1 To 7

        galdlist.Reset(i)

    Next i

Next galdlist


Propiedad ListLevelNumber

Objeto Style: Devuelve el nivel de lista del estilo especificado. Long de sólo lectura.

Objeto ListFormat: Devuelve o establece el nivel de lista del primer párrafo del objeto ListFormat especificado. Long de Lectura/Escritura.


Ejemplo de la propiedad ListLevelNumber

En este ejemplo se devuelve el nivel de lista del tercer párrafo del documento activo.

lev = ActiveDocument.Paragraphs(3).Range.ListFormat.ListLevelNumber

En este ejemplo se muestra el nivel de lista del estilo de Título 3.

Msgbox ActiveDocument.Styles(wdStyleHeading3).ListLevelNumber


Propiedad ListLevels

Devuelve un conjunto ListLevels que representa todos los niveles del ListTemplate especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad ListLevels

En este ejemplo se establece la variable miPlantList para la primera plantilla de lista (sin tener en cuenta Ninguno) de la ficha Esquema numerado del cuadro de diálogo Numeración y viñetas. Cada nivel de la lista tiene un estilo de título coincidente vinculado a él.

Set miPlantList = ListGalleries(wdOutlineNumberGallery).ListTemplates(1)

For Each minivel In miPlantList.ListLevels

    minivel.LinkedStyle = "Título " & minivel.index

Next minivel


Método ListOutdent

Disminuye, en incrementos de un nivel, el nivel de lista de los párrafos del intervalo del objeto ListFormat especificado.

Sintaxis

expresión.ListOutdent

expresión   Requerida. Expresión que devuelve un objeto ListFormat.


Ejemplo del método ListOutdent

En este ejemplo se reduce la sangría de cada párrafo de la primera lista del documento activo en un nivel.

ActiveDocument.Lists(1).Range.ListFormat.ListOutdent

En este ejemplo se da formato a los párrafos del cuatro al ocho de MiDoc.doc como lista de esquema numerado, se aplica una sangría de un nivel a los párrafos y, a continuación, se quita la sangría del primer párrafo de la lista.

Set miDoc = Documents("MiDoc.doc")

Set miIntervalo = miDoc.Range(Start:= miDoc.Paragraphs(4).Range.Start, _

    End:=miDoc.Paragraphs(8).Range.End)

With miIntervalo.ListFormat

    .ApplyOutlineNumberDefault

    .ListIndent

End With

miDoc.Paragraphs(4).Range.ListFormat.ListOutdent


Propiedad Lists

Devuelve un conjunto Lists que contiene todas las listas del documento especificado a las que se ha dado formato. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Lists

En este ejemplo se da formato a la selección como lista numerada. En este ejemplo se muestra un cuadro de mensaje que informa sobre el número de listas del documento activo.

Selection.Range.ListFormat.ApplyListTemplate _

    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)

MsgBox "Este documento tiene " & ActiveDocument.Lists.Count & " listas."

En este ejemplo se da formato a la tercera lista del documento activo con el formato de lista con viñetas predeterminado. Si a la lista se le ha dado ya formato de lista con viñetas, el ejemplo quita el formato.

If ActiveDocument.Lists.Count >= 3 Then

    ActiveDocument.Lists(3).Range.ListFormat.ApplyBulletDefault

End If

En este ejemplo se muestra un cuadro de mensaje que informa sobre el número de elementos de cada lista de MiCarta.doc.

Set miDoc = Documents("MiCarta.doc")

i = miDoc.Lists.Count

For each li in miDoc.Lists

    Msgbox "Lista " & i & " tiene " & li.CountNumberedItems & " elementos."

    i = i - 1

Next li


Propiedad ListTemplate

Devuelve un objeto ListTemplate que representa el formato de lista del objeto Style o ListFormat especificado. Es de sólo lectura.

Comentarios

Una plantilla de lista incluye todo el formato que define una lista concreta. Cada uno de los siete formatos (excepto Ninguno) que se encuentra en cada una de las fichas del cuadro de diálogo Numeración y viñetas corresponde a una plantilla de lista. Los documentos y las plantillas también pueden contener conjuntos de plantillas de lista.

Si el primer párrafo del intervalo del objeto ListFormat no tiene el formato de lista, la propiedad ListTemplate devuelve el valor Nothing.


Ejemplo de la propiedad ListTemplate

En este ejemplo se comprueba la plantilla de lista que se usa para el segundo párrafo del documento activo y, a continuación, se aplica esa plantilla de lista a la selección.

Set miplantl = ActiveDocument.Paragraphs(2).Range. _

    ListFormat.ListTemplate

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=miplantl


Propiedad ListTemplates

Devuelve un conjunto ListTemplates que representa todos los formatos de lista del documento, plantilla o galería de lista especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad ListTemplates

En este ejemplo se establece la variable miplant para la primera plantilla de lista de la ficha Esquema numerado del cuadro de diálogo Numeración y viñetas. La plantilla se modifica para usar minúsculas en cada nivel y se aplica a la segunda lista del documento activo.

Set miplant = ListGalleries(wdOutlineNumberGallery).ListTemplates(1)

For each niv in miplant.ListLevels

    niv.NumberStyle = wdListNumberStyleLowercaseLetter

Next niv

ActiveDocument.Lists(2).ApplyListTemplate ListTemplate:=miplant

En este ejemplo se muestra el número plantillas de lista que se usan en el documento activo.

Msgbox ActiveDocument.ListTemplates.Count


Propiedad ListValue

Devuelve el valor numérico del primer párrafo del intervalo del objeto ListFormat especificado. Por ejemplo, la propiedad ListValue si se aplicara al segundo párrafo de una lista alfabética devolvería un 2. Long de sólo lectura.

Comentarios

Utilice la propiedad ListString para devolver una cadena que representa la apariencia del valor de lista.

Si el objeto ListFormat es una lista con viñetas, ListValue devuelve un 1.

Si el objeto ListFormat es una lista de esquema numerado, ListValue devuelve el valor numérico del primer párrafo de la forma que aparece en la secuencia de párrafos que están al mismo nivel. Por ejemplo, la propiedad ListValue si se aplicara a un párrafo numerado "A.2" devolvería 2.

Esta propiedad no devolverá el valor de ningún campo NÚMEROLISTA.


Ejemplo de la propiedad ListValue

En este ejemplo se muestra tanto el valor numérico del primer párrafo de la selección como la representación en forma de cadena de ese valor.

v = Selection.Range.ListFormat.ListValue

cadenLi = Selection.Range.ListFormat.ListString

MsgBox "El valor de lista " & v & " se representa mediante la cadena " & cadenLi


Propiedad ListString

Devuelve una cadena que representa la apariencia del valor de lista del primer párrafo del intervalo del objeto ListFormat especificado. Por ejemplo, el segundo párrafo de una lista alfabética devolvería B. String de sólo lectura.

Comentarios

Para una lista con viñetas, deberá aplicar la fuente correcta para ver la cadena. La mayoría de las viñetas utilizan la fuente Symbol o Wingdings.

Utilice la propiedad ListValue para devolver el valor numérico del párrafo.


Ejemplo de la propiedad ListString

En este ejemplo se muestra tanto el valor numérico del primer párrafo de la selección como la representación en forma de cadena del valor de lista.

v = Selection.Range.ListFormat.ListValue

cadenLi = Selection.Range.ListFormat.ListString

MsgBox "El valor de lista " & v & " se representa mediante la cadena " & cadenLi


Propiedad OutlineNumbered

True si el objeto ListTemplate especificado tiene la característica de esquema numerado. Boolean de Lectura/Escritura.

Comentarios

Al definir esta propiedad como False se convierte la plantilla de la lista en una lista de un sólo nivel, utilizando el formato del primer nivel.

No se puede definir esta propiedad para un objeto ListTemplate que se devolvió desde un objeto ListGallery.


Ejemplo de la propiedad OutlineNumbered

En este ejemplo se cambia la lista de esquema numerado seleccionada a una lista numerada de un sólo nivel.

Selection.Range.ListFormat.ListTemplate.OutlineNumbered = False

En este ejemplo se comprueba si la tercera lista de MiDoc.doc es una lista de esquema numerado. Si es, se le aplica la tercera plantilla de lista de esquema numerado.

Set miPlantList = Documents("MiDoc.doc").Lists(3).Range.ListFormat.ListTemplate

num = miPlantList.OutlineNumbered

If num = True Then ActiveDocument.Lists(3).ApplyListTemplate _

    ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(3)


Propiedad ListParagraphs

Devuelve un conjunto ListParagraphs que representa todos los párrafos numerados de la lista, documento o intervalo. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad ListParagraphs

En este ejemplo se agrega un fondo amarillo a cada uno de los párrafos del primer documento numerados o con viñetas.

For Each parrnum In Documents(1).ListParagraphs

    parrnum.Shading.BackgroundPatternColorIndex = wdYellow

Next parrnum

En este ejemplo se aplica un doble subrayado a los párrafos de la segunda lista del documento activo.

For Each miparr In ActiveDocument.Lists(2).ListParagraphs

    miparr.Range.Underline = wdUnderlineDouble

Next miparr


Método RemoveNumbers

Quita los números o viñetas del objeto Document, List o ListFormat especificado.

Sintaxis

expresión.RemoveNumbers(NumberType)

expresión   Requerida. Expresión que devuelve un objeto Document, List o ListFormat.

NumberType   Variant opcional. El tipo de número que va a quitarse. Puede ser una de las siguientes constantes WdNumberType: wdNumberParagraph, wdNumberListNum o wdNumberAllNumbers. El valor predeterminado es wdNumberAllNumbers.

Comentarios

Cuando se aplica este método a un objeto List, quita sólo los números de los párrafos de la lista especificada y se salta cualquiera de los números intercalados de otras listas. Si este método se aplica al objeto ListFormat para un intervalo de texto, se quitan todos los números de todas las listas del intervalo.


Ejemplo del método RemoveNumbers

En este ejemplo se quitan las viñetas o números de todos los párrafos numerados de la selección.

Selection.Range.ListFormat.RemoveNumbers

En este ejemplo se quitan los números desde el comienzo de todos los párrafos numerados del documento activo.

ActiveDocument.RemoveNumbers wdNumberParagraph

En este ejemplo se quitan los campos NÚMEROLISTA de la selección.

Selection.Range.ListFormat.RemoveNumbers wdNumberListNum

En este ejemplo se quitan las viñetas o números de la tercera lista de MiDocumento.doc.

If Documents("MiDocumento.doc").Lists.Count >= 3 Then

    Documents("MiDocumento.doc").Lists(3).RemoveNumbers

End If


Propiedad ResetOnHigher

True si el nivel de lista especificado reinicia la numeración desde 1 después de un nivel de lista más alto. False si la numeración continúa secuencialmente cada vez que aparece el nivel de la lista. Boolean de Lectura/Escritura.

Comentarios

Esta característica permite que las listas se puedan intercalar, manteniendo la secuencia numérica.


Ejemplo de la propiedad ResetOnHigher

En este ejemplo se establece cada uno de los nueve niveles de lista de la primera plantilla de lista de esquema numerado, de forma que se pueda continuar la numeración secuencial del nivel siempre que se utilice dicho nivel.

For Each li In ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels

    li.ResetOnHigher = False

Next li


Propiedad StartAt

Devuelve o establece el número de comienzo del objeto ListLevel especificado. Long de Lectura/Escritura.


Ejemplo de la propiedad StartAt

En este ejemplo se establecen el estilo de número y el número de comienzo de la tercera plantilla de lista de esquema numerado. Debido a que el estilo utiliza letras mayúsculas y el número de comienzo es el 4, la primera letra es la D.

Set miniv = ListGalleries(wdOutlineNumberGallery) _

    .ListTemplates(3).ListLevels(1)

With miniv

    .NumberStyle = wdListNumberStyleUppercaseLetter

    .StartAt = 4

End With


Propiedad TabPosition

Devuelve o establece la posición de tabulación del objeto ListLevel especificado. Single de Lectura/Escritura.


Ejemplo de la propiedad TabPosition

En este ejemplo se establece cada número de nivel de lista de modo que se aplique una sangría de 1,25 cm (36 puntos) con respecto al nivel anterior y la tabulación se establezca a una distancia de 0,6 cm (18 puntos) con respecto al número.

r = 0

For Each niv In ListGalleries(wdOutlineNumberGallery) _

    .ListTemplates(1).ListLevels

        niv.Alignment = wdListLevelAlignLeft

        niv.NumberPosition = r

        niv.TrailingCharacter = wdTrailingTab

        niv.TabPosition = r + 18

        r = r + 36

Next niv

En este ejemplo se configura la variable miplantL para la primera plantilla de lista numerada y, a continuación, se establece la posición de tabulación a 2,54 cm. La plantilla de lista se aplica luego a la selección.

Set miplantL = ListGalleries(wdNumberGallery).ListTemplates(1)

miplantL.ListLevels(1).TabPosition = InchesToPoints(1)

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=miplantL


Propiedad TextPosition

Devuelve o establece la posición de la segunda línea de texto ajustado del objeto ListLevel especificado. Single de Lectura/Escritura.


Ejemplo de la propiedad TextPosition

En este ejemplo se establece la sangría para todos los niveles de la primera plantilla de lista de esquema numerado. A cada número de nivel de la lista se le aplica una sangría de 1,25 cm (36 puntos) con respecto al nivel anterior, la tabulación se establece en 0,6 cm (18 puntos) en relación al número, y al texto ajustado se le aplica una sangría de 0,6 cm (18 puntos) desde el número.

r = 0

For Each niv In ListGalleries(wdOutlineNumberGallery) _

        .ListTemplates(1).ListLevels

    niv.Alignment = wdListLevelAlignLeft

    niv.NumberPosition = r

    niv.TrailingCharacter = wdTrailingTab

    niv.TabPosition = r + 18

    niv.TextPosition = r + 18

    r = r + 36

Next niv


Propiedad TrailingCharacter

Devuelve o establece el carácter que se inserta después del número en el nivel de lista especificado. Puede ser una de las siguientes constantes WdTrailingCharacter: wdTrailingNone, wdTrailingSpace o wdTrailingTab. Long de Lectura/Escritura.


Ejemplo de la propiedad TrailingCharacter

En este ejemplo se establece la alineación de número y texto para cada nivel de la sexta plantilla de lista de esquema numerado. Hay un espacio a continuación del número de cada nivel.

r = 0

For Each niv In ListGalleries(wdOutlineNumberGallery) _

        .ListTemplates(6).ListLevels

    niv.Alignment = wdListLevelAlignLeft

    niv.NumberPosition = r

    niv.TextPosition = r

    niv.TrailingCharacter = wdTrailingSpace

    r = r + 18

Next niv


Propiedad ListFormat

Devuelve un objeto ListFormat que representa todas las características de formato de lista de un intervalo. Es de sólo lectura.


Ejemplo de la propiedad ListFormat

En este ejemplo se configura la variable miDoc para un intervalo que incluye los párrafos desde el tres hasta el seis, ambos inclusive, del documento activo. En este ejemplo, a continuación, se aplica el formato de lista de esquema numerado al intervalo o se quita, dependiendo de si el formato se ha aplicado ya o no al intervalo.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:= miDoc.Paragraphs(3).Range.Start, _

    End:=miDoc.Paragraphs(6).Range.End)

miIntervalo.ListFormat.ApplyOutlineNumberDefault

En este ejemplo se aplica la segunda plantilla de lista de la ficha Números del cuadro de diálogo Numeración y viñetas a todos los párrafos de la selección.

Selection.Range.ListFormat.ApplyListTemplate _

    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)


Método CanContinuePreviousList

Devuelve una constante WdContinue (wdContinueDisabled, wdResetList o wdContinueList) que indica si se puede continuar con el formato de la lista anterior.

Sintaxis

expresión.CanContinuePreviousList(ListTemplate)

expresión   Requerida. Expresión que devuelve un objeto List o ListFormat.

ListTemplate   Objeto ListTemplate requerido. Plantilla de lista que se ha aplicado a los párrafos anteriores del documento.

Comentarios

Este método devuelve el estado de las opciones Continuar lista anterior y Reiniciar numeración del cuadro de diálogo Numeración y viñetas. Para cambiar los valores de estas opciones, defina el argumento ContinuePreviousList del método ApplyListTemplate.


Ejemplo del método CanContinuePreviousList

En este ejemplo se comprueba si la numeración de una lista anterior está deshabilitada. Si no está deshabilitada, la plantilla de lista actual se aplica con una numeración definida de forma que se continúe la lista anterior. La selección debe estar en la segunda lista, de lo contrario se producirá un error en este ejemplo.

Set miFL = Selection.Range.ListFormat

temp = miFL.CanContinuePreviousList(ListTemplate:=miFL.ListTemplate)

If temp <> wdContinueDisabled Then

    miFL.ApplyListTemplate ListTemplate := miFL.ListTemplate, ContinuePreviousList:=True

End If


Propiedad ListType

Devuelve el tipo de listas contenido en el intervalo del objeto ListFormat especificado. Puede ser una de las siguientes constantes WdListType: wdListBullet, wdListListNumOnly, wdListMixedNumbering, wdListNoNumbering, wdListOutlineNumbering o wdListSimpleNumbering. Long de sólo lectura.

Comentarios

La constante wdListListNumOnly hace referencia a campos NÚMEROLISTA, que pueden agregarse al texto de un párrafo.


Ejemplo de la propiedad ListType

En este ejemplo, se comprueba si la primera lista del documento activo es una lista simple numerada. Si es así, se aplica la cuarta plantilla de lista de la ficha Números del cuadro de diálogo Numeración y viñetas.

Set miLista = ActiveDocument.Lists(1)

If miLista.Range.ListFormat.ListType = wdListSimpleNumbering Then

    miLista.ApplyListTemplate ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(4)

End If


Propiedad NumberFormat

Devuelve o establece el formato de número del nivel de lista especificado. String de Lectura/Escritura.

Comentarios

El signo de porcentaje (%) seguido por cualquier número del 1 al 9 representa el número de estilo del nivel de lista respectivo. Por ejemplo, si desea que el formato del primer nivel sea "Artículo I", "Artículo II", etc., la cadena para la propiedad NumberFormat será "Artículo %1" y el valor de la propiedad NumberStyle se establecerá en wdListNumberStyleUpperCaseRoman.

Si se establece el valor de la propiedad NumberStyle en wdListNumberStyleBullet, la cadena de la propiedad NumberFormat sólo puede contener un carácter.


Ejemplo de la propiedad NumberFormat

En este ejemplo, se crea una plantilla de lista que aplica sangría a cada nivel y le da formato con un número árabe y un punto. A continuación, se aplica la nueva plantilla de lista a la selección.

Set LT = ActiveDocument.ListTemplates.Add(OutlineNumbered:=True)

For x = 1 To 9

    With LT.ListLevels(x)

        .NumberStyle = wdListNumberStyleArabic

        .NumberPosition = InchesToPoints(0.25 * (x - 1))

        .TextPosition = InchesToPoints(0.25 * x)

        .NumberFormat = "%" & x & "."

    End With

Next x

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=LT


Método Apply

Objeto AutoCorrectEntry: Reemplaza un intervalo por el valor del elemento de Autocorrección.

Objeto Shape o ShapRange: Aplica a la primera forma especificada el formato que acaba de copiarse mediante el método PickUp.

Sintaxis 1

expresión.Apply(Range)

Sintaxis 2

expresión.Apply

expresión   Requerida. Expresión que devuelve un objeto AutoCorrectEntry (Sintaxis 1), o un objeto Shape o ShapeRange (Sintaxis 2).

Range   Objeto Range requerido.  Objeto Range al que reemplaza el elemento de Autocorrección.

Comentarios

Si no se ha copiado previamente el formato del objeto Shape o ShapeRange mediante el método PickUp, se generará un error al usar el método Apply.


Ejemplo del método Apply

En este ejemplo se agrega un elemento de sustitución de Autocorrección y, a continuación, se aplica el elemento de Autocorrección "sr" al texto seleccionado.

AutoCorrect.Entries.Add Name:= "sr", Value:= "Silvia Rodríguez"

AutoCorrect.Entries("sr").Apply Selection.Range

En este ejemplo se aplica el elemento de Autocorrección "sr" a la primera palabra del documento activo.

AutoCorrect.Entries("sr").Apply ActiveDocument.Words(1)

En este ejemplo se copia el formato de la forma uno del documento activo y se aplica el formato copiado a la forma dos del mismo documento.

With ActiveDocument

    .Shapes(1).PickUp

    .Shapes(2).Apply

End With


Propiedad PrintPostScriptOverText

True si las instrucciones del campo IMPRIMIR de un documento, como los comandos PostScript, van a imprimirse en la parte superior del texto y de los gráficos cuando se utiliza una impresora PostScript. Boolean de Lectura/Escritura.

Comentarios

Para Windows, esta propiedad controla si el código PostScript se imprime en un documento Word convertido para el sistema Macintosh. Si el documento no contiene campos IMPRIMIR, la propiedad no tendrá efecto.


Ejemplo de la propiedad PrintPostScriptOverText

En este ejemplo se establece que Word imprima las instrucciones del campo IMPRIMIR en la parte superior del texto y de los gráficos y, a continuación, se imprime el documento activo.

ActiveDocument.PrintPostScriptOverText = True

ActiveDocument.PrintOut

En este ejemplo se devuelve el estado actual de la opción Imprimir PostSEcript sobre el texto de la ficha Imprimir del cuadro de diálogo Opciones.

currSet = ActiveDocument.PrintPostScriptOverText


Método ClearAll

Objeto TabStops: Borra todas las tabulaciones personalizadas de los párrafos especificados.

Objeto KeyBindings: Borra todas las asignaciones de teclas personalizadas y restaura las asignaciones de teclas de método abreviado de Word.

Objeto Dictionaries: Descarga todos los diccionarios personalizados.

Sintaxis

expresión.ClearAll

expresión   Requerida. Expresión que devuelve un objeto TabStops, KeyBindings o Dictionaries.

Comentarios

Para borrar una tabulación individual, utilice el método Clear del objeto TabStop. El método ClearAll no borra las tabulaciones predeterminadas. Para manipular estas tabulaciones, utilice la propiedad DefaultTabStop para el documento.

Después de aplicar el método ClearAll al objeto KeyBindings, se vuelven a establecer las asignaciones de teclas de la plantilla o del documento especificado a los valores predeterminados. Utilice la propiedad CustomizationContext para especificar el contexto de un documento o de una plantilla antes de usar el método ClearAll.

Cuando el método ClearAll se utiliza con el objeto Dictionaries, no elimina los archivos de los diccionarios personalizados. Después de utilizar este método, el número de diccionarios personalizados del conjunto es 0 (cero).


Ejemplo del método ClearAll

En este ejemplo se borran todas las tabulaciones personalizadas del documento activo.

ActiveDocument.Paragraphs.TabStops.ClearAll

En este ejemplo se borran las asignaciones de teclas personalizadas de la plantilla Normal. Las asignaciones de teclas se vuelven a establecer en los valores predeterminados.

CustomizationContext = NormalTemplate

KeyBindings.ClearAll

En este ejemplo se descargan todos los diccionarios personalizados.

CustomDictionaries.ClearAll


Propiedad ParagraphFormat

Devuelve o establece un objeto ParagraphFormat que representa los valores del párrafo para el intervalo, la selección, la operación de búsqueda o sustitución o el estilo especificado. Lectura/Escritura.


Ejemplo de la propiedad ParagraphFormat

En este ejemplo se establece el formato de párrafo para la selección actual que va a alinearse a la derecha.

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

En este ejemplo se establece el formato de párrafo de un intervalo que incluye todo el contenido de MiDoc.doc. Los párrafos de este documento tienen espacio doble y una tabulación personalizada de 0,1 cm.

Set miIntervalo = Documents("MiDoc.doc").Content

With miIntervalo.ParagraphFormat

    .Space2

    .TabStops.Add Position:=InchesToPoints(.25)

End With

En este ejemplo se modifica el estilo Título 2 del documento activo. Los párrafos con formato de este estilo tienen sangría en la primera tabulación y espacio doble.

With ActiveDocument.Styles(wdStyleHeading2).ParagraphFormat

    .TabIndent(1)

    .Space2

End With

En este ejemplo se buscan todos los párrafos con espacio doble en el documento activo y se sustituye el formato por el interlineado de 1,5.

With ActiveDocument.Content.Find

    .ClearFormatting

    .ParagraphFormat.Space2

    .Replacement.ClearFormatting

    .Replacement.ParagraphFormat.Space15

    .Execute FindText:="", ReplaceWith:="", _

        Replace:=wdReplaceAll

End With


Propiedad Style

Devuelve o establece el estilo del objeto especificado. Para establecer esta propiedad, especifique el nombre local del estilo, un número entero o una constante WdBuiltinStyle (consulte los "Comentarios"), o bien un objeto que represente dicho estilo. Variant de Lectura/Escritura.

Comentarios

Cuando se devuelve el estilo de un intervalo que incluye varios estilos, sólo se devolverá el estilo del primer carácter o párrafo.

El valor de la propiedad Style puede ser una de las siguientes constantes WdBuiltinStyle:

wdStyleBlockQuotation wdStyleBodyText wdStyleBodyText2 wdStyleBodyText3 wdStyleBodyTextFirstIndent wdStyleBodyTextFirstIndent2 wdStyleBodyTextIndent wdStyleBodyTextIndent2 wdStyleBodyTextIndent3 wdStyleCaption wdStyleClosing wdStyleCommentReference wdStyleCommentText wdStyleDate wdStyleDefaultParagraphFont wdStyleEmphasis wdStyleEndnoteReference wdStyleEndnoteText wdStyleEnvelopeAddress wdStyleEnvelopeReturn wdStyleFooter wdStyleFootnoteReference wdStyleFootnoteText wdStyleHeader wdStyleHeading1 wdStyleHeading2 wdStyleHeading3 wdStyleHeading4 wdStyleHeading5 wdStyleHeading6 wdStyleHeading7 wdStyleHeading8 wdStyleHeading9 wdStyleHyperlink wdStyleHyperlinkFollowed wdStyleIndex1 wdStyleIndex2 wdStyleIndex3 wdStyleIndex4 wdStyleIndex5 wdStyleIndex6 wdStyleIndex7 wdStyleIndex8 wdStyleIndex9 wdStyleIndexHeading	wdStyleLineNumber wdStyleList wdStyleList2 wdStyleList3 wdStyleList4 wdStyleList5 wdStyleListBullet wdStyleListBullet2 wdStyleListBullet3 wdStyleListBullet4 wdStyleListBullet5 wdStyleListContinue wdStyleListContinue2 wdStyleListContinue3 wdStyleListContinue4 wdStyleListContinue5 wdStyleListNumber wdStyleListNumber2 wdStyleListNumber3 wdStyleListNumber wdStyleListNumber5 wdStyleMacroText wdStyleMessageHeader wdStyleNavPane wdStyleNormal wdStyleNormalIndent wdStyleNoteHeading wdStylePageNumber wdStylePlainText wdStyleSalutation wdStyleSignature wdStyleStrong wdStyleSubtitle wdStyleTableOfFigures wdStyleTitle wdStyleTOAHeading wdStyleTOC1 wdStyleTOC2 wdStyleTOC3 wdStyleTOC4 wdStyleTOC5 wdStyleTOC6 wdStyleTOC7 wdStyleTOC8 wdStyleTOC9


Ejemplo de la propiedad Style

En este ejemplo se muestra el estilo de cada párrafo del documento activo.

For Each párrafo in ActiveDocument.Paragraphs

    MsgBox párrafo.Style

Next párrafo

En este ejemplo se muestra el estilo de cada carácter de la selección. Cada elemento del conjunto Characters es un objeto Range.

For each c in Selection.Characters

    MsgBox c.Style

Next c

En este ejemplo se establece la alternancia de los estilos Título 3 y Normal para todos los párrafos del documento activo.

For i = 1 To ActiveDocument.Paragraphs.Count

    If i Mod 2 = 0 Then

        ActiveDocument.Paragraphs(i).Style = wdStyleNormal

    Else: ActiveDocument.Paragraphs(i).Style = wdStyleHeading3

    End If

Next i

En este ejemplo se buscan todas las instancias del estilo Título 1 del documento activo y se sustituyen por el estilo Título 2.

With ActiveDocument.Content.Find

    .ClearFormatting

    .Style = wdStyleHeading1

    .Replacement.ClearFormatting

    .Replacement.Style = wdStyleHeading2

    .Execute FindText:="", ReplaceWith:="", _

        Replace:=wdReplaceAll, Format:=True

End With


Propiedad InUse

True si el estilo especificado es un estilo integrado que se ha modificado o aplicado en el documento o un nuevo estilo que se ha creado en el mismo. Boolean de sólo lectura.

Comentarios

Esta propiedad no indica si el estilo está ya aplicado al texto del documento. Por ejemplo, si se elimina texto al que se haya dado formato con un estilo, el valor de la propiedad InUse del estilo permanece en True. Para los estilos integrados que no se hayan usado en el documento, esta propiedad devuelve el valor False.


Ejemplo de la propiedad InUse

En este ejemplo se muestra un cuadro de mensaje que enumera los nombres de todos los estilos que se utilizan actualmente en el documento activo.

Set midoc = ActiveDocument

msg = "Estilos en uso:" & vbCr

For Each estilo In midoc.Styles

    If estilo.InUse = True Then

        With midoc.Content.find

            .ClearFormatting

            .Text = ""

            .Style = estilo

            .Execute Format:=True

            If .Found = True Then

               msg = msg & estilo & vbCr

            End If

        End With

    End If

Next estilo

MsgBox msg


Propiedad WordBasic

Devuelve un objeto Automation (Word Basic) que incluye métodos para todas las instrucciones y las funciones de WordBasic disponibles en Word versión 6.0 y Word para Windows 95. Es de sólo lectura.

Comentarios

En Word 97, cuando se abre una plantilla de Word versión 6.0 o de Word para Windows 95 que contenga macros de WordBasic, las macros se convertirán automáticamente a los módulos de Visual Basic. Todas las instrucciones y las funciones de WordBasic de la macro se convierten al método de Word.Basic correspondiente.

Para obtener información acerca de las instrucciones y las funciones de WordBasic, consulte el Microsoft Word Developer's Kit o la Ayuda de WordBasic de Word versión 6.0 o Word para Windows 95.

Para obtener información acerca la conversión de WordBasic a Visual Basic, consulte Equivalentes de Visual Basic para comandos de WordBasic.


Ejemplo de la propiedad WordBasic

En este ejemplo se utiliza el objeto Word.Basic para crear un nuevo documento e insertar los nombres de fuente disponibles. Cada nombre de fuente tiene el formato de su fuente correspondiente.

With WordBasic

    .FileNewDefault

    For aCount = 1 To .CountFonts()

        .Font .[Font$](aCount)

        .Insert .[Font$](aCount)

        .InsertPara

    Next aCount

End With


Microsoft Word Developer's Kit

"Microsoft Word Developer's Kit", 3ª ed. (Microsoft Press, 1995). Manual y documentación de referencia para las macros de programación de WordBasic.


Propiedad LinkToPrevious

True si el encabezado o el pie de página está vinculado al encabezado o pie de página correspondiente de la sección anterior. Cuando se vincula un encabezado o un pie de página, su contenido es el mismo que el del encabezado o pie de página anterior. Boolean de Lectura/Escritura.

Comentarios

Puesto que el valor de la propiedad LinkToPrevious está establecido en True a menos que lo cambie, puede agregar encabezados, pies de página y números de página a todo el documento trabajando con todos ellos en la primera sección. Por ejemplo, en el siguiente ejemplo se agregan números de página a todas las secciones del documento activo.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.Add

La propiedad LinkToPrevious se aplica a todos los encabezados y pies de página individualmente. Por ejemplo, el valor de la propiedad LinkToPrevious podría establecerse en True para el encabezado de las páginas pares, pero en False para los pies de página de dichas páginas.


Ejemplo de la propiedad LinkToPrevious

En la primera parte de este ejemplo se crea un nuevo documento con dos secciones. En la segunda, se crean encabezados exclusivos para las páginas pares e impares de las secciones uno y dos del nuevo documento.

Documents.Add

With Selection

    For j = 1 to 4

        .TypeParagraph

        .InsertBreak

        .TypeParagraph

    Next j

End With

With ActiveDocument

    .Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage

    .PageSetup.OddAndEvenPagesHeaderFooter = True

End With

With ActiveDocument.Sections(2)

    With .Headers(wdHeaderFooterPrimary)

        .LinkToPrevious = False

        .Range.InsertBefore "Encabezado impar de la sección 2"

    End With

    With .Headers(wdHeaderFooterEvenPages)

        .LinkToPrevious = False

        .Range.InsertBefore "Encabezado par de la sección 2"

    End With

End With

With ActiveDocument.Sections(1)

    .Headers(wdHeaderFooterPrimary) _

        .Range.InsertBefore "Encabezado impar de la sección 1"

    .Headers(wdHeaderFooterEvenPages) _

        .Range.InsertBefore "Encabezado par de la sección 1"

End With


Propiedad RestartNumberingAtSection

True si la numeración de páginas vuelve a iniciarse en 1 al principio de la sección especificada. Boolean de Lectura/Escritura.

Comentarios

Si su valor se establece en False, la propiedad RestartNumberingAtSection suplantará a la propiedad StartingNumber para que la numeración pueda continuar desde la sección anterior.


Ejemplo de la propiedad RestartNumberingAtSection

En este ejemplo se agregan números de página a los encabezados del documento activo y, a continuación, se establece la numeración de páginas para que vuelva a iniciarse en 1 al principio de cada sección.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _

    .PageNumbers.Add Pagenumberalignment:=wdAlignPageNumberCenter

For Each s In ActiveDocument.Sections

    With s.Headers(wdHeaderFooterPrimary).PageNumbers

        .RestartNumberingAtSection = True

        .StartingNumber = 1

    End With

Next s


Propiedad Level

Objeto HeadingStyle: devuelve o establece el nivel del estilo de título de una tabla de contenido o de una tabla de ilustraciones. Long de Lectura/Escritura.

Objeto Subdocument: devuelve el nivel de título utilizado para crear el subdocumento. Long de sólo lectura.


Ejemplo de la propiedad Level

En este ejemplo, se agrega una tabla de contenido en el punto de inserción del documento activo y, a continuación, se cambian los niveles de los estilos de los títulos.

ActiveDocument.TablesOfContents.Add _

    Range:=Selection.Range, _

    RightAlignPageNumbers:=True, _

    UseHeadingStyles:=True, _

    UpperHeadingLevel:=1, _

    LowerHeadingLevel:=3, _

    IncludePageNumbers:=True, _

    TableID:=wdTOCFormal

With ActiveDocument.TablesOfContents(1).HeadingStyles

    .Add Style:="Title", Level:=1

    .Add Style:="SubTitle", Level:=2

    .Add Style:="List Bullet", Level:=3

End With

With ActiveDocument.TablesOfContents(1)

    .HeadingStyles(1).Level = 2

    .HeadingStyles(2).Level = 4

    .HeadingStyles(3).Level = 6

End With

En este ejemplo, se busca en cada subdocumento del documento activo y se muestra el nivel de título.

i = 1

If ActiveDocument.Subdocuments.Count > = 1 Then

    For each s in ActiveDocument.Subdocuments

        MsgBox "El nivel de título de SubDoc " & i & " es " & s.Level

        i = i + 1

    Next s

Else

    MsgBox "No hay subdocumentos definidos."

End If


Propiedad TextColumns

Devuelve o establece un conjunto TextColumns que representa el conjunto de las columnas de texto del objeto PageSetup especificado. Lectura/Escritura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.

Comentarios

Siempre habrá, al menos, una columna de texto en el conjunto. Al crear nuevas columnas de texto, se agregarán al conjunto de una columna.


Ejemplo de la propiedad TextColumns

En este ejemplo, se crean cuatro columnas de texto de espaciado uniforme que se aplican a la sección dos del documento activo.

With ActiveDocument.Sections(2).PageSetup.TextColumns

    .SetCount NumColumns:=3

    .Add EvenlySpaced:=True

End With

En este ejemplo, se crea un documento con dos columnas de texto. La primera columna tiene 0,6 cm de ancho y la segunda 1,2 cm.

Set miDoc = Documents.Add

With miDoc.PageSetup.TextColumns

    .SetCount NumColumns:=1

    .Add Width:=InchesToPoints(3)

End With

With miDoc.PageSetup.TextColumns(1)

    .Width = InchesToPoints(1.5)

    .SpaceAfter = InchesToPoints(0.5)

End With


Propiedad IgnoreInternetAndFileAddresses

True si, durante la revisión ortográfica, se omiten las extensiones del nombre de archivo, las rutas MS-DOS, las direcciones de correo electrónico, los nombres compartidos y de servidor (también conocidos como rutas UNC ) y las direcciones de Internet (también conocidas como URL). Boolean de Lectura/Escritura.

Nota   Al establecer el valor de esta propiedad en True no se evita la revisión de las rutas de acceso de Macintosh.


Ejemplo de la propiedad IgnoreInternetAndFileAddresses

En este ejemplo, se define Word para que omita los nombres de archivo y las direcciones de Internet y para que, a continuación, revise la ortografía del documento activo.

Options.IgnoreInternetAndFileAddresses = True

ActiveDocument.CheckSpelling

En este ejemplo, se devuelve el estado actual de la opción Archivos y direcciones de Internet de la ficha Ortografía y gramática del cuadro de diálogo Opciones.

temp = Options.IgnoreInternetAndFileAddresses


Propiedad NumberPosition

Devuelve o establece la posición, en puntos, del número o de la viñeta del objeto ListLevel especificado. Single de Lectura/Escritura.

Comentarios

Para cada nivel de lista, puede establecer la posición del número o de la viñeta, la posición de la tabulación y la del texto que se ajusta.


Ejemplo de la propiedad NumberPosition

En este ejemplo, se establece la sangría para todos los niveles de la tercera plantilla de lista de esquema numerado. A cada nivel de lista se aplica una sangría de 0,1 cm (18 puntos) más que el nivel anterior.

r = 0

For Each lev In ListGalleries(wdOutlineNumberGallery) _

    .ListTemplates(3).ListLevels

       lev.Alignment = wdListLevelAlignLeft

       lev.NumberPosition = r

      r = r + 18

Next lev

En este ejemplo, se establece una sangría de 0,2 cm para el primer nivel de la última plantilla de lista numerada.

With ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1)

    .Alignment = wdListLevelAlignLeft

    .NumberPosition = InchesToPoints(0.5)

End With


Propiedad SingleListTemplate

True si el objeto List o ListFormat completo utiliza la misma plantilla de lista. Boolean de sólo lectura.


Ejemplo de la propiedad SingleListTemplate

En este ejemplo, se comprueba si la selección tiene formato de lista sencilla. En cuyo caso, en el ejemplo se aplica la segunda plantilla de lista numerada a la selección.

Set miLista = Selection.Range.ListFormat

temp = miLista.SingleListTemplate

If temp = True Then

    miLista.ApplyListTemplate _

        ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)

End If


Propiedad SingleList

True si el objeto ListFormat especificado sólo contiene una lista. Boolean de sólo lectura.


Ejemplo de la propiedad SingleList

En este ejemplo, se comprueba si la selección sólo contiene una lista. En cuyo caso, en el ejemplo se aplica la plantilla de lista numerada predeterminada a la selección.

temp = Selection.Range.ListFormat.SingleList

If temp = True Then

  Selection.Range.ListFormat.ApplyNumberDefault

End If


Propiedad BackgroundSavingStatus

Devuelve el número de archivos de la cola de impresión que van a guardarse en segundo plano. Long de sólo lectura.


Ejemplo de la propiedad BackgroundSavingStatus

En este ejemplo, se muestra en la barra de estado el número de documentos que se están guardando actualmente.

Options.BackgroundSave =True

Documents.Add

ActiveDocument.SaveAs

    While Application.BackgroundSavingStatus <> 0

        StatusBar = "Documentos que quedan por guardar: " & _

        Application.BackgroundSavingStatus

    DoEvents

Wend


Propiedad UserControl

True si el usuario ha abierto o creado el documento o la aplicación. False si se ha creado o abierto el documento o la aplicación mediante una macro con el método Open o los métodos CreateObject o GetObject. Boolean de Lectura/Escritura para el objeto Document, Boolean de sólo lectura para el objeto Application.

Comentarios

Si el usuario puede ver Word, esta propiedad siempre devuelve el valor True.


Ejemplo de la propiedad UserControl

En este ejemplo, se muestra el estado de la propiedad UserControl del documento activo.

If ActiveDocument.UserControl = True Then

    MsgBox "El usuario ha creado o abierto este documento."

Else

    MsgBox "Este documento se ha creado con una macro."

End If


Método ScreenRefresh

Actualiza la pantalla del monitor con la información actual del búfer de memoria de vídeo. Puede utilizar este método después de utilizar la propiedad ScreenUpdating para desactivar las actualizaciones de pantalla.

Sintaxis

expresión.ScreenRefresh

expresión   Requerida. Expresión que devuelve un objeto Application.

Comentarios

ScreenRefresh activa la actualización de pantalla sólo para una instrucción e inmediatamente después la desactiva. Las instrucciones posteriores no actualizan la pantalla hasta que se active de nuevo la actualización de pantalla mediante la propiedad ScreenUpdating.

En equipos Macintosh, las ventanas de documentos se ocultan cuando se desactiva la actualización de pantalla. El método ScreenRefresh muestra las ventanas de documento actualizadas durante un momento, pero, a continuación, se ocultan de nuevo. Por lo tanto, en Macintosh, es posible que desee utilizar la propiedad ScreenUpdating en lugar del método ScreenRefresh para activar y desactivar la actualización de pantalla.


Ejemplo del método ScreenRefresh

En este ejemplo, se desactiva la actualización de pantalla, se abre Prueba.doc, se inserta texto, se actualiza la pantalla y, a continuación, se cierra el documento (guardando los cambios).

ScreenUpdating = False

Documents.Open FileName:="C:\DOCS\PRUEBA.DOC"

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

miIntervalo.InsertBefore "nuevo"

Application.ScreenRefresh

ActiveDocument.Close SaveChanges:=wdSaveChanges

ScreenUpdating = True


Método LinkToListTemplate

Vincula el estilo especificado a una plantilla de lista para que el formato del estilo pueda aplicarse a las listas.

Sintaxis

expresión.LinkToListTemplate(ListTemplate, ListLevelNumber)

expresión   Requerida. Expresión que devuelve un objeto Style.

ListTemplate   Objeto ListTemplate requerido. Plantilla de lista a la que está vinculado el estilo.

ListLevelNumber   Variant opcional. Número entero que corresponde al nivel de lista al que está vinculado el estilo. Si se omite este argumento, se utiliza el nivel del estilo.


Ejemplo del método LinkToListTemplate

En este ejemplo, se crea una nueva plantilla de lista y luego se vincula los estilos de título 1 a 9 con los niveles 1 a 9. A continuación, se aplica al documento la nueva plantilla de lista. Todos los párrafos con formato de título tomarán la numeración de esta plantilla.

Set LT = ActiveDocument.ListTemplates.Add(OutlineNumbered:=True)

For x = 1 To 9

    With LT.ListLevels(x)

        .NumberStyle = wdListNumberStyleArabic

        .NumberPosition = InchesToPoints(0.25 * (x - 1))

        .TextPosition = InchesToPoints(0.25 * x)

        .NumberFormat = "%" & x & "."

    End With

    With ActiveDocument.Styles("Título " & x)

       .LinkToListTemplate ListTemplate:=LT

    End With

Next x

ActiveDocument.Content.ListFormat.ApplyListTemplate ListTemplate:=LT


Método ConvertNumbersToText

Cambia a texto los números de lista y los campos NÚMEROLISTA de los objetos Document, List o ListFormat especificados.

Sintaxis

expresión.ConvertNumbersToText(NumberType)

expresión   Requerida. Expresión que devuelve un objeto Document, List o ListFormat.

NumberType   Variant opcional. Tipo de número que va a convertirse. Puede ser una de las siguientes constantes WdNumberType: wdNumberParagraph, wdNumberListNum o wdNumberAllNumbers. El valor predeterminado es wdNumberAllNumbers.

Comentarios

Hay dos tipos de números: números preestablecidos (wdNumberParagraph), que se pueden agregar a párrafos al seleccionar una plantilla del cuadro de diálogo Numeración y viñetas, y campos NÚMEROLISTA (wdNumberListNum), que permiten agregar varios números por párrafo.

El método ConvertNumbersToText es útil si desea trabajar con un documento en otra aplicación y esa aplicación no reconoce el formato de lista ni los campos LISTNUM.

Nota   Después de convertir números de lista a texto, ya no podrá manipularlos en ninguna lista.


Ejemplo del método ConvertNumbersToText

En este ejemplo, se convierten a texto los números de lista y los campos NÚMEROLISTA del documento activo.

ActiveDocument.ConvertNumbersToText

En este ejemplo, se convierten a texto los números de la primera lista. Las listas se cuentan en orden inverso, desde la parte inferior del documento hacia arriba.

ActiveDocument.Lists(1).ConvertNumbersToText

En este ejemplo, se convierten a texto los números preestablecidos de miIntervalo sin afectar a los campos NÚMEROLISTA.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Paragraphs(12).Range.Start, _

    End:=miDoc.Paragraphs(20).Range.End)

miIntervalo.ListFormat.ConvertNumbersToText wdNumberParagraph


Propiedad NumberStyle

Devuelve o establece el estilo de números del objeto especificado. Long de Lectura/Escritura.

Para un objeto CaptionLabel, esta propiedad puede ser una de las siguientes constantes WdCaptionNumberStyle: wdCaptionNumberStyleArabic, wdCaptionNumberStyleLowercaseLetter, wdCaptionNumberStyleLowercaseRoman, wdCaptionNumberStyleUppercaseLetter o wdCaptionNumberStyleUppercaseRoman.

Para un objeto Footnotes o Endnotes, esta propiedad puede ser una de las siguientes constantes WdNoteNumberStyle: wdNoteNumberStyleArabic, wdNoteNumberStyleLowercaseLetter, wdNoteNumberStyleLowercaseRoman, wdNoteNumberStyleSymbol, wdNoteNumberStyleUppercaseLetter o wdNoteNumberStyleUppercaseRoman.

Para un objeto PageNumbers, esta propiedad puede ser una de las siguientes constantes WdPageNumberStyle: wdPageNumberStyleArabic, wdPageNumberStyleLowercaseLetter, wdPageNumberStyleLowercaseRoman, wdPageNumberStyleUppercaseLetter o wdPageNumberStyleUppercaseRoman.

Para un objeto ListLevel, esta propiedad puede ser una de las siguientes constantes WdListNumberStyle:

wdListNumberStyleArabic wdListNumberStyleArabicLZ wdListNumberStyleBullet wdListNumberStyleCardinalText wdListNumberStyleLegal wdListNumberStyleLegalLZ wdListNumberStyleLowercaseLetter	wdListNumberStyleLowercaseRoman wdListNumberStyleNone wdListNumberStyleOrdinal wdListNumberStyleOrdinalText wdListNumberStyleUppercaseLetter wdListNumberStyleUppercaseRoman


Ejemplo de la propiedad NumberStyle

En este ejemplo, se crea un estilo de número alternativo para la tercera plantilla de lista de esquema numerado.

Set miPlant = ListGalleries(wdOutlineNumberGallery).ListTemplates(3)

For i = 1 to 9

    If i Mod 2 = 0 Then

        miPlant.ListLevels(i).NumberStyle = wdListNumberStyleUppercaseRoman

    Else

        miPlant.ListLevels(i).NumberStyle = wdListNumberStyleLowercaseRoman

    End If

Next i

En este ejemplo, se cambia el estilo de número a mayúsculas para todas las listas de esquema numerado del documento activo.

For Each lt In ActiveDocument.ListTemplates

    For Each ll In lt.listlevels

       ll.NumberStyle = wdListNumberStyleUppercaseLetter

    Next ll

Next lt

En este ejemplo, se inserta un título de ilustración en el punto de inserción. Las letras del título tienen formato de mayúsculas.

CaptionLabels(wdCaptionFigure).NumberStyle = wdCaptionNumberStyleUppercaseLetter

Selection.Collapse Direction:=wdCollapseEnd

Selection.InsertCaption Label:="Ilustración"

En este ejemplo, se establece el formato de las notas al pie y de las notas al final del documento activo.

With ActiveDocument

    .Footnotes.NumberStyle = wdNoteNumberStyleLowercaseRoman

    .Endnotes.NumberStyle = wdNoteNumberStyleUppercaseRoman

End With

En este ejemplo, se da formato de números romanos en minúscula a los números del pie de página del documento activo.

For Each sec In ActiveDocument.Sections

    sec.Footers(wdHeaderFooterPrimary).PageNumbers _

        .NumberStyle = wdPageNumberStyleLowercaseRoman

Next sec


Propiedad LanguageID

Devuelve o establece el idioma del objeto especificado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdLanguageID:

wdAfrikaans wdArabic wdBasque wdBelgianDutch wdBelgianFrench wdBrazilianPortuguese wdBulgarian wdByelorussian wdCatalan wdCroatian wdCzech wdDanish wdDutch wdEnglishAUS wdEnglishCanadian wdEnglishNewZealand wdEnglishSouthAfrica wdEnglishUK wdEnglishUS wdEstonian wdFarsi wdFinnish wdFrench wdFrenchCanadian wdGerman wdGreek wdHebrew wdHungarian wdItalian wdIcelandic wdJapanese wdKorean	wdLanguageNone wdLatvian wdMacedonian wdMalaysian wdMexicanSpanish wdNoProofing wdNorwegianBokmol wdNorwegianNynorsk wdPolish wdPortuguese wdRomanian wdRussian wdSerbianCyrillic wdSerbianLatin wdSesotho wdSimplifiedChinese wdSlovak wdSlovenian wdSpanish wdSpanishModernSort wdSwedish wdSwissFrench wdSwissGerman wdSwissItalian wdTraditionalChinese wdTsonga wdTswana wdTurkish wdUkrainian wdVenda wdXhosa wdZulu
Comentarios

Para utilizar un diccionario personalizado, en primer lugar debe establecer la propiedad LanguageSpecific como True, antes de especificar LanguageID. Los diccionarios personalizados que son específicos de un idioma sólo tienen en cuenta el texto que tenga formato de dicho idioma.


Ejemplo de la propiedad LanguageID

En este ejemplo se aplica el formato de francés al segundo párrafo del documento activo y, a continuación, se agrega un nuevo diccionario personalizado, que se utilizará para el texto en francés.

ActiveDocument.Paragraphs(2).Range.LanguageId = wdFrench

Set miDiccionario = CustomDictionaries.Add(Filename:="Frances.dic")

With miDiccionario

    .LanguageSpecific = True

    .LanguageId = wdFrench

End With

En este ejemplo se vuelve a definir el estilo Título para utilizar las herramientas de revisión del español. Después, en un cuadro de mensaje, se mostrará la descripción del nuevo estilo.

ActiveDocument.Styles("Título").LanguageId = wdSpanish

MsgBox ActiveDocument.Styles("Título").Description


Propiedad Dialogs

Devuelve un conjunto Dialogs que representa a todos los cuadros de diálogo integrados de Word. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Dialogs

En este ejemplo se muestra el cuadro de diálogo integrado Buscar, donde aparece "Hola" en el cuadro con el mismo nombre.

Set dlg = Dialogs(wdDialogEditFind)

With dlg

    .Find = "Hola"

    .Show

End With

En este ejemplo se muestra el cuadro de diálogo integrado Abrir, donde aparecen todos los tipos de archivo.

With Dialogs(wdDialogFileOpen)

    .Name = "*.*"

    .Show

End With

En este ejemplo se imprime el documento activo, utilizando los valores del cuadro de diálogo Imprimir.

Dialogs(wdDialogFilePrint).Execute


Método Help

Presenta información de Ayuda en pantalla.

Sintaxis

expresión.Help(HelpType)

expresión   Expresión que devuelve un objeto Application.

HelpType   Variant requerida. Tema o ventana de Ayuda en pantalla. Puede ser una de las siguientes constantes WdHelpType:

Constante	Descripción
wdHelp	Muestra el cuadro de diálogo Temas de Ayuda.
wdHelpAbout	Muestra el cuadro de diálogo Acerca de Microsoft Word (menú de ayuda).
wdHelpActiveWindow	Muestra Ayuda descriptiva del comando asociado con la vista o ventana activa.
wdHelpContents	Muestra el cuadro de diálogo Temas de Ayuda.
wdHelpIndex	Muestra el cuadro de diálogo Temas de Ayuda.
wdHelpPSSHelp	Muestra información acerca del servicio de soporte técnico.
wdHelpSearch	Muestra el cuadro de diálogo Temas de Ayuda.
wdHelpUsingHelp	Muestra una lista de los temas de Ayuda que describen cómo utilizar la Ayuda.


Ejemplo del método Help

En este ejemplo se muestra el cuadro de diálogo Temas de Ayuda.

Help HelpType:=wdHelp

En este ejemplo se muestra una lista de los temas de Ayuda que describen cómo utilizar la ayuda.

Help HelpType:=wdHelpUsingHelp


Método PrintOut (objetos Application, Document y Window)

Imprime todo el documento especificado o una parte del mismo. Los argumentos de este método corresponden a las opciones del cuadro de diálogo Imprimir (menú Archivo).

Sintaxis

expresión.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint)

expresión   Requerida. Expresión que devuelve un objeto Application, Document o Window.

Background   Variant opcional. True para que la macro continúe mientras Word imprime el documento.

Append   Variant opcional. True para adjuntar el documento seleccionado al nombre de archivo especificado por el argumento OutputFileName. False para sobrescribir el contenido de OutputFileName.

Range   Variant opcional. Intervalo de páginas. Puede ser una de las siguientes constantes WdPrintOutRange: wdPrintAllDocument, wdPrintCurrentPage, wdPrintFromTo, wdPrintRangeOfPages o wdPrintSelection.

OutputFileName   Variant opcional. Si PrintToFile es True, este argumento especifica la ruta de acceso y el nombre del archivo de salida. El argumento no está disponible en los sistemas Macintosh a no ser que esté instalado QuickDraw GX.

From   Variant opcional. Número de la primera página del intervalo cuando Range se establece como wdPrintFromTo.

To   Variant opcional. Número de la última página del intervalo cuando Range se establece como wdPrintFromTo.

Item   Variant opcional. Elemento que va a imprimirse. Puede ser una de las siguientes constantes WdPrintOutItem: wdPrintAutoTextEntries, wdPrintComments, wdPrintDocumentContent, wdPrintKeyAssignments, wdPrintProperties o wdPrintStyles.

Copies   Variant opcional. Número de copias que va a imprimirse.

Pages   Variant opcional. Números e intervalos de página que deben imprimirse, separados por comas. Por ejemplo, con "2, 6-10" se imprimiría la página 2 y de la página 6 a la 10.

PageType   Variant opcional. Tipo de página que va a imprimirse. Puede ser una de las siguientes constantes WdPrintOutPages: wdPrintAllPages, wdPrintEvenPagesOnly o wdPrintOddPagesOnly.

PrintToFile   Variant opcional. True para enviar instrucciones de impresora a un archivo. Compruebe que especifica un nombre de archivo con OutputFileName. El argumento no está disponible en los sistemas Macintosh a no ser que esté instalado QuickDraw GX.

Collate   Variant opcional. Cuando se imprimen varias copias de un documento, True imprime todas las páginas del documento antes de imprimir las copias.

FileName   Variant opcional. Ruta de acceso y nombre de archivo del documento que va a imprimirse. Si se omite este argumento, Word imprime el documento activo. Sólo está disponible con el objeto Application.

ActivePrinterMacGX   Variant opcional. En Macintosh, si está instalado QuickDraw GX, especifica la impresora que se va a utilizar.

ManualDuplexPrint   Variant opcional. No se utiliza en la versión de inglés de Estados Unidos de Microsoft Word.


Ejemplo del método PrintOut (objetos Application, Document y Window)

En este ejemplo se imprime la página actual del documento activo.

ActiveDocument.PrintOut Range:=wdPrintCurrentPage

En este ejemplo se imprimen todos los documentos de la carpeta actual. La función Dir se utiliza para devolver todos los nombres de archivo que tengan la extensión ".doc".

undoc = Dir("*.DOC")

While undoc <> ""

    Application.PrintOut FileName:=undoc

    undoc = Dir()

Wend

En este ejemplo se imprimen las tres primeras páginas del documento de la ventana activa.

ActiveWindow.PrintOut Range:=wdPrintFromTo, From:="1", To:="3"

En este ejemplo se imprimen los comentarios del documento activo.

If ActiveDocument.Comments.Count >= 1 Then

    ActiveDocument.PrintOut Item:=wdPrintComments

End If


Método PrintOut (objeto Envelope)

Imprime un sobre sin agregarlo al documento activo.

Sintaxis

expresión.PrintOut(ExtractAddress, Address, AutoText, OmitReturnAddress, ReturnAddress, ReturnAutoText, Size, Height, Width, FeedSource, AddressFromLeft, AddressFromTop, ReturnAddressFromLeft, ReturnAddressFromTop, DefaultFaceUp, DefaultOrientation)

expresión   Requerida. Expresión que devuelve un objeto Envelope.

ExtractAddress   Variant opcional. True para utilizar el texto marcado con "DirecciónSobre" (marcador definido por el usuario) como la dirección del destinatario.

Address   Variant opcional. Cadena que especifica la dirección del destinatario, que no se tendrá en cuenta si ExtractAddress es True.

AutoText   Variant opcional. Nombre del elemento de Autotexto que contiene la dirección del destinatario.

OmitReturnAddress   Variant opcional. True para omitir el remite.

ReturnAddress   Variant opcional. Cadena que especifica el remite.

ReturnAutoText   Variant opcional. Nombre del elemento de Autotexto que contiene información del remite.

Size   Variant opcional. Cadena que especifica el tamaño del sobre. La cadena debe ajustarse a uno de los tamaños enumerados en la parte izquierda del cuadro Tamaño de sobre, en el cuadro de diálogo Opciones para sobres; por ejemplo "Sobre 10".

Height   Variant opcional. Alto del sobre, en puntos, si el argumento Size se establece como "Tamaño personal".

Width   Variant opcional. Ancho del sobre, en puntos, si el argumento Size se establece como "Tamaño personal".

FeedSource   Variant opcional. Bandeja de papel en la que se imprimirá el sobre. Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormatBin wdPrinterTractorFeed wdPrinterUpperBin
AddressFromLeft   Variant opcional. Distancia, en puntos, entre el borde izquierdo del sobre y la dirección del destinatario.

AddressFromTop   Variant opcional. Distancia, en puntos, entre el borde superior del sobre y la dirección del destinatario.

ReturnAddressFromLeft   Variant opcional. Distancia, en puntos, entre el borde izquierdo del sobre y el remite.

ReturnAddressFromTop   Variant opcional. Distancia, en puntos, entre el borde superior del sobre y el remite.

DefaultFaceUp   Variant opcional. True para imprimir el sobre boca arriba, False para imprimirlo boca abajo.

DefaultOrientation   Variant opcional. Orientación del sobre. Puede ser una de las siguientes constantes WdEnvelopeOrientation: wdLeftPortrait, wdCenterPortrait, wdRightPortrait, wdLeftLandscape, wdCenterLandscape, wdRightLandscape, wdLeftClockwise, wdCenterClockwise o wdRightClockwise.


Ejemplo del método PrintOut (objeto Envelope)

En este ejemplo se imprime un sobre utilizando la dirección del usuario como remite y una dirección de destinatario previamente definida.

recep = "Juan Camilo" & vbCr & "C/Córcega 452" & vbCr & _

    "NuestraCiudad, 28020"

ActiveDocument.Envelope.PrintOut Address:=recep, _

    ReturnAddress:=Application.UserAddress, _

    Size:="Sobre 10",


Método Next

Sintaxis 1: Para el objeto Browser, desplaza la selección hasta el siguiente elemento indicado en el destino del examinador. Utilice la propiedad Target para cambiar el destino del examinador.

Sintaxis 2: Devuelve el siguiente párrafo como objeto Paragraph.

Sintaxis 3: Devuelve un objeto Range relacionado con la selección o intervalo especificados.

Nota   Si Range o Selection se encuentran antes del valor Unit especificado, Range o Selection se desplazan a la siguiente unidad. Por ejemplo, si Selection está inmediatamente antes de una palabra, la siguiente instrucción desplaza Selection hacia delante hasta la siguiente palabra.

Selection.Next(Unit:=wdWord, Count:=1).Select

Sintaxis 1

expresión.Next

Sintaxis 2

expresión.Next(Count)

Sintaxis 3

expresión.Next(Unit, Count)

expresión   Sintaxis 1: Expresión que devuelve un objeto Browser.

Sintaxis 2: Expresión que devuelve un objeto Paragraph.

Sintaxis 3: Expresión que devuelve un objeto Range o Selection.

Unit   Variant opcional. Puede ser una de las siguientes constantes WdUnits: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow o wdTable. Si expresión devuelve un objeto Selection, también puede utilizarse wdLine. El valor predeterminado es wdCharacter.

Count   Long opcional. Número de párrafos (Sintaxis 2) o unidades (Sintaxis 3) que desea desplazarse hacia delante. El valor predeterminado es 1.


Ejemplo del método Next

En este ejemplo se mueve el punto de inserción inmediatamente delante del siguiente marcador de referencia de comentario del documento activo.

With Application.Browser

    .Target = wdBrowseComment

    .Next

End With

En este ejemplo se inserta un número y una tabulación delante de los nueve primeros párrafos del documento activo.

For n = 0 To 8

    Set miIntervalo = ActiveDocument.Paragraphs(1).Next(Count:=n).Range

    miIntervalo.Collapse Direction:=wdCollapseStart

    miIntervalo.InsertAfter n + 1 & vbTab

Next n

En este ejemplo se selecciona el párrafo que sigue a la selección actual.

Selection.Next(Unit:=wdParagraph, Count:=1).Select


Método Previous

Sintaxis 1: Para el objeto Browser, desplaza la selección hasta el elemento anterior indicado por el destino del examinador. Utilice la propiedad Target para cambiar el destino del examinador.

Sintaxis 2: Devuelve el párrafo anterior como objeto Paragraph.

Sintaxis 3: Devuelve un objeto Range relacionado con la selección o intervalo especificados.

Nota   Si Range o Selection se encuentran después del valor Unit especificado, Range o Selection se desplazan a la unidad anterior. Por ejemplo, si Selection se encuentra inmediatamente detrás de una palabra (antes del espacio de la derecha), la siguiente instrucción desplaza Selection hacia atrás hasta la palabra anterior.

Selection.Previous(Unit:=wdWord, Count:=1).Select

Sintaxis 1

expresión.Previous

Sintaxis 2

expresión.Previous(Count)

Sintaxis 3

expresión.Previous(Unit, Count)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Browser.

Sintaxis 2: Requerida. Expresión que devuelve un objeto Paragraph.

Sintaxis 3: Requerida. Expresión que devuelve un objeto Range o Selection.

Unit   Variant opcional. Puede ser una de las siguientes constantes WdUnits: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow o wdTable. Si expresión devuelve un objeto Selection, también puede utilizarse wdLine. El valor predeterminado es wdCharacter.

Count   Variant opcional. Número de párrafos (Sintaxis 2) o unidades (Sintaxis 3) que desea desplazarse hacia atrás. El valor predeterminado es 1.


Ejemplo del método Previous

En este ejemplo se desplaza el punto de inserción a la primera celda, es decir, la celda de la esquina superior izquierda, de la tabla anterior.

With Application.Browser

    .Target = wdBrowseTable

    .Previous

End With

En este ejemplo se selecciona el párrafo que precede a la selección del documento activo.

Selection.Previous(Unit:=wdParagraph, Count:=1).Select

En este ejemplo se aplica formato de negrita a la primera palabra del documento activo.

ActiveDocument.Words(2).Previous(Unit:=wdWord, Count:=1).Bold = True


Propiedad DefaultSize

Devuelve o establece el tamaño de sobre predeterminado. String de Lectura/Escritura.

Nota   La cadena que se devuelve corresponde a la parte de la derecha de la cadena que aparece en el cuadro Tamaño de sobre, en el cuadro de diálogo Opciones para sobres. Si se establece la propiedad DefaultHeight o DefaultWidth, el tamaño del sobre se cambia automáticamente a Tamaño personal en el cuadro de diálogo Opciones de sobres (menú Herramientas) y la propiedad devuelve "Tamaño personal".


Ejemplo de la propiedad DefaultSize

En este ejemplo se establece el tamaño de sobre predeterminado en C4 (229 x 324 mm).

ActiveDocument.Envelope.DefaultSize = "C4"

En este ejemplo se pregunta al usuario si desea cambiar o no el tamaño de sobre predeterminado a Sobre 10. Si la respuesta es afirmativa, se cambia al tamaño predeterminado que corresponda. El método UpdateDocument cambia el tamaño de sobre del documento activo. Si no se ha agregado ningún sobre al documento activo, se mostrará un cuadro de mensaje.

On Error GoTo errhandler

response = MsgBox("¿Desea establecer Sobre 10 como sobre predeterminado?", 4)

If response = vbYes Then

    With ActiveDocument.Envelope

        .DefaultSize = "Sobre 10"

        .UpdateDocument

    End With

End If

errhandler:

If Err = 5852 Then MsgBox "En este documento no se incluye ningún sobre"


Propiedad Type

Devuelve o establece el tipo de objeto especificado, tal como se muestra en la siguiente tabla.

Objeto	Descripción
CalloutFormat	Devuelve o establece el tipo de llamada. Puede ser una de las siguientes constantes MsoCalloutType: msoCalloutFour, msoCalloutMixed, msoCalloutOne, msoCalloutThree o msoCalloutTwo. Long de Lectura/Escritura.
ColorFormat	Devuelve o establece el tipo de color de la forma. Puede ser una de las siguientes constantes MsoColorType: msoColorTypeMixed, msoColorTypeRGB o msoColorTypeScheme. Long de sólo lectura.
Dialog	Devuelve el tipo de cuadro de diálogo integrado de Word. Puede ser una de las constantes WdWordDialog. Long de sólo lectura.
Dictionary	Devuelve el tipo de diccionario. Puede ser una de las siguientes constantes WdDictionaryType: wdGrammar, wdHyphenation, wdSpelling, wdSpellingComplete, wdSpellingCustom, wdSpellingLegal, wdSpellingMedical o wdThesaurus. Long de sólo lectura.
Document	Devuelve el tipo de documento (plantilla o documento). Puede ser una de las siguientes constantes WdDocumentType: wdTypeDocument o wdTypeTemplate. Long de sólo lectura.
Field, FormField, MailMergeField	Devuelve el tipo de campo. Puede ser una de las constantes WdFieldType. Long de sólo lectura.
FillFormat	Devuelve el tipo de formato de relleno de la forma. Puede ser una de las siguientes constantes MsoFillType: msoFillBackground, msoFillGradient, msoFillMixed, msoFillPatterned, msoFillPicture, msoFillSolid o msoFillTextured. Long de sólo lectura.
Hyperlink	Devuelve el tipo de hipervínculo. Puede ser una de las siguientes constantes MsoHyperlinkType: msoHyperlinkInlineShape, msoHyperLinkRange o msoHyperlinkShape. Long de sólo lectura.
Index	Devuelve o establece el tipo de índice. Puede ser cualquiera de las siguientes constantes WdIndexType: wdIndexIndent o wdIndexRunin. Long de Lectura/Escritura.
InlineShape	Devuelve el tipo de forma entre líneas. Puede ser una de las siguientes constantes WdInlineShapeType: wdInlineShapeEmbeddedOLEObject, wdInlineShapeLinkedOLEObject, wdInlineShapeLinkedPicture, wdInlineShapeOLEControlObject o wdInlineShapePicture. Long de sólo lectura.
LinkFormat	Devuelve el tipo de vínculo. Puede ser una de las siguientes constantes WdLinkType: wdLinkTypeDDE, wdLinkTypeDDEAuto, wdLinkTypeImport, wdLinkTypeInclude, wdLinkTypeOLE, wdLinkTypePicture, wdLinkTypeReference o wdLinkTypeText. Long de sólo lectura.
MailMergeDataSource	Devuelve el tipo de origen de datos de combinación de correspondencia. Puede ser una de las siguientes constantes WdMailMergeDataSource: wdMergeInfoFromAccessDDE, wdMergeInfoFromExcelDDE, wdMergeInfoFromMSQueryDDE, wdMergeInfoFromODBC, wdMergeInfoFromWord o wdNoMergeInfo. Long de sólo lectura.
ProofreadingErrors	Devuelve el tipo de error de revisión. Puede ser una de las siguientes constantes WdProofreadingErrorType: wdGrammaticalError o wdSpellingError. Long de sólo lectura.
Revision	Devuelve el tipo de revisión. Puede ser una de las siguientes constantes WdRevisionType: wdNoRevision, wdRevisionDelete, wdRevisionDisplayField, wdRevisionInsert, wdRevisionParagraphNumber, wdRevisionProperty, wdRevisionReconcile, wdRevisionReplace o wdRevisionStyle. Long de sólo lectura.
Selection	Devuelve el tipo de selección. Puede ser una de las siguientes constantes WdSelectionType: wdNoSelection, wdSelectionBlock, wdSelectionColumn, wdSelectionFrame, wdSelectionInlineShape, wdSelectionIP, wdSelectionNormal, wdSelectionRow o wdSelectionShape. Long de sólo lectura.
ShadowFormat	Devuelve o establece el tipo de sombreado de la forma. Puede ser una de las constantes MsoShadowType. Long de Lectura/Escritura.
Shape, ShapeRange	Devuelve el tipo de forma. Puede ser una de las siguientes constantes MsoShapeType: msoAutoShape, msoCallout, msoChart, msoComment, msoEmbeddedOLEObject, msoFormControl, msoFreeform, msoGroup, msoLine, msoLinkedOLEObject, msoLinkedPicture, msoMedia, msoOLEControlObject, msoPicture, msoPlaceholder, msoShapeTypeMixed, msoTextBox o msoTextEffect. Long de sólo lectura.
Style	Devuelve el tipo de estilo. Puede ser cualquiera de las siguientes constantes WdStyleType: wdStyleTypeParagraph o wdStyleTypeCharacter. Long de sólo lectura.
Template	Devuelve el tipo de plantilla. Puede ser una de las siguientes constantes WdTemplateType: wdAttachedTemplate, wdGlobalTemplate o wdNormalTemplate. Long de sólo lectura.
TextInput	Devuelve el tipo de campo de formulario de texto. Puede ser una de las siguientes constantes WdTextFormFieldType: wdCalculationText, wdCurrentDateText, wdCurrentTimeText, wdDateText, wdNumberText o wdRegularText. Long de sólo lectura.
View	Devuelve o establece el tipo de vista. Puede ser una de las siguientes constantes WdViewType: wdMasterView, wdNormalView, wdOnlineView, wdOutlineView, wdPageView o wdPrintPreview. Long de Lectura/Escritura.
Window	Devuelve el tipo de ventana. Puede ser una de las siguientes constantes WdWindowType: wdWindowDocument o wdWindowTemplate. Long de sólo lectura.
WrapFormat	Devuelve el tipo de ajuste de la forma especificada. Puede ser una de las siguientes constantes WdWrapType: wdWrapNone, wdWrapSquare, wdWrapThrough, wdWrapTight o wdWrapTopBottom. Long de Lectura/Escritura.


Ejemplo de la propiedad Type

Si la ventana activa es un documento, en este ejemplo se vuelve a definir el estilo Título 1 como centrado.

If ActiveWindow.Type = wdWindowDocument Then

    ActiveDocument.Styles("Título 1").ParagraphFormat.Alignment = wdAlignParagraphCenter

End If

En este ejemplo se muestra la ventana activa en la Vista preliminar. La propiedad Type abre una nueva ventana de Vista preliminar.

ActiveWindow.View.Type = wdPrintPreview

En este ejemplo se muestra un mensaje que indica el tipo del estilo "Subtítulo" en el documento activo.

If ActiveDocument.Styles("Subtítulo").Type = wdStyleTypeParagraph Then

    MsgBox "Estilo de párrafo"

ElseIf ActiveDocument.Styles("Subtítulo").Type = wdStyleTypeCharacter Then

    MsgBox "Estilo de carácter"

End If

En este ejemplo se acepta la siguiente revisión del documento activo si el tipo de revisión es texto insertado.

Set miRev = Selection.NextRevision

If Not (miRev Is Nothing) Then

    If miRev.Type = wdRevisionInsert Then miRev.Accept

End If

En este ejemplo se aplica el formato de grabado a la selección si ésta no es un punto de inserción.

If Selection.Type <> wdSelectionIP Then

    Selection.Font.Engrave = True

Else

    MsgBox "Seleccione un texto."

End If


Propiedad ActivePrinter

Devuelve o establece el nombre de la impresora activa. String de Lectura/Escritura.


Ejemplo de la propiedad ActivePrinter

En este ejemplo se muestra el nombre de la impresora activa.

MsgBox "El nombre de la impresora activa es " & ActivePrinter

En este ejemplo se establece como activa una impresora HP LaserJet IIISi de la red.

ActivePrinter = "HP LaserJet IIISi en \\printers\laser"

En este ejemplo se establece como activa una impresora HP LaserJet 4 local en LPT1.

ActivePrinter = "HP LaserJet 4 local en LPT1:"


Propiedad ComputerType

Devuelve el modelo de Macintosh en uso; por ejemplo, "Power Macintosh 6100". String de sólo lectura.

Nota   En Windows, ComputerType no está disponible y produce un error.


Ejemplo de la propiedad ComputerType

En este ejemplo se muestra el modelo del equipo que se está utilizando.

MsgBox "El equipo es " & System.ComputerType


Propiedad ReadOnly

Objeto Document o RecentFile: True si los cambios realizados en el documento no pueden guardarse en el documento original. Boolean de Lectura/Escritura para el objeto RecentFile; Boolean de sólo lectura para el objeto Document.

Objeto Dictionary: True si no puede cambiarse el diccionario especificado. Boolean de sólo lectura.

Nota   Los diccionarios activos gramaticales, ortográficos, de división de palabras y de sinónimos son de sólo lectura. Los diccionarios personales son de Lectura/Escritura.


Ejemplo de la propiedad ReadOnly

En este ejemplo se guarda el documento activo si no es de sólo lectura.

If ActiveDocument.ReadOnly = False Then ActiveDocument.Save

En este ejemplo se abre el archivo que se ha utilizado más recientemente como documento de sólo lectura.

With RecentFiles(1)

    .ReadOnly = True

    .Open

End With


Método Update

Objeto Dialog: Actualiza los valores que aparecen en un cuadro de diálogo integrado de Microsoft Word.

Objeto Field o Fields: Actualiza el resultado del objeto especificado. Si se aplica a un objeto Field, devuelve el valor True si el campo se actualiza satisfactoriamente. Si se aplica a un conjunto Fields, devuelve 0 (cero) si no se producen errores al actualizar los campos o, en caso contrario, devuelve el índice del primer campo que contenga un error.

Objeto Index, TableOfContents o TableOfFigures: Actualiza las entradas del índice y los elementos de la tabla de ilustraciones o de la tabla de contenido especificadas.

Objeto LinkFormat: Actualiza el vínculo especificado.

Nota   Utilice el método UpdatePageNumbers para actualizar los números de página de los elementos de una tabla de contenido o una tabla de ilustraciones.

Sintaxis

expresión.Update

expresión   Expresión que devuelve un objeto de la lista Aplicar a.


Ejemplo del método Update

En este ejemplo se actualizan todos los campos del documento activo. Un valor de devolución de 0 (cero) indica que los campos se actualizaron sin que se produjesen errores.

If ActiveDocument.Fields.Update = 0 Then

    MsgBox "Actualización satisfactoria"

Else

    MsgBox "El campo " & ActiveDocument.Fields.Update & " tiene un error"

End If

En este ejemplo se actualiza la primera tabla de ilustraciones del documento activo.

If ActiveDocument.TablesOfFigures.Count >= 1 Then

    ActiveDocument.TableOfFigures(1).Update

End If

En este ejemplo se actualiza el primer campo del documento activo y se muestra un mensaje en la barra de estado que indica si el campo se actualizó satisfactoriamente o no.

If ActiveDocument.Fields(1).Update = True Then

    StatusBar = "Campo actualizado"

Else

    StatusBar = "Error: campo no actualizado"

End If

En este ejemplo se devuelve un objeto Dialog que hace referencia al cuadro de diálogo Fuente. La fuente aplicada al objeto Selection se cambia a Arial, se actualizan los valores del cuadro de diálogo y se muestra el cuadro de diálogo Fuente.

Set miDiálogo = Dialogs(wdDialogFormatFont)

Selection.Font.Name = "Arial"

miDiálogo.Update

miDiálogo.Show

En este ejemplo se actualizan los campos del documento activo que no se actualizan automáticamente.

For Each uncampo In ActiveDocument.Fields

    If uncampo.LinkFormat.AutoUpdate = False Then uncampo.LinkFormat.Update

Next uncampo


Método AddAddress

Agrega una entrada a la Libreta de direcciones. Cada entrada contiene valores de uno o varios identificadores.

Sintaxis

expresión.AddAddress(TagID, Value)

expresión   Requerida. Expresión que devuelve un objeto Application.

TagID   Matriz String requerida. Valores de los identificadores de la nueva entrada de dirección. Cada entrada de la matriz puede incluir una de las cadenas que se muestran en la tabla siguiente. Sólo se requiere el nombre; el resto de las entradas son opcionales.

Identificadores	Descripción
PR_DISPLAY_NAME	Nombre que se muestra en el cuadro de diálogo Libreta de direcciones
PR_GIVEN_NAME	Nombre propio
PR_SURNAME	Apellido
PR_STREET_ADDRESS	Dirección
PR_LOCALITY	Ciudad o localidad
PR_STATE_OR_PROVINCE	Estado o provincia
PR_POSTAL_CODE	Código postal
PR_COUNTRY	País
PR_TITLE	Puesto en la organización
PR_COMPANY_NAME	Nombre de la organización
PR_DEPARTMENT_NAME	Nombre del departamento de la organización
PR_OFFICE_LOCATION	Ubicación de la oficina
PR_PRIMARY_TELEPHONE_NUMBER	Número de teléfono principal
PR_PRIMARY_FAX_NUMBER	Número de fax principal
PR_OFFICE_TELEPHONE_NUMBER	Número de teléfono del trabajo
PR_OFFICE2_TELEPHONE_NUMBER	Segundo número de teléfono del trabajo
PR_HOME_TELEPHONE_NUMBER	Número de teléfono del domicilio particular
PR_CELLULAR_TELEPHONE_NUMBER	Número de teléfono celular o móvil
PR_BEEPER_TELEPHONE_NUMBER	Número de teléfono del busca
PR_COMMENT	Texto que se incluye en la ficha Notas para la dirección
PR_EMAIL_ADDRESS	Dirección de correo electrónico
PR_ADDRTYPE	Tipo de dirección de correo electrónico
PR_OTHER_TELEPHONE_NUMBER	Otro número de teléfono que no sea ni el del domicilio particular ni el del trabajo
PR_BUSINESS_FAX_NUMBER	Número de fax del trabajo
PR_NÚMERO_FAX_DOMICILIO	Número de fax del domicilio particular
PR_NÚMERO_RADIOTELÉFONO	Número del radioteléfono
PR_INICIALES	Iniciales
PR_UBICACIÓN	Ubicación, en el formato númeroedificio/númerosala; por ejemplo, 7/3007 representa la sala 3007 del edificio 7.
PR_NÚMERO_TELÉFONO_AUTOMÓVIL	Número de teléfono del automóvil
Value   Matriz de String requerida. Valores de la nueva entrada de dirección. Cada elemento corresponde a un elemento de la matriz TagID. Para obtener más información, vea el ejemplo.


Ejemplo del método AddAddress

En este ejemplo se agrega una entrada a la Libreta de direcciones.

Dim matrizIdentif(0 To 3) As String

Dim matrizValor(0 To 3) As String

matrizIdentif(0) = "PR_DISPLAY_NAME"

matrizIdentif(1) = "PR_GIVEN_NAME"

matrizIdentif(2) = "PR_SURNAME"

matrizIdentif(3) = "PR_COMMENT"

matrizValor(0) = "Andrés Díaz"

matrizValor(1) = "Andrés"

matrizValor(2) = "Díaz"

matrizValor(3) = "Es un comentario"

Application.AddAddress TagID:=tagIDArray(), Value:=valueArray()


Propiedad BCCRecipients

Devuelve o establece los destinatarios de la copia oculta del mensaje. Sólo disponible en Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. Variant de Lectura/Escritura.

Comentarios

Esta propiedad utiliza una matriz de cadenas que especifica las direcciones de los destinatarios en uno de los siguientes formatos:

•	Registro en la Agenda personal preferente. Estos nombres pertenecen al nivel uno; por ejemplo, "Pablo" o "María".

•	Ruta de acceso completa que especifica el registro de una agenda personal (por ejemplo, "HD:Carpeta Word:Mi Agenda:Barney") o un registro normal (por ejemplo, "HD:Carpeta:Martín").

•	Ruta de acceso relativa desde la carpeta de trabajo actual que especifica el registro de una agenda personal (por ejemplo, "Mi Agenda:Barney") o un registro normal (por ejemplo, "Martín").

•	Ruta de acceso de un árbol de la agenda de PowerShare, en el formato "NOMBRE_AGENDA:<nodO>:NOMBRE_REGISTRO", donde <nodo> es la ruta de acceso a una agenda de PowerShare. Un ejemplo de una ruta de acceso completa sería "AppleTalk:Zona norte del edificio:Mac de Juan".


Ejemplo de la propiedad BCCRecipients

En este ejemplo se establece el objeto Mailer del documento activo y, a continuación, se envía el documento.

With ActiveDocument

.HasMailer = True

With .Mailer

.Subject = "Aquí está el documento"

.ToRecipients = Array("Juan")

.CCRecipients = Array("Andrés", "Bernardo")

.BCCRecipients = Array("Carlos")

.Enclosures = Array("ArchivoPrueba")

End With

.SendMailer

End With


Propiedad CCRecipients

Devuelve o establece los destinatarios de la copia (copia indirecta) del envío. Sólo disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. Variant de Lectura/Escritura.

Comentarios

Esta propiedad utiliza una matriz de cadenas que especifica las direcciones de los destinatarios en uno de los siguientes formatos:

•	Registro en la Agenda personal preferente. Estos nombres pertenecen al nivel uno; por ejemplo, "Pablo" o "María".

•	Ruta de acceso completa que especifica el registro de una agenda personal (por ejemplo, "HD:Carpeta Word:Mi Agenda:Barney") o un registro normal (por ejemplo, "HD:Carpeta:Martín").

•	Ruta de acceso relativa desde la carpeta de trabajo actual que especifica el registro de una agenda personal (por ejemplo, "Mi Agenda:Barney") o un registro normal (por ejemplo, "Martín").

•	Ruta de acceso de un árbol de la agenda de PowerShare, en el formato "NOMBRE_AGENDA:<nodo>:NOMBRE_REGISTRO", donde <nodo> es la ruta de acceso de una agenda de PowerShare. Un ejemplo de una ruta de acceso completa sería "AppleTalk:Zona norte del edificio:Mac de Jorge".


Ejemplo de la propiedad CCRecipients

En este ejemplo se establece el objeto Mailer del documento activo y, a continuación, se envía el documento.

With ActiveDocument

.HasMailer = True

With .Mailer

.Subject = "Aquí está el documento"

.ToRecipients = Array("Juan")

.CCRecipients = Array("Andrés", "Bernardo")

.BCCRecipients = Array("Carlos")

.Enclosures = Array("ArchivoPrueba")

End With

.SendMailer

End With


Propiedad Enclosures

Devuelve o establece los archivos adjuntos al mensaje del documento, como una matriz de cadenas, indicando cada una de las cadenas la ruta de acceso del archivo que se va a adjuntar. Se aceptan rutas de acceso relativas, ya que se considera que están basadas en la carpeta actual. Sólo disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. Variant de Lectura/Escritura.


Ejemplo de la propiedad Enclosures

En este ejemplo se establece el objeto Mailer del documento activo y, a continuación, se envía el documento.

With ActiveDocument

.HasMailer = True

With .Mailer

.Subject = "Aquí está el documento"

.ToRecipients = Array("Juan")

.CCRecipients = Array("Andrés", "Bernardo")

.BCCRecipients = Array("Carlos")

.Enclosures = Array("ArchivoPrueba")

End With

.SendMailer

End With


Método ForwardMailer

Establece el mensaje del documento para volver a realizar el envío creando un nuevo mensaje que toma el asunto y los documentos adjuntos del mensaje existente. Sólo es válido si el documento tiene adjunto un mensaje recibido; un documento puede reenviarse solamente si se ha recibido. Sólo está disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado.

Sintaxis

expresión.ForwardMailer

expresión   Requerida. Expresión que devuelve un objeto Document.

Comentarios

Después de utilizar este método para establecer el mensaje de un documento para su reenvío, puede cambiar la configuración del mensaje, si es necesario, utilizando la propiedad Mailer y después puede utilizar el método SendMailer para volver a enviar el documento.


Ejemplo del método ForwardMailer

En este ejemplo se envía de nuevo el documento activo si tiene un mensaje.

With ActiveDocument

If .HasMailer Then .ForwardMailer

End With


Propiedad HasMailer

True si el documento tiene un mensaje. Sólo disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad HasMailer

En este ejemplo se establece el objeto Mailer del documento activo y, a continuación, se envía el documento.

With ActiveDocument

.HasMailer = True

With .Mailer

.Subject = "Aquí está el documento"

.ToRecipients = Array("Juan")

.CCRecipients = Array("Andrés", "Bernardo")

.BCCRecipients = Array("Carlos")

.Enclosures = Array("ArchivoPrueba")

End With

.SendMailer

End With


Propiedad Mailer

Devuelve un objeto Mailer que representa al mensaje de PowerTalk adjunto al documento. Sólo disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. Es de sólo lectura.

Comentarios

El objeto Mailer contiene las propiedades necesarias para enviar por correo un documento con PowerTalk. Para enviar un documento por correo, active el mensaje utilizando la propiedad HasMailer, establezca las propiedades del mensaje y, a continuación, envíe el documento y el mensaje utilizando el método SendMailer.


Ejemplo de la propiedad Mailer

En este ejemplo se establece el objeto Mailer del documento activo y, a continuación, se envía el documento.

With ActiveDocument

.HasMailer = True

With .Mailer

.Subject = "Aquí está el documento"

.ToRecipients = Array("Juan")

.CCRecipients = Array("Andrés", "Bernardo")

.BCCRecipients = Array("Carlos")

.Enclosures = Array("ArchivoPrueba")

End With

.SendMailer

End With


Propiedad MailSystem

Devuelve los sistemas de correo instalados en la máquina host. Puede ser una de las siguientes constantes WdMailSystem: wdMAPI, wdMAPIandPowerTalk, wdPowerTalk o wdNoMailSystem. Long de sólo lectura.


Ejemplo de la propiedad MailSystem

En este ejemplo se vuelve a enviar el documento activo si PowerTalk está instalado en la máquina y el documento tiene un mensaje.

ms = Application.MailSystem

If ms = wdPowerTalk Or ms = wdMAPIandPowerTalk Then

With ActiveDocument

If .HasMailer Then .ForwardMailer

End With

End If


Propiedad Received

True si se ha recibido el mensaje del libro (otro usuario lo ha enviado al usuario actual) y el usuario actual no lo ha modificado utilizando el método Reply, ReplyAll o ForwardMailer. PowerTalk requiere que los mensajes se reciban antes de que puedan reenviarse o responderse. Sólo disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. Boolean de sólo lectura.


Ejemplo de la propiedad Received

En este ejemplo se muestra el estado actual de la propiedad Received.

With ActiveDocument

If .HasMailer Then

MsgBox "La propiedad Received es " & _

.Mailer.Received

Else

MsgBox "El documento no tiene mensaje"

End If

End With


Propiedad SendDateTime

Devuelve la hora y la fecha en que se envió el mensaje. Para que esta propiedad tenga validez, el mensaje ya debe haberse enviado. Sólo disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. Date de sólo lectura.


Ejemplo de la propiedad SendDateTime

En este ejemplo se muestra el nombre del usuario que envió el documento activo y la hora y la fecha en que se envió.

With ActiveDocument

If .HasMailer Then

MsgBox "El documento fue enviado por " & _

.Mailer.Sender & " el " & _

Format(.Mailer.SendDateTime, "Fecha general")

End If

End With


Propiedad Sender

Devuelve el nombre del usuario que envió el mensaje del documento. Sólo disponible en Microsoft Word para Macintosh con el sistema de correo electrónico PowerTalk instalado. String de sólo lectura.


Ejemplo de la propiedad Sender

En este ejemplo se muestra el nombre del usuario que envió el documento activo y la hora y la fecha en que se envió.

With ActiveDocument

If .HasMailer Then

MsgBox "El documento fue enviado por " & _

.Mailer.Sender & " el " & _

Format(.Mailer.SendDateTime, "Fecha general")

End If

End With


Método SendMailer

Envía el documento utilizando PowerTalk. Este método sólo está disponible en un Macintosh con el sistema de correo electrónico PowerTalk instalado y sólo puede utilizarse en documentos que tengan mensajes adjuntos.

Sintaxis

expresión.SendMailer(FileFormat, Priority)

expresión   Requerida. Expresión que devuelve un objeto Document.

FileFormat   Variant opcional. Formato del archivo especificado. Puede ser uno de los nombres de formato de archivo que aparecen en el cuadro Guardar como tipo del cuadro de diálogo Guardar como (menú Archivo).

Priority   Variant opcional. Prioridad del mensaje. Puede ser una de las siguientes constantes WdPriority: wdPriorityLow, wdPriorityNormal o wdPriorityHigh.


Ejemplo del método SendMailer

En este ejemplo se establece el objeto Mailer del documento activo y, a continuación, se envía el documento.

With ActiveDocument

.HasMailer = True

With .Mailer

.Subject = "Aquí está el documento"

.ToRecipients = Array("Juan")

.CCRecipients = Array("Andrés", "Bernardo")

.BCCRecipients = Array("Carlos")

.Enclosures = Array("ArchivoPrueba")

End With

.SendMailer

End With


Método AddAsk

Agrega un campo PREGUNTAR a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. Cuando se actualiza, el campo PREGUNTAR muestra un cuadro de diálogo en el que se solicita el texto que se va a asignar al marcador especificado.

Sintaxis

expresión.AddAsk(Range, Name, Prompt, DefaultAskText, AskOnce)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo PREGUNTAR.

Name   String requerida. Nombre del marcador al que se asigna la respuesta o el texto predeterminado. Utilice un campo REF con el nombre del marcador para mostrar el resultado en un documento.

Prompt   Variant opcional. Texto que aparece en el cuadro de diálogo.

DefaultAskText   Variant opcional. Respuesta predeterminada que aparece en el cuadro de texto cuando se muestra el cuadro de diálogo. Corresponde al modificador \d de un campo PREGUNTAR.

AskOnce   Variant opcional. True para mostrar el cuadro de diálogo una sola vez en lugar de mostrarlo cada vez que se combina un nuevo registro de datos. Corresponde al modificador \o de un campo PREGUNTAR.


Ejemplo del método AddAsk

En este ejemplo se agrega un campo PREGUNTAR al final del documento principal de combinación de correspondencia activo.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseEnd

ActiveDocument.MailMerge.Fields.AddAsk Range:=myRange, _

    Prompt:="Escriba el nombre de la compañía", Name:="compañía", AskOnce:=True

En este ejemplo se agrega un campo PREGUNTAR detrás del último campo de combinación de correspondencia en Principal.doc.

Set myMMFields = Documents("Principal.doc").MailMerge.Fields

myMMFields(myMMFields.Count).Select

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove

myMMFields.AddAsk Range:=Selection.Range, Name:="nombre", _

    Prompt:="Cuál es su nombre"


Método AddFillIn

Agrega un campo RELLENAR a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. Cuando se actualiza, el campo RELLENAR muestra un cuadro de diálogo que solicita texto para insertarlo en el documento en la ubicación del campo RELLENAR.

Nota   Utilice el método Add con el objeto del conjunto Fields para agregar un campo RELLENAR a un documento que no sea un documento principal de combinación de correspondencia.

Sintaxis

expresión.AddFillIn(Range, Prompt, DefaultFillInText, AskOnce)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo RELLENAR.

Prompt   Variant opcional. Texto que se muestra en el cuadro de diálogo.

DefaultFillinText   Variant opcional. Respuesta predeterminada que aparece en el cuadro de texto cuando se muestra el cuadro de diálogo. Corresponde al modificador \d de un campo RELLENAR.

AskOnce   Variant opcional. True para mostrar el mensaje una sola vez en lugar de mostrarlo cada vez que se combina un nuevo registro de datos. Corresponde al modificador \o de un campo RELLENAR. El valor predeterminado es False.


Ejemplo del método AddFillIn

En este ejemplo se agrega un campo RELLENAR que solicita que se indique un nombre para insertarlo tras "Nombre:".

With Selection

    .Collapse Direction:=wdCollapseStart

    .InsertAfter "Nombre: "

    .Collapse Direction:=wdCollapseEnd

End With

ActiveDocument.MailMerge.Fields.AddFillin Range:=Selection.Range, _

    Prompt:="¿Nombre?", DefaultFillInText:="Juan", AskOnce:=True


Método AddIf

Agrega un campo SI a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. Cuando se actualiza, el campo SI compara el campo de un registro de datos con el valor especificado y, a continuación, inserta el texto apropiado según el resultado de la comparación.

Sintaxis

expresión.AddIf(Range, MergeField, Comparison, CompareTo, TrueAutoText, TrueText, FalseAutoText, FalseText)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo SI.

MergeField   String requerida. Nombre del campo de combinación.

Comparison   Long requerido. Operador que se utiliza en la comparación. Puede ser una de las siguientes constantes WdMailMergeComparison: wdMergeIfEqual, wdMergeIfGreaterThan, wdMergeIfGreaterThanOrEqual, wdMergeIfIsBlank, wdMergeIfIsNotBlank, wdMergeIfLessThan, wdMergeIfLessThanOrEqual o wdMergeIfNotEqual.

CompareTo   Variant opcional. Texto que se compara con el contenido de MergeField.

TrueAutoText   Variant opcional. Elemento de Autotexto que se inserta si la comparación es verdadera. Si se especifica este argumento, se pasa por alto TrueText.

TrueText   Variant opcional. Texto que se inserta si la comparación es verdadera.

FalseAutoText   Variant opcional. Elemento de Autotexto que se inserta si la comparación es falsa. Si se especifica este argumento, se pasa por alto FalseText.

FalseText   Variant opcional. Texto que se inserta si la comparación es falsa.


Ejemplo del método AddIf

En este ejemplo se inserta "para uso personal" si el campo de combinación de correspondencia Compañía está vacío y "para negocios" si dicho campo no está vacío.

ActiveDocument.MailMerge.Fields.AddIf Range:=Selection.Range, _

    MergeField:="Compañía", Comparison:=wdMergeIfIsBlank, _

    TrueText:="para uso personal", FalseText:="para negocios"

Este ejemplo inserta un campo SI que compara el contenido del campo de combinación denominado "Título" con el texto "Sr.". Una vez realizada la combinación, se inserta "Hola" si la comparación es verdadera.

ActiveWindow.View.ShowFieldCodes = False

Set myRange = ActiveDocument.Range(Start:=0, End:=0)

With ActiveDocument.MailMerge.Fields

    .AddIf Range:=myRange, MergeField:="Título", _

        Comparison:=wdMergeIfEqual, CompareTo:="Sr.", TrueText:="Hola"

End With


Método AddMergeRec

Agrega un campo REGCOMBINACIÓN a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. El campo REGCOMBINACIÓN inserta el número del registro de datos actual (la posición del registro de datos en el resultado de la consulta actual) durante una combinación de correspondencia.

Sintaxis

expresión.AddMergeRec(Range)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo REGCOMBINACIÓN.


Ejemplo del método AddMergeRec

Este ejemplo inserta texto y un campo REGCOMBINACIÓN al principio del documento activo.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.MailMerge.Fields.AddMergeRec Range:=myRange

myRange.InsertAfter "Número de registro: "


Método AddMergeSeq

Agrega un campo SECCOMBINACIÓN a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. El campo SECCOMBINACIÓN inserta un número basado en la secuencia en la que se combinan los registros de datos (por ejemplo, al combinar el registro 50 de los registros 50 a 100, el campo SECCOMBINACIÓN inserta el número 1).

Sintaxis

expresión.AddMergeSeq(Range)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo SECCOMBINACIÓN.


Ejemplo del método AddMergeSeq

En este ejemplo se inserta texto y un campo SECCOMBINACIÓN al final del documento activo.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseEnd

ActiveDocument.MailMerge.Fields.AddMergeSeq Range:=myRange

myRange.InsertAfter "Número de secuencia: "


Método AddNext

Agrega un campo SIGUIENTE a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. El campo SIGUIENTE avanza hasta el siguiente registro de datos de manera que se pueden combinar datos de varios registros en el mismo documento de combinación (por ejemplo, una hoja de etiquetas postales).

Sintaxis

expresión.AddNext(Range)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo SIGUIENTE.


Ejemplo del método AddNext

Este ejemplo agrega un campo SIGUIENTE detrás del tercer campo CAMPOCOMBINACIÓN de Principal.doc.

Documents("Principal.doc").MailMerge.Fields(3).Select

Selection.Collapse Direction:=wdCollapseEnd

Documents("Principal.doc").MailMerge.Fields.AddNext Range:=Selection.Range


Método AddNextIf

Agrega un campo PRÓXIMOSI a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. El campo PRÓXIMOSI compara dos expresiones y si la comparación es verdadera, el siguiente registro de datos se combina con el documento de combinación actual.

Sintaxis

expresión.AddNextIf(Range, MergeField, Comparison, CompareTo)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo PRÓXIMOSI.

MergeField   String requerida. Nombre del campo de combinación.

Comparison   Long requerido. Operador que se utiliza en la comparación. Puede ser una de las siguientes constantes WdMailMergeComparison: wdMergeIfEqual, wdMergeIfGreaterThan, wdMergeIfGreaterThanOrEqual, wdMergeIfIsBlank, wdMergeIfIsNotBlank, wdMergeIfLessThan, wdMergeIfLessThanOrEqual o wdMergeIfNotEqual.

CompareTo   String requerida. Texto que se va a comparar con el contenido de MergeField.


Ejemplo del método AddNextIf

En este ejemplo se agrega un campo PRÓXIMOSI delante del primer campo CAMPOCOMBINACIÓN en Principal.doc. Si el siguiente código postal es igual a 98004, el siguiente registro de datos se combina con el documento de combinación actual.

Documents("Principal.doc").MailMerge.Fields(1).Select

Selection.Collapse Direction:=wdCollapseStart

Documents("Principal.doc").MailMerge.Fields.AddNextIf _

    Range:=Selection.Range, MergeField:="CódPostal", _

    Comparison:=wdMergeIfEqual, CompareTo:="98004"


Método AddSet

Agrega un campo ASIGNAR a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. El campo ASIGNAR define el texto del marcador especificado.

Sintaxis

expresión.AddSet(Range, Name, ValueText, ValueAutoText)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo ASIGNAR.

Name   String requerida. Nombre del marcador al que está asignado ValueText.

ValueText   Variant opcional. Texto asociado con el marcador especificado por el argumento Name.

ValueAutoText   Variant opcional. Elemento de Autotexto que incluye texto asociado con el marcador especificado por el argumento Name. Si se especifica este argumento, ValueText se pasa por alto.


Ejemplo del método AddSet

En este ejemplo se agrega un campo ASIGNAR al principio del documento activo y, a continuación, se agrega un campo REF para mostrar el texto detrás de la selección.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.MailMerge.Fields.AddSet Range:=myRange, _

    Name:="Nombre", ValueText:="Pilar Moreno"

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Fields.Add Range:=Selection.Range, _

    Type:=wdFieldRef, Text:="Nombre"


Método AddSkipIf

Agrega un campo SALTARSI a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField. El campo SALTARSI compara dos expresiones y si la comparación es verdadera, SALTARSI pasa al siguiente registro de datos del origen de datos y comienza un nuevo documento de combinación.

Sintaxis

expresión.AddSkipIf(Range, MergeField, Comparison, CompareTo)

expresión   Requerida. Expresión que devuelve un objeto MailMergeFields.

Range   Objeto Range requerido. Ubicación del campo SALTARSI.

MergeField   String requerida. Nombre del campo de combinación.

Comparison   Long requerido. Operador que se utiliza en la comparación. Puede ser una de las siguientes constantes WdMailMergeComparison: wdMergeIfEqual, wdMergeIfGreaterThan, wdMergeIfGreaterThanOrEqual, wdMergeIfIsBlank, wdMergeIfIsNotBlank, wdMergeIfLessThan, wdMergeIfLessThanOrEqual o wdMergeIfNotEqual.

CompareTo   Variant opcional. Texto que se va a comparar con el contenido de MergeField.


Ejemplo del método AddSkipIf

En este ejemplo se agrega un campo SALTARSI delante del primer campo CAMPOCOMBINACIÓN en Principal.doc. Si el siguiente código postal es igual a 98040, el siguiente registro de datos no se tiene en cuenta y se crea un nuevo documento de combinación.

Documents("Principal.doc").MailMerge.Fields(1).Select

Selection.Collapse Direction:=wdCollapseStart

Documents("Principal.doc").MailMerge.Fields.AddSkipIf _

    Range:=Selection.Range, MergeField:="CodPostal", _

    Comparison:=wdMergeIfEqual, CompareTo:="98040"


Propiedad Data

Devuelve o establece datos en un campo MACROAUTO. String de Lectura/Escritura.

Nota   Los datos no se ven en el código ni en el resultado del campo; sólo puede obtenerse acceso a ellos devolviendo el valor de la propiedad Data. Si el campo no es ningún campo MACROAUTO, esta propiedad generará un error.


Ejemplo de la propiedad Data

En este ejemplo se inserta un campo MACROAUTO en el punto de inserción del documento activo y, a continuación, se establecen los datos del campo.

Selection.Collapse Direction:=wdCollapseStart

Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _

    Type:=wdFieldAddin)

myField.Data = "Información oculta"


Propiedad DataFields

Devuelve un conjunto de MailMergeDataFields que representa a los campos del origen de datos de combinación de correspondencia especificada. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad DataFields

En este ejemplo se muestra el nombre de los campos del origen de datos adjunto al documento principal de combinación de correspondencia activo.

For Each mField In ActiveDocument.MailMerge.DataSource.DataFields

    MsgBox mField.Name

Next mField

En este ejemplo se muestra el valor del campo Apellido del primer registro del origen de datos adjunto a "Principal.doc".

With Documents("Principal.doc").MailMerge.DataSource

    .ActiveRecord = wdFirstRecord

    MsgBox .DataFields("Apellido").Value

End With


Propiedad DataSource

Devuelve un objeto MailMergeDataSource que hace referencia al origen de datos adjunto a un documento principal de combinación de correspondencia. Es de sólo lectura.


Ejemplo de la propiedad DataSource

En este ejemplo se muestra el nombre del origen de datos adjunto al documento activo.

If ActiveDocument.MailMerge.DataSource.Name <> "" Then _

    MsgBox ActiveDocument.MailMerge.DataSource.Name

En este ejemplo se muestra el siguiente registro del origen de datos adjunto a Principal.doc.

ActiveWindow.View.ShowFieldCodes = False

With Documents("Principal.doc").MailMerge

    .ViewMailMergeFieldCodes = False

    .DataSource.ActiveRecord = wdNextRecord

End With


Propiedad Destination

Devuelve o establece el destino de los resultados de la combinación de correspondencia. Puede ser una de las siguientes constantes WdMailMergeDestination: wdSendToEmail, wdSendToFax, wdSendToNewDocument o wdSendToPrinter. Long de Lectura/Escritura.


Ejemplo de la propiedad Destination

Este ejemplo envía los resultados de una operación de combinación de correspondencia a un nuevo documento.

Set mm = ActiveDocument.MailMerge

If mm.State = wdMainAndDataSource Then

    mm.Destination = wdSendToNewDocument

    mm.Execute

End If


Método EditHeaderSource

Abre el origen de registro inicial adjunta a un documento principal de combinación de correspondencia, o activa el origen de registro inicial si ya se encuentra abierta.

Nota   Si el documento principal de combinación de correspondencia no dispone de una fuente de registro inicial, este método generará un error.

Sintaxis

expresión.EditHeaderSource

expresión   Requerida. Expresión que devuelve un objeto MailMerge.


Ejemplo del método EditHeaderSource

En este ejemplo se adjunta una fuente de registro inicial al documento activo y, a continuación, se abre la fuente de registro inicial.

With ActiveDocument.MailMerge

    .MainDocumentType = wdFormLetters

    .OpenHeaderSource Name:="C:\Mis documentos \Regist.doc"

    .EditHeaderSource

End With

En este ejemplo se abre la fuente de registro inicial si el documento activo tiene adjunto un archivo de registro inicial asociado.

Set MM = ActiveDocument.MailMerge

If MM.State = wdMainAndSourceAndHeader Or _

        MM.State = wdMainAndHeader Then

    MM.EditHeaderSource

End If


Propiedad FieldNames

Devuelve un conjunto de MailMergeFieldNames que representa a los nombres de todos los campos del origen de datos de combinación de correspondencia especificada. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad FieldNames

En este ejemplo se muestra el nombre del primer campo del origen de datos adjunto al documento principal de combinación de correspondencia activo.

MsgBox ActiveDocument.MailMerge.DataSource.FieldNames(1).Name

En este ejemplo se utiliza la matriz mNames() para guardar los nombres de los campos de combinación contenidos en el origen de datos adjunto al documento activo.

Set MM = ActiveDocument.MailMerge

num = ActiveDocument.MailMerge.DataSource.FieldNames.Count - 1

ReDim mNames(num)

i = 0

For Each aMergeField In MM.DataSource.FieldNames

    mNames(i) = aMergeField.Name

    i = i + 1

Next aMergeField


Propiedad HeaderSourceName

Devuelve la ruta de acceso y el nombre de archivo de la fuente de registro inicial adjunta al documento principal de combinación de correspondencia especificado. String de sólo lectura.


Ejemplo de la propiedad HeaderSourceName

Si el documento activo tiene adjunta una fuente de registro inicial, este ejemplo muestra el nombre del archivo.

hName = ActiveDocument.MailMerge.DataSource.HeaderSourceName

If hName <> "" Then MsgBox hName

En este ejemplo se abre la fuente de registro inicial adjunta al documento activo si dicha fuente es un documento de Word.

Set dSource = ActiveDocument.MailMerge.DataSource

If dSource.HeaderSourceType = wdMergeInfoFromWord Then

    Documents.Open FileName:=dSource.HeaderSourceName

End If


Propiedad HeaderSourceType

Devuelve un valor que indica la forma en que se utiliza la fuente de registro inicial en la operación de combinación de correspondencia. Puede ser una de las siguientes constantes WdMailMergeDataSource: wdMergeInfoFromAccessDDE, wdMergeInfoFromExcelDDE, wdMergeInfoFromMSQueryDDE, wdMergeInfoFromODBC, wdMergeInfoFromWord o wdNoMergeInfo. Long de sólo lectura.


Ejemplo de la propiedad HeaderSourceType

En este ejemplo se abre la fuente de registro inicial adjunta al documento activo si dicha fuente es un documento de Word.

Set dSource = ActiveDocument.MailMerge.DataSource

If dSource.HeaderSourceType = wdMergeInfoFromWord Then

    Documents.Open FileName:=dSource.HeaderSourceName

End If


Propiedad MailMerge

Devuelve un objeto MailMerge que representa la funcionalidad de la combinación de correspondencia en el documento especificado. Es de sólo lectura.

Nota   El objeto MailMerge está disponible independientemente de que el documento especificado sea un documento principal de combinación de correspondencia o no. Utilice la propiedad State para determinar el estado actual de la operación de combinación de correspondencia.


Ejemplo de la propiedad MailMerge

En este ejemplo se ejecuta una combinación de correspondencia si el documento activo es un documento principal con un origen de datos adjunto.

Set myMerge = ActiveDocument.MailMerge

If myMerge.State = wdMainAndDataSource Then myMerge.Execute

En este ejemplo se combina el documento principal con los registros de datos 1 al 4 y se envían los documentos de combinación a la impresora.

With ActiveDocument.MailMerge

    .DataSource.FirstRecord = 1

    .DataSource.LastRecord = 4

    .Destination = wdSendToPrinter

    .SuppressBlankLines = True

    .Execute

End With


Propiedad MainDocumentType

Devuelve o establece el tipo de documento principal de combinación de correspondencia. Puede ser una de las siguientes constantes WdMailMergeMainDocType: wdCatalog, wdEnvelopes, wdFormLetters, wdMailingLabels o wdNotAMergeDocument. Long  de Lectura/Escritura.

Nota   Si establece esta propiedad para un documento que ya es un documento principal, el origen de datos adjunto desaparecerá.


Ejemplo de la propiedad MainDocumentType

En este ejemplo se crea un nuevo documento y se transforma en un documento principal de catálogo para una operación de combinación de correspondencia.

Set myDoc = Documents.Add

myDoc.MailMerge.MainDocumentType = wdCatalog

En este ejemplo se determina si el documento activo es un documento principal de una operación de combinación de correspondencia y, a continuación, se muestra un mensaje en la barra de estado.

Set doc = ActiveDocument

If doc.MailMerge.MainDocumentType = wdNotAMergeDocument Then

    StatusBar = "No es un documento principal de combinación de correspondencia."

Else

    StatusBar = "Es un documento principal de combinación de correspondencia."

End If


Propiedad ViewMailMergeFieldCodes

True: si se muestran nombres de campos de combinación en un documento principal de combinación de correspondencia. False si se muestra información del registro de datos actual. Boolean de Lectura/Escritura.

Nota   Si el documento activo no es un documento principal de combinación de correspondencia, esta propiedad genera un error. Para mostrar nombres de campos de combinación o sus resultados, establezca la propiedad ShowFieldCodes como False.


Ejemplo de la propiedad ViewMailMergeFieldCodes

En este ejemplo se muestran los campos de combinación de correspondencia en Principal.doc.

ActiveWindow.View.ShowFieldCodes = False

With Documents("Principal.doc")

    .Activate

    .MailMerge.ViewMailMergeFieldCodes = True

End With

Si el documento activo está configurado para una operación de combinación de correspondencia, este ejemplo mostrará la información del registro de datos actual en el documento principal.

ActiveWindow.View.ShowFieldCodes = False

Set myMerge = ActiveDocument.MailMerge

If myMerge.State = wdMainAndSourceAndHeader Or _

    myMerge.State = wdMainAndDataSource Then

    myMerge.ViewMailMergeFieldCodes = False

End If


Propiedad FirstRecord

Devuelve o establece el número del primer registro de datos que se va a combinar en una operación de combinación de correspondencia. Long de Lectura/Escritura.


Ejemplo de la propiedad FirstRecord

En este ejemplo se combina el documento principal con los registros de datos 1 al 3 y se envían los documentos de combinación a la impresora.

With ActiveDocument.MailMerge

    .DataSource.FirstRecord = 1

    .DataSource.LastRecord = 3

    .Destination = wdSendToPrinter

    .Execute

End With


Propiedad LastRecord

Devuelve o establece el número del último registro de datos que se va a combinar en una operación de combinación de correspondencia. Long de Lectura/Escritura.


Ejemplo de la propiedad LastRecord

En este ejemplo se combina el documento principal con los registros de datos 2 a 4 y se envían los documentos de combinación a un nuevo documento.

With ActiveDocument.MailMerge

    .DataSource.FirstRecord = 2

    .DataSource.LastRecord = 4

    .Destination = wdSendToNewDocument

    .Execute

End With


Propiedad SuppressBlankLines

True: si se eliminan las líneas en blanco cuando los campos de combinación de correspondencia de un documento principal de combinación de correspondencia están vacíos. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SuppressBlankLines

En este ejemplo se abre Principal.doc y se ejecuta la operación de combinación de correspondencia. Cuando los campos de combinación están vacíos, se eliminan las líneas en blanco del documento de combinación.

Set myDoc = Documents.Open(FileName:="C:\Mis documentos\Principal.doc")

With myDoc.MailMerge

    .SuppressBlankLines = True

    .Destination = wdSendToPrinter

    .Execute

End With


Propiedad MailAddressFieldName

Devuelve o establece el nombre del campo que contiene las direcciones de correo electrónico utilizadas cuando el destino de combinación de correspondencia sea correo electrónico. String de Lectura/Escritura.


Ejemplo de la propiedad MailAddressFieldName

En este ejemplo, se combina el documento denominado "Carta formulario.doc" con su documento de datos adjunto y envía el resultado a las direcciones de correo electrónico guardadas en el campo de combinación CorreoE .

With Documents("Carta formulario.doc").MailMerge

    .MailAddressFieldName = "CorreoE "

    .MailSubject = "Oferta sorprendente"

    .Destination = wdSendToEmail

    .Execute

End With


Propiedad MailMergeDataView

True si se muestran los datos de combinación de correspondencia en vez de los campos de combinación de correspondencia en la ventana especificada. Boolean de Lectura/Escritura.

Nota   Si la ventana especificada no está en ningún documento principal, se producirá un error.


Ejemplo de la propiedad MailMergeDataView

Si el documento activo incluye, al menos, un campo de combinación de correspondencia, en este ejemplo se muestran los datos de combinación de correspondencia desde el primer registro del origen de datos adjunto.

If ActiveDocument.MailMerge.Fields.Count >= 1 Then

    ActiveDocument.MailMerge.DataSource.ActiveRecord = 1

    ActiveWindow.View.ShowFieldCodes = False

    ActiveWindow.View.MailMergeDataView = True

End If

En este ejemplo, se pasa de ver los campos de combinación de correspondencia a ver los datos resultantes.

With ActiveWindow.View

    .ShowFieldCodes = False

    .MailMergeDataView = Not .MailMergeDataView

End With


Propiedad MailSubject

Devuelve o establece la línea del tema utilizada cuando el destino de combinación de correspondencia es correo electrónico. String de Lectura/Escritura.


Ejemplo de la propiedad MailSubject

En este ejemplo, se combina el documento denominado "Oferta.doc" con su documento de datos adjunto. Los resultados se envían a las direcciones de combinación de correspondencia guardadas en el campo de combinación NombresCorreoE  y el tema del mensaje de correo es "Oferta sorprendente".

With Documents("Oferta.doc").MailMerge

    .MailAddressFieldName = "NombresCorreoE "

    .MailSubject = "Oferta sorprendente"

    .Destination = wdSendToEmail

    .Execute

End With


Método UseAddressBook

Selecciona la libreta de direcciones utilizada como origen de datos para la operación de combinación de correspondencia.

Sintaxis

expresión.UseAddressBook(Type)

expresión   Requerida. Expresión que devuelve un objeto MailMerge.

Type   String requerida. Libreta de direcciones que va a usarse como origen de datos de combinación de correspondencia. La cadena corresponde a la extensión del archivo de la aplicación, de la forma especificada en el registro; por ejemplo, "olk" de Outlook, "scd" de Schedule+, o bien "pab" de Libreta de direcciones personales.


Ejemplo del método UseAddressBook

En este ejemplo, se crea un nuevo documento principal que utiliza la Libreta de direcciones personales como origen de datos.

Set myDoc = Documents.Add

With myDoc.MailMerge

    .MainDocumentType = wdFormLetters

    .UseAddressBook Type:="pab"

End With


Propiedad QueryString

Devuelve o establece la cadena de búsqueda, instrucción SQL, utilizada para recuperar un subconjunto de datos del origen de datos de combinación de correspondencia. String de Lectura/Escritura.


Ejemplo de la propiedad QueryString

En este ejemplo, se devuelve la cadena de consulta del origen de datos adjunto al documento activo.

qString = ActiveDocument.MailMerge.DataSource.QueryString


Método OpenDataSource

Adjunta un origen de datos al documento especificado, que se convierte en documento principal si aún no lo es.

Sintaxis

expresión.OpenDataSource(Name, Format, ConfirmConversions, ReadOnly, LinkToSource, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Connection, SQLStatement, SQLStatement1)

expresión   Requerida. Expresión que devuelve un objeto MailMerge.

Name   String requerida. Nombre del archivo del origen de datos. En Windows, puede especificar un archivo de Microsoft Query (.qry) en vez de un origen de datos, una cadena de conexión y una de consulta.

Format   Variant opcional. Convertidor de archivos utilizado para abrir el documento. Puede ser una de las siguientes constantes WdOpenFormat: wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText o wdOpenFormatUnicodeText. El valor predeterminado es wdOpenFormatAuto.

Para especificar un formato de archivo externo, utilice la propiedad OpenFormat con objeto FileConverter para determinar el valor que va a usarse con este argumento.

ConfirmConversions   Variant opcional. True para mostrar el cuadro de diálogo Convertir archivo si el archivo no está en formato de Word.

ReadOnly   Variant opcional. True para abrir el origen de datos en base de sólo lectura.

LinkToSource   Variant opcional. True para realizar la consulta especificada por Connection y SQLStatement cada vez que se abra el documento principal.

AddToRecentFiles   Variant opcional. True para agregar el nombre del archivo a la lista de archivos utilizados recientemente en la parte inferior del menú Archivo.

PasswordDocument   Variant opcional. Contraseña utilizada para abrir el origen de datos.

PasswordTemplate   Variant opcional. Contraseña utilizada para abrir la plantilla.

Revert   Variant opcional. Controla lo que ocurre si Name es el nombre del archivo de un documento abierto. True para ignorar los cambios no guardados del documento abierto y volver a abrirlo; False para activar el documento activo.

WritePasswordDocument   Variant opcional. Contraseña utilizada para guardar los cambios del documento.

WritePasswordTemplate   Variant opcional. Contraseña utilizada para guardar los cambios de la plantilla.

Connection   Variant opcional. Intervalo en el que va a ejecutarse la consulta especificada por SQLStatement. La forma en la que se especifica el intervalo dependerá de la forma de recuperación de los datos. Por ejemplo:

•	Al recuperar datos a través de ODBC, sólo Windows, especifique una cadena de conexión.

•	Al recuperar datos de Microsoft Excel mediante el intercambio dinámico de datos (DDE), especifique un intervalo citado.

•	Al recuperar datos de Microsoft Access, sólo Windows, especifique la palabra "Tabla" o "Consulta" por el nombre de una tabla o consulta.

SQLStatement   Variant opcional. Define opciones de consulta para recuperar datos.

SQLStatement1   Variant opcional. Si la cadena de la consulta tiene más de 255 caracteres, SQLStatement especifica la primera parte de la cadena y SQLStatement1 la segunda.

Comentarios

Para determinar las cadenas de conexión y de consulta ODBC, establezca las opciones de consulta manualmente y utilice la propiedad QueryString para devolver la cadena de conexión. En la siguiente tabla se incluyen palabras clave de SQL de uso común.

Palabra clave	Descripción
DSN	Nombre del origen de datos ODBC
UID	ID de conexión del usuario
PWD	Contraseña especificada por el usuario
DBQ	Nombre del archivo de base de datos.
FIL	Tipo de archivo


Ejemplo del método OpenDataSource

En este ejemplo, se crea un nuevo documento principal y se adjunta la tabla Clientes de la base de datos de Microsoft Access denominada "Neptuno.mdb".

Set myDoc = Documents.Add

With myDoc.MailMerge

    .MainDocumentType = wdFormLetters

    .OpenDataSource Name:="C:\MSOffice\Access\Ejemplos\Neptuno.mdb", _

        LinkToSource:=True, AddToRecentFiles:=False, _

        Connection:="TABLA Pedidos"

End With

En este ejemplo se crea un nuevo documento principal y se adjunta la hoja de cálculo de Microsoft Excel denominada "Nombres.xls". El argumento Connection recupera datos del intervalo denominado "Ventas".

Set myDoc = Documents.Add

With myDoc.MailMerge

    .MainDocumentType = wdCatalog

    .OpenDataSource Name:="C:\Mis documentos\Nombres.xls", ReadOnly:=True, _

        Connection:="Ventas"

End With

En este ejemplo, se utiliza ODBC para adjuntar la base de datos de Microsoft Access denominada "Neptuno.mdb" al documento activo. El argumento SQLStatement selecciona los registros de la tabla Clientes.

With ActiveDocument.MailMerge

    .MainDocumentType = wdFormLetters

    constr = "DSN=MS Access Databases;DBQ=C:\Access\Neptuno.mdb;" _

        & "FIL=RedISAM;"

   .OpenDataSource Name:="C:\MSOffice\Access\Neptuno.mdb", _

        Connection:=constr, SQLStatement:="SELECT * FROM Clientes"

End With


Propiedad ConnectString

Devuelve la cadena de conexión del origen de datos de combinación de correspondencia especificada. String de sólo lectura.


Ejemplo de la propiedad ConnectString

En este ejemplo, se crea un nuevo documento principal y se adjunta la tabla Clientes de la base de datos de Microsoft Access denominada "Neptuno.mdb". La cadena de conexión se muestra en un cuadro de mensaje.

Set myDoc = Documents.Add

With myDoc.MailMerge

    .MainDocumentType = wdFormLetters

    .OpenDataSource Name:="C:\MSOffice\Access\Ejemplos\Neptuno.mdb", _

        LinkToSource:=True, AddToRecentFiles:=False, _

        Connection:="TABLA Clientes"

    MsgBox .DataSource.ConnectString

End With


Método CreateDataSource

Crea un documento de Word que utiliza una tabla para guardar datos de combinación de correspondencia. Se adjunta el nuevo origen de datos al documento especificado, que se convierte en documento principal si aún no lo es.

Sintaxis

expresión.CreateDataSource(Name, PasswordDocument, WritePasswordDocument, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource)

expresión   Requerida. Expresión que devuelve un objeto MailMerge.

Name   Variant opcional. La ruta de acceso y el nombre del archivo del nuevo origen de datos.

PasswordDocument   Variant opcional. Contraseña necesaria para abrir el nuevo origen de datos.

WritePasswordDocument   Variant opcional. Contraseña necesaria para guardar los cambios del origen de datos.

HeaderRecord   Variant opcional. Nombres de campos para el registro de encabezados. Si se omite este argumento, se utilizará el registro de encabezados normal. "Título, Nombre, Apellido, Trabajo, Organización, Dirección1, Dirección2, Ciudad, Provincia, CódigoPostal, País, TeléfonoParticular, TeléfonoTrabajo". Para separar nombres de campos en Windows, utilice el separador de listas especificado en el comando Configuración regional del Panel de control.

MSQuery   Variant opcional. True para lanzar Microsoft Query, si está instalado (sólo Windows). Se ignoran los argumentos FileName, PasswordDoc y HeaderRecord.

SQLStatement   Variant opcional. Define opciones de consulta para recuperar datos.

SQLStatement1   Variant opcional. Si la cadena de la consulta tiene más de 255 caracteres, SQLStatement especifica la primera parte de la cadena y SQLStatement1 la segunda.

Connection   Variant opcional. Intervalo en el que va a ejecutarse la consulta especificada por SQLStatement. La forma en la que se especifica el intervalo dependerá de la forma de recuperación de los datos. Por ejemplo:

•	Al recuperar datos a través de ODBC, sólo Windows, especifique una cadena de conexión.

•	Al recuperar datos de Microsoft Excel mediante el intercambio dinámico de datos (DDE), especifique un intervalo citado.

•	Al recuperar datos de Microsoft Access, sólo Windows, especifique la palabra "Tabla" o "Consulta" por el nombre de una tabla o consulta.

LinkToSource   Variant opcional. True para realizar la consulta especificada por Connection y SQLStatement cada vez que se abra el documento principal.


Ejemplo del método CreateDataSource

En este ejemplo, se crea un nuevo documento de origen de datos denominado "Datos.doc" y se adjunta el origen de datos al documento activo. El nuevo origen de datos incluye una tabla de cinco columnas que tenga los nombres de archivo especificados por el argumento HeaderRecord.

ActiveDocument.MailMerge.CreateDataSource Name:="C:\Mis documentos\Datos.doc", _

    HeaderRecord:="Nombre, Dirección, Ciudad, Provincia, Código postal"


Método EditDataSource

Abre o pasa el origen de datos de combinación de correspondencia.

Sintaxis

expresión.EditDataSource

expresión   Requerida. Expresión que devuelve un objeto MailMerge.

Comentarios

Si el origen de datos es un documento de Word, este método la abre o la activa si ya está abierta.

Si Word obtiene acceso a los datos a través del intercambio dinámico de datos (DDE), mediante una aplicación como Microsoft Excel o Microsoft Access, este método muestra el origen de datos en dicha aplicación.

Si Word tiene acceso a los datos a través de la conectividad de base de datos abierta (ODBC) (sólo Windows), este método muestra los datos en un documento de Word. Observe que si está instalado Microsoft Query, aparecerá un mensaje, con la opción para mostrar Microsoft Query en vez de convertir los datos.


Ejemplo del método EditDataSource

En este ejemplo, se abre o activa el origen de datos adjunta al documento denominado "Ventas.doc".

Documents("Ventas.doc").MailMerge.EditDataSource

En este ejemplo, se abre o activa el origen de datos adjunto si es un documento de Word.

Set myDataSource = ActiveDocument.MailMerge.DataSource

If myDataSource.Type = wdMergeInfoFromWord Then

    ActiveDocument.MailMerge.EditDataSource

End If


Método CreateHeaderSource

Crea un documento de Word que guarda un registro de encabezados que se utiliza en vez del registro de encabezados del origen de datos de combinación de correspondencia. Este método adjunta el nuevo origen del encabezado al documento especificado, que se convierte en documento principal si aún no lo es.

Nota   El nuevo origen del encabezado utiliza una tabla para organizar los nombres de los campos de combinación de correspondencia.

Sintaxis

expresión.CreateHeaderSource(Name, PasswordDocument, WritePasswordDocument, HeaderRecord)

expresión   Requerida. Expresión que devuelve un objeto MailMerge.

Name   String requerida. Ruta de acceso y nombre del archivo del nuevo origen del encabezado.

PasswordDocument   Variant opcional. Contraseña necesaria para abrir el nuevo origen de los encabezados.

WritePasswordDocument   Variant opcional. Contraseña necesaria para guardar los cambios del origen del encabezado.

HeaderRecord   Variant opcional. Cadena que especifica los nombres de los campos del registro de encabezados. Si se omite este argumento, se utilizará el registro de encabezados normal. "Título, Nombre, Apellido, Trabajo, Organización, Dirección1, Dirección2, Ciudad, Provincia, CódigoPostal, País, TeléfonoParticular, TeléfonoTrabajo". Para separar nombres de campos en Windows, utilice el separador de listas especificado en el comando Configuración regional del Panel de control.


Ejemplo del método CreateHeaderSource

En este ejemplo, se crea un origen del encabezado con cinco nombres de campo y se adjunta el nuevo origen del encabezado denominado "Encabezado.doc" al documento activo.

ActiveDocument.MailMerge.CreateHeaderSource Name:="Encabezado.doc", _

    HeaderRecord:="Nombre, Dirección, Ciudad, Provincia, Código postal"

En este ejemplo, se crea un origen del encabezado para el documento denominado "Principal.doc", con el registro de encabezados estándar, y se abre el origen de datos denominado "Datos.doc".

With Documents("Principal.doc").MailMerge

    .CreateHeaderSource Name:="Campos.doc"

    .OpenDataSource Name:="C:\Mis documentos\Datos.doc"

End With


Método Check

Simula la operación de combinación de correspondencia, pausando para informar de cada error a medida que se producen.

Sintaxis

expresión.Check

expresión   Requerida. Expresión que devuelve un objeto MailMerge.


Ejemplo del método Check

En este ejemplo, se revisan los errores de combinación de correspondencia del documento activo.

theState = ActiveDocument.MailMerge.State

If theState = wdMainAndDataSource Or _

    theState = wdMainAndSourceAndHeader Then

    ActiveDocument.MailMerge.Check

End If


Método EditMainDocument

Activa el documento principal de combinación de correspondencia asociado al documento de origen de datos o de origen del encabezado especificado.

Nota   Si no está abierto el documento principal, se producirá un error. Utilice el método Open si no está actualmente abierto el documento principal.

Sintaxis

expresión.EditMainDocument

expresión   Requerida. Expresión que devuelve un objeto MailMerge.


Ejemplo del método EditMainDocument

En este ejemplo, se intenta activar el documento principal asociado al documento del origen de datos activo. Si no está abierto el documento principal, se muestra el cuadro de diálogo Abrir, con un mensaje en la barra de estado.

On Error GoTo errorhandler

Documents("Datos.doc").MailMerge.EditMainDocument

errorhandler:

If Err = 4605 Then StatusBar = "No está abierto el documento principal"

Dialogs(wdDialogFileOpen).Show


Método OpenHeaderSource

Adjunta un origen del encabezado de combinación de correspondencia al documento especificado.

Nota   Cuando se adjunta un origen del encabezado, se utiliza el primer registro del origen del encabezado en vez del registro de encabezados del origen de datos.

Sintaxis

expresión.OpenHeaderSource(Name, Format, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate)

expresión   Requerida. Expresión que devuelve un objeto MailMerge.

Name   String requerida. Nombre del archivo del origen del encabezado.

Format   Variant opcional. El convertidor de archivos utilizado para abrir el documento. Puede ser una de las siguientes constantes WdOpenFormat: wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText o wdOpenFormatUnicodeText. El valor predeterminado es wdOpenFormatAuto.

Para especificar un formato de archivo externo, utilice la propiedad OpenFormat con objeto FileConverter para determinar el valor que va a usarse con este argumento.

ConfirmConversions   Variant opcional. True para mostrar el cuadro de diálogo Convertir archivo si el archivo no está en formato de Word.

ReadOnly   Variant opcional. True para abrir el origen del encabezado en base de sólo lectura.

AddToRecentFiles   Variant opcional. True para agregar el nombre del archivo a la lista de archivos utilizados recientemente en la parte inferior del menú Archivo.

PasswordDocument   Variant opcional. Contraseña necesaria para abrir el documento del origen del encabezado.

PasswordTemplate   Variant opcional. Contraseña necesaria para abrir la plantilla del origen del encabezado.

Revert   Variant opcional. Controla lo que ocurre si Name es el nombre del archivo de un documento abierto. True para ignorar los cambios no guardados del documento abierto y volver a abrirlo; False para activar el documento activo.

WritePasswordDocument   Variant opcional. Contraseña necesaria para guardar los cambios del origen de datos del documento.

WritePasswordTemplate   Variant opcional. Contraseña necesaria para guardar los cambios del origen de datos de la plantilla.


Ejemplo del método OpenHeaderSource

En este ejemplo, se establece el documento activo como documento principal de las cartas de formulario y, a continuación, se adjuntan el origen del encabezado denominado "Encabezado.doc" y el documento de datos denominado "Nombres.doc."

With ActiveDocument.MailMerge

    .MainDocumentType = wdFormLetters

    .OpenHeaderSource Name:="C:\Mis documentos\Encabezado.doc", _

         Revert:=False, AddToRecentFiles:=False

    .OpenDataSource Name:="C:\Mis documentos\Nombres.doc"

End With


Método FindRecord

Busca el contenido del origen de datos de combinación de correspondencia especificado para el texto de un campo en particular. Devuelve el valor True si se encuentra el texto de búsqueda.

Nota   Corresponde al botón Buscar registro de la barra de herramientas Combinar correspondencia.

Sintaxis

expresión.FindRecord(FindText, Field)

expresión   Requerida. Expresión que devuelve un objeto MailMergeDataSource.

FindText   String requerida. Texto que va a buscarse.

Field   String requerida. Nombre del campo que va a buscarse.


Ejemplo del método FindRecord

En este ejemplo, se muestra un documento de combinación para el primer registro de datos en el que el campo Nombre contiene el valor "José". Si se encuentra el registro de datos, su número se guarda en la variable numRecord.

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False

Set myMMData = ActiveDocument.MailMerge.DataSource

If myMMData.FindRecord(FindText:="José", Field:="Nombre") = True Then

    numRecord = myMMData.ActiveRecord

End If


Propiedad MailAsAttachment

True si los documentos de combinación se envían como adjuntos cuando el destino de combinación de correspondencia es un mensaje de correo electrónico o un fax. Boolean de Lectura/Escritura.


Ejemplo de la propiedad MailAsAttachment

En este ejemplo, se efectúa una operación de combinación de correspondencia y se envían los resultados de la combinación como adjuntos a mensajes de correo electrónico. Las direcciones de correo electrónico se guardan en el campo de combinación DirecciónCorreo.

With Documents("Principal.doc").MailMerge

    .MailAsAttachment = True

    .Destination = wdSendToEmail

    .MailSubject = "Oferta especial"

    .MailAddressFieldName = "DirecciónCorreo"

    .Execute

End With


Propiedad TwoInitialCapsExceptions

Devuelve un conjunto TwoInitialCapsExceptions que representa la lista de términos que contiene un uso de mayúsculas mezcladas que Word no corregirá de forma automática. Esta lista se corresponde con la lista de excepciones de Autocorrección de la ficha MAyúscula INicial del cuadro de diálogo Excepciones de Autocorrección (comando Autocorrección, menú Herramientas). Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad TwoInitialCapsExceptions

En este ejemplo se pide confirmación al usuario para eliminar o mantener todas las excepciones de Autocorrección de mayúsculas iniciales.

For Each unElemento In AutoCorrect.TwoInitialCapsExceptions

    response = MsgBox ("Eliminar elemento: " & unElemento.Name, vbYesNoCancel)

    If response = vbYes Then

        unElemento.Delete

    Else

        If response = vbCancel Then End

    End If

Next unElemento


Propiedad DefaultFilePath

Devuelve o establece carpetas predeterminadas para elementos tales como documentos, plantillas y gráficos. String de Lectura/Escritura.

Sintaxis

expresión.DefaultFilePath(Path)

expresión   Requerida. Expresión que devuelve un objeto Options.

Path   Long requerido. La carpeta predeterminada que se va a definir. Puede ser una de las siguientes constantes WdDefaultFilePath:

wdAutoRecoverPath wdBorderArtPath wdCurrentFolderPath wdDocumentsPath wdGraphicsFiltersPath wdPicturesPath wdProgramPath wdProofingToolsPath wdStartupPath	wdStyleGalleryPath wdTempFilePath wdTextConvertersPath wdToolsPath wdTutorialPath wdUserOptionsPath wdUserTemplatesPath wdWorkgroupTemplatesPath
Comentarios

La nueva configuración se hace efectiva de forma inmediata.

Se puede utilizar una cadena vacía ("") para quitar la configuración del registro (Windows 95 y Windows NT) o la configuración de Word (8) (Macintosh).


Ejemplo de la propiedad DefaultFilePath

En este ejemplo se define la carpeta predeterminada de los documentos de Word.

Options.DefaultFilePath(wdDocumentsPath) = "c:\Mis Documentos"

En este ejemplo se devuelve la ruta de acceso predeterminada actual de las plantillas de usuario (se corresponde con el valor de la ruta de acceso predeterminada de la ficha Archivos del cuadro de diálogo Opciones).

temp = Options.DefaultFilePath(wdUserTemplatesPath)


Propiedad SendMailAttach

True si el comando Enviar a del menú Archivo inserta el documento activo como un archivo de datos adjuntos a un mensaje de correo. False si el comando Enviar a inserta el contenido del documento activo como texto en un mensaje de correo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SendMailAttach

En este ejemplo se abre un nuevo mensaje de correo que tiene el documento activo adjunto a él.

Options.SendMailAttach = True

ActiveDocument.SendMail

En este ejemplo se devuelve el estado de la opción Enviar como datos adjuntos de la ficha General del cuadro de diálogo Opciones.

Msgbox Options.SendMailAttach


Propiedad DisplayScreenTips

True si comentarios, notas al pie, notas al final e hipervínculos se presentan como sugerencias. Texto marcado indicando que tiene comentarios se resalta. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DisplayScreenTips

En este ejemplo se habilita Word para mostrar comentarios, notas al pie y notas al final como sugerencias. Asimismo, texto marcado indicando que tiene comentarios se resalta.

Application.DisplayScreenTips = True

En este ejemplo se devuelve el estado actual de la opción Sugerencias de la ficha Ver del cuadro de diálogo Opciones.

temp = Application.DisplayScreenTips


Propiedad DefaultBorderLineStyle

Devuelve o establece el estilo predeterminado de la línea del borde. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdLineStyle:

wdLineStyleDashDot wdLineStyleDashDotDot wdLineStyleDashDotStroked wdLineStyleDashLargeGap wdLineStyleDashSmallGap wdLineStyleDot wdLineStyleDouble wdLineStyleDoubleWavy wdLineStyleEmboss3D wdLineStyleEngrave3D wdLineStyleNone wdLineStyleSingle	wdLineStyleSingleWavy wdLineStyleThickThinLargeGap wdLineStyleThickThinMedGap wdLineStyleThickThinSmallGap wdLineStyleThinThickLargeGap wdLineStyleThinThickMedGap wdLineStyleThinThickSmallGap wdLineStyleThinThickThinLargeGap wdLineStyleThinThickThinMedGap wdLineStyleThinThickThinSmallGap wdLineStyleTriple


Ejemplo de la propiedad DefaultBorderLineStyle

En este ejemplo se establece el estilo de línea predeterminado como doble.

Options.DefaultBorderLineStyle = wdLineStyleDouble

En este ejemplo se devuelve el estilo de línea predeterminado actual.

temp = Options.DefaultBorderLineStyle


Propiedad EnableSound

True si Word hace que el sistema responda con un sonido siempre que ocurra un error. Boolean de Lectura/Escritura.


Ejemplo de la propiedad EnableSound

En este ejemplo se establece la opción Proporcionar respuesta con sonido de la ficha General del cuadro de diálogo Opciones, basada en la entrada de un valor por parte del usuario.

If MsgBox("¿Desea que Word emita un sonido al producirse un error?", 36) = vbYes Then

    Options.EnableSound = True

Else

    Options.EnableSound = False

End If


Propiedad NoLineNumber

True si los números de línea no incrementan en los párrafos especificados. Su valor puede ser True, False o wdUndefined. Long de Lectura/Escritura.

Comentarios

Utilice la propiedad LineNumbering para establecer números de línea.


Ejemplo de la propiedad NoLineNumber

En este ejemplo se habilita la numeración de líneas del documento activo. Se establece el valor del número inicial en 1 y la numeración no se interrumpe a lo largo de todas las secciones del documento. La numeración de líneas se detiene al llegar al segundo párrafo.

With ActiveDocument.PageSetup.LineNumbering

    .Active = True

    .StartingNumber = 1

    .CountBy = 1

    .RestartMode = wdRestartContinuous

End With

ActiveDocument.Paragraphs(2).NoLineNumber = True


Propiedad DifferentFirstPageHeaderFooter

True si se usa un encabezado o pie de página diferente para la primer página. Su valor puede ser True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad DifferentFirstPageHeaderFooter

En este ejemplo se comprueba, en cada sección del documento activo, si los encabezados y pies de página son diferentes en la primera página y presenta un mensaje si encuentra alguno.

For Each sec In ActiveDocument.Sections

    If sec.PageSetup.DifferentFirstPageHeaderFooter = True Then

    Msgbox "Sección " & sec.Index & " tiene encabezados y pies de página diferentes en la primera página."

    End If

Next sec


Propiedad Sections

Devuelve un conjunto Sections que representa las secciones del documento, intervalo o selección especificados. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Sections

En este ejemplo se establece la orientación de página de todas las secciones del documento activo.

For Each sec In ActiveDocument.Sections

    sec.PageSetup.Orientation = wdOrientLandscape

Next sec

En este ejemplo se crea un nuevo documento y, a continuación, se agrega algo de texto al mismo. A continuación, se crea una nueva sección del documento y se inserta texto en ella.

Set miDoc = Documents.Add

Selection.InsertAfter "Esta es la sección 1."

Set misec = miDoc.Sections.Add

misec.Range.InsertAfter "Esta es la sección 2"


Propiedad Tasks

Devuelve un conjunto Tasks que representa todas las aplicaciones que se están ejecutando. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Tasks

En este ejemplo se muestra la calculadora. Si la calculadora no se está ya ejecutando, Word inicia entonces la tarea y, a continuación, muestra la calculadora.

If Tasks.Exists("Calculadora") Then

    With Tasks("Calculadora")

        .Activate

        .WindowState = wdWindowStateNormal

    End With

Else

    Shell "calc.exe"

    Tasks("Calculadora").WindowState = wdWindowStateNormal

End If

En este ejemplo se comprueba si Microsoft Excel se está ejecutando actualmente. Si la tarea se está ejecutando el ejemplo activa Microsoft Excel, de otro modo, se muestra un cuadro de mensaje.

If Tasks.Exists("Microsoft Excel") = True Then

    With Tasks("Microsoft Excel")

        .Activate

        .WindowState = wdWindowStateMaximize

    End With

Else

    Msgbox "Microsoft Excel no se está ejecutando en este momento."

End If


Propiedad PaperSize

Devuelve o establece el tamaño del papel. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdPaperSize:

wdPaper10x14 wdPaper11x17 wdPaperA3 wdPaperA4 wdPaperA4Small wdPaperA5 wdPaperB4 wdPaperB5 wdPaperCSheet wdPaperCustom wdPaperDSheet wdPaperEnvelope10 wdPaperEnvelope11 wdPaperEnvelope12 wdPaperEnvelope14 wdPaperEnvelope9 wdPaperEnvelopeB4 wdPaperEnvelopeB5 wdPaperEnvelopeB6 wdPaperEnvelopeC3 wdPaperEnvelopeC4	wdPaperEnvelopeC5 wdPaperEnvelopeC6 wdPaperEnvelopeC65 wdPaperEnvelopeDL wdPaperEnvelopeItaly wdPaperEnvelopeMonarch wdPaperEnvelopePersonal wdPaperESheet wdPaperExecutive wdPaperFanfoldLegalGerman wdPaperFanfoldStdGerman wdPaperFanfoldUS wdPaperFolio wdPaperLedger wdPaperLegal wdPaperLetter wdPaperLetterSmall wdPaperNote wdPaperQuarto wdPaperStatement wdPaperTabloid
Comentarios

Al definir la propiedad PageHeight o la propiedad PageWidth se cambia la propiedad PaperSize a wdPaperCustom.


Ejemplo de la propiedad PaperSize

En este ejemplo se establece el tamaño del papel como Oficio para el primer documento.

Documents(1).PageSetup.PaperSize = wdPaperLegal


Propiedad AutoFormatReplaceSymbols

True si dos guiones consecutivos (--) se reemplazan por un guión corto (–) o un guión largo (—) cuando Word dé formato a un documento o intervalo automáticamente. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatReplaceSymbols

En este ejemplo se activa la sustitución de guiones por símbolos y, a continuación, se da formato automáticamente a la selección actual.

Options.AutoFormatReplaceSymbols = True

Selection.Range.AutoFormat

En este ejemplo se devuelve el estado de la opción Caracteres de símbolos (--) con símbolos (—) de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatReplaceFractions


Propiedad AutoFormatAsYouTypeReplaceSymbols

True si dos guiones consecutivos (--) son reemplazados por un guión corto (–) o un guión largo (—) mientras se escribe. Boolean de Lectura/Escritura.

Nota   Si los guiones se escriben con espacios iniciales y finales, Word reemplaza los guiones con un guión corto, si no hay espacios finales, los guiones se reemplazan con un guión largo.


Ejemplo de la propiedad AutoFormatAsYouTypeReplaceSymbols

En este ejemplo se activa la sustitución de guiones por símbolos mientras se escribe.

Options.AutoFormatAsYouTypeReplaceSymbols = True

En este ejemplo se devuelve el estado de la opción Caracteres de símbolos (--) con símbolos (—) de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeReplaceSymbols


Propiedad ShowReadabilityStatistics

True si Word muestra una lista de estadísticas de resumen, incluyendo medidas de legibilidad, cuando acaba la revisión gramatical. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowReadabilityStatistics

En este ejemplo se define Word de modo que muestre estadísticas de legibilidad y, a continuación, revise la ortografía y la gramática del documento activo.

Options.ShowReadabilityStatistics = True

ActiveDocument.CheckGrammar

En este ejemplo se devuelve el estado actual de la opción Estadísticas de legibilidad de la ficha Ortografía y gramática del cuadro de diálogo Opciones.

temp = Options.ShowReadabilityStatistics


Propiedad CheckGrammarWithSpelling

True si Word revisa la gramática al mismo tiempo que revisa la ortografía. Boolean de Lectura/Escritura.

Comentarios

Esta propiedad controla si Word revisa la gramática a la vez que se revisa la ortografía mediante el uso del comando Ortografía (menú Herramientas).

Para hacer una revisión ortográfica o gramatical desde un procedimiento de Visual Basic, utilice el método CheckSpelling para revisar sólo la ortografía y utilice el método CheckGrammar para revisar tanto la gramática como la ortografía.


Ejemplo de la propiedad CheckGrammarWithSpelling

En este ejemplo se devuelve el estado de la opción Verificar gramática con ortografía de la ficha Ortografía y gramática del cuadro de diálogo Opciones. Si se selecciona la opción, el procedimiento revisa tanto la gramática como la ortografía del documento activo, de no ser así, sólo se revisa la ortografía.

If Options.CheckGrammarWithSpelling = True Then

    ActiveDocument.CheckGrammar

Else

    ActiveDocument.CheckSpelling

End If


Propiedad Assistant

Devuelve un objeto Assistant que representa el Ayudante de Office. Es de sólo lectura.


Ejemplo de la propiedad Assistant

En este ejemplo, se muestra el Ayudante de Office.

Assistant.Visible = True

En este ejemplo, se muestra que lo mueve el Ayudante de Office a la zona superior izquierda de la pantalla.

With Assistant

    .Visible = True

    .Move xLeft:=100, yTop:=100

End With


Propiedad CommandBars

Devuelve un conjunto CommandBars que representa la barra de menús y todas las barras de herramientas de Word. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad CommandBars

En este ejemplo, se amplían todos los botones de la barra de comandos y se activan las ToolTips.

With CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

End With

En este ejemplo, se muestra la barra de herramientas Dibujo en la parte inferior de la ventana de la aplicación.

With CommandBars("Dibujo")

    .Visible = True

    .Position = msoBarBottom

End With


Propiedad BuiltInDocumentProperties

Devuelve un conjunto DocumentProperties que representa todas las propiedades del documento integradas del documento especificado. Es de sólo lectura.

Nota   Si Microsoft Word no define ningún valor para una de las propiedades del documento integradas, la lectura de la propiedad Value de dicha propiedad del documento, generará un error.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad BuiltInDocumentProperties

En este ejemplo, se inserta una lista de propiedades integradas al final del documento activo.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseEnd

For Each prop In ActiveDocument.BuiltinDocumentProperties

    With myRange

        .InsertParagraphAfter

        .InsertAfter prop.Name & "= "

        On Error Resume Next

        .InsertAfter prop.Value

    End With

Next prop

En este ejemplo, se muestra el número de palabras del documento activo.

wrds = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

MsgBox "Este documento contiene " & wrds & " palabras."


Propiedad CustomDocumentProperties

Devuelve un conjunto DocumentProperties que representa todas las propiedades del documento personalizadas del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad CustomDocumentProperties

En este ejemplo, se inserta una lista de propiedades personalizadas al final del documento activo.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseEnd

For Each prop In ActiveDocument.CustomDocumentProperties

    With myRange

        .InsertParagraphAfter

        .InsertAfter prop.Name & "= "

        .InsertAfter prop.Value

    End With

Next

En este ejemplo, se agrega una propiedad integrada personalizada a Ventas.doc.

thename = InputBox("Escriba su nombre", "Nombre")

Documents("Ventas.doc").CustomDocumentProperties.Add _

    Name:="SuNombre", LinkToContent:=False, Value:=thename, _

        Type:=msoPropertyTypeString


Propiedad FileSearch

Devuelve un objeto FileSearch que puede utilizarse para buscar archivos utilizando una ruta de acceso absoluta o relativa. Es de sólo lectura.


Ejemplo de la propiedad FileSearch

En este ejemplo, se muestran, en una serie de cuadros de mensaje, los nombres de archivo de la carpeta Mis documentos que empiezan por 97.

With Application.FileSearch

    .FileName = "97*.*"

    .LookIn = "C:\Mis documentos"

    .Execute

    For I = 1 to .FoundFiles.Count

        MsgBox .FoundFiles(I)

    Next I

End With


Propiedad AutoUpdate

True si el vínculo especificado se actualiza automáticamente al abrir el archivo contenedor o al cambiar el archivo de origen. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoUpdate

En este ejemplo se actualizan las formas del documento activo que son objetos OLE vinculados, si no se ha establecido que Word actualice los vínculos automáticamente.

For Each s In ActiveDocument.Shapes

    If s.Type = msoLinkedOLEObject Then

        If s.LinkFormat.AutoUpdate = False Then s.LinkFormat.Update

    End If

Next s

En este ejemplo se actualizan los campos del documento activo que no se actualizan automáticamente.

For Each uncampo In ActiveDocument.Fields

    If uncampo.LinkFormat.AutoUpdate = False Then uncampo.LinkFormat.Update

Next uncampo


Método BreakLink

Rompe el vínculo entre el archivo de origen y el objeto OLE, imagen o campo especificados.

Nota   Después de utilizar este método, el resultado del vínculo no se actualizará automáticamente si se cambia el archivo de origen.

Sintaxis

expresión.BreakLink

expresión   Requerida. Expresión que devuelve un objeto LinkFormat.


Ejemplo del método BreakLink

En este ejemplo se actualizan y después se rompen los vínculos con las formas que son objetos OLE vinculados del documento activo.

For Each s In ActiveDocument.Shapes

    If s.Type = msoLinkedOLEObject Then

        s.LinkFormat.Update

        s.LinkFormat.BreakLink

    End If

Next s


Propiedad ClassName

Devuelve un nombre exclusivo que identifica al convertidor de archivos. String de sólo lectura.


Ejemplo de la propiedad ClassName

En este ejemplo se muestra el nombre de clase y de formato del primer convertidor del conjunto FileConverters.

MsgBox "NombreClase= " & FileConverters(1).ClassName & vbCr & _

    "NombreFormato= " & FileConverters(1).FormatName

Si está disponible un convertidor de archivos HTML, en este ejemplo se establece el formato HTML como formato predeterminado para guardar archivos.

For Each unArchivo In ConvertidoresArchivo

    If unArchivo.ClassName = "HTML" Then Application.DefaultSaveFormat = "HTML"

Next unArchivo


Propiedad DisplayAsIcon

True si el objeto especificado se muestra como icono. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DisplayAsIcon

En este ejemplo se muestra un cuadro de mensaje que contiene el nombre de cada una de las formas flotantes que se muestran como iconos en el documento activo.

For Each s In ActiveDocument.Shapes

    If s.OLEFormat.DisplayAsIcon Then

        MsgBox s.Name & " se muestra como icono."

    End If

Next s

En este ejemplo se inserta una hoja de cálculo de Microsoft Excel como objeto OLE vinculado en el documento activo y, a continuación, se presenta el objeto como icono.

Set miObj = ActiveDocument.Shapes.AddOLEObject _

    (FileName:="c:\archivos de programa\microsoft office\office\ejemplos\ejemplos.xls", LinkToFile:=True)

miObj.OLEFormat.DisplayAsIcon = True


Método Edit

Abre el objeto OLE especificado para modificarlo en la aplicación en la que fue creado.

Sintaxis

expresión.Edit

expresión   Requerida. Expresión que devuelve un objeto OLEFormat.


Ejemplo del método Edit

En este ejemplo se abre, para su modificación, el primer objeto OLE incrustado definido como forma, en el documento activo.

Set miF = ActiveDocument.Shapes

If miF.Count >= 1 Then

    If miF(1).Type = msoEmbeddedOLEObject Then

        miF(1).OLEFormat.Edit

    End If

End If

En este ejemplo se abre, para su modificación, el primer objeto OLE vinculado definido como forma entre líneas, en el documento activo.

Set miFL = ActiveDocument.InlineShapes

If miFL.Count >= 1 Then

    If miFL(1).Type = wdInlineShapeLinkedOLEObject Then

        miFL(1).OLEFormat.Edit

    End If

End If


Propiedad IconName

Devuelve o establece el archivo de programa en el que se guarda el icono del objeto OLE. String de Lectura/Escritura.

Nota   En Macintosh no se pueden cambiar los iconos de los objetos incrustados y Word no tiene en cuenta esta propiedad.


Ejemplo de la propiedad IconName

En este ejemplo se cambia la primera forma de la selección que debe mostrarse como icono y se establece el texto que está debajo del icono con el nombre de archivo que le corresponde.

If Selection.ShapeRange.Count >= 1 Then

    Set miFOLE = Selection.ShapeRange(1).OLEFormat

    With miFOLE

        .DisplayAsIcon = True

        .IconLabel = .IconName

    End With

End If


Propiedad IconPath

Devuelve la ruta de acceso del archivo en el que se guarda el icono del objeto OLE. Es de sólo lectura.


Ejemplo de la propiedad IconPath

En este ejemplo se muestra la ruta de acceso de cada uno de los objetos OLE incrustados flotantes, que se muestran como iconos en el documento activo.

For each s in ActiveDocument.Shapes

    If s.Type = msoEmbeddedOLEObject Then

        If s.OLEFormat.DisplayAsIcon = True Then Msgbox s.OLEFormat.IconPath

    End If

Next s


Propiedad IconIndex

Devuelve o establece el icono que se utiliza si la propiedad DisplayAsIcon es True: 0 (cero) corresponde al primer icono, 1 corresponde al segundo icono, etc. Si se omite este argumento, se utilizará el primer icono (predeterminado). Long de Lectura/Escritura.

Nota  En Macintosh no se pueden cambiar los iconos de los objetos incrustados y Word no tiene en cuenta esta propiedad.


Ejemplo de la propiedad IconIndex

En este ejemplo se devuelve, en un cuadro de mensaje, el número de índice del icono de la primera forma seleccionada que se presenta como icono.

If Selection.ShapeRange.Count >= 1 Then

    Set miFOLE = Selection.ShapeRange(1).OLEFormat

    With miFOLE

        If .DisplayAsIcon = True Then Msgbox .IconIndex

    End With

End If


Propiedad IconLabel

Devuelve o establece el texto que aparece debajo del icono del objeto OLE. String de Lectura/Escritura.


Ejemplo de la propiedad IconLabel

En este ejemplo se cambia el texto que aparece debajo del icono de la primera forma de la selección.

If Selection.ShapeRange.Count >= 1 Then

    Set miFOLE = Selection.ShapeRange(1).OLEFormat

    With miFOLE

        .DisplayAsIcon = True

        .IconLabel = "Mi Icono"

    End With

End If


Propiedad Label

Devuelve la cadena que se utiliza para identificar la parte del archivo de origen que se está vinculando. Por ejemplo, si el archivo de origen es una hoja de cálculo de Microsoft Excel, la propiedad Label podría devolver "MiHojadeCálculo!R3C1:R4C2" si el objeto OLE sólo contiene algunas celdas. String de sólo lectura.

Nota   Esta propiedad sólo es válida para formas, formas entre líneas o campos que son objetos OLE vinculados.


Ejemplo de la propiedad Label

En este ejemplo se devuelve el rótulo del primer campo del documento activo.

MsgBox ActiveDocument.Fields(1).OLEFormat.Label


Propiedad OLEFormat

Devuelve un objeto OLEFormat que representa las características OLE, excepto la de vinculación, de la forma, la forma entre líneas o el campo especificados. Es de sólo lectura.


Ejemplo de la propiedad OLEFormat

En este ejemplo se recorren todas las formas flotantes del documento activo y se establece que todas las hojas de cálculo de Microsoft Excel vinculadas se actualicen automáticamente.

For Each s In ActiveDocument.Shapes

    If s.Type = msoLinkedOLEObject Then

        If s.OLEFormat.ProgID = "Excel.Sheet.8" Then

                s.LinkFormat.AutoUpdate = True

            End If

    End If

Next


Método DoVerb

Solicita que un objeto OLE ejecute uno de los verbos disponibles, es decir, las acciones que realiza un objeto OLE para activar su contenido. Cada objeto OLE contiene un conjunto de verbos correspondientes al objeto.

Sintaxis

expresión.DoVerb(VerbIndex)

expresión   Requerida. Expresión que devuelve un objeto OLEFormat.

VerbIndex   Variant opcional. Verbo que el objeto OLE debe llevar a cabo. Si se omite este argumento, se envía el verbo predeterminado. Puede ser una de las constantes WdOLEVerb.

Constante	Descripción
wdOLEVerbPrimary	Ejecuta el verbo al que se llama cuando el usuario hace doble clic en el objeto.
wdOLEVerbShow	Muestra el objeto para que el usuario lo modifique o lo vea. Se utiliza para mostrar un objeto recientemente insertado para su modificación inicial.
wdOLEVerbOpen	Abre el objeto en otra ventana.
wdOLEVerbHide	Oculta la interfaz de usuario del objeto.
wdOLEVerbUIActivate	Activa el objeto in situ y muestra las herramientas de interfaz de usuario que necesita el objeto, como menús o barras de herramientas.
wdOLEVerbInPlaceActivate	Ejecuta el objeto e instala su ventana, pero no instala las herramientas de interfaz de usuario.
wdOLEVerbDiscardUndoState	Hace que el objeto rechace cualquier estado de deshacer que pudiera estar manteniendo; sin embargo, debe tener en cuenta que el objeto permanece activo.


Ejemplo del método DoVerb

En este ejemplo se envía el verbo predeterminado al servidor del primer objeto OLE flotante del documento activo.

ActiveDocument.Shapes(1).OLEFormat.DoVerb


Método ActivateAs

Establece la clave de registro que determina la aplicación predeterminada que se utiliza para activar el objeto OLE especificado.

Sintaxis

expresión.ActivateAs(ClassType)

expresión   Requerida. Expresión que devuelve un objeto OLEFormat.

ClassType   String requerida. Nombre de la aplicación en la que se abre un objeto OLE. Para ver una lista de los tipos de objeto disponibles para activar el objeto OLE, haga clic en el objeto y, a continuación, abra el cuadro de diálogo Convertir (menú Edición, submenú Objeto). La cadena ClassType puede encontrarse al insertar un objeto como una forma entre líneas y al mostrar después los códigos de campo. El tipo de clase del objeto sigue a la palabra "EMBED" o "LINK".


Ejemplo del método ActivateAs

En este ejemplo se establece que la primera forma flotante del documento activo se abra en Microsoft Excel y, a continuación, se activa la forma. Para que el ejemplo tenga validez, la forma debe ser un objeto OLE que pueda abrirse en Microsoft Excel.

With ActiveDocument.Shapes(1).OLEFormat

    .ActivateAs ClassType:="Excel.Sheet.8"

    .Activate

End With


Método ConvertTo

Convierte la clase del objeto OLE especificado, haciendo que sea posible modificar el objeto en una aplicación de un servidor diferente o cambiando la presentación del objeto en el documento.

Sintaxis

expresión.ConvertTo(ClassType, DisplayAsIcon, IconFileName, IconIndex, IconLabel)

expresión   Requerida. Expresión que devuelve un objeto OLEFormat.

ClassType   Variant opcional. Nombre de la aplicación utilizada para activar el objeto OLE. Puede ver la lista de las aplicaciones disponibles en el cuadro Tipo de objeto, en la ficha Crear nuevo del cuadro de diálogo Objeto (menú Insertar). La cadena ClassType puede encontrarse al insertar un objeto como una forma entre líneas y al mostrar después los códigos de campo. El tipo de clase del objeto sigue a la palabra "EMBED" o "LINK".

DisplayAsIcon   Variant opcional. True para que el objeto OLE se muestre como icono. El valor predeterminado es False.

IconFileName   Variant opcional. Archivo que contiene el icono que debe mostrarse.

IconIndex   Variant opcional. Número de índice del icono en IconFileName. El orden de los iconos del archivo especificado es el orden en que aparecen en el cuadro de diálogo Cambiar icono (menú Insertar, cuadro de diálogo Objeto) si se activa la casilla de verificación Mostrar como icono. El primer icono del archivo tiene el número de índice 0 (cero). Si en IconFileName no existe ningún icono con el número de índice especificado, se utiliza el icono con el número de índice 1, segundo del archivo. El valor predeterminado es 0 (cero).

IconLabel   Variant opcional. Título o rótulo que se mostrará debajo del icono.


Ejemplo del método ConvertTo

En este ejemplo se crea un nuevo documento y después se inserta un documento de Word incrustado que contiene texto. A continuación, el documento incrustado se convierte en una imagen de Word.

Documents.Add

Set miIncrustado = ActiveDocument.Shapes.AddOLEObject ClassType:= "Word.Document.8"

miIncrustado.Activate

Selection.TypeText "Prueba"

myEmbedded.OLEFormat.OLEFormat.ConvertTo ClassType:="Word.Picture.8"


Propiedad ClassType

Devuelve o establece el tipo de clase del objeto OLE, la imagen o el campo especificados. String de Lectura/Escritura.

Comentarios

Esta propiedad es de sólo lectura para objetos vinculados, excepto los que tengan vínculos DDE

Puede ver la lista de las aplicaciones disponibles en el cuadro Tipo de objeto, en la ficha Crear nuevo del cuadro de diálogo Objeto (menú Insertar). La cadena ClassType puede encontrarse al insertar un objeto como una forma entre líneas y al mostrar después los códigos de campo. El tipo de clase del objeto sigue a la palabra "EMBED" o "LINK".


Ejemplo de la propiedad ClassType

En este ejemplo se recorren todas las formas flotantes del documento activo y se establece que todas las hojas de cálculo de Microsoft Excel vinculadas se actualicen automáticamente.

For Each s In ActiveDocument.Shapes

    If s.Type = wdLinkedOLEObject Then

        If s.OLEFormat.ClassType = "Excel.Sheet.8" Then

            s.LinkFormat.AutoUpdate = True

        End If

    End If

Next


Propiedad Object

Devuelve un objeto que representa la interfaz de nivel superior del objeto OLE especificado. Esta propiedad permite obtener acceso a las propiedades y métodos de un control ActiveX o a la aplicación en la que se creó un objeto OLE. Object de sólo lectura.


Ejemplo de la propiedad Object

En este ejemplo se establece el valor de la primera forma del documento activo. Para que el ejemplo tenga validez, la primera forma debe ser un control ActiveX, es decir, una casilla de verificación o el botón de una opción.

With ActiveDocument.Shapes(1).OLEFormat

    .Activate

    Set miObj = .Object

End With

miObj.Value = True

En este ejemplo se agrega un nuevo control ActiveX al documento activo. Después, se activa el botón de opción nuevo y se establecen algunas de sus propiedades.

Set miBO = ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.OptionButton")

With miBO.OLEFormat

    .Activate

    Set miObj = .Object

End With

With miObj

    .Value = False

    .Caption = "Mi Título"

    .AutoSize = True

End With


Propiedad ProgID

Devuelve el identificador programático (ProgID) del objeto OLE especificado. String de sólo lectura.

Comentarios

Las propiedades ProgID y ClassType devolverán la misma cadena de forma predeterminada. Sin embargo, se puede cambiar la propiedad ClassType para vínculos DDE.

Para obtener información acerca de los identificadores programáticos, consulte Identificadores programáticos de OLE.


Ejemplo de la propiedad ProgID

En este ejemplo se recorren todas las formas flotantes del documento activo y se establece que todas las hojas de cálculo de Microsoft Excel vinculadas se actualicen automáticamente.

For Each s In ActiveDocument.Shapes

    If s.Type = wdLinkedOLEObject Then

        If s.OLEFormat.ProgID = "Excel.Sheet.8" Then

            s.AutoUpdate = True

        End If

    End If

Next s


Identificador programático (ProgID)

Identificador en formato NombreServidorOLE.NombreObjeto; por ejemplo, Excel.Sheet o PowerPoint.Slide, que utiliza el registro del sistema para identificar un objeto de forma exclusiva. Para especificar un objeto creado en una versión determinada de una aplicación, adjunte un punto y el número de versión al identificador; por ejemplo, Excel.Sheet.8 y PowerPoint.Slide.8.


Propiedad SavePictureWithDocument

True si la imagen especificada se guarda con el documento. Boolean de Lectura/Escritura.

Nota   Esta propiedad sólo funciona con formas y formas entre líneas que sean imágenes vinculadas.


Ejemplo de la propiedad SavePictureWithDocument

En este ejemplo se guarda la imagen vinculada definida como primera forma entre líneas del documento activo cuando se guarda el documento.

Set miImag = ActiveDocument.InlineShapes(1)

If miImag.Type = wdInlineShapeLinkedPicture Then

    miImag.LinkFormat.SavePictureWithDocument = True

End If


Propiedad SourceFullName

Devuelve o establece el nombre y la ruta de acceso del archivo de origen del objeto OLE, imagen o campo vinculados especificados. String de Lectura/Escritura.


Ejemplo de la propiedad SourceFullName

En este ejemplo se establece MiExcel.xls como archivo de origen de la forma uno del documento activo y se especifica que el objeto OLE se actualice automáticamente.

With ActiveDocument.Shapes(1)

    If .Type = msoLinkedOLEObject Then

        With .LinkFormat

            .SourceFullName = "c:\mis documentos\miExcel.xls"

            .AutoUpdate = True

        End With

    End If

End With


Propiedad SourceName

Devuelve el nombre del archivo de origen del objeto OLE, imagen o campo vinculados especificados. String de sólo lectura.

Nota   Esta propiedad no devuelve la ruta de acceso del archivo de origen.


Ejemplo de la propiedad SourceName

En este ejemplo se devuelve la ruta de acceso y el nombre del archivo de origen de las formas del documento activo que sean objetos OLE vinculados.

For each s in ActiveDocument.Shapes

    If s.Type = msoLinkedOLEObject Then

         Msgbox s.LinkFormat.SourcePath & s.LinkFormat.SourceName

    End If

Next s


Propiedad SourcePath

Devuelve la ruta de acceso del archivo de origen del objeto OLE, imagen o campo vinculados especificados. String de sólo lectura.

Nota   Esta propiedad no devuelve el nombre del archivo de origen.


Ejemplo de la propiedad SourcePath

En este ejemplo se devuelve la ruta de acceso y el nombre del archivo de origen de las formas del documento activo que sean objetos OLE vinculados.

For each s in ActiveDocument.Shapes

    If s.Type = msoLinkedOLEObject Then

         Msgbox s.LinkFormat.SourcePath & s.LinkFormat.SourceName

    End If

Next s


Método AddOLEObject

Objeto Shapes: Crea un objeto OLE. Devuelve el objeto Shape que representa el nuevo objeto OLE.

Objeto InlineShapes: Crea un objeto OLE. Devuelve el objeto InlineShape que representa el nuevo objeto OLE.

Sintaxis 1

expresión.AddOLEObject(ClassType, FileName, LinkToFile, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Left, Top, Width, Height, Anchor)

Sintaxis 2

expresión.AddOLEObject(ClassType, FileName, LinkToFile, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Range)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Shapes.

Sintaxis 2: Requerida. Expresión que devuelve un objeto InlineShapes.

ClassType   String opcional. Nombre de la aplicación utilizada para activar el objeto OLE especificado. Puede ver la lista de las aplicaciones disponibles en el cuadro Tipo de objeto, en la ficha Crear nuevo del cuadro de diálogo Objeto (menú Insertar). La cadena ClassType puede encontrarse al insertar un objeto como una forma entre líneas y al mostrar después los códigos de campo. El tipo de clase del objeto sigue a la palabra "EMBED" o "LINK". Debe especificarse el argumento ClassType o el argumento FileName para el objeto, pero no ambos.

Para obtener información acerca de los tipos de clase disponibles, vea Identificadores programáticos de OLE.

FileName   Variant opcional. Archivo desde el que se creará el objeto. Si se omite este argumento, se utilizará la carpeta actual. Debe especificarse el argumento ClassType o el argumento FileName para el objeto, pero no ambos.

LinkToFile   Variant opcional. True para vincular el objeto OLE al archivo desde el que se creó. False para que el objeto OLE sea una copia independiente del archivo. Si se especificó un valor para ClassType, el argumento LinkToFile debe ser False. El valor predeterminado es False.

DisplayAsIcon   Variant opcional. True para que el objeto OLE se muestre como icono. El valor predeterminado es False.

IconFileName   Variant opcional. Archivo que contiene el icono que debe mostrarse.

IconIndex   Variant opcional. Número de índice del icono en IconFileName. El orden de los iconos del archivo especificado es el orden en que aparecen en el cuadro de diálogo Cambiar icono, en el menú Insertar, cuadro de diálogo Objeto, si se activa la casilla de verificación Mostrar como icono. El primer icono del archivo tiene el número de índice 0 (cero). Si en IconFileName no existe ningún icono con el número de índice especificado, se utiliza el icono con el número de índice 1, segundo del archivo. El valor predeterminado es 0 (cero).

IconLabel   Variant opcional. Título o rótulo que se mostrará debajo del icono.

Left, Top   Variant opcional. Posición, en puntos, de la esquina superior izquierda del nuevo objeto con respecto al punto de fijación.

Width, Height   Variant opcional. Ancho y alto del objeto OLE en puntos.

Anchor   Variant opcional. Intervalo al que está asociado el objeto OLE. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Si no se especifica, el punto de fijación se coloca de forma automática y el objeto OLE se sitúa en relación con los bordes superior e izquierdo de la página.

Range   Variant opcional. Intervalo donde se colocará en el texto el objeto OLE. El objeto OLE reemplazará al intervalo, si éste no está contraído. Si se omite este argumento, el objeto se coloca de forma automática.


Ejemplo del método AddOLEObject

En este ejemplo se agrega una nueva imagen de mapa de bits flotante al documento activo. El mapa de bits está vinculado a otro archivo.

ActiveDocument.Shapes.AddOLEObject _

    FileName:="c:\mis documentos\MiDibujo.bmp", _

    LinkToFile:=True

En este ejemplo se agrega una hoja de cálculo de Microsoft Excel al documento activo. La hoja de cálculo reemplazará al segundo párrafo.

ActiveDocument.InlineShapes.AddOLEObject _

    ClassType:="Excel.Sheet.8", DisplayAsIcon:=False, _

    Range:=ActiveDocument.Paragraphs(2).Range


Método AddPicture

Objeto Shapes: Crea una imagen a partir de un archivo existente. Devuelve el objeto Shape que representa la nueva imagen.

Objeto InlineShapes: Crea una imagen a partir de un archivo existente. Devuelve el objeto InlineShape que representa la nueva imagen.

Sintaxis 1

expresión.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)

Sintaxis 2

expresión.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Shapes.

Sintaxis 2: Requerida. Expresión que devuelve un objeto InlineShapes.

FileName   String requerida. Archivo desde el que se creará el objeto. Si se omite este argumento, se utilizará la carpeta actual.

LinkToFile   Variant opcional. True para vincular la imagen al archivo desde el que fue creada. False para que la imagen sea una copia independiente del archivo. El valor predeterminado es False.

SaveWithDocument   Variant opcional. True para guardar la imagen vinculada con el documento. El valor predeterminado es False.

Left, Top   Variant opcional. Posición, en puntos, de la esquina superior izquierda de la nueva imagen con respecto al punto de fijación.

Width, Height   Variant opcional. Ancho y alto de la imagen en puntos.

Anchor   Variant opcional. Intervalo al que está asociada la imagen. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Sin embargo, si no se especifica este argumento, el punto de fijación se coloca de forma automática y la imagen se sitúa en relación con los bordes superior e izquierdo de la página.

Range   Variant opcional. Intervalo donde se colocará la imagen en el texto. La imagen reemplazará al intervalo, si éste no está contraído. Si se omite este argumento, la imagen se coloca de forma automática.


Ejemplo del método AddPicture

En este ejemplo se agrega una nueva imagen a miDoc. La imagen insertada está vinculada al archivo desde el que se creó y se guarda con el documento.

Set miDoc = ActiveDocument

ActiveDocument.Shapes.AddPicture "c:\archivos de programa\microsoft office\clipart\music.bmp", True, True


Método AddOLEControl

Objeto Shapes: Crea un control ActiveX. Devuelve el objeto Shape que representa el nuevo control ActiveX.

Objeto InlineShapes: Crea un control ActiveX. Devuelve el objeto InlineShape que representa el nuevo control ActiveX.

Sintaxis 1

expresión.AddOLEControl(ClassType, Left, Top, Width, Height, Anchor)

Sintaxis 2

expresión.AddOLEControl(ClassType, Range)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Shapes.

Sintaxis 2: Requerida. Expresión que devuelve un objeto InlineShapes.

ClassType   String opcional. Nombre de clase largo OLE o identificador programático del control ActiveX que debe crearse.

Para obtener información acerca de los tipos de clase disponibles, consulte Identificadores programáticos de OLE

Left, Top   Variant opcional. Posición, en puntos, de la esquina superior izquierda del nuevo objeto con respecto al punto de fijación.

Width, Height   Variant opcional. Ancho y alto del control ActiveX en puntos.

Anchor   Variant opcional. Intervalo al que está asociado el control ActiveX. Si se especifica Anchor, el punto de fijación se coloca al principio del primer párrafo del intervalo de fijación. Sin embargo, si no se especifica este argumento, el punto de fijación se coloca de forma automática y el control ActiveX se sitúa en relación con los bordes superior e izquierdo de la página.

Range   Variant opcional. Intervalo donde se colocará el control ActiveX en el texto. El control ActiveX reemplazará al intervalo, si éste no está contraído. Si se omite este argumento, el control Active X se coloca de forma automática.

Comentarios

Los controles ActiveX se representan como objetos Shape o InlineShape en Word. Para modificar las propiedades de un control ActiveX, se utiliza la propiedad Object del objeto OLEFormat de la forma o forma entre líneas especificadas.


Ejemplo del método AddOLEControl

En este ejemplo se agrega una casilla de verificación al documento activo.

ActiveDocument.Shapes.AddOLEControl ClassType:="Forms.CheckBox.1"

En este ejemplo se agrega un cuadro combinado al documento activo.

ActiveDocument.Shapes.AddOLEControl ClassType:="Forms.ComboBox.1"

En este ejemplo se agrega una casilla de verificación al documento activo, se desactiva y se le asigna un título.

Set miCV = ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.CheckBox.1")

With miCV.OLEFormat.Object

    .Value = False

    .Caption = "Comprobar si es superior a 21"

End With


Método Duplicate

Crea una copia del objeto Shape o ShapeRange especificado, agrega el nuevo intervalo de formas al conjunto Shapes con un desplazamiento estándar a partir de las formas originales y, a continuación, devuelve el nuevo objeto Shape.

Sintaxis

expresión.Duplicate

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.


Ejemplo del método Duplicate

En este ejemplo se crea una copia de la forma uno del documento activo y, a continuación, se cambia el relleno de la forma nueva.

Set nuevaForma = ActiveDocument.Shapes(1).Duplicate

With nuevaForma

    .Fill.PresetGradient msoGradientVertical, 1, msoGradientGold

End With


Shape, InlineShape, Field


Objeto LinkFormat

Representa las características de vinculación de un objeto OLE o una imagen.

Uso del objeto LinkFormat

Utilice la propiedad LinkFormat de una forma, una forma entre líneas o un campo para que se devuelva el objeto LinkFormat. En el siguiente ejemplo, se rompe el vínculo de la primera forma del documento activo.

ActiveDocument.Shapes(1).LinkFormat.BreakLink

Comentarios

No todos los tipos de formas, formas entre líneas y campos pueden vincularse a un origen. Utilice la propiedad Type de los objetos Shape e InlineShape para determinar si una forma determinada puede vincularse. La propiedad Type de un objeto Field devuelve el tipo de campo.

Para actualizar vínculos pueden utilizarse el método Update y la propiedad AutoUpdate. Para devolver o establecer la ruta de acceso completa del archivo de origen de un vínculo determinado, utilice la propiedad SourceFullName.


Objeto OLEFormat

Representa las características OLE, excepto las de vinculación, de un objeto OLE, control ActiveX o campo.

Uso del objeto OLEFormat

Utilice la propiedad OLEFormat de una forma, una forma entre líneas o un campo para que se devuelva el objeto OLEFormat. En el siguiente ejemplo, se muestra el tipo de clase de la primera forma del documento activo.

MsgBox ActiveDocument.Shapes(1).OLEFormat.ClassType

Comentarios

No todos los tipos de formas, formas entre líneas y campos tienen las características de los objetos OLE. Utilice la propiedad Type de los objetos Shape e InlineShape para determinar en qué categoría se incluye la forma o forma entre líneas especificada. La propiedad Type de un objeto Field devuelve el tipo de campo.

Puede utilizar los métodos Activate, Edit, Open y DoVerb para automatizar un objeto OLE.

Utilice la propiedad Object para devolver un objeto que representa un control ActiveX o un objeto OLE. Con este objeto, pueden utilizarse las propiedades y los métodos de la aplicación contenedora o el control ActiveX.


Shape, InlineShape, Field


Propiedad AllowAccentedUppercase

True: si se conservan los acentos cuando se cambia un carácter de francés a mayúsculas. Boolean de Lectura/Escritura.

Comentarios

Esta propiedad sólo afecta al texto marcado como francés estándar. En el resto de los idiomas, los acentos se conservan siempre, incluso si la propiedad AllowAccentedUppercase se establece como False.

El acento no volverá a aparecer si se vuelve a cambiar un carácter a minúsculas después de haberle quitado el acento.


Ejemplo de la propiedad AllowAccentedUppercase

En este ejemplo se han establecido las opciones de Word de forma que se quiten los acentos cuando los caracteres de un texto en francés se cambien a mayúsculas.

Options.AllowAccentedUppercase = False

Este ejemplo devuelve el estado de la opción Permitir mayúsculas acentuadas en francés de la ficha Edición que se encuentra en el cuadro de diálogo Opciones.

temp = Options.AllowAccentedUppercase


Propiedad AutoWordSelection

True: si al arrastrar se seleccionan palabras completas en vez de caracteres. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoWordSelection

En este ejemplo se han establecido las opciones de Word de forma que seleccione caracteres individuales en vez de palabras completas al arrastrar.

Options.AutoWordSelection = False

Este ejemplo devuelve el estado de la opción Selección automática de palabras de la ficha Edición que se encuentra en el cuadro de diálogo Opciones.

temp = Options.AutoWordSelection


Propiedad AllowDragAndDrop

True: si se puede utilizar la función de arrastrar y colocar para mover o copiar una selección. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AllowDragAndDrop

En este ejemplo se activa la característica de edición Arrastrar y colocar.

Options.AllowDragAndDrop = True

Este ejemplo devuelve el estado de la opción Edición de texto con Arrastrar y colocar de la ficha Edición que se encuentra en el cuadro de diálogo Opciones.

temp = Options.AllowDragAndDrop


Propiedad INSKeyForPaste

True: si la tecla INS se puede utilizar para pegar el contenido del Portapapeles. Boolean de Lectura/Escritura.


Ejemplo de la propiedad INSKeyForPaste

En este ejemplo se activa la tecla INS para utilizarla al pegar el contenido del Portapapeles.

Options.INSKeyForPaste = True

Este ejemplo devuelve el estado de la opción Usar la tecla INSERT para pegar de la ficha Edición que se encuentra en el cuadro de diálogo Opciones.

temp = Options.INSKeyForPaste


Propiedad PictureEditor

Devuelve o establece el nombre de la aplicación que se va a utilizar para editar imágenes. String de Lectura/Escritura.

Comentarios

Debe escribir el nombre tal y como aparece en el cuadro Editor de imágenes de la ficha Edición del cuadro de diálogo Opciones. De lo contrario, se utilizará el valor predeterminado "Microsoft Word".

Si el nombre de su aplicación de gráficos no aparece en la lista, solicite instrucciones al fabricante de la aplicación.


Ejemplo de la propiedad PictureEditor

En este ejemplo se establece la aplicación que se va a utilizar para editar imágenes.

Options.PictureEditor = "Microsoft Imager 3.0 Picture"

Este ejemplo devuelve el nombre de la aplicación que se va a utilizar para editar imágenes.

MsgBox Options.PictureEditor


Propiedad ReplaceSelection

True: si al escribir o pegar texto se reemplaza la selección. False: si al escribir o pegar texto se incluye delante de la selección sin que ésta sufra modificaciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ReplaceSelection

En este ejemplo se establecen las opciones de Word de forma que al escribir o pegar texto se agregue a la selección, sin que ésta sufra modificaciones.

Options.ReplaceSelection = False

Este ejemplo devuelve el estado de la opción Reemplazar la selección al escribir de la ficha Edición que se encuentra en el cuadro de diálogo Opciones.

temp = Options.ReplaceSelection


Propiedad SmartCutPaste

True: si Word ajusta de forma automática el espacio entre las palabras y la puntuación al cortar y pegar. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SmartCutPaste

En este ejemplo se establecen las opciones de Word de forma que ajuste automáticamente el espacio entre las palabras y la puntuación al cortar y pegar. A continuación, se corta parte de un texto y se pega en un documento nuevo. Si la propiedad SmartCutPaste se estableciera como False, la segunda y la tercera palabra aparecerían unidas.

Options.SmartCutPaste = True

Set myDoc = Documents.Add

With myDoc

    .Content.InsertAfter("El veloz murciélago hindú")

    .Words(2).Cut

    .Characters(10).Paste

End With

Este ejemplo devuelve el estado de la opción Usar Cortar y pegar inteligentemente de la ficha Edición que se encuentra en el cuadro de diálogo Opciones.

temp = Options.SmartCutPaste


Propiedad TabIndentKey

True: si las teclas TAB y RETROCESO se pueden utilizar para aumentar o reducir respectivamente la sangría izquierda de los párrafos y si la tecla RETROCESO se puede usar para cambiar los párrafos alineados a la derecha a párrafos centrados y los párrafos centrados a párrafos alineados a la izquierda. Boolean de Lectura/Escritura.


Ejemplo de la propiedad TabIndentKey

En este ejemplo se establecen las opciones de Word de forma que las teclas TAB y RETROCESO se utilicen para aplicar la sangría izquierda, en vez de insertar y eliminar tabulaciones.

Options.TabIndentKey = True

Este ejemplo devuelve el estado de la opción Usar tabulación y RETROCESO para la sangría izquierda de la ficha Edición que se encuentra en el cuadro de diálogo Opciones.

temp = Options.TabIndentKey


Propiedad DisplayScrollBars

True: si Word muestra una barra de desplazamiento en al menos una ventana de documento. False: si no se muestra ninguna barra de desplazamiento en ninguna ventana. Boolean de Lectura/Escritura.

Comentarios

Si la propiedad DisplayScrollBars se establece como True, las barras de desplazamiento horizontales y verticales se mostrarán en todas las ventanas. Si se establece como False, desaparecen todas las barras de desplazamiento de todas las ventanas.

Utilice las propiedades DisplayHorizontalScrollBar y DisplayVerticalScrollBar para mostrar las barras de desplazamiento individuales en la ventana especificada.


Ejemplo de la propiedad DisplayScrollBars

En este ejemplo se muestran las barras de desplazamiento horizontal y vertical en todas las ventanas.

Application.DisplayScrollBars = True

Este ejemplo devuelve el valor True si se muestra una barra de desplazamiento en alguna de las ventanas.

temp = Application.DisplayScrollBars


Propiedad AnimateScreenMovements

True si Word anima los movimientos del mouse (ratón), utiliza cursores animados y anima las acciones como guardar en segundo plano, así como las operaciones de buscar y reemplazar. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AnimateScreenMovements

En este ejemplo, se establece que Word anime los movimientos en la pantalla.

Options.AnimateScreenMovements = True

En este ejemplo, se devuelve el estado actual de la opción Animar movimientos en pantalla de la ficha General del cuadro de dialogo Opciones (menú Herramientas).

temp = Options.AnimateScreenMovements


Propiedad AutoFormatAsYouTypeApplyTables

True si Word crea automáticamente una tabla cuando escribe un signo más, una serie de guiones, otro signo más, etc. y, a continuación, presiona la tecla ENTRAR. El signo más se convierte en los bordes de la columna y los guiones en los anchos de la misma. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeApplyTables

En este ejemplo, se establece que Word cree automáticamente las tablas mientras escribe.

Options.AutoFormatAsYouTypeApplyTables = True

En este ejemplo, se devuelve el estado de la opción Tablas de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeApplyTables


Propiedad AutoFormatAsYouTypeFormatListItemBeginning

True si Word repite el formato de carácter aplicado al principio de un elemento de la lista hasta el siguiente elemento de la misma. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeFormatListItemBeginning

En este ejemplo, se establece que Word repita automáticamente el formato de carácter al principio de los elementos de la lista.

Options.AutoFormatAsYouTypeFormatListItemBeginning = True

En este ejemplo, se devuelve el estado de la opción Dar al primer elemento de las listas el formato del anterior de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Opciones).

temp = Options.AutoFormatAsYouTypeFormatListItemBeginning


Propiedad DefaultBorderColorIndex

Devuelve o establece el color de línea predeterminado de los bordes. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdDarkBlue wdDarkRed wdDarkYellow wdGray25	wdGray50 wdGreen wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow
Nota   Si el valor de la propiedad Enable del objeto Borders se establece en True, se utilizan el ancho, el estilo y el color de línea predeterminados de los bordes.


Ejemplo de la propiedad DefaultBorderColorIndex

En este ejemplo, se cambia el color y el estilo de la línea predeterminada de los bordes y, a continuación, se aplica un borde alrededor del documento activo.

With Options

    .DefaultBorderColorIndex = wdRed

    .DefaultBorderLineStyle = wdLineStyleDouble

End With

ActiveDocument.Paragraphs(1).Borders.Enable = True


Propiedad GridDistanceHorizontal

Devuelve o establece el espacio horizontal entre las líneas de la cuadrícula invisible que utiliza Word cuando dibuja, mueve o cambia el tamaño de las Autoformas. Single de Lectura/Escritura.


Ejemplo de la propiedad GridDistanceHorizontal

En este ejemplo, se establece la distancia horizontal y vertical entre las líneas de la cuadrícula y, a continuación, se activa la función Ajustar a la cuadrícula.

With Options

    .GridDistanceHorizontal = InchesToPoints(0.2)

    .GridDistanceVertical = InchesToPoints(0.2)

    .SnapToGrid = True

End With


Propiedad GridDistanceVertical

Devuelve o establece el espacio vertical entre las líneas de la cuadrícula invisible que utiliza Word cuando dibuja, mueve o cambia el tamaño de las Autoformas. Single de Lectura/Escritura.


Ejemplo de la propiedad GridDistanceVertical

En este ejemplo, se establecen las distancias horizontal y vertical entre las líneas de la cuadrícula y, a continuación, se activa la función Ajustar a la cuadrícula.

With Options

    .GridDistanceHorizontal = InchesToPoints(0.2)

    .GridDistanceVertical = InchesToPoints(0.2)

    .SnapToGrid = True

End With


Propiedad GridOriginHorizontal

Devuelve o establece el punto, relativo al borde izquierdo de la página, donde desee que empiece la cuadrícula invisible para dibujar, mover y cambiar la forma de Autoformas. Single de Lectura/Escritura.


Ejemplo de la propiedad GridOriginHorizontal

En este ejemplo, se establecen los puntos horizontal y vertical de origen de la cuadrícula, las distancias horizontal y vertical entre las líneas de la cuadrícula y, a continuación, se activa la función Ajustar a la cuadrícula.

With Options

    .GridOriginHorizontal = InchesToPoints(1)

    .GridOriginVertical = InchesToPoints(2)

    .GridDistanceHorizontal = InchesToPoints(0.1)

    .GridDistanceVertical = InchesToPoints(0.1)

    .SnapToGrid = True

End With


Propiedad GridOriginVertical

Devuelve o establece el punto, relativo a la parte superior de la página, donde desee que empiece la cuadrícula invisible para dibujar, mover y cambiar la forma de Autoformas. Single de Lectura/Escritura.


Ejemplo de la propiedad GridOriginVertical

En este ejemplo, se establecen los puntos horizontal y vertical de origen de la cuadrícula, las distancias horizontal y vertical entre las líneas de la cuadrícula y, a continuación, se activa la función Ajustar a la cuadrícula.

With Options

    .GridOriginHorizontal = InchesToPoints(1)

    .GridOriginVertical = InchesToPoints(2)

    .GridDistanceHorizontal = InchesToPoints(0.2)

    .GridDistanceVertical = InchesToPoints(0.2)

    .SnapToGrid = True

End With


Propiedad MapPaperSize

True si los documentos con formato para el tamaño de papel estándar (por ejemplo: A4) de otro país se ajustan automáticamente para que se impriman correctamente en el tamaño de papel estándar de su país (por ejemplo: Carta). Boolean de Lectura/Escritura.

Comentarios

Esta propiedad afecta sólo a la impresión del documento; su formato no varía.


Ejemplo de la propiedad MapPaperSize

En este ejemplo, se permite que Word ajuste el tamaño de papel según los valores de país.

Options.MapPaperSize = True

En este ejemplo, se devuelve el estado de la opción Permitir alternar entre A4 y Carta de la ficha Imprimir del cuadro de dialogo Opciones (menú Herramientas).

temp = Options.MapPaperSize


Propiedad SnapToGrid

True si se alinean automáticamente las Autoformas con una cuadrícula invisible cuando se dibujan, mueven o cambian de tamaño. Boolean de Lectura/Escritura.

Comentarios

Puede suplantar temporalmente estos valores presionando la tecla ALT mientras dibuja, mueve o cambia el tamaño de Autoformas.


Ejemplo de la propiedad SnapToGrid

En este ejemplo, se establecen los valores de Word para que se alineen automáticamente las Autoformas con la cuadrícula invisible.

Options.SnapToGrid = True

En este ejemplo, se devuelve el estado de la opción Ajustar a la cuadrícula en el cuadro de diálogo Ajustar a la cuadrícula (barra de herramientas Dibujo, menú Dibujo, comando Cuadrícula).

Temp = Options.SnapToGrid


Propiedad SnapToShapes

True si Word alinea automáticamente Autoformas con cuadrículas invisibles que atraviesan los bordes vertical y horizontal de otras Autoformas. Boolean de Lectura/Escritura.

Comentarios

Esta propiedad crea cuadrículas de líneas adicionales invisibles para cada Autoforma. SnapToShapes funciona independientemente de la propiedad SnapToGrid.


Ejemplo de la propiedad SnapToShapes

En este ejemplo, se establece que Word alinee automáticamente Autoformas con cuadrículas invisibles que atraviesan los bordes vertical y horizontal de otras Autoformas.

Options.SnapToShapes = TrueSct

En este ejemplo, se devuelve el estado de la opción Ajustar a la forma del cuadro de diálogo Ajustar a la cuadrícula (barra de herramientas Dibujo, menú Dibujo, comando Cuadrícula).

Temp = Options.SnapToShapes


Propiedad VirusProtection

True si Word muestra un mensaje de advertencia integrado siempre que abra un documento o una plantilla que podría contener un virus de macro. Boolean de Lectura/Escritura.

Comentarios

Cualquier documento que contenga barras de herramientas de macros o personalizadas, o bien métodos abreviados mostrará automáticamente esta advertencia. A continuación, puede decidir si abre el documento con o sin las macros.


Ejemplo de la propiedad VirusProtection

En este ejemplo, se establece que Word muestre automáticamente un mensaje de advertencia siempre que abra un documento que pudiese contener un virus de macro.

Options.VirusProtection = True

En este ejemplo, se devuelve el estado actual de la opción Activar protección antivirus en macros de la ficha General del cuadro de dialogo Opciones (menú Herramientas).

temp = Options.VirusProtection


Propiedad BlueScreen

True: si Word muestra el texto con caracteres blancos sobre fondo azul. Boolean de Lectura/Escritura.


Ejemplo de la propiedad BlueScreen

En este ejemplo se pregunta a los usuarios si desean que aparezca texto blanco sobre fondo azul y se muestran los botones Sí y No para que respondan.

If MsgBox("¿Desea blanco sobre azul?", 36, "¿Pantalla azul?") = vbYes Then

    Options.BlueScreen = True

Else

    Options.BlueScreen = False

End If


Propiedad ButtonFieldClicks

Devuelve o establece el número de clics (uno o dos) necesarios para ejecutar un campo BOTÓNIRA o BOTÓNMACRO. Long de Lectura/Escritura.


Ejemplo de la propiedad ButtonFieldClicks

En este ejemplo se establece que es necesario hacer clic una vez para ejecutar un campo BOTÓNMACRO o BOTÓNIRA.

Options.ButtonFieldClicks = 1


Propiedad ConfirmConversions

True: si Word muestra el cuadro de diálogo Convertir archivo antes de abrir o insertar un archivo que no sea un documento o plantilla de Word. En el cuadro de diálogo Convertir archivo, el usuario elige el formato para convertir el archivo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ConfirmConversions

En este ejemplo se establecen las opciones de Word de forma que muestre el cuadro de diálogo Convertir archivo cada vez que se abra un archivo que no sea un documento o plantilla de Word.

Options.ConfirmConversions = True

Este ejemplo devuelve el estado actual de la opción Confirmar conversiones al abrir de la ficha General que aparece en el cuadro de diálogo Opciones.

temp = Options.ConfirmConversions


Propiedad Pagination

True: si Word repagina documentos automáticamente. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Pagination

En este ejemplo se establecen las opciones de Word de forma que realice una paginación automática.

Options.Pagination = True

Este ejemplo devuelve el estado actual de la opción Paginación automática de la ficha General que aparece en el cuadro de diálogo Opciones.

temp = Options.Pagination


Propiedad RTFInClipboard

Sólo para Macintosh. True: si el texto copiado desde Word al Portapapeles conserva el formato de carácter y de párrafo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad RTFInClipboard

En este ejemplo se conserva el formato de los caracteres y párrafos del texto copiado desde Word al Portapapeles.

Options.RTFInClipboard = True


Propiedad ShortMenuNames

Sólo para Macintosh. True: si Word muestra los nombres de los comandos abreviados en los menús. Por ejemplo, muestra "Ins" en vez de "Insertar", "Form" en vez de "Formato", y "Vent" en vez de "Ventana". Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShortMenuNames

En este ejemplo se establece que los nombres de los comandos de Macintosh se muestren en los menús con todos sus caracteres, en vez de abreviados.

Options.ShortMenuNames = False


Propiedad MeasurementUnit

Devuelve o establece la unidad de medida estándar de Word. Puede ser una de las siguientes constantes WdUnits: wdCentimeters, wdInches, wdPicas o wdPoints. Long de Lectura/Escritura.


Ejemplo de la propiedad MeasurementUnit

En este ejemplo se establece que la unidad de medida estándar de Word sea Puntos.

Options.MeasurementUnit = wdPoints

Este ejemplo devuelve la unidad de medida seleccionada en la ficha General del cuadro de diálogo Opciones.

CurrUnit = Options.MeasurementUnit


Propiedad UpdateLinksAtOpen

True: si Word actualiza de forma automática todos los vínculos OLE incrustados en un documento al abrirlo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad UpdateLinksAtOpen

En este ejemplo se establecen las opciones de Word de forma que actualice los vínculos OLE incrustados al abrir los archivos.

Options.UpdateLinksAtOpen = True

Este ejemplo devuelve el estado actual de la opción Actualizar vínculos automáticos al abrirlos de la ficha General del cuadro de diálogo Opciones.

temp = Options.UpdateLinksAtOpen


Propiedad WPDocNavKeys

True: si se activan las teclas de desplazamiento para usuarios de WordPerfect. Boolean de Lectura/Escritura.


Ejemplo de la propiedad WPDocNavKeys

En este ejemplo se establecen las opciones de Word para que utilice las teclas de desplazamiento de WordPerfect.

Options.WPDocNavKeys = True

Este ejemplo devuelve el estado de la opción Teclas de WordPerfect de la ficha General del cuadro de diálogo Opciones.

temp = Options.WPDocNavKeys


Propiedad WPHelp

True: si al presionar combinaciones de teclas de Word que realizan acciones en WordPerfect, se muestran cuadros de diálogo que describen cómo realizar las acciones equivalentes en Word. Boolean de Lectura/Escritura.


Ejemplo de la propiedad WPHelp

En este ejemplo se activa o desactiva la ayuda para WordPerfect.

Options.WPHelp = Not Options.WPHelp

Este ejemplo devuelve el estado de la opción Ayuda para usuarios de WordPerfect de la ficha General del cuadro de diálogo Opciones.

Msgbox Options.WPHelp


Propiedad PrintComments

True: si Word imprime los comentarios, empezando en una página nueva al final del documento. Boolean de Lectura/Escritura.

Comentarios

Si la propiedad PrintComments se establece como True, la propiedad PrintHiddenText se establece automáticamente como True. Sin embargo, si la propiedad PrintComments se establece como False, la propiedad PrintHiddenText no sufrirá ningún cambio.


Ejemplo de la propiedad PrintComments

En este ejemplo se establecen las opciones de Word para que imprima los comentarios y, a continuación, se imprime el documento activo.

Options.PrintComments = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Comentarios de la ficha Imprimir que se encuentra en el cuadro de diálogo Opciones.

temp = Options.PrintComments


Propiedad PrintBackground

True: si Word imprime en segundo plano. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintBackground

En este ejemplo se establecen las opciones de Word para que imprima documentos en segundo plano y, a continuación, se imprime el documento activo.

Options.PrintBackground = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Impresión en segundo plano de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.PrintBackground


Propiedad PrintDraft

True: si Word imprime utilizando un formato básico. Boolean de Lectura/Escritura.

Nota   No todas las impresoras admiten la impresión con calidad de borrador.


Ejemplo de la propiedad PrintDraft

En este ejemplo se establecen las opciones de Word para que imprima con calidad de borrador y, a continuación, se imprime el documento activo.

Options.PrintDraft = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Borrador de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.PrintDraft


Propiedad PrintDrawingObjects

True: si Word imprime objetos de dibujo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintDrawingObjects

En este ejemplo se establecen las opciones de Word para que imprima objetos de dibujo y, a continuación, se imprime el documento activo.

Options.PrintDrawingObjects = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Dibujos de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.PrintDrawingObjects


Propiedad EnvelopeFeederInstalled

True: si la impresora dispone de un alimentador especial para sobres. Boolean de sólo lectura.


Ejemplo de la propiedad EnvelopeFeederInstalled

Este ejemplo imprime el documento activo como si se tratase de un sobre, siempre que haya un alimentador de sobres instalado.

If Options.EnvelopeFeederInstalled = True Then

    ActiveDocument.Envelope.PrintOut _

        AddressFromLeft:=InchesToPoints(3), _

        AddressFromTop:=InchesToPoints(1.5)

Else

    Msgbox "Alimentador de sobres no disponible"

End If


Propiedad PrintFormsData

True: si Word imprime en un formulario preimpreso sólo los datos incluidos en el formulario en pantalla correspondiente. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintFormsData

En este ejemplo se establecen las opciones de Word para que imprima sólo los datos de un formulario en pantalla y, a continuación, se imprime el documento activo.

ActiveDocument.PrintFormsData = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Imprimir datos sólo para formularios de la ficha Imprimir del cuadro de diálogo Opciones.

temp = ActiveDocument.PrintFormsData


Propiedad PrintReverse

True: si Word imprime las páginas en orden inverso. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintReverse

En este ejemplo se establecen las opciones de Word para que imprima las páginas en orden inverso y, a continuación, se imprime el documento activo.

Options.PrintReverse = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Orden inverso de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.PrintReverse


Propiedad PrintFieldCodes

True: si Word imprime los códigos de campo en vez de los resultados de campo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintFieldCodes

En este ejemplo se establecen las opciones de Word para que imprima códigos de campo y, a continuación, se imprime el documento activo.

Options.PrintFieldCodes = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Códigos de campo de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.PrintFieldCodes


Propiedad PrintHiddenText

True: si se imprime texto oculto. Boolean de Lectura/Escritura.

Comentarios

Si la propiedad PrintHiddenText se establece como False, la propiedad PrintComments se establece automáticamente como False. Sin embargo, si la propiedad PrintHiddenText se establece como True, la propiedad PrintComments no sufrirá ningún cambio.


Ejemplo de la propiedad PrintHiddenText

En este ejemplo se establecen las opciones de Word para que imprima texto oculto y, a continuación, se imprime el documento activo.

Options.PrintHiddenText = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Texto oculto de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.PrintHiddenText


Propiedad UpdateFieldsAtPrint

True: si Word actualiza automáticamente los campos de un documento antes de imprimirlo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad UpdateFieldsAtPrint

En este ejemplo se establecen las opciones de Word para que actualice los campos automáticamente antes de imprimir y, a continuación, se imprime el documento activo.

Options.UpdateFieldsAtPrint = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Actualizar campos de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.UpdateFieldsAtPrint


Propiedad UpdateLinksAtPrint

True: si Word actualiza los vínculos incrustados a otros archivos antes de imprimir el documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad UpdateLinksAtPrint

En este ejemplo se establecen las opciones de Word para que actualice los vínculos incrustados automáticamente antes de imprimir y, a continuación, se imprime el documento activo.

Options.UpdateLinksAtPrint = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Actualizar vínculos de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.UpdateLinksAtPrint


Propiedad DeletedTextColor

Devuelve o establece el color del texto que se elimina mientras está activo el control de cambios. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdByAuthor wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50	wdGreen wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow
Comentarios

Si la propiedad DeletedTextColor se establece como wdByAuthor, Word asigna automáticamente un color exclusivo a los ocho primeros autores que revisen un documento.


Ejemplo de la propiedad DeletedTextColor

En este ejemplo se establece que el color del texto eliminado sea el verde brillante.

Options.DeletedTextColor = wdBrightGreen

Este ejemplo devuelve el estado actual de la opción Color que se encuentra bajo Texto eliminado en la ficha Control de cambios del cuadro de diálogo Opciones.

temp = Options.DeletedTextColor


Propiedad DeletedTextMark

Devuelve o establece el formato del texto que se elimina mientras está activado el control de cambios. Puede ser una de las siguientes constantes WdDeletedTextMark: wdDeletedTextMarkCaret, wdDeletedTextMarkHidden, wdDeletedTextMarkPound o wdDeletedTextMarkStrikeThrough. Long de Lectura/Escritura.


Ejemplo de la propiedad DeletedTextMark

En este ejemplo se aplica el formato de tachado al texto eliminado.

Options.DeletedTextMark = wdDeletedTextMarkStrikeThrough

Este ejemplo devuelve el estado actual de la opción Marca que se encuentra bajo Texto eliminado en la ficha Control de cambios del cuadro de diálogo Opciones.

temp = Options.DeletedTextMark


Propiedad InsertedTextColor

Devuelve o establece el color del texto que se inserta mientras está activo el control de cambios. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdByAuthor wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50	wdGreen wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow
Comentarios

Si la propiedad InsertedTextColor se establece como wdByAuthor, Word asigna automáticamente un color exclusivo a los ocho primeros autores que revisen un documento.


Ejemplo de la propiedad InsertedTextColor

En este ejemplo se establece que el color del texto insertado sea rojo oscuro.

Options.InsertedTextColor = wdDarkRed

Este ejemplo devuelve el estado actual de la opción Color que se encuentra bajo Texto insertado en la ficha Control de cambios del cuadro de diálogo Opciones.

temp = Options.InsertedTextColor


Propiedad InsertedTextMark

Devuelve o establece el formato del texto que se inserta mientras está activo el control de cambios. Puede ser una de las siguientes constantes WdInsertedTextMark: wdInsertedTextMarkNone, wdInsertedTextMarkBold, wdInsertedTextMarkDoubleUnderline, wdInsertedTextMarkItalic o wdInsertedTextMarkUnderline. Long de Lectura/Escritura.


Ejemplo de la propiedad InsertedTextMark

En este ejemplo se aplica el formato de doble subrayado al texto insertado.

Options.InsertedTextMark = wdInsertedTextMarkDoubleUnderline

Este ejemplo devuelve el estado actual de la opción Marca que se encuentra bajo Texto insertado en la ficha Control de cambios del cuadro de diálogo Opciones.

temp = Options.InsertedTextMark


Propiedad RevisedLinesColor

Devuelve o establece el color de las barras verticales de las líneas cambiadas en un documento en el que está activado el control de cambios. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdByAuthor wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50	wdGreen wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow


Ejemplo de la propiedad RevisedLinesColor

En este ejemplo se establece que el color de las barras verticales de las líneas cambiadas sea rosa.

Options.RevisedLinesColor = wdPink

Este ejemplo devuelve el estado actual de la opción Color que se encuentra bajo Líneas cambiadas en la ficha Control de cambios del cuadro de diálogo Opciones.

temp = Options.RevisedLinesColor


Propiedad RevisedLinesMark

Devuelve o establece la ubicación de las barras verticales de las líneas cambiadas en un documento en el que está activado el control de cambios. Puede ser una de las siguientes constantes WdRevisedLinesMark: wdRevisedLinesMarkNone, wdRevisedLinesMarkLeftBorder, wdRevisedLinesMarkOutsideBorder o wdRevisedLinesMarkRightBorder. Long de Lectura/Escritura.


Ejemplo de la propiedad RevisedLinesMark

En este ejemplo se establece que las barras verticales de las líneas cambiadas aparezcan en el margen izquierdo de cada página.

Options.RevisedLinesMark = wdRevisedLinesMarkLeftBorder

Este ejemplo devuelve el estado actual de la opción Marca que se encuentra bajo Líneas cambiadas en la ficha Control de cambios del cuadro de diálogo Opciones.

temp = Options.RevisedLinesMark


Propiedad BackgroundSave

True: si Word guarda documentos en segundo plano. Cuando Word está guardando en segundo plano, los usuarios pueden continuar escribiendo y seleccionando comandos. Boolean de Lectura/Escritura.


Ejemplo de la propiedad BackgroundSave

En este ejemplo se permite que los usuarios continúen trabajando con un documento mientras Word lo está guardando.

Options.BackgroundSave = True

Este ejemplo devuelve el estado actual de la opción Permitir guardar en segundo plano de la ficha Guardar del cuadro de diálogo Opciones.

temp = Options.BackgroundSave


Propiedad CreateBackup

True: si Word crea una copia de seguridad cada vez que se guarda un documento. Boolean de Lectura/Escritura.

Comentarios

No es posible establecer True en las propiedades CreateBackup y AllowFastSave al mismo tiempo.


Ejemplo de la propiedad CreateBackup

En este ejemplo se establecen las opciones de Word para que cree una copia de seguridad automáticamente y, a continuación, se guarda el documento activo.

Options.CreateBackup = True

ActiveDocument.Save

Este ejemplo devuelve el estado actual de la opción Crear siempre copia de seguridad de la ficha Guardar del cuadro de diálogo Opciones.

temp = Options.CreateBackup


Propiedad EmbedTrueTypeFonts

True: si Word incrusta fuentes TrueType en un documento al guardarlo. Esto permite que otros usuarios puedan ver el documento con las mismas fuentes que se utilizaron para crearlo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad EmbedTrueTypeFonts

En este ejemplo se establecen las opciones de Word para que incruste fuentes TrueType automáticamente al guardar un documento y, a continuación, se guarda el documento activo.

ActiveDocument.EmbedTrueTypeFonts = True

ActiveDocument.Save

Este ejemplo devuelve el estado actual de la opción Incrustar fuentes TrueType de la ficha Guardar del cuadro de diálogo Opciones.

temp = ActiveDocument.EmbedTrueTypeFonts


Propiedad AllowFastSave

True: si Word guarda sólo las modificaciones realizadas en el documento. Al volver a abrir el documento, Word utiliza las modificaciones guardadas para reconstruir el documento. Boolean de Lectura/Escritura.

Comentarios

No es posible establecer True en las propiedades AllowFastSave y CreateBackup al mismo tiempo.


Ejemplo de la propiedad AllowFastSave

En este ejemplo se establecen las opciones de Word para que guarde el documento completo y, a continuación, se guarda el documento activo.

Options.AllowFastSave = False

ActiveDocument.Save

Este ejemplo devuelve el estado actual de la opción Permitir guardar rápidamente de la ficha Guardar del cuadro de diálogo Opciones.

temp = Options.AllowFastSave


Propiedad SaveFormsData

True: si Word guarda los datos incluidos en un formulario como un registro delimitado por tabulaciones para su utilización en una base de datos. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SaveFormsData

En este ejemplo se establecen las opciones de Word para que guarde sólo los datos incluidos en un formulario.

ActiveDocument.SaveFormsData = True

Este ejemplo devuelve el estado actual de la opción Guardar datos sólo para formularios de la ficha Guardar del cuadro de diálogo Opciones.

temp = ActiveDocument.SaveFormsData


Propiedad SaveNormalPrompt

True: si Word muestra un mensaje para que el usuario confirme que desea guardar los cambios realizados en la plantilla Normal antes de salir de la aplicación. False: si Word guarda automáticamente los cambios realizados en la plantilla Normal antes de salir de la aplicación. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SaveNormalPrompt

En este ejemplo se establecen las opciones de Word para que guarde la plantilla Normal automáticamente antes de salir de la aplicación y, a continuación, sale de la aplicación.

Options.SaveNormalPrompt = False

Application.Quit

Este ejemplo devuelve el estado actual de la opción Preguntar si guardar Normal.dot de la ficha Guardar del cuadro de diálogo Opciones.

temp = Options.SaveNormalPrompt


Propiedad ReadOnlyRecommended

True: si Word muestra un cuadro de mensaje cada vez que un usuario abra el documento, sugiriendo que se abra como un documento de sólo lectura. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ReadOnlyRecommended

En este ejemplo se establecen las opciones de Word para que, al abrir un documento, sugiera que se abra como documento de sólo lectura.

ActiveDocument.ReadOnlyRecommended = True

Este ejemplo devuelve el estado actual de la opción Recomendado sólo lectura de la ficha Guardar que se encuentra en el cuadro de diálogo Opciones.

temp = ActiveDocument.ReadOnlyRecommended


Propiedad SaveInterval

Devuelve o establece el intervalo de tiempo, en minutos, necesario para guardar la información de Autorrecuperación. Long de Lectura/Escritura.

Comentarios

Establezca 0 (cero) en la propiedad SaveInterval para desactivar la opción de guardar información de Autorrecuperación.


Ejemplo de la propiedad SaveInterval

En este ejemplo se establecen las opciones de Word para que guarde la información de Autorrecuperación de todos los documentos abiertos cada cinco minutos.

Options.SaveInterval = 5

En este ejemplo se impide que Word guarde la información de Autorrecuperación.

Options.SaveInterval = 0

Este ejemplo devuelve el estado actual de la opción Guardar información de Autorrecuperación cada de la ficha Guardar que se encuentra en el cuadro de diálogo Opciones.

temp = Options.SaveInterval


Propiedad SaveSubsetFonts

True: si Word guarda un subconjunto de las fuentes TrueType incrustadas en el documento. Boolean de Lectura/Escritura.

Comentarios

Si se utilizan menos de 32 caracteres de una fuente TrueType en un documento, Word incrusta el subconjunto (sólo los caracteres utilizados) en el documento. Si se utilizan más de 32 caracteres, Word incrusta la fuente en su totalidad.


Ejemplo de la propiedad SaveSubsetFonts

Este ejemplo establece un documento llamado "MiDoc" para guardar sólo un subconjunto de las fuentes TrueType incrustadas (cuando sólo se utilicen varios caracteres). A continuación, se guarda "MiDoc".

With Documents("MiDoc")

    .EmbedTrueTypeFonts = True

    .SaveSubsetFonts = True

    .Save

End With


Propiedad SavePropertiesPrompt

True: si Word solicita información acerca de las propiedades del documento al guardar un documento nuevo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SavePropertiesPrompt

En este ejemplo se establecen las opciones de Word para que solicite información acerca de las propiedades del documento al guardar un documento nuevo.

Options.SavePropertiesPrompt = True

Este ejemplo devuelve el estado actual de la opción Preguntar por propiedades de documento de la ficha Guardar que se encuentra en el cuadro de diálogo Opciones.

temp = Options.SavePropertiesPrompt


Propiedad UserAddress

Devuelve o establece la dirección de correo del usuario. String de Lectura/Escritura.

Comentarios

La dirección de correo se utiliza para el remite de los sobres.


Ejemplo de la propiedad UserAddress

En este ejemplo se establece el remite del usuario. La función Chr se utiliza para devolver un carácter de avance de línea.

Application.UserAddress = "San Fernando nº 4" & Chr(10) _

    & "41012 Sevilla"

Este ejemplo devuelve la dirección que se encuentra en la opción Dirección de la ficha Información del usuario del cuadro de diálogo Opciones.

Msgbox Application.UserAddress


Propiedad UserInitials

Devuelve o establece las iniciales del usuario que Word utiliza para crear marcas de comentarios. String de Lectura/Escritura.


Ejemplo de la propiedad UserInitials

En este ejemplo se establecen las iniciales del usuario.

Application.UserInitials = "baa"

Este ejemplo devuelve las letras que aparecen en la opción Iniciales de la ficha Información del usuario del cuadro de diálogo Opciones.

Msgbox Application.UserInitials


Propiedad UserName

Devuelve o establece el nombre del usuario, que se utiliza en los sobres y en la propiedad de documento Autor. String de Lectura/Escritura.


Ejemplo de la propiedad UserName

En este ejemplo se establece el nombre del usuario.

Application.UserName = "Ana Gil"

Este ejemplo devuelve el nombre que aparece en la opción Nombre de la ficha Información del usuario del cuadro de diálogo Opciones.

Msgbox Application.UserName


Propiedad AutoFormatAsYouTypeApplyBorders

True: si se reemplaza automáticamente una serie de tres o más guiones (-), símbolos de igual (=) o caracteres de subrayado (_) por un borde específico al presionar la tecla ENTRAR. Boolean de Lectura/Escritura.

Comentarios

Los guiones (-) se reemplazan por una línea de 0,75 puntos, los símbolos de igual (=) por una línea doble de 0,75 puntos, y los caracteres de subrayado (_) se sustituyen por una línea de 1,5 puntos.


Ejemplo de la propiedad AutoFormatAsYouTypeApplyBorders

En este ejemplo se establece que las secuencias de tres o más guiones (-), símbolos de igual (=) o caracteres de subrayado (_), se transformen en bordes.

Options.AutoFormatAsYouTypeApplyBorders = True

Este ejemplo devuelve el valor actual de la opción Bordes de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección que se encuentra en el menú Herramientas.

MsgBox Options.AutoFormatAsYouTypeApplyBorders


Propiedad AutoFormatAsYouTypeApplyBulletedLists

True: si los caracteres de viñeta, como por ejemplo asteriscos, guiones y signos de mayor que, se reemplazan por viñetas del cuadro de diálogo Numeración y viñetas (menú Formato) mientras se escribe. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeApplyBulletedLists

En este ejemplo se establece que se sustituyan los caracteres por viñetas al escribir una lista.

Options.AutoFormatAsYouTypeApplyBulletedLists = True

Este ejemplo devuelve el estado de la opción Listas automáticas con viñetas de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeApplyBulletedLists


Propiedad AutoFormatApplyBulletedLists

True: si los caracteres que aparecen al principio de los párrafos de una lista, como por ejemplo asteriscos, guiones y signos de mayor que, se reemplazan por viñetas del cuadro de diálogo Numeración y viñetas (menú Formato) cuando Word da formato a un documento o intervalo de forma automática. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatApplyBulletedLists

En este ejemplo se reemplaza por viñetas cualquier carácter utilizado al principio de los párrafos de una lista de la selección actual.

Options.AutoFormatApplyBulletedLists = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Listas automáticas con viñetas de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatApplyBulletedLists


Propiedad AutoFormatAsYouTypeApplyNumberedLists

True: si automáticamente se da a los párrafos formato de listas numeradas con un esquema de numeración del cuadro de diálogo Numeración y viñetas (menú Formato), según lo que se escriba. Por ejemplo, si un párrafo empieza por "1.1" y un carácter de tabulación, Word inserta automáticamente "1.2" y un carácter de tabulación después de presionar la tecla ENTRAR. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeApplyNumberedLists

En este ejemplo se establece que las listas se numeren automáticamente mientras se escribe.

Options.AutoFormatAsYouTypeApplyNumberedLists = True

Este ejemplo devuelve el estado de la opción Listas automáticas con números de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeApplyNumberedLists


Propiedad AutoFormatApplyHeadings

True: si se aplican estilos de forma automática a los títulos cuando Word da formato a un documento o intervalo automáticamente. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatApplyHeadings

En este ejemplo se aplican los estilos Título 1 a Título 9 a los títulos de la selección actual.

Options.AutoFormatApplyHeadings = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Títulos de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatApplyHeadings


Propiedad AutoFormatApplyLists

True: si se aplican estilos automáticamente a las listas cuando Word da formato de forma automática a un documento o intervalo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatApplyLists

En este ejemplo se aplican estilos a las listas de la selección actual.

Options.AutoFormatApplyLists = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Listas de la ficha Autoformato que se encuentra en el cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatApplyLists


Propiedad AutoFormatApplyOtherParas

True: si se aplican automáticamente estilos a los párrafos que no sean elementos de título o de lista, cuando Word da formato a un documento o intervalo de forma automática. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatApplyOtherParas

En este ejemplo se aplican de forma automática estilos a los párrafos de la selección actual.

Options.AutoFormatApplyOtherParas = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Otros párrafos de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatApplyOtherParas


Propiedad AutoFormatPreserveStyles

True: si se conservan los estilos aplicados anteriormente cuando Word da formato a un documento o intervalo de forma automática. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatPreserveStyles

En este ejemplo se establecen las opciones de Word para que conserve los estilos existentes y aplique automáticamente el formato de estilos a los títulos, listas y otros párrafos. A continuación, se aplica el formato automático a la selección actual.

With Options

    .AutoFormatPreserveStyles = True

    .AutoFormatApplyHeadings = True

    .AutoFormatApplyLists = True

    .AutoFormatApplyOtherParas = True

End With

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Estilos de la ficha Autoformato del cuadro de diálogo Autocorrección (menú herramientas).

temp = Options.AutoFormatPreserveStyles


Propiedad AutoFormatReplaceFractions

True: si las fracciones incluidas se reemplazan por fracciones del juego de caracteres actual cuando Word da formato automáticamente a un documento o intervalo. Por ejemplo, "1/2" se reemplaza por "½." Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatReplaceFractions

En este ejemplo se activa la opción de reemplazar las fracciones escritas y, a continuación, se da formato automáticamente a la selección actual.

Options.AutoFormatReplaceFractions = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Fracciones (1/2) por carácter de fracción (½) de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatReplaceFractions


Propiedad AutoFormatReplaceOrdinals

True: si los sufijos "o", "a" y "er" de los números ordinales se reemplazan por las mismas letras en superíndice cuando Word da formato automáticamente a un documento o intervalo. Por ejemplo, "1o" se reemplaza por "1º". Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatReplaceOrdinals

En este ejemplo se activa la sustitución automática de ordinales por superíndices y, a continuación, se da formato automáticamente a la selección actual.

Options.AutoFormatReplaceOrdinals = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Ordinales (1º) por superíndice de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatReplaceOrdinals


Propiedad AutoFormatReplaceQuotes

True: si se reemplazan automáticamente las comillas normales por comillas tipográficas redondeadas cuando Word da formato automáticamente a un documento o intervalo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatReplaceQuotes

En este ejemplo se activa la sustitución automática de las comillas normales por comillas tipográficas redondeadas y, a continuación, se da formato automáticamente a la selección actual.

Options.AutoFormatReplaceQuotes = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción Comillas normales por "tipográficas" de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatReplaceQuotes


Propiedad AutoFormatAsYouTypeApplyHeadings

True: si se aplican estilos a los títulos automáticamente mientras se escribe. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeApplyHeadings

En este ejemplo se establecen las opciones de Word para que aplique automáticamente los estilos Título 1 a Título 9 a los títulos mientras se escribe.

Options.AutoFormatAsYouTypeApplyHeadings = True

Este ejemplo devuelve el estado de la opción Títulos de la ficha Autoformato mientras se escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeApplyHeadings


Propiedad AutoFormatAsYouTypeReplaceFractions

True: si las fracciones incluidas se reemplazan por fracciones del juego de caracteres actual mientras se escribe. Por ejemplo, "1/2" se reemplaza por "½.". Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeReplaceFractions

En este ejemplo se desactiva la sustitución automática de las fracciones escritas.

Options.AutoFormatAsYouTypeReplaceFractions = False

Este ejemplo devuelve el estado de la opción Fracciones (1/2) por carácter de fracción (½) de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeReplaceFractions


Propiedad AutoFormatAsYouTypeReplaceOrdinals

True: si los sufijos "o", "a" y "er" de los números ordinales se sustituyen por las mismas letras en superíndice mientras se escribe. Por ejemplo, "1o" se sustituye por "1º". Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeReplaceOrdinals

En este ejemplo se activa la sustitución automática de ordinales por superíndices.

Options.AutoFormatAsYouTypeReplaceOrdinals = True

Este ejemplo devuelve el estado de la opción Ordinales (1º) por superíndice de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeReplaceOrdinals


Propiedad AutoFormatAsYouTypeReplaceQuotes

True: si las comillas normales se reemplazan automáticamente por comillas tipográficas redondeadas mientras se escribe. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeReplaceQuotes

En este ejemplo se activa la sustitución automática de comillas normales por comillas tipográficas redondeadas mientras se escribe.

Options.AutoFormatAsYouTypeReplaceQuotes = True

Este ejemplo devuelve el estado de la opción Comillas normales por "tipográficas" de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatReplaceQuotes


Propiedad AutoFormatAsYouTypeReplacePlainTextEmphasis

True: si los caracteres de énfasis manual se sustituyen automáticamente por formatos de carácter mientras se escribe. Por ejemplo, "*negrita*" se reemplaza por "negrita" y "_cursiva_" por "cursiva". Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeReplacePlainTextEmphasis

En este ejemplo se activa la sustitución de los caracteres de énfasis manual por formatos de carácter.

Options.AutoFormatAsYouTypeReplacePlainTextEmphasis = True

Este ejemplo devuelve el estado de la opción *Negrita* y _subrayado_ por formato real de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeReplacePlainTextEmphasis


Propiedad AutoFormatReplacePlainTextEmphasis

True: si los caracteres de énfasis manual se sustituyen por formatos de carácter cuando Word da formato automáticamente a un documento o intervalo. Por ejemplo, "*negrita*" se reemplaza por "negrita" y "_cursiva_" por "cursiva". Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatReplacePlainTextEmphasis

En este ejemplo se activa la sustitución de los caracteres de énfasis manual por formatos de carácter.

Options.AutoFormatReplacePlainTextEmphasis = True

Selection.Range.AutoFormat

Este ejemplo devuelve el estado de la opción *Negrita* y _subrayado_ por formato real de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatReplacePlainTextEmphasis


Propiedad AutoFormatAsYouTypeDefineStyles

True: si Word crea automáticamente nuevos estilos basándose en los formatos que se creen manualmente. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatAsYouTypeDefineStyles

En este ejemplo se establecen las opciones de Word para que cree automáticamente estilos mientras se escribe.

Options.AutoFormatAsYouTypeDefineStyles = True

Este ejemplo devuelve el estado de la opción Definir estilos basándose en el formato personal de la ficha Autoformato mientras escribe que se encuentra en el cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeDefineStyles


Propiedad DisplayAlerts

Devuelve o establece la forma en que se controlan ciertas alertas y mensajes cuando se ejecuta una macro. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdAlertLevel.

Constante	Descripción
wdAlertsNone	No se muestran alertas ni cuadros de mensaje. Si la macro encuentra un cuadro de mensaje, se selecciona el valor predeterminado y la macro continúa.
wdAlertsMessageBox	Sólo se muestran los cuadros de mensaje; se capturan los errores y se devuelven a la macro.
wdAlertsAll	Se muestran todos los cuadros de mensaje y alertas; los errores se devuelven a la macro.
Nota   Si establece esta propiedad como wdAlertsNone o wdAlertsMessageBox, Word no vuelve a establecer el valor wdAlertsAll cuando se termina de ejecutar la macro. Debe escribir la macro de tal forma que la propiedad DisplayAlerts recupere el valor wdAlertsAll cuando la macro termine de ejecutarse.


Ejemplo de la propiedad DisplayAlerts

En este ejemplo se establecen las opciones de Word para que muestre todas las alertas y todos los cuadros de mensaje mientras se ejecutan las macros.

Application.DisplayAlerts = wdAlertsAll

Este ejemplo devuelve el valor actual de la propiedad DisplayAlerts.

temp = Application.DisplayAlerts


Propiedad DisplayAutoCompleteTips

True: si Word muestra sugerencias de texto para completar palabras, fechas o frases mientras se escribe. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DisplayAutoCompleteTips

En este ejemplo se establecen las opciones de Word para que muestre sugerencias de texto para completar palabras, fechas o frases mientras se escribe.

Application.DisplayAutoCompleteTips = True

Este ejemplo devuelve el estado de la opción Sugerir el resto de la palabra o fecha mientras escribe de la ficha Autotexto que se encuentra en el cuadro de diálogo Autocorrección (menú Herramientas).

temp = Application.DisplayAutoCompleteTips


Método SetWPHelpOptions

Establece las opciones de la característica Ayuda para WordPerfect.

Nota   Esta característica no está disponible para Macintosh y el método genera un error.

Sintaxis

expresión.SetWPHelpOptions(CommandKeyHelp, DocNavigationKeys, MouseSimulation, DemoGuidance, DemoSpeed, HelpType)

expresión   Requerida. Expresión que devuelve un objeto Options.

CommandKeyHelp   Variant opcional. True para que se muestren instrucciones o un equivalente de Word cuando se presione una combinación de teclas de WordPerfect® para DOS. La Ayuda para WordPerfect se muestra en la barra de estado.

DocNavigationKeys   Variant opcional. True para que las teclas de dirección y las teclas RE PÁG, AV PÁG, INICIO, FIN, y ESC funcionen como en WordPerfect.

MouseSimulation   Variant opcional. True para que el puntero se desplace por las opciones seleccionadas en las demostraciones de la Ayuda para WordPerfect.

DemoGuidance   Variant opcional. True para que aparezca el texto de la Ayuda cuando sea necesario que el usuario incluya datos durante las demostraciones de la Ayuda para WordPerfect.

DemoSpeed   Variant opcional. Velocidad de las demostraciones de la Ayuda para WordPerfect. Se puede seleccionar uno de los siguientes valores.

Valor	Velocidad
0 (cero)	Rápida
1	Media
2	Lenta
HelpType   Variant opcional. Especifica si la Ayuda para WordPerfect debe mostrar el texto de la Ayuda o realizar una demostración del comando de WordPerfect. Puede seleccionar 0 (cero), para obtener el texto de la Ayuda, o 1 si desea una demostración.


Ejemplo del método SetWPHelpOptions

En este ejemplo se establecen las opciones de la Ayuda para WordPerfect.

Options.SetWPHelpOptions _

    CommandKeyHelp:=True, _

    DocNavigationKeys:=True, _

    MouseSimulation:=True, _

    DemoGuidance:=True, _

    DemoSpeed:=0, _

    HelpType:=0


Propiedad SuggestSpellingCorrections

True: si Word sugiere siempre correcciones alternativas cuando encuentra faltas al revisar la ortografía. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SuggestSpellingCorrections

En este ejemplo se establecen las opciones de Word para que siempre sugiera correcciones alternativas para las palabras con faltas y, a continuación, se revisa la ortografía del documento activo.

Options.SuggestSpellingCorrections = True

ActiveDocument.CheckSpelling

Este ejemplo devuelve el estado actual de la opción Sugerir siempre de la ficha Ortografía y gramática del cuadro de diálogo Opciones.

temp = Options.SuggestSpellingCorrections


Propiedad ShowSpellingErrors

True: si Word subraya los errores de ortografía en el documento. Boolean de Lectura/Escritura.

Comentarios

Para ver los errores de ortografía de un documento, debe establecer la propiedad CheckSpellingAsYouType como True.


Ejemplo de la propiedad ShowSpellingErrors

En este ejemplo se establecen las opciones de Word para que oculte la línea roja ondulada que indica los posibles errores de ortografía en el documento activo.

ActiveDocument.ShowSpellingErrors = False

En este ejemplo se establecen las opciones de Word para que muestre los errores de ortografía en el documento activo.

Options.CheckSpellingAsYouType = True

ActiveDocument.ShowSpellingErrors = True

Este ejemplo devuelve el estado actual de la opción Ocultar los errores de ortografía en el documento actual de la ficha Ortografía y gramática del cuadro de diálogo Opciones.

temp = ActiveDocument.ShowSpellingErrors


Propiedad IgnoreUppercase

True: si cuando se realiza la revisión ortográfica se pasan por alto las palabras escritas en mayúsculas. Boolean de Lectura/Escritura.


Ejemplo de la propiedad IgnoreUppercase

En este ejemplo se establecen las opciones de Word para que pase por alto las palabras escritas en mayúsculas y, a continuación, se revisa la ortografía del documento activo.

Options.IgnoreUppercase = True

ActiveDocument.CheckSpelling

Este ejemplo devuelve el estado actual de la opción Ignorar palabras en MAYÚSCULAS de la ficha Ortografía y gramática del cuadro de diálogo Opciones.

temp = Options.IgnoreUppercase


Propiedad IgnoreMixedDigits

True: si cuando se realiza la revisión ortográfica se pasan por alto las palabras que contienen números. Boolean de Lectura/Escritura.


Ejemplo de la propiedad IgnoreMixedDigits

En este ejemplo se establecen las opciones de Word para que pase por alto las palabras que contienen números y, a continuación, se revisa la ortografía del documento activo.

Options.IgnoreMixedDigits = True

ActiveDocument.CheckSpelling

Este ejemplo devuelve el estado actual de la opción Ignorar palabras con números de la ficha Ortografía y gramática del cuadro de diálogo Opciones.

temp = Options.IgnoreMixedDigits


Propiedad SuggestFromMainDictionaryOnly

True: si Word toma las sugerencias de ortografía sólo del diccionario principal. False: si toma las sugerencias de ortografía del diccionario principal y de cualquier diccionario personalizado agregado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad SuggestFromMainDictionaryOnly

En este ejemplo se establecen las opciones de Word para que sólo sugiera palabras del diccionario principal y, a continuación, se revisa la ortografía del documento activo.

Options.SuggestFromMainDictionaryOnly = True

ActiveDocument.CheckSpelling

Este ejemplo devuelve el estado actual de la opción Sugerir sólo del diccionario principal de la ficha Ortografía y gramática del cuadro de diálogo Opciones.

temp = Options.SuggestFromMainDictionaryOnly


Propiedad PrintProperties

True: si Word imprime información de resumen en una página aparte al final del documento. False: si la información de resumen no se imprime. La información de resumen se encuentra en el cuadro de diálogo Propiedades del menú Archivo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintProperties

En este ejemplo se establecen las opciones de Word para que imprima la información de resumen en una página aparte al final del documento. A continuación, se imprime el documento activo.

Options.PrintProperties = True

ActiveDocument.PrintOut

Este ejemplo devuelve el estado actual de la opción Resumen de la ficha Imprimir del cuadro de diálogo Opciones.

temp = Options.PrintProperties


Propiedad DefaultHighlightColorIndex

Devuelve o establece el color utilizado para resaltar texto con formato con el botón Resaltar (barra de herramientas Formato). Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdBlack wdBlue wdBrightGreen wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50 wdGreen	wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow


Ejemplo de la propiedad DefaultHighlightColorIndex

En este ejemplo, se establece el color para resaltar predeterminado en verde brillante. El nuevo color no se aplica a ningún texto previamente resaltado.

Options.DefaultHighlightColorIndex = wdBrightGreen

En este ejemplo, se devuelve el índice de colores para resaltar predeterminado actual.

temp = Options.DefaultHighlightColorIndex


Propiedad DefaultTray

Devuelve o establece la bandeja predeterminada que utiliza la impresora para imprimir documentos. String de Lectura/Escritura.

Comentarios

Al establecer esta propiedad, deberá especificar una cadena encontrada en el cuadro Bandeja predeterminada de la ficha Imprimir del cuadro de diálogo Opciones. Puede utilizar la propiedad DefaultTrayID y especificar una constante WdPaperTray para establecer esta misma opción.


Ejemplo de la propiedad DefaultTray

En este ejemplo, se establece que Word utilice la bandeja de impresión inferior.

Options.DefaultTray = "Bandeja inferior"

En este ejemplo, se devuelve la cadena encontrada en el cuadro Bandeja predeterminada de la ficha Imprimir del cuadro de diálogo Opciones.

Msgbox Options.DefaultTray


Propiedad DefaultTrayID

Devuelve o establece la bandeja predeterminada que utiliza la impresora para imprimir documentos. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormalBin wdPrinterTractorFeed wdPrinterUpperBin
Comentarios

Puede utilizar la propiedad DefaultTray con una cadena del cuadro Bandeja predeterminada de la ficha Imprimir del cuadro de diálogo Opciones para establecer esta misma opción.


Ejemplo de la propiedad DefaultTrayID

En este ejemplo, se establece que Word utilice la bandeja de impresión superior y, a continuación, imprima el documento activo.

Options.DefaultTrayID = wdPrinterUpperBin

ActiveDocument.PrintOut

En este ejemplo, se devuelve el valor actual de la opción Bandeja predeterminada de la ficha Imprimir del cuadro de diálogo Opciones.

currTray = Options.DefaultTrayID


Propiedad DefaultSaveFormat

Devuelve o establece el formato predeterminado que aparecerá en el cuadro Guardar como tipo del cuadro de diálogo Guardar como (menú Archivo). Corresponde al cuadro Guardar archivos de Word como de la ficha Guardar del cuadro de diálogo Opciones (menú Herramientas). String de Lectura/Escritura.

Comentarios

La cadena utilizada con esta propiedad corresponde al nombre de clase de convertidor de archivos. Los nombres de clase de los formatos de Word internos aparecen en la siguiente tabla.

Formato de Word	Nombre de clase del convertidor de archivos
Documento de Word	""
Plantilla de documento	"Dot"
Sólo texto	"Texto"
Sólo texto con saltos de línea	"CRTexto"
Texto de MS-DOS	"8Texto"
Texto de MS-DOS con saltos de línea	"8CRTexto"
Texto con formato enriquecido	"Rtf"
Texto monocódigo	"Monocódigo"
Utilice la propiedad ClassName con un objeto FileConverter para determinar el nombre de clase de un convertidor de archivos externo.


Ejemplo de la propiedad DefaultSaveFormat

En este ejemplo, se establece el formato del documento de Word como formato de guardar predeterminado.

Application.DefaultSaveFormat = ""

En este ejemplo, se devuelve el valor actual del cuadro Guardar archivos de Word como de la ficha Guardar del cuadro de dialogo Opciones (menú Herramientas).

Msgbox Application.DefaultSaveFormat


Propiedad AutoFormatAsYouTypeReplaceHyperlinks

True si se cambian automáticamente direcciones de correo electrónico, nombres de servidor y elementos compartidos (también conocidos como rutas de acceso a UNC), y direcciones de Internet (también conocidas como a URL) a hipervínculos mientras escribe. Boolean de Lectura/Escritura.

Comentarios

Word cambia cualquier texto que se parezca a una dirección de correo electrónico, UNC o URL a hipervínculo. Word no comprueba la validez del hipervínculo.


Ejemplo de la propiedad AutoFormatAsYouTypeReplaceHyperlinks

En este ejemplo, se activa Word para que sustituya automáticamente cualquier ruta de red e Internet con hipervínculos cuando se escriben las rutas.

Options.AutoFormatAsYouTypeReplaceHyperlinks = True

En este ejemplo, se devuelve el estado de la opción Rutas de red e Internet por hipervínculos de la ficha Autoformato mientras escribe del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatAsYouTypeReplaceHyperlinks


Propiedad AutoFormatPlainTextWordMail

True si Word da formato automáticamente a los mensajes de WordMail de texto normal cuando los abra en Word. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutoFormatPlainTextWordMail

En este ejemplo, se establece que Word dé formato automáticamente a todos los mensajes de WordMail de texto normal que se abran.

Options.AutoFormatPlainTextWordMail = True

En este ejemplo, se devuelve el estado de la opción Documentos de WordMail de texto normal de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatPlainTextWordMail


Propiedad AutoFormatReplaceHyperlinks

True si se da formato automáticamente a direcciones de correo electrónico, nombres de servidor y elementos compartidos (también conocidos como rutas de acceso a UNC), y a direcciones de Internet (también conocidas como URL) siempre que Word dé formato automático a un documento o intervalo. Boolean de Lectura/Escritura.

Comentarios

Word cambia cualquier texto que se parezca a una dirección de correo electrónico, UNC o URL a hipervínculo. Word no comprueba la validez del hipervínculo.


Ejemplo de la propiedad AutoFormatReplaceHyperlinks

En este ejemplo, se activa la sustitución de las rutas de red e Internet por hipervínculos y, a continuación, se da formato a la selección automáticamente.

Options.AutoFormatReplaceHyperlinks = True

Selection.Range.AutoFormat

En este ejemplo, se devuelve el estado de la opción Rutas de red e Internet por hipervínculos de la ficha Autoformato del cuadro de diálogo Autocorrección (menú Herramientas).

temp = Options.AutoFormatReplaceHyperlinks


Propiedad RevisedPropertiesColor

Devuelve o establece el color utilizado para marcar los cambios de formato mientras esté activado el control de cambios. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdByAuthor wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50	wdGreen wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow
Comentarios

Si el texto eliminado o insertado tiene cambios de formato, a la propiedad RevisedPropertiesColor la suplanta la propiedad DeletedTextColor o InsertedTextColor.


Ejemplo de la propiedad RevisedPropertiesColor

En este ejemplo, se controlan los cambios del documento activo, se establece el color de texto con formato cambiado a verde azulado y se aplica el formato de negrita a la selección.

ActiveDocument.TrackRevisions = True

Options.RevisedPropertiesColor = wdTeal

Selection.Font.Bold = True

En este ejemplo, se devuelve la opción seleccionada en el cuadro Color debajo de Formato cambiado de la ficha Control de cambios del cuadro de diálogo Opciones (menú Herramientas).

temp = Options.RevisedPropertiesColor


Propiedad RevisedPropertiesMark

Devuelve o establece la marca utilizada para mostrar los cambios de formato mientras esté activado el control de cambios. Puede ser una de las siguientes constantes WdRevisedPropertiesMark: wdRevisedPropertiesMarkBold, wdRevisedPropertiesMarkDoubleUnderline, wdRevisedPropertiesMarkItalic, wdRevisedPropertiesMarkNone, o wdRevisedPropertiesMarkUnderline. Long de lectura/escritura.


Ejemplo de la propiedad RevisedPropertiesMark

En este ejemplo, se hace que al texto con formato cambiado se le aplique subrayado doble cuando esté activado el control de cambios.

Options.RevisedPropertiesMark = wdRevisedPropertiesMarkDoubleUnderline

En este ejemplo, se devuelve la opción seleccionada en el cuadro Marcar debajo de Formato cambiado de la ficha Control de cambios del cuadro de diálogo Opciones.

temp = Options.RevisedPropertiesColor


Método CloseUp

Quita los espacios que preceden a los párrafos especificados.

Sintaxis

expresión.CloseUp

expresión   Requerida. Expresión que devuelve un objeto Paragraph, Paragraphs o ParagraphFormat.

Comentarios

Las dos instrucciones siguientes son equivalentes:

ActiveDocument.Paragraphs(1).CloseUp

ActiveDocument.Paragraphs(1).SpaceBefore = 0


Ejemplo del método CloseUp

En este ejemplo se quita cualquier espacio que preceda al primer párrafo de la selección.

Selection.Paragraphs(1).CloseUp

En este ejemplo se modifica el estilo Título 1 del documento activo, de forma que no aparezcan espacios delante de los párrafos de Título 1.

ActiveDocument.Styles("Título 1").ParagraphFormat.CloseUp


Propiedad DefaultTabStop

Devuelve o establece el intervalo (en puntos) entre las tabulaciones predeterminadas del documento especificado. Single de Lectura/Escritura.


Ejemplo de la propiedad DefaultTabStop

En este ejemplo se establece 2.5 centímetros como el valor predeterminado para las tabulaciones del documento activo. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

ActiveDocument.DefaultTabStop = CentimetersToPoints(2.5)


Propiedad Hyphenation

True: si se incluyen los párrafos especificados en la división automática de palabras. False: si se excluyen los párrafos especificados de la división automática de palabras. Puede establecerse True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad Hyphenation

En este ejemplo se desactiva la división automática de palabras de todos los párrafos del documento activo que tengan el estilo Normal.

ActiveDocument.Styles("Normal").ParagraphFormat.Hyphenation = False


Propiedad FirstLineIndent

Devuelve o establece el valor (en puntos) de una sangría de primera línea o de una sangría francesa. Utilice un valor positivo para establecer una sangría de primera línea y un valor negativo para establecer una sangría francesa. Single de Lectura/Escritura.


Ejemplo de la propiedad FirstLineIndent

En este ejemplo se establece una sangría de primera línea de 2,5 centímetros para el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).FirstLineIndent = _

    CentimetersToPoints(2.5)

En este ejemplo se establece una sangría francesa de 1,25 centímetros para el segundo párrafo del documento activo. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

ActiveDocument.Paragraphs(2).FirstLineIndent = _

    CentimetersToPoints(-1.25)


Propiedad KeepTogether

True: si todas las líneas del párrafo especificado permanecen en la misma página cuando Word repagina el documento. Puede ser True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad KeepTogether

En este ejemplo se da formato a los párrafos del documento activo, de forma que todas las líneas de cada párrafo permanezcan en la misma página cuando Word repagine el documento.

ActiveDocument.Paragraphs.KeepTogether = True


Propiedad KeepWithNext

True: si el párrafo especificado permanece en la misma página que el párrafo siguiente cuando Word repagina el documento. Puede ser True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad KeepWithNext

En este ejemplo se establece que los párrafos tercero a sexto del documento activo permanezcan en la misma página.

For i = 3 To 5

    ActiveDocument.Paragraphs(i).KeepWithNext = True

Next i


Propiedad Leader

Devuelve o establece el carácter de relleno del objeto TabStop especificado. Puede ser una de las siguientes constantes WdTabLeader: wdTabLeaderDashes, wdTabLeaderDots, wdTabLeaderHeavy, wdTabLeaderLines o wdTabLeaderSpaces. Long de Lectura/Escritura.


Ejemplo de la propiedad Leader

En este ejemplo se cambia el carácter de relleno de todas las tabulaciones por un carácter de relleno de guiones en todos los párrafos del documento activo.

For each tb in ActiveDocument.Paragraphs.TabStops

    If tb.Leader <> wdTabLeaderSpaces Then

        tb.Leader = wdTabLeaderDashes

    End If

Next tb


Propiedad LeftIndent

Objeto Paragraph, Paragraphs o ParagraphFormat: Devuelve o establece el valor (en puntos) de la sangría izquierda de los párrafos especificados. Single de Lectura/Escritura.

Objeto Row o Rows: Devuelve o establece la distancia (en puntos) que existe entre el margen izquierdo de la página y el borde izquierdo del texto de las filas especificadas. Single de Lectura/Escritura.


Ejemplo de la propiedad LeftIndent

En este ejemplo se establece una sangría izquierda de 2,5 centímetros para el primer párrafo del documento activo. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

ActiveDocument.Paragraphs(1).LeftIndent = CentimetersToPoints(2.5)

En este ejemplo se establece la sangría izquierda de todas las filas de la primera tabla del documento activo.

ActiveDocument.Tables(1).Rows.LeftIndent = CentimetersToPoints(2.5)


Método OpenOrCloseUp

Si el espacio que precede a los párrafos especificados es 0 (cero), este método establece un espacio de 12 puntos. Si el espacio que precede a los párrafos es superior a 0 (cero), este método establece un espacio de 0 (cero).

Sintaxis

expresión.OpenOrCloseUp

expresión   Requerida. Expresión que devuelve un objeto Paragraph, Paragraphs o ParagraphFormat.


Ejemplo del método OpenOrCloseUp

En este ejemplo se activa o desactiva el formato del primer párrafo del documento activo para que se agregue un espacio de 12 puntos delante del párrafo o se elimine cualquier espacio que le preceda.

ActiveDocument.Paragraphs(1).OpenOrCloseUp


Método OpenUp

Establece un espacio de 12 puntos delante de los párrafos especificados.

Sintaxis

expresión.OpenUp

expresión   Requerida. Expresión que devuelve un objeto Paragraph, Paragraphs o ParagraphFormat.

Comentarios

Las dos instrucciones siguientes son equivalentes:

ActiveDocument.Paragraphs(1).OpenUp

ActiveDocument.Paragraphs(1).SpaceBefore = 12


Ejemplo del método OpenUp

En este ejemplo se modifica el formato del segundo párrafo del documento activo para que se incluya un espacio de 12 puntos delante del párrafo.

ActiveDocument.Paragraphs(2).OpenUp


Propiedad PageBreakBefore

True: si se incluye un salto de página delante de los párrafos especificados. Puede ser True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad PageBreakBefore

En este ejemplo se incluye un salto de página delante del primer párrafo de la selección.

Selection.Paragraphs(1).PageBreakBefore = True


Propiedad Paragraphs

Devuelve un conjunto de Paragraphs que representa a todos los párrafos del documento, selección o intervalo especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Paragraphs

En este ejemplo se establece un interlineado sencillo para todos los párrafos de la primera sección del documento activo.

ActiveDocument.Sections(1).Range.Paragraphs.LineSpacingRule = _

wdLineSpaceSingle

En este ejemplo se establece un interlineado doble para el primer párrafo de la selección.

Selection.Paragraphs(1).LineSpacingRule = wdLineSpaceDouble


Propiedad RightIndent

Devuelve o establece la sangría derecha (en puntos) de los párrafos especificados. Single de Lectura/Escritura.


Ejemplo de la propiedad RightIndent

Este ejemplo establece una sangría derecha de 2,5 centímetros desde el margen derecho en todos los párrafos del documento activo. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

ActiveDocument.Paragraphs.RightIndent = CentimetersToPoints(2.5)


Método Space1

Establece un espacio sencillo para los párrafos especificados. El espacio exacto se determina según el tamaño de la fuente de los caracteres más grandes de cada párrafo.

Sintaxis

expresión.Space1

expresión   Requerida. Expresión que devuelve un objeto Paragraph, Paragraphs o ParagraphFormat.

Comentarios

Las dos instrucciones siguientes son equivalentes:

ActiveDocument.Paragraphs(1).Space1

ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpaceSingle


Ejemplo del método Space1

En este ejemplo se establece un espacio sencillo para el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Space1


Método Space15

Establece un interlineado de 1,5 líneas para los párrafos especificados. El espacio exacto se determina agregando 6 puntos al tamaño de la fuente del carácter de mayor tamaño de cada párrafo.

Sintaxis

expresión.Space15

expresión   Requerida. Expresión que devuelve un objeto Paragraph, Paragraphs o ParagraphFormat.

Comentarios

Las dos instrucciones siguientes son equivalentes:

ActiveDocument.Paragraphs(1).Space15

ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpace1pt5


Ejemplo del método Space15

En este ejemplo se aplica un interlineado de 1,5 líneas al primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Space15


Método Space2

Aplica un espacio doble a los párrafos especificados. El espacio exacto se determina agregando 12 puntos al tamaño de fuente del carácter de mayor tamaño de cada párrafo.

Sintaxis

expresión.Space2

expresión   Requerida. Expresión que devuelve un objeto Paragraph, Paragraphs o ParagraphFormat.

Comentarios

Las dos instrucciones siguientes son equivalentes:

ActiveDocument.Paragraphs(1).Space2

ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpaceDouble


Ejemplo del método Space2

En este ejemplo se aplica un espacio doble al primer párrafo de la selección.

Selection.Paragraphs(1).Space2


Propiedad SpaceBefore

Devuelve o establece el espacio (en puntos) que se aplica delante de cada párrafo. Single de Lectura/Escritura.


Ejemplo de la propiedad SpaceBefore

En este ejemplo se aplica un espacio de 12 puntos delante del segundo párrafo del documento activo.

ActiveDocument.Paragraphs(2).SpaceBefore = 12


Propiedad TabStops

Devuelve o establece un conjunto de TabStops que representa a todas las tabulaciones personalizadas de los párrafos especificados. Lectura/Escritura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad TabStops

En este ejemplo se aplica una tabulación centrada de 5 centímetros a todos los párrafos del documento activo. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

With ActiveDocument.Paragraphs.TabStops

    .Add Position:= CentimetersToPoints(5), Alignment:= wdAlignTabCenter

End With

En este ejemplo se establece que las tabulaciones de todos los párrafos del documento coincidan con las tabulaciones del primer párrafo.

Set para1Tabs = ActiveDocument.Paragraphs(1).TabStops

ActiveDocument.Paragraphs.TabStops = para1Tabs


Método TabIndent

Establece que la sangría izquierda de los párrafos especificados equivalga al número de tabulaciones especificado. También se puede utilizar para quitar la sangría si el valor de Count es un número negativo.

Sintaxis

expresión.TabIndent(Count)

expresión   Requerida. Expresión que devuelve un objeto de Paragraph, Paragraphs o ParagraphFormat.

Count   Integer requerida. Número de tabulaciones que debe incluir la sangría (si es un valor positivo) o número de tabulaciones que se van a quitar de la sangría (si es un valor negativo).


Ejemplo del método TabIndent

En este ejemplo se aplica una sangría de dos tabulaciones al primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabIndent(2)

En este ejemplo se elimina una tabulación de la sangría del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabIndent(-1)


Método TabHangingIndent

Establece una sangría francesa de un número específico de tabulaciones. Se puede utilizar para quitar tabulaciones de una sangría francesa si el valor de Count es un número negativo.

Sintaxis

expresión.TabHangingIndent(Count)

expresión   Requerida. Expresión que devuelve un objeto Paragraph, Paragraphs o ParagraphFormat.

Count   Integer requerida. Número de tabulaciones que se incluyen en la sangría (si es un valor positivo) o número de tabulaciones que se van a quitar de la sangría (si es un valor negativo).


Ejemplo del método TabHangingIndent

En este ejemplo se establece una sangría francesa de dos tabulaciones para el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabHangingIndent(2)

En este ejemplo se elimina una tabulación de la sangría francesa aplicada al primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabHangingIndent(-1)


Propiedad CustomTab

True: si la tabulación especificada es una tabulación personalizada. Boolean de sólo lectura.


Ejemplo de la propiedad CustomTab

En este ejemplo se examinan las tabulaciones del primer párrafo del documento activo y se alinean a la izquierda las tabulaciones personalizadas encontradas.

For each ts in ActiveDocument.Paragraphs(1).TabStops

    If ts.CustomTab = True Then ts.Alignment = wdAlignTabLeft

Next ts


Propiedad WidowControl

True: si la primera y la última línea del párrafo especificado permanecen en la misma página que el resto del párrafo cuando Word repagina el documento. Puede ser True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad WidowControl

En este ejemplo se aplica a los párrafos del documento activo un formato que permite que la primera o la última línea de cada párrafo pueda aparecer aislada del resto al principio o al final de una página.

ActiveDocument.Paragraphs.WidowControl = False


Método After

Devuelve el siguiente objeto TabStop a la derecha de Position.

Sintaxis

expresión.After(Posición)

expresión   Requerida. Expresión que devuelve un conjunto de TabStops.

Posición   Single requerido. Especifica, en puntos, una posición en la regla.


Ejemplo del método After

En este ejemplo se modifica la alineación de la primera tabulación personalizada del primer párrafo del documento activo que mida más de 2,5 centímetros desde el margen izquierdo.

Set ts = ActiveDocument.Paragraphs(1).TabStops.After(CentimetersToPoints(2.5))

ts.Alignment = wdAlignTabCenter


Método Before

Devuelve el siguiente objeto TabStop a la izquierda de Position.

Sintaxis

expresión.Before(Posición)

expresión   Requerida. Expresión que devuelve un conjunto de TabStops.

Posición   Single requerido. Especifica, en puntos, una posición en la regla.


Ejemplo del método Before

En este ejemplo se modifica la alineación de la primera tabulación personalizada del primer párrafo del documento activo que mida menos de 5 centímetros desde el margen izquierdo.

Set ts = ActiveDocument.Paragraphs(1) _

    .TabStops.Before(CentimetersToPoints(5))

ts.Alignment = wdAlignTabCenter


Propiedad DropCap

Devuelve un objeto DropCap que representa una letra capital para el párrafo especificado. Es de sólo lectura.


Ejemplo de la propiedad DropCap

En este ejemplo se establece una letra capital para el primer párrafo del documento activo.

With ActiveDocument.Paragraphs(1).DropCap

    .FontName = "Arial"

    .Position = wdDropNormal

    .LinesToDrop = 3

    .DistanceFromText = CentimetersToPoints(0.25)

End With


Propiedad FontName

Devuelve o establece el nombre de la fuente de la letra capital. String de Lectura/Escritura.


Ejemplo de la propiedad FontName

En este ejemplo se establece Arial como la fuente de la letra capital del primer párrafo del documento activo.

With ActiveDocument.Paragraphs(1).DropCap

    .FontName = "Arial"

    .Position = wdDropNormal

    .LinesToDrop = 3

    .DistanceFromText = CentimetersToPoints(0.25)

End With


Propiedad Alignment

Objeto ListLevel: devuelve o establece la alineación del nivel de lista de la plantilla de listas. Puede ser una de las siguientes constantes WdListLevelAlignment: wdListLevelAlignCenter, wdListLevelAlignLeft o wdListLevelAlignRight. Long de Lectura/Escritura.

Objeto PageNumber: devuelve o establece la alineación del número de página. Puede ser una de las siguientes constantes WdPageNumberAlignment: wdAlignPageNumberCenter, wdAlignPageNumberInside, wdAlignPageNumberLeft, wdAlignPageNumberOutside o wdAlignPageNumberRight. Long de Lectura/Escritura.

Objeto Paragraph, Paragraphs o ParagraphFormat: devuelve o establece la alineación de los párrafos especificados. Puede ser una de las siguientes constantes WdParagraphAlignment: wdAlignParagrahphLeft, wdAlignParagraphCenter, wdAlignParagraphRight o wdAlignParagraphJustify. Long de Lectura/Escritura.

Objeto Row o Rows: devuelve o establece la alineación de las filas especificadas. Puede ser una de las siguientes constantes WdRowAlignment: wdAlignRowLeft, wdAlignRowCenter o wdAlignRowRight. Long de Lectura/Escritura.

Objeto TabStop: devuelve o establece la alineación de la tabulación especificada. Puede ser una de las siguientes constantes WdTabAlignment: wdAlignTabBar, wdAlignTabCenter, wdAlignTabDecimal, wdAlignTabLeft, wdAlignTabList o wdAlignTabRight. Long de Lectura/Escritura.


Ejemplo de la propiedad Alignment

En este ejemplo se alinea a la derecha el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight

En este ejemplo se centran todas las filas de la primera tabla del documento activo.

ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter

En este ejemplo se centra la primera tabulación del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabStops(1).Alignment = wdAlignTabCenter


Propiedad LineSpacing

Devuelve o establece el interlineado en puntos de los párrafos especificados. Single de Lectura/Escritura.

Comentarios

Puede establecerse la propiedad LineSpacing después de establecer el valor de la propiedad LineSpacingRule en wdLineSpaceAtLeast, wdLineSpaceExactly o wdLineSpaceMultiple. Si se utiliza wdLineSpaceAtLeast, el interlineado puede ser superior o igual, pero nunca inferior al valor LineSpacing especificado. Si se utiliza wdLineSpaceExactly, el interlineado nunca es distinto al valor LineSpacing especificado, aunque se utilice una fuente mayor en el párrafo. Si se utiliza wdLineSpaceMultiple, debe especificarse el valor de la propiedad LineSpacing en puntos.

Utilice el método LinesToPoints para convertir las líneas al valor correspondiente en puntos. Por ejemplo, LinesToPoints(2) devuelve el valor 24.


Ejemplo de la propiedad LineSpacing

En este ejemplo se establece el interlineado del primer párrafo del documento activo para que siempre sea, al menos, de 12 puntos.

With ActiveDocument.Paragraphs(1)

    .LineSpacingRule = wdLineSpaceAtLeast

    .LineSpacing = 12

End With

En este ejemplo, se triplica el interlineado de los párrafos seleccionados.

With Selection.Paragraphs

    .LineSpacingRule = wdLineSpaceMultiple

    .LineSpacing = LinesToPoints(3)

End With


Propiedad LineSpacingRule

Devuelve o establece el interlineado de los párrafos especificados. Puede ser una de las siguientes constantes WdLineSpacing: wdLineSpace1pt5, wdLineSpaceAtLeast, wdLineSpaceDouble, wdLineSpaceExactly, wdLineSpaceMultiple o wdLineSpaceSingle. Long de Lectura/Escritura.

Comentarios

Utilice wdLineSpaceSingle, wdLineSpace1pt5 o wdLineSpaceDouble para establecer el interlineado en uno de estos valores. También debe establecer la propiedad LineSpacing para establecer el valor de interlineado como un número exacto de puntos o para varias líneas.


Ejemplo de la propiedad LineSpacingRule

En este ejemplo se duplica el interlineado del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpaceDouble

En este ejemplo se devuelve la norma de interlineado utilizada para el primer párrafo de la selección.

lrule = Selection.Paragraphs(1).LineSpacingRule


Propiedad SpaceAfter

Devuelve o establece el espacio, en puntos, detrás de la columna de texto o del párrafo especificado. Single de Lectura/Escritura.


Ejemplo de la propiedad SpaceAfter

En este ejemplo, se establece el espacio detrás del primer párrafo del documento activo en 12 puntos.

ActiveDocument.Paragraphs(1).SpaceAfter = 12

En este ejemplo, se establece el documento activo en tres columnas, con un espacio de 1,25 centímetros detrás de la primera columna. Se utiliza el método CentimetersToPoints para convertir los centímetros a puntos.

With ActiveDocument.PageSetup.TextColumns

    .SetCount NumColumns:=3

    .LineBetween = False

    .EvenlySpaced = True

    .Item(1).SpaceAfter = CentimetersToPoints(1.25)

End With


Propiedad OutlineLevel

Devuelve o establece el nivel de esquema de los párrafos especificados. Puede ser una de las siguientes constantes WdOutlineLevel: wdOutLineLevel1, wdOutLineLevel2, wdOutLineLevel3, wdOutLineLevel4, wdOutLineLevel5, wdOutLineLevel6, wdOutLineLevel7, wdOutLineLevel8, wdOutLineLevel9, o wdOutLineLevelBodyText. Long de Lectura/Escritura.

Comentarios

Si un párrafo tiene un estilo de título aplicado (Título 1 a Título 9), el nivel de esquema será el mismo que el estilo de título y no podrá cambiarse.

Sólo son visibles los niveles de esquema en la vista Esquema o en el panel de mapas del documento.


Ejemplo de la propiedad OutlineLevel

En este ejemplo, se devuelve el nivel de esquema del primer párrafo del documento activo.

temp = ActiveDocument.Paragraphs(1).OutlineLevel

En este ejemplo, se establece el nivel de esquema de cada párrafo del documento activo. En primer lugar, el estilo Normal se aplica a todos los párrafos. Se utiliza el operador Mod para determinar el nivel de esquema (1, 2 y 3) que va a aplicarse a los párrafos sucesivos del documento y, a continuación, se pasa a la vista Esquema.

Set myParas = ActiveDocument.Paragraphs

ActiveDocument.Paragraphs.Style = wdStyleNormal

For x = 1 To myParas.Count

    If x Mod 3 = 1 Then

        myParas(x).OutlineLevel = wdOutlineLevel1

    ElseIf x Mod 3 = 2 Then

        myParas(x).OutlineLevel = wdOutlineLevel2

    Else

        myParas(x).OutlineLevel = wdOutlineLevel3

    End If

Next x

ActiveWindow.View.Type = wdOutlineView


Método CreatePublisher

En un Macintosh, este método publica el texto seleccionado en una edición a la que después podrá suscribirse en otros documentos.

En Windows, el método CreatePublisher no está disponible y produce un error.


Método EditionOptions

En un Macintosh, este método establece las opciones de la publicación seleccionada.

En Windows, el método EditionOptions no está disponible y produce un error.


Método SubscribeTo

En un Macintosh, este método se suscribe a una edición publicada.

En Windows, el método SubscribeTo no está disponible y produce un error.


Método MountVolume

En un Macintosh, este método se conecta a un disco o carpeta compartidos en una red.

En Windows, el método MountVolume no está disponible y produce un error. En su lugar, debe utilizarse el método Connect.


Método ShowClipboard

En un Macintosh, este método muestra el Portapapeles y lo que contiene.

En Windows, el método ShowClipboard no está disponible y produce un error. En su lugar, puede utilizar la función Shell para ver el Portapapeles.


Propiedad MacintoshName

Devuelve el nombre del Macintosh tal como está establecido en el panel de control Configurar opciones para compartir. String de sólo lectura.

En Windows, el método MacintoshName no está disponible y produce un error.


Método InsertParagraph

Sustituye la selección o el intervalo especificado por un nuevo párrafo.

Nota   Después de utilizar este método, el intervalo o la selección se convierte en el nuevo párrafo.

Sintaxis

expresión.InsertParagraph

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Comentarios

Si no desea sustituir el intervalo ni la selección, utilice el método Collapse antes de emplear este método. El método InsertParagraphAfter inserta un nuevo párrafo a continuación de un objeto Range o Selection.


Ejemplo del método InsertParagraph

En este ejemplo se inserta un nuevo párrafo al principio del documento activo.

Set myRange = ActiveDocument.Range(0, 0)

With myRange

    .InsertParagraph

    .InsertBefore "Estimados Sres.:"

End With

En este ejemplo se contrae la selección y, a continuación, se inserta una marca de párrafo en el punto de inserción.

With Selection

    .Collapse Direction:=wdCollapseStart

    .InsertParagraph

    .Collapse Direction:=wdCollapseEnd

End With


Método InsertAfter

Inserta el texto especificado al final del intervalo o de la selección. Después de aplicar este método, el intervalo o la selección se expande para incluir el nuevo texto.

Nota   Puede insertar caracteres como comillas, caracteres de tabulación y guiones de no separación mediante la función Chr y el método InsertAfter. También puede utilizar las siguientes constantes de Visual Basic: vbCr, vbLf, vbCrLf y vbTab.

Sintaxis

expresión.InsertAfter(Text)

expresión   Requerida. Expresión que devuelve un objeto Selection o Range.

Text   String requerida. Texto que se va a insertar.

Comentarios

Si utiliza este método con un intervalo o una selección que hace referencia a un párrafo completo, el texto se inserta a continuación de la marca de fin de párrafo; es decir, el texto aparecerá al principio del siguiente párrafo. Para insertar el texto al final de un párrafo, localice el punto de finalización y reste 1 desde esta ubicación (la marca de párrafo ocupa un carácter), como muestra el siguiente ejemplo.

Set Doc = ActiveDocument

Set myRange = Doc.Range(Start:=Doc.Paragraphs(1).Range.End - 1, _

    End:=Doc.Paragraphs(1).Range.End - 1)

myRange.InsertAfter " fin "


Ejemplo del método InsertAfter

En este ejemplo se inserta texto al final del documento activo. La propiedad Content devuelve un objeto Range.

ActiveDocument.Content.InsertAfter "fin del documento"

En este ejemplo se inserta el texto al final de la selección y, a continuación, se contrae la selección en un punto de inserción.

With Selection

    .InsertAfter "texto anexado"

    .Collapse Direction:=wdCollapseEnd

End With

En este ejemplo se inserta texto desde un cuadro de entrada de datos como segundo párrafo del documento activo.

response = InputBox("Escriba texto")

With ActiveDocument.Paragraphs(1).Range

    .InsertAfter "1" & Chr(9) & response

    .InsertParagraphAfter

End With


Método InsertParagraphAfter

Inserta una marca de párrafo a continuación de un intervalo o de una selección.

Nota   Después de aplicar este método, el intervalo o la selección se expande para incluir el nuevo texto.

Sintaxis

expresión.InsertParagraphAfter

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.


Ejemplo del método InsertParagraphAfter

En este ejemplo se inserta un nuevo párrafo a continuación del párrafo activo.

With Selection

    .Move Unit:=wdParagraph

    .InsertParagraphAfter

    .Collapse Direction:=wdCollapseStart

End With

En este ejemplo se inserta el texto como un párrafo nuevo al principio del documento activo.

Set myRange = ActiveDocument.Range(0, 0)

With myRange

    .InsertBefore "Título"

    .ParagraphFormat.Alignment = wdAlignParagraphCenter

    .InsertParagraphAfter

End With

En este ejemplo se inserta un párrafo al final del documento activo. La propiedad Content devuelve un objeto Range.

ActiveDocument.Content.InsertParagraphAfter


Método Calculate

Calcula una expresión matemática dentro de un intervalo o de una selección. Devuelve el resultado como Single.

Sintaxis

expresión.Calculate

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.


Ejemplo del método Calculate

En este ejemplo se inserta una expresión matemática al principio del documento activo, se calcula la expresión y, a continuación, se anexan los resultados al intervalo. El resultado es "1 + 1 = 2".

Set myRange = ActiveDocument.Range(0, 0)

myRange.InsertBefore "1 + 1 "

myRange.InsertAfter "= " & myRange.Calculate

En este ejemplo se calcula la expresión matemática seleccionada y se muestra el resultado.

MsgBox "Y la respuesta es... " & Selection.Calculate


Propiedad Case

Devuelve o establece las mayúsculas o minúsculas del texto en el intervalo especificado. Puede ser una de las siguientes constantes WdCharacterCase: wdLowerCase, wdNextCase, wdTitleSentence, wdTitleWord, wdToggleCase o wdUpperCase. Long de Lectura/Escritura.


Ejemplo de la propiedad Case

En este ejemplo se cambia la primera palabra de la selección a mayúsculas.

Selection.Words(1).Case = wdUpperCase

En este ejemplo se pone en mayúsculas la primera letra de cada oración del primer párrafo del documento.

Set myRange = ActiveDocument.Paragraphs(1).Range

For Each Sent In myRange.Sentences

    Sent.Case = wdTitleSentence

Next Sent


Propiedad Characters

Devuelve un conjunto Characters que representa a los caracteres de un documento, intervalo o selección. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Characters

En este ejemplo se muestra el primer carácter de la selección. Si no hay nada seleccionado, se muestra el primer carácter inmediatamente posterior al punto de inserción.

char = Selection.Characters(1).Text

MsgBox "El primer carácter es... " & char

En este ejemplo se devuelve el número de caracteres de la primera oración del documento activo, incluyendo los espacios en el recuento.

numchars = ActiveDocument.Sentences(1).Characters.Count


Método CheckSynonyms

Muestra el cuadro de diálogo Sinónimos (submenú Idioma, menú Herramientas), que enumera las opciones de palabras alternativas o sinónimos para el texto del intervalo especificado.

Sintaxis

expresión.CheckSynonyms

expresión   Requerida. Expresión que devuelve un objeto Range.


Ejemplo del método CheckSynonyms

En este ejemplo se muestra el cuadro de diálogo Sinónimos, con los sinónimos para el texto seleccionado.

Selection.Range.CheckSynonyms

En este ejemplo se muestra el cuadro de diálogo Sinónimos, con los sinónimos para la primera palabra del documento activo.

ActiveDocument.Words(1).CheckSynonyms


Método Collapse

Contrae un intervalo o una selección en la posición inicial o final. Después de contraer un intervalo o una selección, los puntos inicial y final son iguales.

Sintaxis

expresión.Collapse(Direction)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Direction   Variant opcional. Dirección en la que se contrae el intervalo o la selección. Puede ser una de las siguientes constantes WdCollapseDirection: wdCollapseEnd o wdCollapseStart. El valor predeterminado es wdCollapseStart.

Comentarios

Si utiliza wdCollapseEnd para contraer un intervalo que hace referencia a un párrafo completo, el intervalo se sitúa a continuación de la marca de fin de párrafo; es decir, al principio del siguiente párrafo. Sin embargo, puede retroceder el intervalo un carácter con el método MoveEnd después de contraer el intervalo, como muestra el siguiente ejemplo.

Set myRange = ActiveDocument.Paragraphs(1).Range

myRange.Collapse Direction:=wdCollapseEnd

myRange.MoveEnd Unit:=wdCharacter, Count:=-1


Ejemplo del método Collapse

En este ejemplo se contrae la selección en un punto de inserción situado al principio de la selección anterior.

Selection.Collapse Direction:=wdCollapseStart

En este ejemplo se establece que el valor de myRange sea igual al contenido del documento activo, se contrae myRange y, a continuación, se inserta una tabla de 2 x 2 al final del documento.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseEnd

ActiveDocument.Tables.Add Range:=myRange, NumRows:=2, NumColumns:=2


Propiedad ColorIndex

Devuelve o establece el color del objeto de borde o de fuente especificado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdColorIndex:

wdAuto wdBlack wdBlue wdBrightGreen wdDarkBlue wdDarkRed wdDarkYellow wdGray25 wdGray50	wdGreen wdNoHighlight wdPink wdRed wdTeal wdTurquoise wdViolet wdWhite wdYellow
wdAuto wdBlack wdBlue wdCyan wdGreen wdMagen  wdDarkCyan wdDarkGreen wdDarkMagenta ta wdRed wdYellow wdWhite	wdDarkBlue wdDarkCyan wdDarkGreen wdDarkMagenta wdDarkRed wdDarkYellow wdDarkGray wdLightGray
Comentarios

La constante wdByAuthor no es válida para objetos de bordes ni fuentes.


Ejemplo de la propiedad ColorIndex

En este ejemplo se cambia el color del texto del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Range.Font.ColorIndex = wdGreen

En este ejemplo se da formato al texto seleccionado para que aparezca en rojo.

Selection.Font.ColorIndex = wdRed

En este ejemplo se agrega un borde punteado rojo alrededor de cada celda de la primera tabla.

If ActiveDocument.Tables.Count >= 1 Then

    For Each aBorder In ActiveDocument.Tables(1).Borders

        aBorder.ColorIndex = wdRed

        aBorder.LineStyle = wdLineStyleDashDot

        aBorder.LineWidth = wdLineWidth075pt

    Next aBorder

End If


Propiedad Content

Devuelve un objeto Range que representa al contenido. del documento principal. Es de sólo lectura.

Comentarios

Las dos instrucciones siguientes son equivalentes:

Set mainStory = ActiveDocument.Content

Set mainStory = ActiveDocument.StoryRanges(wdMainTextStory)


Ejemplo de la propiedad Content

En este ejemplo se cambia el tipo y el tamaño de fuente del documento activo a Arial de 10 puntos.

Set myRange = ActiveDocument.Content

With myRange.Font

    .Name = "Arial"

    .Size = 10

End With

En este ejemplo se inserta texto al final del documento denominado "Cambios.doc". La instrucción For Each...Next se utiliza para determinar si el documento está abierto.

For Each aDocument In Documents

    If InStr(LCase$(aDocument.Name), "cambios.doc") Then

        Set myRange = Documents("Cambios.doc").Content

        myRange.InsertAfter "fin."

    End If

Next aDocument


Método ConvertToTable

Convierte el texto de un intervalo o de una selección en una tabla. Devuelve la tabla como objeto Table.

Sintaxis

expresión.ConvertToTable(Separator, NumRows, NumColumns, InitialColumnWidth, Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Separator   Variant opcional. Especifica el carácter utilizado para separar el texto en celdas. Puede ser un carácter o una de las siguientes constantes WdTableFieldSeparator: wdSeparateByCommas, wdSeparateByDefaultListSeparator, wdSeparateByParagraphs o wdSeparateByTabs. Si se omite el argumento, se utiliza el valor de la propiedad DefaultTableSeparator.

NumRows   Variant opcional. Número de filas de la tabla. Si se omite este argumento, Word establece el número de filas en función del contenido del intervalo o de la selección.

NumColumns   Variant opcional. Número de columnas de la tabla. Si se omite este argumento, Word establece el número de columnas en función del contenido del intervalo o de la selección.

InitialColumnWidth   Variant opcional. Ancho inicial de cada columna en puntos. Si se omite este argumento, Word calcula y ajusta el ancho de columna para que la tabla se expanda de un margen a otro.

Format   Variant opcional. Especifica uno de los formatos predefinidos que se muestran en el cuadro de diálogo Autoformato de tablas (menú Tabla). Puede ser una de las siguientes constantes WdTableFormat:

wdTableFormat3DEffects1 wdTableFormat3DEffects2 wdTableFormat3DEffects3 wdTableFormatClassic1 wdTableFormatClassic2 wdTableFormatClassic3 wdTableFormatClassic4 wdTableFormatColorful1 wdTableFormatColorful2 wdTableFormatColorful3 wdTableFormatColumns1 wdTableFormatColumns2 wdTableFormatColumns3 wdTableFormatColumns4 wdTableFormatColumns5 wdTableFormatContemporary wdTableFormatElegant wdTableFormatGrid1 wdTableFormatGrid2 wdTableFormatGrid3	wdTableFormatGrid4 wdTableFormatGrid5 wdTableFormatGrid6 wdTableFormatGrid7 wdTableFormatGrid8 wdTableFormatList1 wdTableFormatList2 wdTableFormatList3 wdTableFormatList4 wdTableFormatList5 wdTableFormatList6 wdTableFormatList7 wdTableFormatList8 wdTableFormatNone wdTableFormatProfessional wdTableFormatSimple1 wdTableFormatSimple2 wdTableFormatSimple3 wdTableFormatSubtle1 wdTableFormatSubtle2
ApplyBorders   Variant opcional. True: para aplicar las propiedades de borde del formato especificado.

ApplyShading   Variant opcional. True: para aplicar las propiedades de sombreado del formato especificado.

ApplyFont   Variant opcional. True: para aplicar las propiedades de fuente del formato especificado.

ApplyColor   Variant opcional. True: para aplicar las propiedades de color del formato especificado.

ApplyHeadingRows   Variant opcional. True: para aplicar las propiedades de fila de títulos del formato especificado.

ApplyLastRow   Variant opcional. True: para aplicar las propiedades de última fila del formato especificado.

ApplyFirstColumn   Variant opcional. True: para aplicar las propiedades de primera columna del formato especificado.

ApplyLastColumn   Variant opcional. True: para aplicar las propiedades de última columna del formato especificado.

AutoFit   Variant opcional. True: para reducir el ancho de las columnas de la tabla el máximo posible sin cambiar el ajuste de texto en las celdas.


Ejemplo del método ConvertToTable

En este ejemplo se convierten los tres primeros párrafos del documento activo en una tabla.

Set aDoc = ActiveDocument

Set myRange = aDoc.Range(Start:=aDoc.Paragraphs(1).Range.Start, _

    End:=aDoc.Paragraphs(3).Range.End)

myRange.ConvertToTable Separator:=wdSeparateByParagraphs

En este ejemplo se inserta el texto en el punto de inserción y, a continuación, el texto delimitado por comas se convierte en una tabla con formato.

With Selection

    .Collapse

    .InsertBefore "uno, dos, tres"

    .InsertParagraphAfter

    .InsertAfter "uno, dos, tres"

    .InsertParagraphAfter

End With

Set myTable = Selection.ConvertToTable(Separator:=wdSeparateByCommas, _

    Format:=wdTableFormatList8)


Propiedad End

Devuelve o establece la posición del carácter final de una selección, intervalo o marcador. Long de Lectura/Escritura.

Nota   Si  el valor de esta propiedad se establece como un valor inferior al de la propiedad Start, esta propiedad se establece con el mismo valor; es decir, las propiedades Start y End son iguales.

Comentarios

Los objetos Selection, Range y Bookmark tienen una posición inicial y una final. La posición final es el punto más alejado del principio del contenido.

Esta propiedad devuelve la posición del carácter final relativa al inicio del contenido. El contenido del documento principal (wdMainTextStory) empieza por la posición del carácter 0 (cero). Puede cambiar el tamaño de una selección, intervalo o marcador al establecer esta propiedad.


Ejemplo de la propiedad End

En este ejemplo se compara la posición final del marcador "temp" con la posición inicial del marcador "inicio".

Set Book1 = ActiveDocument.Bookmarks("inicio")

Set Book2 = ActiveDocument.Bookmarks("temp")

If Book2.End > Book1.Start Then Book1.Select

En este ejemplo se recupera la posición final de la selección. Este valor se utiliza para crear un intervalo, de forma que pueda insertarse un campo a continuación de la selección.

pos = Selection.End

Set myRange = ActiveDocument.Range(Start:=pos, End:=pos)

ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldAuthor

En este ejemplo se cambia la posición final de myRange por un carácter.

Set myRange = ActiveDocument.Paragraphs(1).Range

myRange.End = myRange.End - 1


Método EndOf

Mueve o expande la posición del carácter final de un intervalo o de una selección al final de la unidad de texto más próxima. Este método devuelve un valor que indica el número de posiciones de caracteres que se ha movido o expandido el intervalo o la selección; se trata de un movimiento hacia delante en el documento.

Sintaxis

expresión.EndOf(Unit, Extend)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Unit   Variant opcional. Unidad mediante la que se mueve la posición del carácter final. Puede ser una de las siguientes constantes WdUnits: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow o wdTable. Si expresión devuelve un objeto Selection, también puede utilizarse wdLine. El valor predeterminado es wdWord.

Extend   Variant opcional. Puede ser una de las siguientes constantes WdMovementType: wdMove o wdExtend. Si se utiliza wdMove, se mueven ambos extremos del objeto de intervalo o selección al final de la unidad especificada. Si se utiliza wdExtend, se amplía el final del intervalo o de la selección al final de la unidad especificada. El valor predeterminado es wdMove.

Comentarios

Si las posiciones tanto inicial como final del intervalo o de la selección ya están al final de la unidad especificada, este método no mueve ni amplía el intervalo o la selección. Por ejemplo, si la selección está situada al final de un palabra y del espacio de la derecha, la siguiente instrucción no cambia la selección (char es igual a 0 (cero)).

char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)


Ejemplo del método EndOf

En este ejemplo se amplía la selección al final del párrafo.

charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend)

If charmoved = 0 Then MsgBox "Selección no cambiada"

En este ejemplo se mueve myRange al final de la primera palabra de la selección; es decir, a continuación del último espacio.

Set myRange = Selection.Characters(1)

myRange.EndOf Unit:=wdWord, Extend:=wdMove

En este ejemplo se agrega una tabla, se selecciona la primera celda de la fila dos y, a continuación, se amplía la selección al final de la columna.

Set myRange = ActiveDocument.Range(0, 0)

Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _

    NumRows:=5, NumColumns:=3)

myTable.Cell(2, 1).Select

Selección.EndOf Unit:=wdColumn, Extend:=wdExtend


Método Expand

Expande la selección o el intervalo especificado. Devuelve el número de caracteres que se haya agregado al intervalo o a la selección.

Sintaxis

expresión.Expand(Unit)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Unit   Variant opcional. Unidad mediante la cual se amplía el intervalo. Puede ser una de las siguientes constantes WdUnits: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow o wdTable. Si expresión representa un objeto Selection, wdLine también puede utilizarse.El valor predeterminado es wdWord.


Ejemplo del método Expand

En este ejemplo se crea un intervalo que hace referencia a la primera palabra del documento activo y, a continuación, se expande el intervalo, de forma que haga referencia al primer párrafo del documento.

Set myRange = ActiveDocument.Words(1)

myRange.Expand Unit:=wdParagraph

En este ejemplo se pone en mayúsculas el primer carácter de la selección y, a continuación, se expande la selección para que incluya la oración completa.

With Selection

    .Characters(1).Case = wdTitleSentence

    .Expand Unit:=wdSentence

End With


Método InRange

Devuelve el valor True si el intervalo o la selección al que se aplica el método se encuentran en el intervalo que especifica el argumento  Range.

Sintaxis

expresión.InRange(Range)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Range   Objeto Range requerido. Intervalo con el que se compara la expresión.

Comentarios

Este método determina si el intervalo o la selección que devuelve expresión está contenida en el Range especificado comparando las posiciones de carácter inicial y final, así como el tipo de contenido.


Ejemplo del método InRange

En este ejemplo se determina si la selección se encuentra en el primer párrafo del documento activo.

status = Selection.InRange(ActiveDocument.Paragraphs(1).Range)

En este ejemplo se establece el valor myRange con el mismo valor que el  de la primera palabra del documento activo. Si myRange no se encuentra en la selección, se selecciona.

Set myRange = ActiveDocument.Words(1)

If myRange.InRange(Selection.Range) = False Then myRange.Select

En este ejemplo se muestra un mensaje si la selección se encuentra en el contenido de la nota al pie.

If Selection.InRange(ActiveDocument.StoryRanges(wdFootnotesStory)) Then

    MsgBox "Selección de notas al pie"

End If


Método InsertBreak

Inserta un salto de página, de columna o de sección.

Sintaxis

expresión.InsertBreak(Type)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Type   Variant opcional. Tipo de salto que va a insertarse. Puede ser una de las siguientes constantes WdBreakType: wdPageBreak, wdColumnBreak, wdSectionBreakNextPage, wdSectionBreakContinuous, wdSectionBreakEvenPage, wdSectionBreakOddPage o wdLineBreak. El valor predeterminado es wdPageBreak.

Comentarios

Cuando inserta un salto de página o de columna, dicho salto sustituye al intervalo o a la selección. Si no desea sustituir el intervalo ni la selección, utilice el método Collapse antes de emplear este método. Cuando inserta un salto de sección, el salto se inserta inmediatamente antes del objeto Range o Selection.


Ejemplo del método InsertBreak

En este ejemplo se inserta un salto de sección continuo inmediatamente antes de la selección.

Selection.InsertBreak Type:=wdSectionBreakContinuous

En este ejemplo se inserta un salto de página inmediatamente a continuación del segundo párrafo del documento activo.

Set myRange = ActiveDocument.Paragraphs(2).Range

With myRange

    .Collapse Direction:=wdCollapseEnd

    .InsertBreak Type:=wdPageBreak

End With


Método InsertCaption

Inserta un título inmediatamente antes o después de la selección o del intervalo especificado.

Sintaxis

expresión.InsertCaption(Label, Title, TitleAutoText, Position)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Label   Variant requerida. Título que va a insertarse. Puede ser una cadena o una de las siguientes constantes WdCaptionLabelID: wdCaptionEquation, wdCaptionFigure o wdCaptionTable. Si aún no se ha definido la etiqueta, se produce un error. Use el método Add con el objeto CaptionLabels para definir nuevas etiquetas de título.

Title   Variant opcional. Cadena que va a insertarse inmediatamente a continuación de la etiqueta del título; se ignora si se especifica TitleAutoText.

TitleAutoText   Variant opcional. Elemento de Autotexto cuyo contenido desee insertar inmediatamente a continuación de la etiqueta del título; sobrescribe cualquier texto especificado por Title).

Position   Variant opcional. Especifica si se insertará el título sobre o debajo del objeto Selection o Range. Puede ser una de las siguientes constantes WdCaptionPosition: wdCaptionPositionAbove o wdCaptionPositionBelow.


Ejemplo del método InsertCaption

En este ejemplo se inserta un título debajo de la primera tabla del documento activo.

ActiveDocument.Tables(1).Range.InsertCaption Label:=wdCaptionTable, _

    Position:=wdCaptionPositionBelow

En este ejemplo se inserta un título de ilustración en el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

Selection.InsertCaption Label:="Ilustración", _

    Title:=": Resultados de ventas", Position:=wdCaptionPositionBelow


Método InsertFile

Inserta todo o parte del archivo especificado.

Sintaxis

expresión.InsertFile(FileName, Range, ConfirmConversions, Link, Attachment)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

FileName   String requerida. Ruta de acceso y nombre de archivo del archivo que se va a insertar. Si no especifica ninguna ruta de acceso, Word considerará que el archivo se encuentra en la carpeta correcta.

Range   Variant opcional. Si el archivo especificado es un documento de Word, este parámetro hace referencia a un marcador. Si el tipo de archivo es distinto, como por ejemplo una hoja de cálculo de Microsoft Excel, este parámetro hace referencia a un intervalo o a un rango de celda, por ejemplo R1C1:R3C4,.

ConfirmConversions   Variant opcional. True: para que Word le pida que confirme la conversión cuando inserte archivos en formatos distintos al formato de documento Word.

Link   Variant opcional. True: para insertar el archivo mediante un campo INCLUIRTEXTO.

Attachment   Variant optional. True para insertar el archivo como adjunto a un mensaje de WordMail.


Ejemplo del método InsertFile

En este ejemplo se utiliza un campo INCLUIRTEXTO para insertar el archivo PRUEBA.DOC en el punto de inserción.

Selection.Collapse Direction:=wdCollapseEnd

Selection.InsertFile FileName:="C:\PRUEBA.DOC", Link:=True

En este ejemplo se crea un nuevo documento y, a continuación, se inserta el contenido de cada archivo de texto en la carpeta C:\TMP en dicho documento.

Documents.Add

ChDir "C:\TMP"

myName = Dir("*.TXT")

While myName <> ""

    With Selection

        .InsertFile FileName:=myName, ConfirmConversions:=False

        .InsertParagraphAfter

        .InsertBreak Type:=wdSectionBreakNextPage

        .Collapse Direction:=wdCollapseEnd

    End With

    myName = Dir()

Wend


Método IsEqual

True: si la selección o el intervalo al que se aplica el método es igual al intervalo que especifica el argumento Range. Este método compara las posiciones de carácter inicial y final, así como el tipo de contenido. Si estos tres elementos son iguales para ambos objetos, los objetos son iguales.

Sintaxis

expresión.IsEqual(Range)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Range   Objeto Range requerido. Objeto Range que se compara con expresión.


Ejemplo del método IsEqual

En este ejemplo se compara la selección con el segundo párrafo del documento activo. Si la selección no es igual que el segundo párrafo, se selecciona este último.

If Selection.IsEqual(ActiveDocument.Paragraphs(2).Range) = False Then

    ActiveDocument.Paragraphs(2).Range.Select

End If

En este ejemplo se compara Range1 con Range2 para determinar si son iguales. Si es así, se elimina el contenido de Range1

Set Range1 = Selection.Words(1)

Set Range2 = ActiveDocument.Words(3)

If Range1.IsEqual(Range:=Range2) = True Then

    Range1.Delete

End If


Método MoveEnd

Mueve la posición de carácter final de un intervalo o de una sección. Este método devuelve un número entero que indica el número de unidades que ha movido realmente el intervalo o la selección, o bien devuelve un valor 0 (cero) si el movimiento no ha sido correcto.

Sintaxis

expresión.MoveEnd(Unit, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Unit   Variant opcional. Unidad mediante la que se mueve la posición de carácter final. Puede ser una de las siguientes constantes WdUnits: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow o wdTable. Si expresión devuelve un objeto Selection, también puede utilizarse wdLine. El valor predeterminado es wdCharacter.

Count   Variant opcional. Número de unidades que van a moverse. Si el número es positivo, la posición de carácter final avanza en el documento. Si es negativo, retrocede. Si la posición final sobrepasa la inicial, se contrae el intervalo y se mueven juntas las dos posiciones. El valor predeterminado es 1.


Ejemplo del método MoveEnd

En este ejemplo, el final de la selección se retrocede un carácter; el tamaño de la selección se reduce en un carácter. Los espacios se consideran como caracteres.

Selection.MoveEnd Unit:=wdCharacter, Count:=-1

En este ejemplo se mueve el final de la selección al final de la línea; es decir, la selección se amplía hasta el final de la línea.

Selection.MoveEnd Unit:=wdLine, Count:=1

En este ejemplo se establece el valor de myRange de forma que sea el mismo que el de la segunda palabra del documento activo. Se utiliza el método MoveEnd para que la posición final de myRange (objeto intervalo) avance una palabra. Después de ejecutar esta macro, se seleccionan la segunda y la tercera palabras del documento.

If ActiveDocument.Words.Count >= 3 Then

    Set myRange = ActiveDocument.Words(2)

    With myRange

        .MoveEnd Unit:=wdWord, Count:=1

        .Select

    End With

End If


Propiedad Outline

True: si el formato de fuente es contorno. Devuelve el valor True, False o wdUndefined, combinación de True y False. Su valor puede establecerse como True, False o wdToggle. Long de Lectura/Escritura.


Ejemplo de la propiedad Outline

En este ejemplo se aplica el formato de fuente de contorno a las tres primeras palabras del documento activo.

Set myRange = ActiveDocument.Range(Start:= _

    ActiveDocument.Words(1).Start, End:=ActiveDocument.Words(3).End)

myRange.Font.Outline = True

En este ejemplo se activa el formato de contorno del texto seleccionado.

Selection.Font.Outline = wdToggle

En este ejemplo se quita el formato de fuente de contorno de la selección si dicho formato se ha aplicado parcialmente a la fuente.

Set myFont = Selection.Font

If myFont.Outline = wdUndefined Then

    myFont.Outline = False

End If


Método Paste

Inserta el contenido del Portapapeles en la selección o en el intervalo especificado. Si no desea sustituir el contenido del intervalo o de la selección, utilice el método Collapse antes de emplear este método.

Sintaxis

expresión.Paste

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Comentarios

Cuando se utiliza este método con un objeto intervalo, el intervalo se amplía para incluir el contenido del Portapapeles. Cuando se utiliza este método con un objeto selección, la selección no se amplía para incluir el contenido del Portapapeles; en vez de ello, se sitúa a continuación de dicho contenido.


Ejemplo del método Paste

En este ejemplo se copia y se pega la primera tabla del documento activo en un nuevo documento.

If ActiveDocument.Tables.Count >= 1 Then

    ActiveDocument.Tables(1).Range.Copy

    Documents.Add.Content.Paste

End If

En este ejemplo se copia el primer párrafo del documento y se pega en el punto de inserción.

ActiveDocument.Paragraphs(1).Range.Copy

Selection.Collapse Direction:=wdCollapseStart

Selection.Paste

En este ejemplo se copia la selección y se pega al final del documento.

If Selection.Type <> wdSelectionIP Then

    Selection.Copy

    Set Range2 = ActiveDocument.Content

    Range2.Collapse Direction:=wdCollapseEnd

    Range2.Paste

End If


Propiedad Range

Devuelve un objeto Range que representa la parte de un documento contenida en el objeto especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un intervalo de un documento o de la devolución de un intervalo de formas de un conjunto de formas, consulte el método Range.


Ejemplo de la propiedad Range

En este ejemplo se aplica el estilo de Título 1 al primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Range.Style = wdStyleHeading1

En este ejemplo se copia la primera fila en la tabla uno.

If ActiveDocument.Tables.Count >= 1 Then _

    ActiveDocument.Tables(1).Rows(1).Range.Copy

En este ejemplo se cambia el texto del primer comentario del documento.

With ActiveDocument.Comments(1).Range

    .Delete

    .InsertBefore "texto del nuevo comentario"

End With

En este ejemplo se inserta el texto al final de la sección uno.

Set myRange = ActiveDocument.Sections(1).Range

With myRange

    .MoveEnd Unit:=wdCharacter, Count:=-1

    .Collapse Direction:=wdCollapseEnd

    .InsertParagraphAfter

    .InsertAfter "Fin de la sección"

End With


Método Relocate

En la vista Esquema, mueve los párrafos dentro del intervalo especificado a continuación del párrafo visible siguiente o delante del anterior. El título se mueve junto con el texto principal sólo si se contrae dicho texto en la vista Esquema o si forma parte del intervalo.

Sintaxis

expresión.Relocate(Direction)

expresión   Requerida. Expresión que devuelve un objeto Range.

Direction   Long requerida. Dirección del movimiento. Puede ser una de las siguientes constantes WdRelocate: wdRelocateUp o wdRelocateDown.


Ejemplo del método Relocate

En este ejemplo se mueven los párrafos tercero, cuarto y quinto del documento activo debajo del siguiente párrafo; es decir, el sexto.

theStart = ActiveDocument.Paragraphs(3).Range.Start

theEnd = ActiveDocument.Paragraphs(5).Range.End

Set myRange = ActiveDocument.Range(Start:=theStart, End:=theEnd)

ActiveWindow.View.Type = wdOutlineView

myRange.Relocate Direction:=wdRelocateDown

En este ejemplo se mueve el primer párrafo de la selección encima del párrafo anterior.

ActiveWindow.View.Type = wdOutlineView

Selection.Paragraphs(1).Range.Relocate Direction:=wdRelocateUp


Método SetRange

s

Establece las posiciones de carácter inicial y final del intervalo o de la selección.

Nota   Los valores de posición de carácter empiezan al principio del contenido, siendo el primer valor 0 (cero). Se cuentan todos los caracteres, incluidos los no imprimibles. Aunque no se muestren en pantalla, también se cuentan los caracteres ocultos.

Sintaxis

expresión.SetRange(Start, End)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Start   Long requerido. Posición del carácter inicial del intervalo o de la selección.

End   Long requerido. Posición del carácter final del intervalo o de la selección.

Comentarios

El método SetRange vuelve a definir las posiciones inicial y final de un objeto Selection o Range existente. Este método es distinto al método Range, que se utiliza para crear un intervalo, dadas las posiciones inicial y final.


Ejemplo del método SetRange

En este ejemplo se seleccionan los 10 primeros caracteres del documento.

Selection.SetRange Start:=0, End:=10

En este ejemplo se utiliza SetRange con el fin de volver a definir myRange para hacer referencia a los tres primeros párrafos del documento activo.

Set myRange = ActiveDocument.Paragraphs(1).Range

myRange.SetRange Start:=myRange.Start, _

    End:=ActiveDocument.Paragraphs(3).Range.End

En este ejemplo se utiliza SetRange con el fin de volver a definir myRange para hacer referencia al área que comienza al principio del documento y que termina al final de la selección actual.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)

myRange.InsertAfter "Hola "

myRange.SetRange Start:=myRange.Start, End:=Selection.End

En este ejemplo se amplía la selección al final del documento.

Selection.SetRange Start:=Selection.Start, _

    End:=ActiveDocument.Content.End


Propiedad Start

Devuelve o establece la posición del carácter inicial de una selección, intervalo o marcador. Long de Lectura/Escritura.

Nota   Si el valor de esta propiedad se establece como un valor superior al de la propiedad End, la propiedad End se establece con el mismo valor que el de la propiedad Start.

Comentarios

Los objetos Selection, Range y Bookmark tienen posiciones de carácter inicial y final. La posición inicial hace referencia a la posición de carácter más próxima al inicio del contenido.

Esta propiedad devuelve la posición del carácter inicial relativa al inicio del contenido. El contenido del texto principal (wdMainTextStory) empieza en la posición de carácter 0 (cero). Puede cambiar el tamaño de la selección, intervalo o marcador al establecer esta propiedad.


Ejemplo de la propiedad Start

En este ejemplo se devuelven la posición inicial del segundo párrafo y la posición final del cuarto párrafo del documento activo. Las posiciones de carácter se utilizan para crear el intervalo myRange.

pos = ActiveDocument.Paragraphs(2).Range.Start

pos2 = ActiveDocument.Paragraphs(4).Range.End

Set myRange = ActiveDocument.Range(Start:=pos, End:=pos2)

En este ejemplo se determina la longitud de la selección mediante la comparación de las posiciones de carácter inicial y final.

SelLength = Selection.End - Selection.Start

En este ejemplo se mueve la posición inicial de myRange un carácter a la derecha, lo que reduce el tamaño del intervalo en un carácter.

Set myRange = Selection.Range

myRange.SetRange Start:=myRange.Start + 1, End:=myRange.End


Propiedad StoryType

Devuelve el tipo de contenido del intervalo, la selección o el marcador especificado. Puede ser una de las siguientes constantes WdStoryType: wdCommentsStory, wdEndnotesStory, wdEvenPagesFooterStory, wdEvenPagesHeaderStory, wdFirstPageFooterStory, wdFirstPageHeaderStory, wdFootnotesStory, wdMainTextStory, wdPrimaryFooterStory, wdPrimaryHeaderStory o wdTextFrameStory. Long de sólo lectura.


Ejemplo de la propiedad StoryType

En este ejemplo se devuelve el tipo de contenido de la selección.

story = Selection.StoryType

En este ejemplo se cierra el panel de notas al pie si la selección forma parte del contenido de la nota al pie.

ActiveWindow.View.Type = wdNormalView

If Selection.StoryType = wdFootnotesStory Then _

    ActiveWindow.ActivePane.Close

En este ejemplo se selecciona el marcador denominado "temp" si el marcador forma parte del contenido principal del documento activo.

If ActiveDocument.Bookmarks.Exists("temp") = True Then

    Set myBookmark = ActiveDocument.Bookmarks("temp")

    If myBookmark.StoryType = wdMainTextStory Then myBookmark.Select

End If


Propiedad StoryLength

Devuelve el número de caracteres del contenido que contienen la selección o el intervalo especificado. Long de sólo lectura.


Ejemplo de la propiedad StoryLength

En este ejemplo se determina si el encabezado del documento activo está vacío. Si el contenido del encabezado no está vacío, un cuadro de mensaje muestra el contenido del mismo. Si está vacío, StoryLength devuelve 1 para la marca del párrafo final.

Set myRange = ActiveDocument.Sections(1) _

    .Headers(wdHeaderFooterPrimary).Range

If myRange.StoryLength > 1 Then MsgBox myRange.Text

En este ejemplo, si el documento está vacío, se cierra sin guardar los cambios.

If ActiveDocument.Content.StoryLength = 1 Then _

    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges


Propiedad Text

Objeto Range o Selection: devuelve o establece el texto de la selección o del intervalo especificado. String de Lectura/Escritura.

Objeto Find o Replacement: devuelve o establece el texto que va a buscarse o reemplazarse en la selección o en el intervalo especificado. String de Lectura/Escritura.

Comentarios

La propiedad Text devuelve el texto sin formato de la selección o del intervalo. Cuando se establece esta propiedad, se reemplaza el texto del intervalo o de la selección.


Ejemplo de la propiedad Text

En este ejemplo se muestra el texto de la selección. Si no hay nada seleccionado, se muestra el carácter inmediatamente posterior al punto de inserción.

MsgBox Selection.Text

En este ejemplo se reemplaza la primera palabra del documento activo por "Estimado".

Set myRange = ActiveDocument.Words(1)

myRange.Text = "Estimado "

En este ejemplo se insertan 10 líneas de texto en un nuevo documento.

Documents.Add

For i = 1 To 10

    Selection.Text = "Línea" & Str(i) & Chr(13)

    Selection.MoveDown Unit:=wdParagraph, Count:=1

Next i

En este ejemplo se reemplaza "Hola" por "Adiós" en el documento activo.

Set myRange = ActiveDocument.Content

With myRange.Find

    .ClearFormatting

    .Replacement.ClearFormatting

    .Text = "Hola"

    .Replacement.Text = "Adiós"

    .Execute Replace:=wdReplaceAll

End With


Método WholeStory

Amplía un intervalo o una selección para que incluya todo el contenido.

Sintaxis

expresión.WholeStory

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Comentarios

Las siguientes instrucciones, donde myRange es un objeto válido Range, son funcionalmente equivalentes:

myRange.WholeStory

myRange.Expand Unit:=wdStory


Ejemplo del método WholeStory

En este ejemplo se amplía myRange para que incluya todo el contenido y, a continuación, se aplica la fuente Arial al intervalo.

Set myRange = Selection.Range

myRange.WholeStory

myRange.Font.Name = "Arial"

En este ejemplo se amplía myRange para que incluya todo el contenido de los comentarios (wdCommentsStory) y, a continuación, se copian los comentarios a un nuevo documento.

If ActiveDocument.Comments.Count >= 1 Then

    Set myRange = Activedocument.Comments(1).Range

    myRange.WholeStory

    myRange.Copy

    Documents.Add.Content.Paste

End If


Propiedad Words

Devuelve un conjunto Words que representa todas las palabras de un intervalo, selección o documento. Es de sólo lectura.

Nota   En el conjunto Words se incluyen las marcas de puntuación y de párrafo de un documento.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Words

En este ejemplo se muestra el número de palabras de la selección. En el recuento se incluyen las marcas de párrafo, las palabras parciales y los signos de puntuación.

MsgBox "Hay " & Selection.Words.Count & " palabras."

En este ejemplo se examinan las palabras de myRange, desde el principio del documento activo hasta el final de la selección, y se elimina la palabra "Francisco", incluido el espacio final, cada vez que aparezca en el intervalo.

Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)

For Each aWord In myRange.Words

    If aWord.Text = "Francisco " Then aWord.Delete

Next aWord


Método StartOf

Mueve o amplía la posición de inicio del intervalo o de la selección especificados al comienzo de la unidad de texto especificada más próxima. Este método devuelve un valor que indica el número de caracteres que se ha movido o ampliado el intervalo o la selección. El método devuelve un número negativo si el movimiento es de retroceso en el documento.

Sintaxis

expresión.StartOf(Unit, Extend)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Unit   Variant opcional. Unidad por la que se moverá la posición de inicio del intervalo o de la selección especificados. Puede ser una de las siguientes constantes WdUnits: wdCell, wdCharacter, wdColumn, wdParagraph, wdRow, wdSection, wdSentence, wdStory, wdTable o wdWord. Si expresión devuelve un objeto Selection, también puede utilizarse wdLine. El valor predeterminado es wdWord.

Extend   Variant opcional. Puede ser una de las siguientes constantes WdMovementType: wdMove o wdExtend. Si se utiliza wdMove, ambos extremos del intervalo o de la selección se mueven al principio de la unidad especificada. Si se utiliza wdExtend, el comienzo del intervalo o de la selección se amplía hasta el principio de la unidad especificada. El valor predeterminado es wdMove.

Comentarios

Si la posición inicial del intervalo o de la selección especificados ya se encuentra al principio de la unidad especificada, este método no mueve ni amplía el intervalo ni la selección. Por ejemplo, si la selección está situada al principio de una línea, el siguiente ejemplo devuelve 0 (cero) y no cambia la selección.

carácter = Selection.StartOf(Unit:=wdLine, Extend:=wdMove)


Ejemplo del método StartOf

En este ejemplo, se selecciona el texto desde el punto de inserción hasta el principio de la línea. El número de caracteres seleccionado se guarda en carácMovido.

Selection.Collapse Direction:=wdCollapseStart

carácMovido = Selection.StartOf(Unit:=wdLine, Extend:=wdExtend)

En este ejemplo, se mueve miIntervalo al principio de la segunda oración del documento (miIntervalo se contrae y se sitúa al principio de la segunda oración). En este ejemplo, se utiliza el método Select para mostrar la ubicación de miIntervalo.

Set miIntervalo = ActiveDocument.Sentences(2)

miIntervalo.StartOf Unit:=wdSentence, Extend:=wdMove

miIntervalo.Select

En este ejemplo, se mueve la selección al principio del párrafo.

Selection.StartOf Unit:=wdParagraph, Extend:=wdMove


Método InsertDatabase

Recupera datos de un origen de datos; por ejemplo, un documento de Word diferente, una hoja de cálculo de Microsoft Excel o una base de datos de Microsoft Access, e inserta los datos como tabla en el lugar del intervalo especificado.

Sintaxis

expresión.InsertDatabase(Format, Style, LinkToSource, Connection, SQLStatement, SQLStatement1, PasswordDocument, PasswordTemplate, WritePasswordDocument, WritePasswordTemplate, DataSource, From, To, IncludeFields)

expresión   Requerida. Expresión que devuelve un objeto Range.

Format   Variant opcional. Formato incluido en el cuadro Formatos, del cuadro de diálogo Autoformato de tablas (menú Tabla). Puede ser una de las siguientes constantes WdTableFormat. De forma predeterminada se aplica un borde a las celdas de la tabla.

Style   Variant opcional. Atributos del Autoformato especificado por Format que se aplican a la tabla. Utilice la suma de cualquier combinación de los siguientes valores:

Valor	Significado
0 (cero)	Ninguno
1	Bordes
2	Sombreado
4	Fuente
8	Color
16	Autoajuste
32	Filas de encabezado
64	Última fila
128	Primera columna
256	Última columna
LinkToSource   Variant opcional. True para establecer un vínculo entre la nueva tabla y el origen de datos.

Connection   Variant opcional. Intervalo en el que va a ejecutarse la consulta especificada por SQLStatement. La forma en que se especifica el intervalo dependerá de la forma de recuperación de los datos. Por ejemplo:

•	Al recuperar datos a través de ODBC, sólo Windows, se especifica una cadena de conexión.

•	Al recuperar datos de Microsoft Excel mediante el intercambio dinámico de datos (DDE), se especifica un intervalo con nombre o "Toda la hoja de cálculo".

•	Al recuperar datos de Microsoft Access, sólo Windows, se especifica la palabra "Tabla" o "Consulta" seguido del nombre de una tabla o consulta.

SQLStatement   String opcional. Cadena de consulta opcional que recupera un subconjunto de datos de un origen de datos principal que se insertará en el documento (sólo Windows).

SQLStatement1   String opcional. Si la cadena de la consulta tiene más de 255 caracteres, SQLStatement indica la primera parte de la cadena y SQLStatement1 la segunda (sólo Windows).

PasswordDocument   Variant opcional. Contraseña, si la hay, necesaria para abrir el origen de datos.

PasswordTemplate   Variant opcional. Si el origen de datos es un documento de Word, este argumento es la contraseña, si la hay, necesaria para abrir la plantilla adjunta.

WritePasswordDocument   Variant opcional. Contraseña necesaria para guardar los cambios del documento.

WritePasswordTemplate   Variant opcional. Contraseña necesaria para guardar los cambios de la plantilla.

DataSource   Variant opcional. Ruta de acceso y nombre de archivo del origen de datos.

From   Variant opcional. Número del primer registro de datos del intervalo de registros a insertar.

To   Variant opcional. Número del último registro de datos del intervalo de registros a insertar.

IncludeFields   Variant opcional. True para incluir nombres de campo del origen de datos en la primera fila de la nueva tabla.


Ejemplo del método InsertDatabase

En este ejemplo, se inserta una hoja de cálculo de Microsoft Excel denominada "Datos.xls" después de la selección. El valor Style (191) es una combinación de los números 1, 2, 4, 8, 16, 32 y 128.

With Selection

    .Collapse Direction:=wdCollapseEnd

    .Range.InsertDatabase Format:=wdTableFormatSimple2, Style:=191, _

        LinkToSource:=False, Connection:="Toda la hoja de cálculo", _

        DataSource:="C:\MSOffice\Excel\Datos.xls"

End With


Método MoveEndWhile

Mueve la posición de carácter final de un intervalo o de una selección siempre que se encuentre en el documento alguno de los caracteres especificados.

Comentarios

Mientras se encuentre cualquier carácter de Cset, se moverá la posición final del intervalo o la selección especificados. Este método devuelve, como valor Long, el número de caracteres que se haya movido o ampliado la posición final del intervalo o la selección. Si no se encuentran caracteres Cset, no se mueve el intervalo ni la selección y el método devuelve 0 (cero). Si la posición final se mueve hacia atrás a un punto anterior a la posición de inicio original, esta posición se establece en la nueva posición final.

Sintaxis

expresión.MoveEndWhile(Cset, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Cset   Variant requerido. Uno o más caracteres. Este argumento diferencia entre mayúsculas y minúsculas.

Count   Variant opcional. Número máximo de caracteres que se moverá el intervalo o la selección. Puede ser un número o la constante wdForward o wdBackward. Si Count es un número positivo, el intervalo o la selección se mueve hacia adelante en el documento. Si es un número negativo, el intervalo o la selección se mueve hacia atrás. El valor predeterminado es wdForward.


Ejemplo del método MoveEndWhile

En este ejemplo, se mueve hacia adelante la posición final de la selección siempre que se encuentre el carácter espacio en blanco.

Selection.MoveEndWhile Cset:=" ", Count:=wdForward

En este ejemplo, se mueve hacia adelante la posición final de la selección mientras el valor de Count sea menor o igual a 10 y esté comprendido entre cualquier letra entre la "a" y la "h".

Selection.MoveEndWhile Cset:="abcdefgh", Count:=10


Método MoveStartWhile

Mueve la posición de inicio del intervalo o de la selección especificados siempre que se encuentre en el documento alguno de los caracteres especificados.

Comentarios

Mientras se encuentre cualquier carácter de Cset, se moverá la posición de inicio del intervalo o de la selección. Este método devuelve, como valor Long, el número de caracteres que se haya movido o ampliado la posición de inicio del intervalo o de la selección. Si no se encuentran caracteres Cset, el intervalo o la selección no se mueve y el método devuelve 0 (cero). Si la posición de inicio se mueve hacia adelante a un punto posterior a la posición final original, esta posición se establece en la nueva posición de inicio.

Sintaxis

expresión.MoveStartWhile(Cset, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Cset   Variant requerido. Uno o más caracteres.Este argumento diferencia entre mayúsculas y minúsculas.

Count   Variant opcional. Número máximo de caracteres que se moverá el intervalo o la selección especificados. Puede ser un número o la constante wdForward o wdBackward. Si Count es un número positivo, el intervalo o la selección se mueve hacia adelante en el documento. Si es un número negativo, el intervalo o la selección se mueve hacia atrás. El valor predeterminado es wdForward.


Ejemplo del método MoveStartWhile

En este ejemplo, se mueve hacia atrás la posición de inicio de la selección  siempre que se encuentre el carácter espacio en blanco.

Selection.MoveStartWhile Cset:=" ", Count:=wdBackward

En este ejemplo, se mueve hacia atrás en el documento la posición de inicio de la selección mientras el valor de Count sea menor o igual a 10 y esté comprendido entre cualquier letra entre  "a" y la "h".

Selection.MoveStartWhile Cset:="abcdefgh", Count:=-10


Método MoveEndUntil

Mueve la posición final del intervalo o la selección especificados hasta que se encuentre en el documento alguno de los caracteres especificados. Si el movimiento se realiza hacia adelante, el intervalo o la selección se expande.

Comentarios

Este método devuelve, como valor Long, el número de caracteres que se haya movido la posición final del intervalo o de la selección especificados. Si el valor de Count es mayor que 0 (cero), este método devuelve el número de caracteres movidos más 1. Si su valor es menor que 0 (cero), devuelve el número de caracteres movidos menos 1. Si no se encuentran caracteres Cset, el intervalo o la selección no se mueve y el método devuelve 0 (cero). Si la posición final se mueve hacia atrás a un punto anterior a la posición de inicio original, esta posición se establece en la nueva posición final.

Sintaxis

expresión.MoveEndUntil(Cset, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Cset   Variant requerido. Uno o más caracteres. Este argumento diferencia entre mayúsculas y minúsculas.

Count   Variant opcional. Número máximo de caracteres que se moverá el intervalo o la selección especificados. Puede ser un número o la constante wdForward o wdBackward. Si Count es un número positivo, el intervalo o la selección se mueve hacia adelante en el documento. Si es un número negativo, el intervalo o la selección se mueve hacia atrás. El valor predeterminado es wdForward.


Ejemplo del método MoveEndUntil

En este ejemplo, se extiende la selección hacia adelante en el documento hasta que se encuentre la letra "a". A continuación, en este ejemplo, se expande la selección un carácter para que incluya la letra "a".

With Selection

    .MoveEndUntil Cset:="a", Count:=wdForward

    .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

End With

En este ejemplo, se extiende la selección hacia adelante en el documento hasta que se encuentre una tabulación. Si en los siguientes 100 caracteres no se encuentra ninguna tabulación, la selección no se mueve.

carácter = Selection.MoveEndUntil(Cset:=vbTab, Count:=100)

If carácter = 0 Then StatusBar = "La selección no se ha movido"


Método MoveWhile

Mueve el intervalo o la selección especificados siempre que se encuentre en el documento alguno de los caracteres especificados.

Comentarios

Mientras se encuentre cualquier carácter de Cset, se moverá el intervalo o la selección especificados. El objeto Range o Selection resultante se sitúa como punto de inserción después de los caracteres Cset encontrados. Este método devuelve, como valor Long, el número de caracteres que se haya movido el intervalo o la selección especificados. Si no se encuentran caracteres Cset, el intervalo o la selección no se mueve y el método devuelve 0 (cero).

Sintaxis

expresión.MoveWhile(Cset, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Cset   Variant requerido. Uno o más caracteres. Este argumento diferencia entre mayúsculas y minúsculas.

Count   Variant opcional. Número máximo de caracteres que se moverá el intervalo o la selección especificados. Puede ser un número o la constante wdForward o wdBackward. Si Count es un número positivo, el intervalo o la selección especificados se mueven hacia adelante en el documento, comenzando en la posición final. Si es un número negativo, el intervalo o la selección se mueve hacia atrás, comenzando en la posición de inicio. El valor predeterminado es wdForward.


Ejemplo del método MoveWhile

En este ejemplo, se mueve la selección después de tres tabulaciones consecutivas.

Selection.MoveWhile Cset:=vbTab, Count:=wdForward

En este ejemplo, se mueve unIntervalo siempre que se encuentre una de las siguientes letras (mayúsculas o minúsculas): "a", "t" o "i".

Set unIntervalo = ActiveDocument.Characters(1)

unIntervalo.MoveWhile Cset:="atiATI", Count:=wdForward


Método MoveStart

Mueve la posición de inicio del intervalo o de la selección especificados. Este método devuelve un número entero que indica el número de unidades que se ha movido realmente la posición de inicio del intervalo o de la selección, o bien devuelve 0 (cero) si el movimiento no ha sido correcto.

Sintaxis

expresión.MoveStart(Unit, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Unit   Variant opcional. Unidad por la que se moverá la posición de inicio del intervalo o de la selección especificados. Puede ser una de las siguientes constantes WdUnits: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow o wdTable. Si expresión devuelve un objeto Selection, también puede utilizarse wdLine. El valor predeterminado es wdCharacter.

Count   Variant opcional. Número máximo de unidades que se moverá el intervalo o la selección especificados. Si Count es un número positivo, la posición de inicio del intervalo o de la selección especificados se mueve hacia adelante en el documento. Si es un número negativo, la posición de inicio se mueve hacia atrás. Si la posición de inicio se mueve hacia adelante a una posición posterior a la posición final, el intervalo o la selección se contrae y las posiciones de inicio y final se mueven juntas. El valor predeterminado es 1.


Ejemplo del método MoveStart

En este ejemplo, se mueve hacia adelante un carácter la posición de inicio de la selección, cuyo tamaño se reduce en un carácter. Tenga en cuenta que se considera un carácter un espacio.

Selection.MoveStart Unit:=wdCharacter, Count:=1

En este ejemplo, se mueve la posición de inicio de la selección al principio de la línea; es decir, la selección se extiende hasta el principio de la línea.

Selection.MoveStart Unit:=wdLine, Count:=-1

En este ejemplo, se establece que el valor de miIntervalo sea igual a la segunda palabra del documento activo. El ejemplo utiliza el método MoveStart para mover una palabra hacia atrás la posición de inicio de miIntervalo (objeto Range). Después de ejecutar esta macro, se seleccionan la primera palabra y la segunda del documento.

If ActiveDocument.Words.Count >= 2 Then

    Set miIntervalo = ActiveDocument.Words(2)

    With miIntervalo

        .MoveStart Unit:=wdWord, Count:=-1

        .Select

    End With

End If


Método MoveStartUntil

Mueve la posición de inicio del intervalo o la selección especificados hasta que se encuentre en el documento alguno de los caracteres especificados. Si el movimiento se realiza hacia atrás, el intervalo o la selección se expande.

Comentarios

Este método devuelve, como valor Long, el número de caracteres que se haya movido la posición de inicio del intervalo o la selección especificados.Si el valor de Count es mayor que 0 (cero), este método devuelve el número de caracteres movidos más 1. Si su valor es menor que 0 (cero), devuelve el número de caracteres movidos menos 1.Si no se encuentran caracteres Cset, el intervalo o la selección no se mueve y el método devuelve 0 (cero).Si la posición de inicio se mueve hacia adelante a una posición posterior a la posición final, el intervalo o la selección se contrae y las posiciones de inicio y final se mueven juntas.

Sintaxis

expresión.MoveStartUntil(Cset, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Cset   Variant requerido. Uno o más caracteres. Uno o más caracteres. Este argumento diferencia entre mayúsculas y minúsculas.

Count   Variant opcional. Número máximo de caracteres que se moverá el intervalo o la selección especificados. Puede ser un número o la constante wdForward o wdBackward. Si Count es un número positivo, el intervalo o la selección se mueve hacia adelante en el documento. Si es un número negativo, el intervalo o la selección se mueve hacia atrás. El valor predeterminado es wdForward.


Ejemplo del método MoveStartUntil

En este ejemplo, se extiende la selección hacia atrás hasta que se encuentre una letra "I" mayúscula.

Selection.MoveStartUntil Cset:="I", Count:=wdBackward

Si en el primer párrafo de la selección aparece el signo de dólar ($), en este ejemplo se mueve miIntervalo justo adelante del signo.

Set miIntervalo = Selection.Paragraphs(1).Range

longit = miIntervalo.End - miIntervalo.Start

miIntervalo.Collapse Direction:=wdCollapseStart

miIntervalo.MoveStartUntil Cset:="$", Count:=longit


Método MoveUntil

Mueve el intervalo o la selección especificados hasta que se encuentre en el documento uno de los caracteres especificados.

Comentarios

Este método devuelve, como valor Long, el número de caracteres que se haya movido el intervalo o la selección especificados. Si Count es mayor que 0 (cero), este método devuelve el número de caracteres movido más 1. Si Count es menor que 0 (cero), devuelve el número de caracteres movido menos 1. Si no se encuentran caracteres Cset el intervalo o la selección no cambia y el método devuelve 0 (cero).

Sintaxis

expresión.MoveUntil(Cset, Count)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Cset   Variant requerido. Uno o más caracteres. Si se encuentra cualquier carácter de Cset antes de llegar al valor de Count, el intervalo o la selección especificados se sitúa, como punto de inserción, inmediatamente adelante de dicho carácter.Uno o más caracteres. Este argumento diferencia entre mayúsculas y minúsculas.

Count   Variant opcional. Número máximo de caracteres que se moverá el intervalo o la selección especificados. Puede ser un número o la constante wdForward o wdBackward. Si Count es un número positivo, el intervalo o la selección se mueve hacia adelante en el documento, comenzando en la posición final. Si es un número negativo, el intervalo o la selección se mueve hacia atrás, comenzando en la posición de inicio. El valor predeterminado es wdForward.


Ejemplo del método MoveUntil

En este ejemplo, se mueve miIntervalo hacia adelante en el documento 100 caracteres, hasta que se encuentre el carácter "t".

Set miIntervalo = ActiveDocument.Words(1)

miIntervalo.MoveUntil Cset:="t", Count:=100

En este ejemplo, se mueve la selección hacia adelante hasta el final del párrafo activo y, a continuación, se muestra el número de caracteres que se haya movido la selección.

x = Selection.MoveUntil(Cset:=Chr$(13), Count:=wdForward)

MsgBox x-1 & " caracteres movidos"


Propiedad Flags

Devuelve o establece las propiedades de la selección. Puede establecerse en una de las siguientes constantes WdSelectionFlags: wdSelActive, wdSelAtEOL, wdSelOvertype, wdSelReplace o wdSelStartActive.El valor de retorno de la propiedad Flags es la suma de las constantes WdSelectionFlags que se aplican a la selección. Long de Lectura/Escritura.

Nota   La función de la constante wdSelAtEOL equivale a la propiedad IPAtEndOfLine.


Ejemplo de la propiedad Flags

En este ejemplo, se selecciona la primera palabra del documento activo. El primer cuadro de mensaje muestra "False" ya que el final de la selección está activo. La propiedad Flags activa el principio de la selección y el segundo cuadro de mensaje muestra "True."

ActiveDocument.Words(1).Select

MsgBox Selection.StartIsActive

Selection.Flags = wdSelStartActive

MsgBox Selection.StartIsActive

En este ejemplo, se activa el modo sobrescribir de la selección.

Selection.Flags = wdSelOvertype


Propiedad StartIsActive

True si el principio de la selección está activo. El final activo de la selección se mueve al presionar la combinación MAYÚS+flecha de dirección. Boolean de Lectura/Escritura.


Ejemplo de la propiedad StartIsActive

En este ejemplo, se selecciona la primera palabra del documento activo. El cuadro de mensaje muestra "False" ya que el final de la selección está activo.

ActiveDocument.Words(1).Select

MsgBox Selection.StartIsActive

En este ejemplo, se contrae la selección y selecciona la palabra anterior. El cuadro de mensaje muestra "True" ya que el principio de la selección está activo.

Selection.Collapse Direction:=wdCollapseStart

Selection.MoveLeft Unit:=wdWord, Extend:=wdExtend

MsgBox Selection.StartIsActive


Método Move

Objeto Range o Selection: contrae el intervalo o la selección especificados hasta la posición de inicio o final y, a continuación, mueve el objeto contraído el número de unidades especificado. Este método devuelve un valor que indica el número de unidades que se haya movido realmente el intervalo o la selección, o bien devuelve 0 (cero) si el movimiento no ha sido correcto.

Objeto Application o Task: coloca una ventana de tareas o la ventana de aplicación de Word.

Sintaxis 1

expresión.Move(Unit, Count)

Sintaxis 2

expresión.Move(Left, Top)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection, sintaxis 1, o un objeto Application o Task, sintaxis 2.

Unit   Variant opcional. Unidad por la que se moverá la selección o el intervalo contraído. Puede ser una de las siguientes constantes WdUnits: wdCharacter, wdWord, wdSentence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow o wdTable. Si expresión devuelve un objeto Selection, también puede utilizarse wdLine. El valor predeterminado es wdCharacter.

Count   Variant opcional. Número de unidades que se moverá el intervalo o la selección especificados. Si Count es un número positivo, el objeto se contrae hasta su posición final y se mueve hacia adelante en el documento el número de unidades especificado. Si Count es un número negativo, el objeto se contrae hasta su posición de inicio y se mueve hacia atrás el número de unidades especificado. El valor predeterminado es 1. También puede controlar la dirección de contracción utilizando el método Collapse antes de utilizar el método Move.

Si el intervalo o la selección está en la mitad de una unidad o no está contraído, al moverlo al principio o al final de la unidad se cuenta como si se moviese una unidad completa.

Left   Long requerido. Posición horizontal en pantalla de la ventana especificada.

Top   Long requerido. Posición vertical en pantalla de la ventana especificada.

Comentarios

La posición de inicio y final de una selección o de un intervalo contraído es la misma.

Al aplicar el método Move a un rango no se reorganiza el texto del documento. En cambio, define de nuevo el intervalo para referirlo a una nueva ubicación del documento.

Si aplica el método Move a un intervalo que no sea una variable Range; por ejemplo, Selection.Paragraphs(3).Range.Move, el método no tiene efecto.

Al mover un objeto Selection se contrae la selección y el punto de inserción se mueve hacia adelante o hacia atrás en el documento.


Ejemplo del método Move

En este ejemplo, se mueve la selección dos palabras a la derecha y se coloca el punto de inserción detrás del espacio final de la segunda palabra. Si el movimiento no ha sido correcto, un cuadro de mensaje indicará que la selección se encuentra al final del documento.

If Selection.StoryType = wdMainTextStory Then

    pUnidades = Selection.Move(Unit:=wdWord, Count:=2)

    If pUnidades < 2 Then MsgBox "La selección está al final del documento"

End If

En este ejemplo, se establece que Intervalo1 sea el primer párrafo del documento activo y, a continuación, se mueve el intervalo hacia adelante tres párrafos. Después de ejecutar esta macro, el punto de inserción se coloca al principio del cuarto párrafo.

Set Intervalo1 = ActiveDocument.Paragraphs(1).Range

With Intervalo1

    .Collapse Direction:=wdCollapseStart

    .Move Unit:=wdParagraph, Count:=3

    .Select

End With

En este ejemplo, se mueve la selección hacia adelante tres celdas de la tabla.

If Selection.Information(wdWithInTable) = True Then

    Selection.Move Unit:=wdCell, Count:=3

End If

En este ejemplo, se inicia la aplicación Calculadora (Calc.exe) y se utiliza el método Move para colocar de nuevo la ventana de aplicación.

Shell "Calc.exe"

With Tasks("Calculadora")

    .WindowState = wdWindowStateNormal

    .Move Top:=50, Left:=50

End With


Método InsertDateTime

Inserta la fecha o la hora actual, o ambas, como texto o como campo HORA.

Sintaxis

expresión.InsertDateTime(DateTimeFormat, InsertAsField, InsertAsFullWidth)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

DateTimeFormat   Variant opcional. Formato utilizado para mostrar la fecha, la hora o ambas. Si se omite este argumento, Word utiliza el estilo de fecha corto del Panel de control de Windows (icono Configuración regional).

InsertAsField   Variant opcional. True para insertar la información especificada como campo HORA. El valor predeterminado es True.

InsertAsFullWidth   Variant opcional. No se utiliza en la versión inglesa de EE.UU. de Microsoft Word.


Ejemplo del método InsertDateTime

En este ejemplo, se inserta un campo HORA para la fecha actual. Un resultado podría ser "18 de Noviembre de 1996".

Selection.InsertDateTime DateTimeFormat:="dd, MMMM, aaaa", _

    InsertAsField:=True

En este ejemplo, se inserta la fecha actual al final del documento activo. Un resultado podría ser "12/01/97".

With ActiveDocument.Content

    .Collapse Direction:=wdCollapseEnd

    .InsertDateTime DateTimeFormat:="dd/ MM/aa", InsertAsField:=False

End With

En este ejemplo, se inserta un campo HORA para la fecha actual en el pie de página del documento activo.

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range _

    .InsertDateTime DateTimeFormat:="dd MMMM, aaaa", _

    InsertAsField:=True


Propiedad FormattedText

Devuelve o establece un objeto Range que contiene el texto con formato del intervalo o la selección especificados. Lectura/Escritura.

Comentarios

Esta propiedad devuelve un objeto Range con el formato de carácter y el texto del intervalo o la selección especificados. Si en el intervalo o la selección existe una marca de párrafo, el objeto Range contiene el formato de párrafo.

Al establecer esta propiedad se reemplaza el texto del intervalo por texto con formato. Si no desea reemplazar el texto existente, utilice el método Collapse antes de utilizar esta propiedad, consulte el primer ejemplo.


Ejemplo de la propiedad FormattedText

En este ejemplo, se copia el primer párrafo del documento, incluido el formato, y se inserta el texto con formato en el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

Selection.FormattedText = ActiveDocument.Paragraphs(1).Range

En este ejemplo, se copia el texto y el formato de la selección en un documento nuevo.

Set miIntervalo = Selection.FormattedText

Documents.Add.Content.FormattedText = miIntervalo


Método GoToNext

Objeto Range o Selection: devuelve un objeto Range que indica la posición de inicio del siguiente elemento o la ubicación especificada por el argumento What. Si aplica este método al objeto Selection, la selección se mueve al elemento especificado, excepto para las constantes wdGoToGrammaticalError, wdGoToProofreadingError y wdGoToSpellingError.

Nota   Al utilizar este método con la constante wdGoToGrammaticalError, wdGoToProofreadingError o wdGoToSpellingError, el objeto Range devuelto incluye los errores ortográficos o gramaticales.

Objeto MailMessage: muestra el siguiente mensaje de correo si está disponible WordMail.

Sintaxis 1

expresión.GoToNext(What)

Sintaxis 2

expresión.GoToNext

expresión   Requerida. Expresión que devuelve un objeto Range o Selection, sintaxis 1, o un objeto MailMessage, sintaxis 2.

What   Long requerido. Elemento al que se moverá el intervalo o la selección especificados. Puede ser una de las siguientes constantes WdGoToItem: wdGoToBookmark, wdGoToComment, wdGoToEndnote, wdGoToEquation, wdGoToField, wdGoToFootnote, wdGoToGrammaticalError, wdGoToGraphic, wdGoToHeading, wdGoToLine, wdGoToObject, wdGoToPage, wdGoToPercent, wdGoToProofreadingError, wdGoToSection, wdGoToSpellingError o wdGoToTable.


Ejemplo del método GoToNext

En este ejemplo, se agrega un marcador en la parte superior de la página 2 del documento activo.

Set miIntervalo = ActiveDocument.Words(1).GoToNext(What:=wdGoToPage)

ActiveDocument.Bookmarks.Add Name:="Página2", Range:=miIntervalo

En este ejemplo, se mueve al siguiente campo que se selecciona.

With Selection

    Set miIntervalo = .GoToNext(What:=wdGoToField)

        .MoveRight Unit:=wdWord, Extend:=wdExtend

        .Fields(1).Select

End With


Método GoToPrevious

Objeto Range o Selection: devuelve un objeto Range que indica la posición de inicio del elemento anterior o la ubicación especificada por el argumento What. Si se aplica a un objeto Selection, GoToPrevious mueve la selección al elemento especificado.

Objeto MailMessage: muestra el mensaje de correo anterior si está disponible WordMail.

Sintaxis 1

expresión.GoToPrevious(What)

Sintaxis 2

expresión.GoToPrevious

expresión   Requerida. Expresión que devuelve un objeto Range o Selection, sintaxis 1, o un objeto MailMessage, sintaxis 2.

What   Long requerido. Elemento al que se moverá el intervalo o la selección especificados. Puede ser una de las siguientes constantes WdGoToItem: wdGoToBookmark, wdGoToComment, wdGoToEndnote, wdGoToEquation, wdGoToField, wdGoToFootnote, wdGoToGrammaticalError, wdGoToGraphic, wdGoToHeading, wdGoToLine, wdGoToObject, wdGoToPage, wdGoToPercent, wdGoToProofreadingError, wdGoToSection, wdGoToSpellingError o wdGoToTable.


Ejemplo del método GoToPrevious

En este ejemplo, se selecciona el campo anterior del documento activo.

Selection.GoToPrevious What:=wdGoToField

En este ejemplo, se crea un intervalo que hace referencia al último marcador de referencia de nota al pie del documento activo.

Set miIntervalo = ActiveDocument.Words.Last.GoToPrevious(What:=wdGoToFootnote)

miIntervalo.Expand Unit:=wdCharacter


Método CopyAsPicture

En Macintosh, este método copia el intervalo o la selección especificados al Portapapeles como imagen. En Windows, CopyAsPicture funciona igual que el método Copy.

Sintaxis

expresión.CopyAsPicture

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.


Ejemplo del método CopyAsPicture

En Macintosh, en este ejemplo se copia el primer párrafo del documento activo al Portapapeles como imagen y, a continuación, se pega la imagen en el siguiente documento.

ActiveDocument.Paragraphs(1).Range.CopyAsPicture

If Documents.Count >= 2 Then

    Documents(2).Activate

    ActiveDocument.Content.Paste

End If


Método InsertSymbol

Inserta un símbolo en lugar del intervalo o la selección especificados.

Nota   Si no desea reemplazar el intervalo o la selección, utilice el método Collapse antes de utilizar este método.

Sintaxis

expresión.InsertSymbol(CharacterNumber, Font, Unicode)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

CharacterNumber   Long requerido. Número de carácter del símbolo especificado. Este valor siempre será la suma de 31 y el número que corresponda a la posición del símbolo en la tabla de símbolos, contando de izquierda a derecha. Por ejemplo, para especificar un símbolo delta en la posición 37 de la tabla de símbolos de la fuente Símbolo, establezca el valor de CharacterNumber en 68.

Font   Variant opcional. Nombre de la fuente que contiene el símbolo.

Unicode   Variant opcional. True para insertar el carácter unicode especificado por CharacterNumber; False para insertar el carácter ANSI especificado por CharacterNumber. El valor predeterminado es False.


Ejemplo del método InsertSymbol

En este ejemplo, se inserta una flecha de doble punta en el punto de inserción.

With Selection

    .Collapse Direction:=wdCollapseStart

    .InsertSymbol CharacterNumber:=171, Font:="Symbol", Unicode:=False

End With

En este ejemplo, se inserta una viñeta y una tabulación al principio del primer párrafo de la selección.

Set miIntervalo = Selection.Paragraphs(1).Range

With miIntervalo

    .Collapse Direction:=wdCollapseStart

    .InsertSymbol CharacterNumber:=183, Font:="Symbol", Unicode:=False

    .MoveStart Unit:=wdCharacter, Count:=1

    .InsertAfter vbTab

End With


Método PasteSpecial

Inserta el contenido del Portapapeles. A diferencia del método Paste, con PasteSpecial puede controlar el formato de la información pegada y, opcionalmente, establecer un vínculo con el archivo de origen, por ejemplo, una hoja de cálculo de Microsoft Excel.

Nota   Si no desea reemplazar el contenido del intervalo o la selección, utilice el método Collapse antes de utilizar este método. Al utilizar este método, el intervalo o la selección no se expande para incluir el contenido del Portapapeles.

Sintaxis

expresión.PasteSpecial(IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

IconIndex   Variant opcional. Si el valor de DisplayAsIcon es True, este argumento es un número que corresponde al icono que desee utilizar en el archivo de programa especificado por IconFilename. Los iconos aparecen en el cuadro de diálogo Cambiar icono (menú Insertar, comando Objeto, ficha Crear nuevo): 0 (cero) corresponde al primer icono, 1 corresponde al segundo icono, etc. Si se omite este argumento, se utilizará el primer icono (valor predeterminado). En Macintosh, este argumento se omite y, por tanto, no es posible cambiar los iconos de objetos incrustados.

Link   Variant opcional. True para crear un vínculo con el archivo de origen del contenido del Portapapeles. El valor predeterminado es False.

Placement   Variant opcional. Puede ser una de las siguientes constantes WdOLEPlacement: wdFloatOverText o wdInLine. El valor predeterminado es wdInLine.

DisplayAsIcon   Variant opcional. True para mostrar el vínculo como icono. El valor predeterminado es False.

DataType   Variant opcional. Formato del contenido del Portapapeles cuando se inserta en el documento. Puede ser una de las siguientes constantes WdPasteDataType: wdPasteBitmap, wdPasteDeviceIndependentBitmap, wdPasteEnhancedMetafile, wdPasteHyperlink, wdPasteMetafilePicture, wdPasteOLEObject, wdPasteRTF, wdPasteShape o wdPasteText. El formato predeterminado varía según el contenido del Portapapeles.

IconFileName   Variant opcional. Si DisplayAsIcon es True, este argumento es la ruta de acceso y el nombre del archivo en que se guardará el icono que va a mostrarse.

IconLabel   Variant opcional. Si el valor de DisplayAsIcon es True, este argumento corresponde al texto que aparece bajo el icono.


Ejemplo del método PasteSpecial

En este ejemplo, se inserta el contenido del Portapapeles en el punto de inserción como texto con formato.

Selection.Collapse Direction:=wdCollapseStart

Selection.Range.PasteSpecial DataType:=wdPasteText

En este ejemplo, se copia el texto seleccionado y lo pega en un documento nuevo como hipervínculo. El documento de origen primero debe guardarse para que funcione este ejemplo.

If Selection.Type = wdSelectionNormal Then

    Selection.Copy

    Documents.Add.Content.PasteSpecial Link:=True, DataType:=wdPasteHyperlink

End If


Método GoTo

Objeto Document o Range: devuelve un objeto Range que indica la posición de inicio del elemento especificado, por ejemplo, una página, marca de texto o campo.

Objeto Selection: mueve el punto de inserción a la posición inmediatamente anterior al elemento especificado y devuelve un objeto Range, excepto para la constante wdGoToGrammaticalError, wdGoToProofreadingError o wdGoToSpellingError.

Nota   Al utilizar este método con la constante wdGoToGrammaticalError, wdGoToProofreadingError o wdGoToSpellingError, el objeto Range devuelto incluye los errores ortográficos o gramaticales.

Sintaxis

expresión.GoTo(What, Which, Count, Name)

expresión   Requerida. Expresión que devuelve un objeto Document, Range o Selection.

What   Variant opcional. Tipo de elemento al que se moverá el intervalo o la selección. Puede ser una de las siguientes constantes WdGoToItem:

wdGoToBookmark wdGoToComment wdGoToEndnote wdGoToEquation wdGoToField wdGoToFootnote wdGoToGrammaticalError wdGoToGraphic wdGoToHeading	wdGoToLine wdGoToObject wdGoToPage wdGoToPercent wdGoToProofreadingError wdGoToSection wdGoToSpellingError wdGoToTable
Which   Variant opcional. Elemento al que se moverá el intervalo o la selección. Puede ser una de las siguientes constantes WdGoToDirection: wdGoToAbsolute, wdGoToFirst, wdGoToLast, wdGoToNext, wdGoToPrevious o wdGoToRelative.

Las funciones de los siguientes ejemplos son equivalentes, ambos mueven la selección al primer encabezado del documento.

Selection.GoTo What:=wdGoToHeading, Which:=wdGoToFirst

Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1

Count   Variant opcional. Número de elemento del documento. El valor predeterminado es 1. El siguiente ejemplo mueve la selección a la cuarta línea del documento.

Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4

Sólo son válidos los valores positivos. Para especificar un elemento que preceda al intervalo o a la selección, utilice wdGoToPrevious como argumento Which y especifique un valor Count. En el siguiente ejemplo se mueve dos líneas hacia arriba la selección.

Selection.GoTo What:=wdGoToLine, Which:=wdGoToPrevious, Count:=2

Name   Variant opcional. Si el argumento What es wdGoToBookmark, wdGoToComment, wdGoToField o wdGoToObject, este argumento especifica un nombre. En el siguiente ejemplo se mueve al siguiente campo FECHA.

Selection.GoTo What:=wdGoToField, Name:="Fecha"


Ejemplo del método GoTo

En este ejemplo, se mueve la selección a la primera celda de la tabla siguiente.

Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext

En este ejemplo, se mueve el punto de inserción inmediatamente después de la siguiente marca de referencia de nota al final del documento activo.

If ActiveDocument.Endnotes.Count >= 5 Then

    Selection.GoTo What:=wdGoToEndnote, Which:=wdGoToAbsolute, Count:=5

End If

En este ejemplo, se establece que R1 sea igual a la primera marca de referencia de nota al pie del documento activo.

If ActiveDocument.Footnotes.Count >= 1 Then

    Set R1 = ActiveDocument.GoTo(What:=wdGoToFootnote, Which:=wdGoToFirst)

    R1.Expand Unit:=wdCharacter

End If

En este ejemplo, se mueve la selección cuatro líneas hacia abajo.

Selection.GoTo What:=wdGoToLine, Which:=wdGoToRelative, Count:=4

En este ejemplo, se mueve la selección dos páginas hacia atrás.

Selection.GoTo What:=wdGoToPage, Which:=wdGoToPrevious, Count:=2


Método EscapeKey

Cancela un modo, por ejemplo, extendido o la selección de columna, equivale a presionar la tecla ESC.

Sintaxis

expresión.EscapeKey

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método EscapeKey

En este ejemplo, se desactiva y después se cancela el modo extendido.

With Selection

    .ExtendMode = True

    .EscapeKey

End With


Propiedad LanguageIDFarEast

Devuelve o establece el idioma de Extremo Oriente del objeto especificado. Puede ser una de las constantes WdLanguageID. Long de Lectura/Escritura.

Nota   Esta es la manera recomendada de aplicar un idioma de Extremo Oriente al texto de un documento creado en una versión de Word para Extremo Oriente.


Ejemplo de la propiedad LanguageIDFarEast

En este ejemplo, se establece en Coreano el idioma de la selección.

Selection.LanguageIDFarEast = wdKorean


Propiedad LanguageIDOther

Devuelve o establece el idioma del objeto especificado. Puede ser una de las constantes WdLanguageID. Long de Lectura/Escritura.

Nota   Esta es la manera recomendada de determinar el idioma de un documento creado en una versión de Word para Extremo Oriente.


Ejemplo de la propiedad LanguageIDOther

En este ejemplo, se establece en Francés el idioma de la selección.

Selection.LanguageIDOther = wdFrench


Propiedad NameFarEast

Devuelve o establece el nombre de la fuente de Extremo Oriente. String de Lectura/Escritura.

Nota   En la versión inglesa de EE.UU. de Microsoft Word, el valor predeterminado de esta propiedad es Times New Roman. Esta es la manera recomendada de aplicar una fuente de Extremo Oriente al texto de un documento creado en una versión de Word para Extremo Oriente.


Ejemplo de la propiedad NameFarEast

En este ejemplo, se muestra el nombre de fuente de Extremo Oriente aplicado a la selección.

MsgBox Selection.Font.NameFarEast


Propiedad NameOther

Devuelve o establece la fuente utilizada en caracteres cuyo número de carácter sea mayor que 127. String de Lectura/Escritura.

Nota   En la versión inglesa de EE.UU. de Microsoft Word, el valor predeterminado de esta propiedad es Times New Roman. Utilice la propiedad Name para cambiar la fuente aplicada al texto y que aparece en la barra de herramientas Formato.


Ejemplo de la propiedad NameOther

En este ejemplo, se establece la fuente utilizada en caracteres cuyo número de carácter sea mayor que 127.

Selection.Font.NameOther = "Century"


Propiedad NameAscii

Devuelve o establece la fuente utilizada en caracteres cuyo número de carácter esté comprendido entre 0 (cero) y 127. String de Lectura/Escritura.

Nota   En la versión inglesa de EE.UU. de Microsoft Word, el valor predeterminado de esta propiedad es Times New Roman. Utilice la propiedad Name para cambiar la fuente aplicada al texto y que aparece en la barra de herramientas Formato.


Ejemplo de la propiedad NameAscii

En este ejemplo, se establece la fuente utilizada en caracteres cuyo número de carácter esté comprendido entre 0 (cero) y 127.

Selection.Font.NameAscii = "Century"


Propiedad NextStoryRange

Devuelve un objeto Range que representa el siguiente contenido, como se muestra en la siguiente tabla. Es de sólo lectura.

Tipo de contenido	Elemento devuelto por el método NextStoryRange
wdMainTextStory, wdFootnotesStory, wdEndnotesStory y wdCommentsStory	Siempre devuelve Nothing
wdTextFrameStory	Contenido del siguiente conjunto de cuadros de texto vinculados
wdEvenPagesHeaderStory, wdPrimaryHeaderStory, wdEvenPagesFooterStory, wdPrimaryFooterStory, wdFirstPageHeaderStory, wdFirstPageFooterStory	Contenido de la siguiente sección del mismo tipo


Ejemplo de la propiedad NextStoryRange

En este ejemplo, se agrega texto a los encabezados impares de las dos primeras secciones del documento activo.

If ActiveDocument.Sections.Count >= 2 Then

    With ActiveDocument

        .PageSetup.OddAndEvenPagesHeaderFooter = True

        .Sections(1).Headers(wdHeaderFooterEvenPages).Range.Text = "Encabezado par"

        .Sections(2).Headers(wdHeaderFooterEvenPages).LinkToPrevious = False

        .StoryRanges(wdEvenPagesHeaderStory).NextStoryRange.Text = "Encabezado par 2"

    End With

End If

En este ejemplo, se busca en cada artículo del documento activo el texto "Microsoft Word". En el ejemplo también se aplica formato de cursiva a todas las apariciones que se encuentren de este texto.

For Each miIntervaloContenido In ActiveDocument.StoryRanges

    miIntervaloContenido.Find.Execute FindText:="Microsoft Word", Forward:=True

    While miIntervaloContenido.Find.Found

        miIntervaloContenido.Italic = True

        miIntervaloContenido.Find.Execute FindText:="Microsoft Word", Forward:=True

    Wend

    While Not (miIntervaloContenido.NextStoryRange Is Nothing)

        Set miIntervaloContenido = miIntervaloContenido.NextStoryRange

        miIntervaloContenido.Find.Execute FindText:="Microsoft Word", Forward:=True

        While miIntervaloContenido.Find.Found

            miIntervaloContenido.Italic = True

            miIntervaloContenido.Find.Execute FindText:="Microsoft Word", Forward:=True

        Wend

    Wend

Next miIntervaloContenido


Propiedad CommandParameter

Devuelve el parámetro de comando asignado a la tecla de método abreviado especificada. String de sólo lectura.

Nota   Para obtener información acerca de los comandos que incluyen parámetros, consulte Método Add (conjunto KeyBindings). Utilice la propiedad Command para devolver el nombre del comando asignado a la tecla de método abreviado especificada.


Ejemplo de la propiedad CommandParameter

En este ejemplo, se asigna una tecla de método abreviado al comando FontSize, con un parámetro de comando 8. Utilice la propiedad CommandParameter para mostrar el parámetro junto con el nombre del comando y la cadena de la tecla.

Set unaTecla = KeyBindings.Add(KeyCategory:=wdKeyCategoryCommand, Command:="FontSize", _

    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), CommandParameter:="8")

MsgBox unaTecla.Command & Chr$(32) & unaTecla.CommandParameter & vbCr & unaTecla.KeyString


Propiedad ColumnSelectMode

True si está activo el modo de selección de columna. Cuando este modo está activo, aparecen las letras "COL" en la barra de estado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ColumnSelectMode

En este ejemplo, se selecciona una columna de texto que tiene dos palabras de largo y tres líneas de ancho. En el ejemplo, se copia la selección al Portapapeles y se cancela el modo de selección de columnas.

With Selection

    .Collapse Direction:=wdCollapseStart

    .ColumnSelectMode = True

    .MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend

    .MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend

    .Copy

    .ColumnSelectMode = False

End With


Método CopyFormat

Copia el formato de carácter del primer carácter del texto seleccionado. Si se selecciona una marca de párrafo, Word copia el formato de párrafo además del de carácter.

Nota   Puede aplicar el formato copiado a otra selección utilizando el método PasteFormat.

Sintaxis

expresión.CopyFormat

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método CopyFormat

En este ejemplo, se copia el formato del primer párrafo al segundo del documento activo.

ActiveDocument.Paragraphs(1).Range.Select

Selection.CopyFormat

ActiveDocument.Paragraphs(2).Range.Select

Selection.PasteFormat

En este ejemplo, se contrae la selección y se copia su formato de carácter a la siguiente palabra.

With Selection

    .Collapse Direction:=wdCollapseStart

    .CopyFormat

    .Next(Unit:=wdWord, Count:=1).Select

    .PasteFormat

End With


Propiedad ExtendMode

True si está activo el modo de selección ampliado. Cuando este modo esté activo, aparecen las letras "EXT" en la barra de estado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ExtendMode

En este ejemplo, se mueve la selección al principio de la línea activa y, a continuación, se amplía la selección dos líneas hacia abajo. En el ejemplo, se aplica formato de cursiva a la selección y se cancela el modo de selección ampliado.

With Selection

    .Collapse Direction:=wdCollapseStart

    .HomeKey Unit:=wdLine, Extend:=wdMove

    .ExtendMode = True

    .MoveDown Unit:=wdLine, Count:=2

    .Font.Italic = True

    .ExtendMode = False

End With

En este ejemplo, se selecciona todo el texto de la selección desde el punto de inserción a través del marcador denominado "Temp".

With Selection

    .Collapse Direction:=wdCollapseStart

    .ExtendMode = True

    Selection.GoTo What:=wdGoToBookmark, Name:="temp"

    .ExtendMode = False

End With


Propiedad HighlightColorIndex

Devuelve o establece el color para resaltar del intervalo especificado. Puede ser una de las siguientes constantes WdColorIndex: wdNoHighlight, wdBlack, wdBlue, wdBrightGreen, wdDarkBlue, wdDarkRed, wdDarkYellow, wdGray25, wdGray50, wdGreen, wdPink, wdRed, wdTeal, wdTurquoise, wdViolet, wdWhite o wdYellow. Long de Lectura/Escritura.

Nota   Si se establece el valor de esta propiedad en wdNoHighlight, se quitará el color para resaltar, si lo hay, del intervalo especificado.


Ejemplo de la propiedad HighlightColorIndex

En este ejemplo, se quita el formato para resaltar de la selección.

Selection.Range.HighlightColorIndex = wdNoHighlight

En este ejemplo, se aplica resaltado amarillo a cada marcador del documento activo.

For Each abookmark In ActiveDocument.Bookmarks

    abookmark.Range.HighlightColorIndex = wdYellow

Next abookmark


Método InsertAutoText

Intenta que coincida el texto del intervalo especificado o el texto que lo rodea con el nombre de un elemento de Autotexto. Si se encuentra una coincidencia, InsertAutoText inserta el elemento de Autotexto para que sustituya a dicho texto. Si no puede encontrarse ninguna coincidencia, se producirá un error.

Nota   Puede utilizar el método Insert con un objeto AutoTextEntry para insertar un elemento de Autotexto específico.

Sintaxis

expresión.InsertAutoText

expresión   Requerida. Expresión que devuelve un objeto Range.


Ejemplo del método InsertAutoText

En este ejemplo, se inserta un elemento de Autotexto que coincida con el texto que rodea la selección.

Documents.Add

Selection.TypeText "Mejor w"

Selection.Range.InsertAutoText

En este ejemplo, se inserta un elemento de Autotexto con un nombre que coincida con la primera palabra del documento activo.

Documents.Add

Selection.TypeText "En "

Set myRange = ActiveDocument.Words(1)

myRange.InsertAutoText


Método PasteFormat

Aplica formato copiado con el método CopyFormat a la selección. Si se ha seleccionado una marca de párrafo cuando se haya utilizado el método CopyFormat, Word aplicará el formato de párrafo además del de carácter.

Sintaxis

expresión.PasteFormat

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método PasteFormat

En este ejemplo, se copia el formato de párrafo y de carácter del primer párrafo de la selección al siguiente de la selección.

With Selection

    .Paragraphs(1).Range.Select

    .CopyFormat

    .Paragraphs(1).Next.Range.Select

    .PasteFormat

End With

En este ejemplo, se contrae la selección y se copia el formato de carácter a la siguiente palabra.

With Selection

    .Collapse Direction:=wdCollapseStart

    .CopyFormat

    .Next(Unit:=wdWord, Count:=1).Select

    .PasteFormat

End With


Propiedad TextRetrievalMode

Devuelve un objeto TextRetrievalMode que controla la recuperación del texto del Intervalo especificado.Es de Lectura/Escritura.


Ejemplo de la propiedad TextRetrievalMode

En este ejemplo, se recupera el texto seleccionado, excluido el texto oculto, y se inserta al principio del tercer párrafo del documento activo.

If Selection.Type = wdSelectionNormal Then

    Set Range1 = Selection.Range

    Range1.TextRetrievalMode.IncludeHiddenText = False

    Set Range2 = ActiveDocument.Paragraphs(2).Range

    Range2.InsertAfter Range1.Text

End If

En este ejemplo, se recuperan y se muestran los tres primeros párrafos a medida que aparecen en la vista Esquema.

Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, _

    End:=ActiveDocument.Paragraphs(3).Range.End)

myRange.TextRetrievalMode.ViewType = wdOutlineView

MsgBox myRange.Text

En este ejemplo, se excluyen los códigos de campo y el texto oculto del intervalo que hace referencia al texto seleccionado. A continuación, en el ejemplo, se muestra el texto en un cuadro de mensaje.

If Selection.Type = wdSelectionNormal Then

    Set aRange = Selection.Range

    With aRange.TextRetrievalMode

        .IncludeHiddenText = False

        .IncludeFieldCodes = False

    End With

    MsgBox aRange.Text

End If


Método InsertBefore

Inserta el texto especificado delante de la selección o del intervalo especificado. Una vez insertado el texto, se amplía la selección o el intervalo para incluir el nuevo texto.

Nota   Puede insertar caracteres como comillas, caracteres de tabulación y guiones de no separación mediante la función Chr y el método InsertBefore. También puede utilizar las siguientes constantes de Visual Basic: vbCr, vbLf, vbCrLf y vbTab.

Sintaxis

expresión.InsertBefore(Text)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Text   String requerida. Texto que va a insertarse.


Ejemplo del método InsertBefore

En este ejemplo, se inserta el texto "Hamlet", entre comillas, delante de la selección y, a continuación, se contrae la selección.

With Selection

    .InsertBefore Chr(34) & "Hamlet" & Chr(34) & Chr(32)

    .Collapse Direction:=wdCollapseEnd

End With

En este ejemplo, se inserta el texto "Introducción" como párrafo independiente al principio del documento activo.

With ActiveDocument.Content

    .InsertParagraphBefore

    .InsertBefore "Introducción"

End With

En este ejemplo, se insertan todos los nombres de fuentes del conjunto FontNames en un nuevo documento.

Documents.Add

For Each aFont In FontNames

    With Selection

        .InsertBefore aFont

        .Collapse Direction:=wdCollapseEnd

        .TypeParagraph

    End With

Next aFont


Propiedad BookmarkID

Devuelve el número del marcador que incluye el inicio del intervalo o de la selección; devuelve el valor 0 (cero) si no hay ningún marcador correspondiente. El número corresponde a la posición del marcador en el documento: 1 para el primer marcador, 2 para el segundo, etc. Long de sólo lectura.


Ejemplo de la propiedad BookmarkID

En este ejemplo, se muestra el número de marcador que incluye el principio de la selección.

MsgBox "Marcador " & Selection.BookmarkID

En este ejemplo, se agrega un marcador denominado "temp" al principio del documento si aún no hay ninguno establecido para dicha ubicación.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseStart

If myRange.BookmarkID = 0 Then

    ActiveDocument.Bookmarks.Add Name:="temp", Range:=myRange

End If


Método InsertParagraphBefore

Inserta un nuevo párrafo delante de la selección o del intervalo especificado.

Nota   Después de aplicar este método, el intervalo o la selección se amplía para incluir el nuevo párrafo.

Sintaxis

expresión.InsertParagraphBefore

expresión   Requerida. Expresión que devuelve un objeto Selection o Range.


Ejemplo del método InsertParagraphBefore

En este ejemplo, se inserta un nuevo párrafo al principio del documento activo.

ActiveDocument.Range(Start:=0, End:=0).InsertParagraphBefore

En este ejemplo, se inserta el texto "Hola" como párrafo nuevo delante de la selección.

With Selection

    .InsertParagraphBefore

    .InsertBefore "Hola"

End With


Propiedad PreviousBookmarkID

Devuelve el número del último marcador que se inicie antes o en el mismo lugar que la selección o el intervalo especificado; devuelve el valor 0 (cero) si no hay ningún marcador correspondiente. Long de sólo lectura.


Ejemplo de la propiedad PreviousBookmarkID

En este ejemplo, se selecciona el marcador anterior del documento activo.

num = Selection.PreviousBookmarkID

If num <> 0 Then ActiveDocument.Content.Bookmarks(num).Select

En este ejemplo, se muestra el nombre del marcador que precede al segundo párrafo.

num = ActiveDocument.Paragraphs(2).Range.PreviousBookmarkID

If num <> 0 Then MsgBox ActiveDocument.Content.Bookmarks(num).Name


Propiedad HeaderFooter

Devuelve un objeto HeaderFooter para la selección o el intervalo especificado. Es de sólo lectura.

Nota   Se produce un error si la selección no está dentro del encabezado o del pie de página.


Ejemplo de la propiedad HeaderFooter

En este ejemplo, se agrega un número de página centrado al pie de página actual.

With ActiveWindow.View

    .Type = wdPageView

    .SeekView = wdSeekCurrentPageFooter

End With

Selection.HeaderFooter.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter


Propiedad IPAtEndOfLine

True si el punto de inserción está al final de una línea que se ajusta a la siguiente. False si no se contrae la selección, si no está al final de una línea el punto de inserción o si este punto está situado delante de la marca de un párrafo. Boolean de sólo lectura.


Ejemplo de la propiedad IPAtEndOfLine

Si el punto de inserción aún no está al final de la línea, en este ejemplo se mueve a él.

Selection.Collapse Direction:=wdCollapseEnd

If Selection.IPAtEndOfLine = False Then

    Selection.EndKey Unit:=wdLine, Extend:=wdMove

End If


Propiedad IsEndOfRowMark

True si se contrae la selección o el intervalo especificado y está situado al final de la marca de fila en una tabla. Boolean de sólo lectura.

Nota   Esta propiedad es el equivalente de la siguiente expresión:

Selection.Information(wdAtEndOfRowMarker)


Ejemplo de la propiedad IsEndOfRowMark

En este ejemplo, se contrae la selección y se selecciona la fila actual si el punto de inserción está al final de la fila, delante del final de la marca de fila.

Selection.Collapse Direction:=wdCollapseEnd

If Selection.IsEndOfRowMark = True Then

    Selection.Rows(1).Select

End If


Método EndKey

Mueve o amplía la selección al final de la unidad especificada. Este método devuelve un número entero que indica el número de caracteres que se ha movido realmente la selección o el final activo, o bien devuelve 0 (cero) si el movimiento no ha sido correcto.

Nota   Este método corresponde a la funcionalidad de la tecla FIN.

Sintaxis

expresión.EndKey(Unit, Extend)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Unit   Variant opcional. Unidad por la que va a moverse o extenderse la selección. Puede ser una de las siguientes constantes WdUnits: wdStory, wdColumn, wdLine o wdRow. El valor predeterminado es wdLine.

Extend   Variant opcional. Especifica la forma en la que se mueve la selección. Puede ser una de las siguientes constantes WdMovementType: wdMove o wdExtend. Si el valor de este argumento es wdMove, se contrae la selección en un punto de inserción y se mueve al final de la unidad especificada. Si se trata de wdExtend, se amplía el final de la selección al final de la unidad especificada. El valor predeterminado es wdMove.


Ejemplo del método EndKey

En este ejemplo, se mueve la selección al final de la línea actual y se asigna el número de caracteres movidos a la variable pos.

pos = Selection.EndKey(Unit:=wdLine, Extend:=wdMove)

En este ejemplo, se mueve la selección al principio de la columna de la tabla actual y, a continuación, se amplía la selección al final de la columna.

If Selection.Information(wdWithInTable) = True Then

    Selection.HomeKey Unit:=wdColumn, Extend:=wdMove

    Selection.EndKey Unit:=wdColumn, Extend:=wdExtend

End If

En este ejemplo, se mueve la selección al final del contenido actual. Si la selección está en el contenido del texto principal, en el ejemplo se mueve la selección al final del documento.

Selection.EndKey Unit:=wdStory, Extend:=wdMove


Método HomeKey

Mueve o amplía la selección al principio de la unidad especificada. Este método devuelve un número entero que indica el número de caracteres que se ha movido realmente la selección, o bien devuelve 0 (cero) si el movimiento no ha sido correcto.

Nota   Este método corresponde a la funcionalidad de la tecla INICIO.

Sintaxis

expresión.HomeKey(Unit, Extend)

expresión   Expresión que devuelve un objeto Selection.

Unit   Variant opcional. Unidad por la que va a moverse o extenderse la selección. Puede ser una de las siguientes constantes WdUnits: wdStory, wdColumn, wdLine o wdRow. El valor predeterminado es wdLine.

Extend   Variant opcional. Especifica la forma en la que se mueve la selección. Puede ser una de las siguientes constantes WdMovementType: wdMove o wdExtend. Si el valor de este argumento es wdMove, se contrae la selección en un punto de inserción y se mueve al principio de la unidad especificada. Si se trata de wdExtend, se amplía el principio de la selección al principio de la unidad especificada. El valor predeterminado es wdMove.


Ejemplo del método HomeKey

En este ejemplo, se mueve la selección al principio del contenido actual. Si la selección está en el contenido del texto principal, se mueve la selección al principio del documento.

Selection.HomeKey Unit:=wdStory, Extend:=wdMove

En este ejemplo, se mueve la selección al principio de la línea actual y se asigna el número de caracteres movidos a la variable pos.

pos = Selection.HomeKey(Unit:=wdLine, Extend:=wdMove)

If pos = 0 Then StatusBar = "No se ha movido la selección"


Método LookupNameProperties

Busca un nombre en la lista de libretas de direcciones global y muestra el cuadro de diálogo Propiedades, que incluye información acerca del nombre especificado. Si este método busca varias coincidencias, aparecerá el cuadro de diálogo Comprobar nombres.

Sintaxis 1

expresión.LookupNameProperties(Name)

Sintaxis 2

expresión.LookupNameProperties

expresión   Requerida. Expresión que devuelve un objeto Application (Sintaxis 1) o un objeto Range (Sintaxis 2).

Name   String requerida. Nombre de la libreta de direcciones global.


Ejemplo del método LookupNameProperties

En este ejemplo, se busca el nombre Pablo Díaz en la libreta de direcciones y se muestra el cuadro de diálogo Propiedades de Pablo Díaz.

Application.LookupNameProperties Name:="Pablo Díaz"

En este ejemplo, se busca el nombre seleccionado en la libreta de direcciones y se muestra el cuadro de diálogo Propiedades de dicha persona.

Selection.Range.LookupNameProperties


Método SelectCurrentAlignment

Amplía la selección hacia adelante hasta que se encuentre texto con una alineación de párrafo distinta.

Sintaxis

expresión.SelectCurrentAlignment

expresión   Requerida. Expresión que devuelve un objeto Selection.

Comentarios

Hay cuatro tipos de alineación de párrafo: izquierda, centrada, derecha y justificada.


Ejemplo del método SelectCurrentAlignment

En este ejemplo, se coloca el punto de inserción al principio del primer párrafo a continuación del párrafo actual que no tiene la misma alineación que este párrafo. Si la alineación es la misma desde la selección hasta el final del documento, el ejemplo mueve la selección al final del mismo y muestra un mensaje.

Selection.SelectCurrentAlignment

Selection.Collapse Direction:=wdCollapseEnd

If Selection.End = ActiveDocument.Content.End - 1 Then

    MsgBox "No se ha encontrado ningún cambio en la alineación."

End If


Método SelectCurrentColor

Amplía la selección hacia adelante hasta que se encuentre texto con un color distinto.

Sintaxis

expresión.SelectCurrentColor

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SelectCurrentColor

En este ejemplo, se amplía la selección desde el principio del documento hasta el primer carácter con formato con un color distinto y, a continuación, se muestra el número de caracteres de la selección resultante.

Selection.HomeKey Unit:=wdStory, Extend:=wdMove

Selection.SelectCurrentColor

n = Len(Selection.Text)

MsgBox "Caracteres contiguos con el mismo color: " & n


Método SelectCurrentFont

Amplía la selección hacia adelante hasta que se encuentre texto con una fuente distinta o con un tamaño de fuente diferente.

Sintaxis

expresión.SelectCurrentFont

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SelectCurrentFont

En este ejemplo, se amplía la selección hasta que se encuentre texto con una fuente distinta o con un tamaño de fuente diferente. En el ejemplo, se utiliza el método Grow para aumentar el tamaño del texto seleccionado al tamaño de fuente siguiente disponible.

With Selection

    .SelectCurrentFont

    .Font.Grow

End With


Método SelectCurrentIndent

Amplía la selección hacia adelante hasta que se encuentre texto con una sangría de párrafo izquierda o derecha distinta.

Sintaxis

expresión.SelectCurrentIndent

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SelectCurrentIndent

En este ejemplo, se pasa al principio del primer párrafo del documento con sangría distinta a la del primer párrafo del documento activo.

With Selection

    .HomeKey Unit:=wdStory, Extend:=wdMove

    .SelectCurrentIndent

    .Collapse Direction:=wdCollapseEnd

End With

En este ejemplo, se determina si a todos los párrafos del documento activo se les ha aplicado formato con las mismas sangrías izquierda y derecha y, a continuación, se muestra un cuadro de mensaje con el resultado.

With Selection

    .HomeKey Unit:=wdStory, Extend:=wdMove

    .SelectCurrentIndent

    .Collapse Direction:=wdCollapseEnd

End With

If Selection.End = ActiveDocument.Content.End - 1 Then

    MsgBox "Todos los párrafos comparten las mismas sangrías izquierda y derecha."

Else

    MsgBox "No todos los párrafos comparten las mismas sangrías izquierda y derecha."

End If


Método SelectCurrentSpacing

Amplía la selección hacia adelante hasta que se encuentre un párrafo con interlineado distinto.

Sintaxis

expresión.SelectCurrentSpacing

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SelectCurrentSpacing

En este ejemplo, se seleccionan todos los párrafos consecutivos que tienen el mismo interlineado y éste se cambia a sencillo.

With Selection

    .SelectCurrentSpacing

    .ParagraphFormat.Space1

End With


Método SelectCurrentTabs

Amplía la selección hacia adelante hasta que se encuentre un párrafo con tabulaciones distintas.

Sintaxis

expresión.SelectCurrentTabs

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SelectCurrentTabs

En este ejemplo, se selecciona el segundo párrafo del documento activo y, a continuación, se amplía la selección para que se incluya el resto de los párrafos con las mismas tabulaciones.

Set myRange = ActiveDocument.Paragraphs(2).Range

myRange.Select

Selection.SelectCurrentTabs

En este ejemplo, se seleccionan los párrafos con las mismas tabulaciones y se recupera la posición de la primera tabulación. En el ejemplo, se mueve la selección al siguiente intervalo de párrafos que tenga las mismas tabulaciones. A continuación, en el ejemplo se agrega el valor de tabulación desde el primer grupo de párrafos a la selección actual.

With Selection

    .SelectCurrentTabs

    pos = .Paragraphs.TabStops(1).Position

    .Collapse Direction:=wdCollapseEnd

    .SelectCurrentTabs

    .Paragraphs.TabStops.Add Position:=pos

End With


Método TypeBackspace

Elimina el carácter anterior a una selección contraída; es decir, un punto de inserción. Si la selección no está contraída en ningún punto de inserción, se elimina la selección.

Nota   Este método corresponde a la funcionalidad de la tecla RETROCESO.

Sintaxis

expresión.TypeBackspace

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método TypeBackspace

En este ejemplo, se elimina el carácter anterior al punto de inserción; es decir, la selección contraída.

With Selection

    .Collapse Direction:=wdCollapseEnd

    .TypeBackspace

End With

En este ejemplo, se amplía la selección al final del párrafo actual, incluida la marca de párrafo, y después se elimina la selección.

With Selection

    .EndOf Unit:=wdParagraph, Extend:=wdExtend

    .TypeBackspace

End With


Método TypeParagraph

Inserta un párrafo nuevo en blanco. Si no se contrae la selección en ningún punto de inserción, se sustituye por el nuevo párrafo. Utilice el método InsertParagraphAfter o InsertParagraphBefore para insertar un nuevo párrafo sin eliminar el contenido de la selección.

Nota   Este método corresponde a la funcionalidad de la tecla ENTRAR.

Sintaxis

expresión.TypeParagraph

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método TypeParagraph

En este ejemplo, se contrae la selección en el final y después se inserta un nuevo párrafo a continuación de él.

With Selection

    .Collapse Direction:=wdCollapseEnd

    .TypeParagraph

End With


Propiedad StoryRanges

Devuelve un conjunto StoryRanges que representa todos los contenidos del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad StoryRanges

En este ejemplo, se pasa por el conjunto StoryRanges para determinar si wdPrimaryFooterStory forma parte de dicho conjunto.

For Each aStory In ActiveDocument.StoryRanges

    If aStory.StoryType = wdEvenPagesFooterStory Then

        MsgBox "El documento incluye un pie de página par"

    End If

Next aStory

En este ejemplo, se agrega texto a el primer contenido del encabezado y, a continuación, se muestra el texto.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range _

    .Text = "Texto del encabezado"

MsgBox ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text


Método InsertCrossReference

Inserta una referencia cruzada en un título, marcador, nota al pie o al final, o bien en un elemento para el que se ha definido un rótulo de título; por ejemplo, una ecuación, una figura o una tabla.

Sintaxis

expresión.InsertCrossReference(ReferenceType, ReferenceKind, ReferenceItem, InsertAsHyperLink, IncludePosition)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

ReferenceType   Variant requerida. Tipo de elemento para el que va a insertarse una referencia cruzada. Puede ser una de las siguientes constantes WdReferenceType: wdRefTypeBookmark, wdRefTypeEndnote, wdRefTypeFootnote, wdRefTypeHeading o wdRefTypeNumberedItem.También puede ser una constante WdCaptionLabelID (wdCaptionEquation, wdCaptionFigure o wdCaptionTable) o un rótulo de título definida por el usuario.

ReferenceKind   Long requerido. Información que se va a incluir en la referencia cruzada. Puede ser una de las siguientes constantes WdReferenceKind: wdContentText, wdEndnoteNumber, wdEndnoteNumberFormatted, wdEntireCaption, wdFootnoteNumber, wdFootnoteNumberFormatted, wdNumberFullContext, wdNumberNoContext, wdNumberRelativeContext, wdOnlyCaptionText, wdOnlyLabelAndNumber, wdPageNumber o wdPosition.

ReferenceItem   Variant requerida. Si ReferenceType es wdRefTypeBookmark, este argumento especifica el nombre de un marcador. Para el resto de los valores ReferenceType, este argumento especifica el número o el nombre del elemento del cuadro Tipo del cuadro de diálogo Referencia cruzada. Utilice el método GetCrossReferenceItems para devolver una lista de los nombres de elementos que pueden utilizarse con este argumento.

InsertAsHyperLink   Variant opcional. True para insertar la referencia cruzada como hipervínculo respecto al elemento referenciado.

IncludePosition   Variant opcional. True para insertar "más adelante" o "más atrás", dependiendo de la posición del elemento de referencia respecto a la referencia cruzada.


Ejemplo del método InsertCrossReference

En este ejemplo, se inserta una referencia cruzada, al principio del documento activo, de la página que incluye el primer marcador del documento.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)

myBookmarks = ActiveDocument.GetCrossReferenceItems(wdRefTypeBookmark)

With myRange

    .InsertBefore "Página "

    .Collapse Direction:=wdCollapseEnd

    .InsertCrossReference ReferenceType:=wdRefTypeBookmark, _

        ReferenceKind:=wdPageNumber, ReferenceItem:=myBookmarks(1)

End With

En este ejemplo, se inserta una oración que contiene dos referencias cruzadas: una para el texto del título y la otra para la página en la que aparece el texto del título.

With Selection

    .Collapse Direction:=wdCollapseStart

    .InsertBefore "Para obtener más información, consulte "

    .Collapse Direction:=wdCollapseEnd

    .InsertCrossReference ReferenceType:=wdRefTypeHeading, _

        ReferenceKind:=wdContentText, ReferenceItem:=1

    .InsertAfter " de la página "

    .Collapse Direction:=wdCollapseEnd

    .InsertCrossReference ReferenceType:=wdRefTypeHeading, _

        ReferenceKind:=wdPageNumber, ReferenceItem:=1

    .InsertAfter "."

End With


Método InStory

True si la selección o el intervalo al que se aplica este método, se encuentra en el mismo contenido que el intervalo especificado por el argumento Range.

Nota  Los intervalos sólo pertenecen a un contenido.

Sintaxis

expresión.InStory(Range)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Range   Objeto Range requerido. Objeto Range cuyo contenido se compara con el que contiene la expresión.


contenido

Área del documento que incluye un intervalo de texto distinto al resto de las áreas de texto del documento. Por ejemplo, si un documento incluye texto normal, notas al pie y encabezados, incluirá un contenido del texto principal, otro de las notas al pie y uno más de los encabezados.

Hay 11 tipos distintos de contenido que pueden formar parte de un documento, correspondiendo a las siguientes constantes WdStoryType: wdCommentsStory, wdEndnotesStory, wdEvenPagesFooterStory, wdEvenPagesHeaderStory, wdFirstPageFooterStory, wdFirstPageHeaderStory, wdFootnotesStory, wdMainTextStory, wdPrimaryFooterStory, wdPrimaryHeaderStory y wdTextFrameStory. El conjunto StoryRanges incluye el primer contenido para cada tipo de contenido disponible de un documento.Utilice el método NextStoryRange para devolver contenidos subsiguientes.


Ejemplo del método InStory

En este ejemplo, se determina si la selección está en el mismo contenido que el primer párrafo del documento activo. El cuadro de mensaje muestra "False" porque la selección está en el contenido del primer encabezado y el primer párrafo está en el del texto principal.

With ActiveWindow.View

    .Type = wdPageView

    .SeekView = wdSeekCurrentPageHeader

End With

same = Selection.InStory(ActiveDocument.Paragraphs(1).Range)

MsgBox same

En este ejemplo, se determina si Range1 y Range2 están en el mismo contenido. En este caso, se aplica formato de negrita a Range1.

Set Range1 = Selection.Words(1)

Set Range2 = ActiveDocument.Range(Start:=20, End:=100)

If Range1.InStory(Range:=Range2) = True Then

    Range1.Font.Bold = True

End If


Propiedad DoubleStrikeThrough

True si la fuente especificada tiene formato de doble tachado. Devuelve el valor True, False o wdUndefined, combinación de True y False. Su valor puede establecerse en True, False o wdToggle. Long de Lectura/Escritura.

Nota   Para establecer o devolver un formato de tachado simple, utilice la propiedad StrikeThrough. Si se establece el valor de DoubleStrikeThrough en True, StrikeThrough se establecerá en False y viceversa.


Ejemplo de la propiedad DoubleStrikeThrough

En este ejemplo, se aplica un doble tachado al texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    Selection.Font.DoubleStrikeThrough = True

Else

    MsgBox "Debe seleccionar texto."

End If

En este ejemplo, se quita el doble tachado de la primera palabra del documento activo y se pone en mayúsculas la primera letra de la palabra.

With ActiveDocument.Words(1)

    .Font.DoubleStrikeThrough = False

    .Case = wdTitleSentence

End With


Método Extend

Activa el modo extendido y amplía la selección hasta la siguiente unidad de texto. La progresión es la siguiente: palabra, oración, párrafo, sección, todo el documento. Si se especifica Character, se amplía la selección hasta la siguiente aparición del carácter especificado.

Sintaxis

expresión.Extend(Character)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Character   Variant opcional. Carácter al que se extenderá la selección. Este argumento hace distinción entre mayúsculas y minúsculas.


Ejemplo del método Extend

En este ejemplo, se extiende la selección hasta la siguiente aparición de una "R" mayúscula y, a continuación, se reduce la selección un carácter.

With Selection

    .Extend Character:="R"

    .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

End With


Propiedad First

Objetos Sentences, Words y Characters: devuelve un objeto Range que representa la primera oración, palabra o carácter de un documento, selección o intervalo. Es de sólo lectura.

Objetos Columns, Paragraphs, Rows y Sections: devuelve el primer elemento del conjunto especificado. Es de sólo lectura. Por ejemplo, las dos instrucciones siguientes devuelven un objeto Paragraph que representa el primer párrafo de la selección.

Selection.Paragraphs.First

Selection.Paragraphs(1)


Ejemplo de la propiedad First

En este ejemplo, se alinea a la derecha el primer párrafo de la selección.

Selection.Paragraphs.First.Alignment = wdAlignParagraphRight

En este ejemplo, se aplica un sombreado y un borde debajo de la primera fila de la tabla uno del documento activo.

ActiveDocument.Tables(1).Borders.Enable = False

With ActiveDocument.Tables(1).Rows.First

    .Shading.Texture = wdTexture10Percent

    .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle

End With


Propiedad Last

Objetos Sentences, Words y Characters: devuelve un objeto Range que representa la última oración, palabra o carácter de un documento, selección o intervalo. Es de sólo lectura.

Objetos Columns, Paragraphs, Rows y Sections: devuelve el último elemento del conjunto especificado. Es de sólo lectura. Por ejemplo, las dos instrucciones siguientes devuelven un objeto Paragraph que representa el último párrafo de la selección.

Selection.Paragraphs.Last

Selection.Paragraphs(Selection.Paragraphs.Count)


Ejemplo de la propiedad Last

En este ejemplo, se alinea a la derecha el último párrafo del documento activo.

ActiveDocument.Paragraphs.Last.Alignment = wdAlignParagraphRight

En este ejemplo, se elimina la última fila de la tabla uno.

ActiveDocument.Tables(1).Rows.Last.Cells.Delete

En este ejemplo, se aplica formato de negrita a la última palabra de la selección.

If Selection.Words.Count >= 2 Then

    Selection.Words.Last.Bold = True

End If


Propiedad LinesToDrop

Devuelve o establece el alto de la letra mayúscula especificada, en líneas. Long de Lectura/Escritura.


Ejemplo de la propiedad LinesToDrop

En este ejemplo, se aplica un formato de letra mayúscula de tres líneas de alto al primer carácter del documento activo.

With ActiveDocument.Paragraphs(1).DropCap

    .Enable

    .Position = wdDropNormal

    .LinesToDrop = 3

End With


Método NextField

Selecciona el siguiente campo. Si se encuentra un campo, este método devuelve un objeto Field; si no, devuelve Nothing.

Sintaxis

expresión.NextField

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método NextField

En este ejemplo, se actualiza el siguiente campo de la selección.

If Not (Selection.NextField Is Nothing) Then

    Selection.Fields.Update

End If

En este ejemplo, se selecciona el siguiente campo de la selección y, si se encuentra un campo, se muestra un mensaje en la barra de estado.

Set miCampo = Selection.NextField

If Not (miCampo Is Nothing) Then StatusBar = "Campo encontrado"


Método NextSubdocument

Mueve el intervalo o la selección al siguiente subdocumento. Si no existe otro subdocumento, se produce un error.

Sintaxis

expresión.NextSubdocument

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.


Ejemplo del método NextSubdocument

En este ejemplo, se pasa la vista del documento activo a documento maestro y se selecciona el primer subdocumento.

If ActiveDocument.Subdocuments.Count >= 1 Then

    ActiveWindow.View.Type = wdMasterView

    Selection.HomeKey unit:=wdStory, Extend:=wdMove

    Selection.NextSubdocument

End If


Método OutlineDemote

Aplica el siguiente nivel de título (Título 1 a Título 8) al párrafo o párrafos especificados. Por ejemplo, si un párrafo tiene formato de Título 2, este método asigna al párrafo el estilo Título 3.

Sintaxis

expresión.OutlineDemote

expresión   Requerida. Expresión que devuelve un objeto Paragraph o Paragraphs.


Ejemplo del método OutlineDemote

En este ejemplo, se disminuyen los párrafos seleccionados.

Selection.Paragraphs.OutlineDemote

En este ejemplo, se disminuye el tercer párrafo del documento activo.

ActiveDocument.Paragraphs(3).OutlineDemote


Método OutlineDemoteToBody

Convierte el párrafo o párrafos seleccionados en texto principal, aplicando el estilo Normal.

Sintaxis

expresión.OutlineDemoteToBody

expresión   Requerida. Expresión que devuelve un objeto Paragraph o Paragraphs.


Ejemplo del método OutlineDemoteToBody

Convierte los párrafos seleccionados en texto principal, aplicando el estilo Normal.

Selection.Paragraphs.OutlineDemoteToBody

En este ejemplo, se pasa la ventana activa a vista Esquema y se convierte el primer párrafo de la selección en texto principal.

ActiveWindow.View.Type = wdOutlineView

Selection.Paragraphs(1).OutlineDemoteToBody


Método OutlinePromote

Aplica el nivel previo de título (Título 1 a Título 8) al párrafo o párrafos especificados. Por ejemplo, si un párrafo tiene formato de Título 2, este método le asignará el estilo Título 1.

Sintaxis

expresión.OutlinePromote

expresión   Requerida. Expresión que devuelve un objeto Paragraph o Paragraphs.


Ejemplo del método OutlinePromote

En este ejemplo, se aumentan los párrafos seleccionados.

Selection.Paragraphs.OutlinePromote

En este ejemplo, se pasa la ventana activa a vista Esquema y se aumenta el primer párrafo del documento activo.

ActiveWindow.View.Type = wdOutlineView

ActiveDocument.Paragraphs(1).OutlinePromote


Método PreviousField

Selecciona el campo anterior. Si se encuentra un campo, este método devuelve un objeto Field; si no, devuelve Nothing.

Sintaxis

expresión.PreviousField

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método PreviousField

En este ejemplo, se actualiza el campo anterior, que precede inmediatamente a la selección.

If Not (Selection.PreviousField Is Nothing) Then

    Selection.Fields.Update

End If

En este ejemplo, se selecciona el campo anterior y, si se encuentra uno, muestra un mensaje en la barra de estado.

Set miCampo = Selection.PreviousField

If Not (miCampo Is Nothing) Then StatusBar = "Campo encontrado"


Método PreviousSubdocument

Mueve el intervalo o la selección al subdocumento anterior. Si no existe otro subdocumento, se produce un error.

Sintaxis

expresión.PreviousSubdocument

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.


Ejemplo del método PreviousSubdocument

En este ejemplo, se pasa la vista del documento activo a documento maestro y se selecciona el subdocumento anterior.

If ActiveDocument.Subdocuments.Count >= 1 Then

    ActiveWindow.View.Type = wdMasterView

    Selection.EndKey Unit:=wdStory, Extend:=wdMove

    Selection.PreviousSubdocument

End If


Propiedad Scaling

Devuelve o establece el porcentaje de ajuste de tamaño de la fuente. Esta propiedad estira o comprime el texto horizontalmente en un porcentaje del tamaño actual, el intervalo de ajuste varía de 1 a 600. Long de Lectura/Escritura.


Ejemplo de la propiedad Scaling

En este ejemplo, se estira horizontalmente el texto del documento activo hasta el 110% de su tamaño original.

ActiveDocument.Content.Font.Scaling = 110

En este ejemplo, se comprime el texto del primer párrafo de Ventas.doc hasta el 90% de su tamaño original.

With Documents("Ventas.doc").Paragraphs(1).Range.Font

    .Scaling = 90

    .Bold = False

End With


Método SetCount

Organiza el texto en el número de columnas de texto especificado.

Nota   También puede utilizar el método Add del objeto TextColumns para agregar una sola columna al conjunto TextColumns.

Sintaxis

expresión.SetCount(NumColumns)

expresión   Requerida. Expresión que devuelve un objeto TextColumns.

NumColumns   Long requerido. Número de columnas en las que se organizará el texto.


Ejemplo del método SetCount

En este ejemplo, se organiza el texto del documento activo en dos columnas de igual ancho.

ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=2

En este ejemplo, se organiza el texto de la primera sección de Folleto.doc en tres columnas de igual ancho.

Documents("Folleto.doc").Sections(1).PageSetup.TextColumns.SetCount NumColumns:=3


Propiedad SpellingErrorType

Devuelve el tipo de error ortográfico. Puede ser una de las siguientes constantes WdSpellingErrorType: wdSpellingCapitalization, wdSpellingCorrect o wdSpellingNotInDictionary. Long de sólo lectura.

Nota   Utilice el método GetSpellingSuggestions para devolver un conjunto de palabras sugeridas como sustitución. Si existe un error ortográfico en una palabra, el método CheckSpelling devuelve el valor True.


Ejemplo de la propiedad SpellingErrorType

Si la primera palabra del documento activo no está en el diccionario, en este ejemplo se muestra "Palabra desconocida" en la barra de estado.

Set sugerencias = ActiveDocument.Content.GetSpellingSuggestions

If sugerencias.SpellingErrorType = wdSpellingNotInDictionary Then

    StatusBar = "Palabra desconocida"

End If


Método SplitTable

Inserta un párrafo vacío sobre la primera fila de la selección. Si la selección no está en la primera fila de la tabla, la tabla se divide en dos.

Nota   Si la selección no está en una tabla, se produce un error.

Sintaxis

expresión.SplitTable

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SplitTable

Si la selección está en una tabla, en este ejemplo se divide la tabla.

If Selection.Information(wdWithInTable) = True Then

    Selection.SplitTable

End If

En este ejemplo, se divide la primera tabla del documento activo entre las filas primera y segunda.

ActiveDocument.Tables(1).Rows(2).Select

Selection.SplitTable


Propiedad Sentences

Devuelve un conjunto Sentences que representa todas las oraciones de un intervalo, selección o documento. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Sentences

En este ejemplo, se copian las primera oraciones del documento activo.

ActiveDocument.Sentences(1).Copy

En este ejemplo, se elimina la última oración del documento activo.

ActiveDocument.Sentences.Last.Delete

En este ejemplo, se muestra el número de oraciones del primer párrafo del documento activo.

MsgBox ActiveDocument.Paragraphs(1).Range.Sentences.Count & " oraciones"


Propiedad FullName

Devuelve el nombre del documento o plantilla especificados, incluida la ruta de acceso a disco. String de sólo lectura.

Comentarios

Esta propiedad equivale a las propiedades Path, PathSeparator y Name, en este orden.


Ejemplo de la propiedad FullName

En este ejemplo, se muestra la ruta de acceso y el nombre de archivo del documento activo, suponiendo que se haya guardado.

MsgBox ActiveDocument.FullName

En este ejemplo, se muestra la ruta de acceso y el nombre de archivo de la plantilla adjunta al documento activo.

MsgBox ActiveDocument.AttachedTemplate.FullName


Método Range

Objeto Document: devuelve un objeto Range utilizando las posiciones de los caracteres inicial y final. Para obtener información acerca de los objetos Range, consulte Trabajar con objetos Range..

Objeto Shapes: devuelve un objeto ShapeRange que representa un subconjunto de formas del conjunto Shapes.

Sintaxis 1

expresión.Range(Start, End)

Sintaxis 2

expresión.Range(Index)

expresión   Requerida. Expresión que devuelve un objeto Document, sintaxis 1 u objeto Shapes, sintaxis 2.

Start   Long opcional. Posición del carácter inicial.

End   Long opcional. Posición del carácter final.

Index   Variant requerida. Indica qué formas se incluirán en el rango especificado. Puede ser un número entero que indique el número de índice de la forma dentro del conjunto Shapes, una cadena que indique el nombre de una forma, o bien una matriz Variant que contenga números enteros o cadenas.

Comentarios

Los valores de posición de carácter comienzan por 0 (cero) al principio del documento. Se cuentan todos los caracteres, incluidos los no imprimibles. Aunque no se muestren en pantalla, también se cuentan los caracteres ocultos. Si en el método Range no se especifican las posiciones de los caracteres inicial y final se devuelve todo el documento como objeto Range.

Los objetos ShapeRange no incluyen objetos InlineShape. Un objeto InlineShape equivale a un carácter y se sitúa como tal dentro del intervalo de texto. Todos los objetos Shape se fijan a un intervalo de texto (de forma predeterminada, a la selección), pero pueden situarse en cualquier parte de la página. Un objeto Shape siempre aparecerá en la misma página que el intervalo al que está fijado.

La mayoría de las operaciones que pueden realizar con un objeto Shape también podrá realizarlas con un objeto ShapeRange que contenga una única forma. Algunas operaciones, cuando se realizan en un objeto ShapeRange que contiene varias formas, producen un error.


Ejemplo del método Range

En este ejemplo, se aplica formato de negrita a los 10 primeros caracteres del documento activo.

ActiveDocument.Range(Start:=0, End:=10).Bold = True

En este ejemplo, se crea un intervalo que comienza al principio del documento activo y termina al final de la selección.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=Selection.End)

En este ejemplo, se establece que la variable miIntervalo incluya los párrafos tres a seis del documento activo y, a continuación, se alinea los párrafos del intervalo.

Set unDoc = ActiveDocument

If unDoc.Paragraphs.Count >= 6 Then

    Set miIntervalo = unDoc.Range(unDoc.Paragraphs(3).Range.Start, _

        unDoc.Paragraphs(6).Range.End)

    miIntervalo.Paragraphs.Alignment = wdAlignParagraphRight

End If

En este ejemplo, se establece en púrpura el color de relleno de primer plano de la primera forma del documento activo.

ActiveDocument.Shapes.Range(1).Fill.ForeColor.RGB = RGB(255, 0, 255)

En este ejemplo, se aplica sombreado a la forma denominada "miforma" del documento activo.

ActiveDocument.Shapes.Range("miforma").Shadow.Type = msoShadow6

En este ejemplo, se selecciona las formas uno y tres del documento activo.

ActiveDocument.Shapes.Range(Array(1, 3)).Select


Método Copy

Sintaxis 1: Copia el objeto especificado en el Portapapeles.

Sintaxis 2: Establece el marcador especificado por el argumento Name en la ubicación marcada por otro marcador y devuelve un objeto Bookmark.

Sintaxis 1

expresión.Copy

Sintaxis 2

expresión.Copy(Name)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Field, FormField, Frame, MailMergeField, PageNumber, Range o Selection.

Sintaxis 2: Requerida. Expresión que devuelve un objeto Bookmark.

Name   String requerida. Nombre del nuevo marcador.


Ejemplo del método Copy

En este ejemplo, se copia el contenido de la selección en un documento nuevo.

If Selection.Type = wdSelectionNormal Then

    Selection.Copy

    Documents.Add.Content.Paste

End If

En este ejemplo, se establece el marcador Libro2 en la ubicación marcada por el marcador Libro1.

ActiveDocument.Bookmarks("Libro1").Copy Name:="Libro2"

En este ejemplo, se establece el marcador Selección en el marcador \Sel predefinido en el documento activo.

ActiveDocument.Bookmarks("\Sel").Copy Name:="Selección"

En este ejemplo, se copia el primer párrafo del documento activo y lo pega al final del documento.

ActiveDocument.Paragraphs(1).Range.Copy

Set miIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Content.End - 1, _

    End:=ActiveDocument.Content.End - 1)

miIntervalo.Paste

En este ejemplo, se copian los comentarios del documento activo en el Portapapeles.

If ActiveDocument.Comments.Count >= 1 Then

    ActiveDocument.StoryRanges(wdCommentsStory).Copy

End If


Método Cut

Quita el objeto especificado del documento y lo coloca en el Portapapeles.

Sintaxis

expresión.Cut

expresión   Requerida. Expresión que devuelve un objeto Field, FormField, Frame, MailMergeField, PageNumber, Range o Selection.

Comentarios

Si expresión devuelve un objeto Range o Selection, el contenido del objeto se corta en el Portapapeles, pero el objeto contraído permanece en el documento.


Ejemplo del método Cut

En este ejemplo, se corta el primer campo del documento activo y se pega en el punto de inserción.

If ActiveDocument.Fields.Count >= 1 Then

    ActiveDocument.Fields(1).Cut

    Selection.Collapse Direction:=wdCollapseEnd

    Selection.Paste

End If

En este ejemplo, se corta la primera palabra del primer párrafo del documento activo y se pega al final del documento.

With ActiveDocument.Paragraphs(1).Range

    .Words(1).Cut

    .Collapse Direction:=wdCollapseEnd

    .Move Unit:=wdCharacter, Count:=-1

    .Paste

End With

En este ejemplo, se corta el contenido de la selección y se pega en un documento nuevo.

If Selection.Type = wdSelectionNormal Then

    Selection.Cut

    Documents.Add.Content.Paste

End If


Método Insert

Objeto AutoTextEntry: Inserta el elemento de Autotexto en lugar del intervalo especificado. Si no desea reemplazar el intervalo, utilice el método Collapse antes de utilizar este método. El elemento de Autotexto insertado se devuelve como objeto Range.

Objeto Envelope: inserta un sobre como sección independiente al principio del documento especificado. Los argumentos de este método corresponden a las opciones de la ficha Sobres del cuadro de diálogo Sobres y etiquetas (menú Herramientas).

Sintaxis 1

expresión.Insert(Where, RichText)

Sintaxis 2

expresión.Insert(ExtractAddress, Address, AutoText, OmitReturnAddress, ReturnAddress, ReturnAutoText, Size, Height, Width, FeedSource, AddressFromLeft, AddressFromTop, ReturnAddressFromLeft, ReturnAddressFromTop, DefaultFaceUp, DefaultOrientation)

expresión   Requerida. Expresión que devuelve un objeto AutoTextEntry, sintaxis 1, o un objeto Envelope, sintaxis 2.

Where   Objeto Range requerido. Ubicación del elemento de Autotexto.

RichText   Variant opcional. True para insertar el elemento de Autotexto con su formato original.

ExtractAddress   Variant opcional. True para utilizar el texto marcado con el marcador DirecciónSobre (marcador definido por el usuario) como dirección del destinatario.

Address   Variant opcional. Cadena que especifica la dirección del destinatario, que no se tendrá en cuenta si el valor de ExtractAddress es True.

AutoText   Variant opcional. Cadena que especifica el elemento de Autotexto que va a utilizarse para la dirección. Si se especifica, Address se ignora.

OmitReturnAddress   Variant opcional. True para omitir el remite.

ReturnAddress   Variant opcional. Cadena que especifica la dirección del remitente.

ReturnAutoText   Variant opcional. Cadena que especifica el elemento de Autotexto que va a utilizarse para la dirección de remite. Si se especifica, ReturnAddress se ignora.

Size   Variant opcional. Cadena que especifica el tamaño del sobre. La cadena debe ajustarse a uno de los tamaños enumerados en la parte izquierda del cuadro Tamaño del sobre, en el cuadro de diálogo Opciones para sobres, por ejemplo "Sobre 10" o "C4".

Height   Variant opcional. Alto del sobre, en puntos, si el argumento Size se establece como "Tamaño personal".

Width   Variant opcional. Ancho del sobre, en puntos, si el valor del argumento Size se establece en "Tamaño personal".

FeedSource   Variant opcional. Bandeja de papel en la que se imprimirá el sobre. Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormatBin wdPrinterTractorFeed wdPrinterUpperBin
AddressFromLeft   Variant opcional. Distancia, en puntos, entre el borde izquierdo del sobre y la dirección del destinatario.

AddressFromTop   Variant opcional. Distancia, en puntos, entre el borde superior del sobre y la dirección del destinatario.

ReturnAddressFromLeft   Variant opcional. Distancia, en puntos, entre el borde izquierdo del sobre y el remite.

ReturnAddressFromTop   Variant opcional. Distancia, en puntos, entre el borde superior del sobre y el remite.

DefaultFaceUp   Variant opcional. True para imprimir el sobre boca arriba, False para imprimirlo boca abajo.

DefaultOrientation   Variant opcional. Orientación del sobre. Puede ser una de las siguientes constantes WdEnvelopeOrientation: wdLeftPortrait, wdCenterPortrait, wdRightPortrait, wdLeftLandscape, wdCenterLandscape, wdRightLandscape, wdLeftClockwise, wdCenterClockwise o wdRightClockwise.


Ejemplo del método Insert

En este ejemplo, se inserta el elemento de Autotexto con formato denominado "uno" después de la selección.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.AttachedTemplate.AutoTextEntries("uno").Insert _

    Where:=Selection.Range, RichText:=True

En este ejemplo, se agrega un sobre de tamaño 10 al documento activo utilizando las direcciones guardadas en las variables aDir y dDir.

sLínea = VbCr

aDir = "Juan Camilo Pardo" & sLínea & "Córcega 452, 2º, 1ª" & sLínea & "08025 Barcelona"

dDir = "Dr. Ernesto Méndez" & sLínea & "Apartado postal 13 123" & sLínea & "1045 Caracas"

ActiveDocument.Envelope.Insert Address:=dDir, ReturnAddress:=aDir, Size:="Tamaño 10"


Método Accept

Acepta los cambios especificados. Se quitan las marcas de revisión y se incorporan los cambios al documento.

Sintaxis

expresión.Accept

expresión   Requerida. Expresión que devuelve un objeto Revision.


Ejemplo del método Accept

En este ejemplo se acepta el siguiente cambio encontrado si el tipo de cambio realizado es texto insertado.

Set miRev = Selection.NextRevision(Wrap:=True)

If Not (miRev Is Nothing) Then

    If miRev.Type = wdRevisionInsert Then miRev.Accept

End If

En este ejemplo se aceptan todos los cambios de la selección.

Set miIntervalo = Selection.Range

For Each miRev In miIntervalo.Revisions

    miRev.Accept

Next miRev


Método AcceptAll

acepta todos los cambios de un documento o intervalo. Se quitan las marcas de revisión y se incorporan los cambios al documento.

Sintaxis

expresión.AcceptAll

expresión   Requerida. Expresión que devuelve un objeto Revisions.

Comentarios

Utilice el método AcceptAllRevisions para aceptar todas las revisiones de un documento.


Ejemplo del método AcceptAll

En este ejemplo se aceptan todos los cambios del documento activo.

If ActiveDocument.Revisions.Count >= 1 Then _

    ActiveDocument.Revisions.AcceptAll

En este ejemplo se aceptan todos los cambios de la selección.

Selección.Range.Revisions.AcceptAll


Propiedad Author

Objeto Comment: devuelve o establece el nombre del autor de un comentario. String de Lectura/Escritura.

Objeto Revision: devuelve el nombre del usuario que realizó el cambio especificado. String de sólo lectura.


Ejemplo de la propiedad Author

En este ejemplo se establecen el nombre del autor y las iniciales del primer comentario del documento activo.

If ActiveDocument.Comments.Count >= 1 Then

    With ActiveDocument.Comments(1)

        .Author = "José Pérez"

        .Initial = "JP"

    End With

End If

En este ejemplo se devuelve el nombre del autor del primer comentario de la selección.

If Selección.Comments.Count >= 1 Then _

    aAuthor = Selection.Comments(1).Author

En este ejemplo se muestra el nombre del autor del primer cambio realizado en la primera sección seleccionada.

Set miRango = Selection.Sections(1).Range

MsgBox "Cambios de " & miRango.Revisions(1).Author


Propiedad Date

Objeto Revision: fecha y hora de la revisión. Date de sólo lectura.

Objeto Version: fecha y hora en las que se guardó la versión del documento. Date de sólo lectura.


Ejemplo de la propiedad Date

En este ejemplo se muestran la fecha y la hora en las que se guardó la última versión del documento activo.

Set miDoc = ActiveDocument

If miDoc.Path <> "" Then MsgBox _

    miDoc.Versions(miDoc.Versions.Count).Date

En este ejemplo se muestran la fecha y la hora del siguiente cambio encontrado en el documento activo.

If ActiveDocument.Revisions.Count >= 1 Then

    Set miRev = Selection.NextRevision

    If Not (miRev Is Nothing) Then MsgBox miRev.Date

End If


Propiedad PrintRevisions

True: si las marcas de revisión se imprimen con el documento. False: si no se imprimen las marcas de revisión; es decir, se imprimen los cambios realizados como si se hubiesen aceptado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad PrintRevisions

En este ejemplo se imprime el documento activo sin marcas de revisión.

With ActiveDocument

    .PrintRevisions = False

    .PrintOut

End With


Método Reject

Rechaza los cambios especificados. Se quitan las marcas de revisión, dejando el texto original intacto.

Nota   No pueden rechazarse los cambios de formato.

Sintaxis

expresión.Reject

expresión   Requerida. Expresión que devuelve un objeto Revision.


Ejemplo del método Reject

En este ejemplo se rechaza el siguiente cambio encontrado en el documento activo.

If ActiveDocument.Revisions.Count >= 1 Then

    Set miRev = Selection.NextRevision

    If Not (miRev Is Nothing) Then miRev.Reject

End If

En este ejemplo se rechazan los cambios realizados en el primer párrafo.

Set miRango = ActiveDocument.Paragraphs(1).Range

For Each miRev In miRango.Revisions

    miRev.Reject

Next miRev

En este ejemplo se rechaza el primer cambio realizado en la selección.

Set miRango = Selection.Range

If miRango.Revisions.Count >= 1 Then miRango.Revisions(1).Reject


Método RejectAll

Rechaza todas los cambios realizados en un intervalo. Se quitan las marcas de revisión, dejando el texto original intacto.

Sintaxis

expresión.RejectAll

expresión   Requerida. Expresión que devuelve un objeto Revisions.

Comentarios

Utilice el método RejectAllRevisions para rechazar todas las revisiones de un documento. No pueden rechazarse los cambios de formato.


Ejemplo del método RejectAll

En este ejemplo se rechazan todos los cambios realizados en el documento activo.

ActiveDocument.Revisions.RejectAll

En este ejemplo se rechazan todos los cambios realizados en la selección.

Set miRango = Selection.Range

miRango.Revisions.RejectAll


Propiedad Revisions

Devuelve un conjunto Revisions que representa a las marcas de revisión del documento o intervalo. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Revisions

En este ejemplo se muestra el número de cambios realizados en la primera sección del documento activo.

MsgBox ActiveDocument.Sections(1).Range.Revisions.Count

En este ejemplo se aceptan todos los cambios realizados en el primer párrafo de la selección.

Set miRango = Selection.Paragraphs(1).Range

miRango.Revisions.AcceptAll

En este ejemplo se inserta texto si no está activada la asignación de marcas de revisión.

If ActiveDocument.TrackRevisions = False Then

    Selection.InsertBefore "nuevo texto"

End If


Método NextRevision

Busca y devuelve el siguiente cambio realizado como objeto Revision.

Sintaxis

expresión.NextRevision(Wrap)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Wrap   Variant opcional. True para proseguir buscando una revisión al principio del documento cuando se llega al final del mismo. El valor predeterminado es False.


Ejemplo del método NextRevision

En este ejemplo se rechaza el siguiente cambio encontrado a continuación del quinto párrafo del documento activo. Se establece el valor de la variable miRev como Nothing si no se encuentra ningún cambio.

If ActiveDocument.Paragraphs.Count >= 5 Then

    Set miRango = ActiveDocument.Paragraphs(5).Range

    miRango Select

    Set miRev = Selection.NextRevision

    If Not (miRev Is Nothing) Then miRev.Reject

End If

En este ejemplo se acepta el siguiente cambio encontrado si el tipo de cambio realizado es texto insertado.

Set miRev = Selection.NextRevision (Wrap:=True)

If Not (miRev Is Nothing) Then

    If miRev.Type = wdRevisionInsert Then miRev.Accept

End If


Método PreviousRevision

Busca y devuelve el cambio anterior como objeto Revision.

Sintaxis

expresión.PreviousRevision(Wrap)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Wrap   Variant opcional. True para proseguir buscando una revisión al final del documento cuando se llega al principio del mismo. El valor predeterminado es False.


Ejemplo del método PreviousRevision

En este ejemplo se selecciona el último cambio de la primera sección del documento activo y se muestran la fecha y hora correspondientes.

Selection.EndOf Unit:=wdStory, Extend:=wdMove

Set miRev = Selection.PreviousRevision

If Not (miRev Is Nothing) Then MsgBox miRev.Date

En este ejemplo se rechaza el cambio anterior encontrado si el tipo de cambio es texto eliminado o insertado; si es un cambio de estilo, se acepta el cambio.

Set miRev = Selection.PreviousRevision(Wrap:=True)

If Not (miRev Is Nothing) Then

    Select Case miRev.Type

        Case wdRevisionDelete

            miRev.Reject

        Case wdRevisionInsert

            miRev.Reject

        Case wdRevisionStyle

            miRev.Accept

    End Select

End If


Método Compare

Muestra las marcas de revisión para indicar dónde están las diferencias entre ambos documentos.

Sintaxis

expresión.Compare(Name)

expresión   Requerida. Expresión que devuelve un objeto Document.

Name   String requerida. Nombre del documento con el que se compara el documento especificado por la expresión.


Ejemplo del método Compare

En este ejemplo, se compara el documento activo con el denominado "Primera rev.doc" de la carpeta Borrador. En el sistema macintosh, se utilizan los dos puntos como separador de ruta de acceso; por ejemplo, HD:Borrador:Primera rev.

ActiveDocument.Compare Name:="C:\Borrador\Primera rev.doc"


Método Merge

Objeto Cell: combina la celda de la tabla especificada con otra celda. El resultado es una sola celda de tabla.

Objeto Cells: combina las celdas de la tabla especificada con otra. El resultado es una sola celda de tabla.

Objeto Document: combina los cambios marcados con las marcas de revisión de ambos documentos.

Objeto Subdocument: combina los subdocumentos especificados de un documento maestro en un solo subdocumento.

Sintaxis 1

expresión.Merge(MergeTo)

Sintaxis 2

expresión.Merge

Sintaxis 3

expresión.Merge(FileName)

Sintaxis 4

expresión.Merge(FirstSubdocument, LastSubdocument)

expresión   Sintaxis 1: Expresión que devuelve un objeto Cell.

Sintaxis 2: Expresión que devuelve un objeto Cells.

Sintaxis 3: Expresión que devuelve un objeto Document.

Sintaxis 4: Expresión que devuelve un objeto Subdocuments.

MergeTo   Cell requerida. Celda con la que va a combinarse.

FileName   String requerida. La ruta de acceso y el nombre de archivo del documento original con el que desee combinar revisiones.

FirstSubdocument   Variant opcional. Primer subdocumento del intervalo de subdocumentos que va a combinarse.

LastSubdocument   Variant opcional. Último subdocumento del intervalo de subdocumentos que va a combinarse.


Ejemplo del método Merge

En este ejemplo se combinan las dos primeras celdas de la tabla uno del documento activo con otra y, a continuación, se quitan los bordes de la tabla.

If ActiveDocument.Tables.Count >= 1 Then

    With ActiveDocument.Tables(1)

        .Cell(Row:=1, Column:=1).Merge MergeTo:=.Cell(Row:=1, Column:=2)

        .Borders.Enable = False

    End With

End If

En este ejemplo, se combinan los cambios de Ventas2.doc, el documento activo, en Ventas1.doc.

If InStr(1, ActiveDocument.Name, "ventas2.doc", 1) Then _

    ActiveDocument.Merge FileName:="C:\Docs\Ventas1.doc"

En este ejemplo, se combinan las celdas de la fila uno de la selección en una sola celda y, a continuación, se aplica sombreado a la fila.

If Selection.Information(wdWithInTable) = True Then

    Set myrow = Selection.Rows(1)

    myrow.Cells.Merge

    myrow.Shading.Texture = wdTexture10Percent

End If

En este ejemplo, se combina el primero y el segundo subdocumentos del documento activo en un subdocumento.

If ActiveDocument.Subdocuments.Count >= 2 Then

    Set unDoc = ActiveDocument

    unDoc.Subdocuments.Merge FirstSubdocument:=unDoc.Subdocuments(1), _

        LastSubdocument:=unDoc.Subdocuments(2)

End If


Propiedad Wrap

Devuelve o establece lo que ocurre si la búsqueda se inicia en un punto distinto al principio del documento y se llega al final del mismo, o viceversa si el valor de Forward está establecido en False, o bien si el texto de la búsqueda no se encuentra en la selección o en el intervalo especificado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdFindWrap:

Constante	Descripción
wdFindAsk	Después de buscar la selección o el intervalo, Word muestra un mensaje preguntando si debe buscar en el resto del documento.
wdFindContinue	La operación de búsqueda continúa cuando se llega al principio o al final del intervalo de búsqueda.
WdFindStop	La operación de búsqueda termina cuando se llega al principio o al final del intervalo de búsqueda.


Ejemplo de la propiedad Wrap

En el siguiente ejemplo, se busca hacia abajo en el documento la palabra "aspirina". Cuando se haya llegado al final del documento, prosigue la búsqueda al principio del documento. Si se encuentra la palabra "aspirina", se seleccionará.

With Selection.Find

    .Forward = True

    .ClearFormatting

    .MatchWholeWord = True

    .MatchCase = False

    .Wrap = wdFindContinue

    .Execute FindText:="aspirina"

End With


Propiedad ShowBy

Devuelve o establece el nombre del revisor cuyos comentarios se muestran en el panel de comentarios. Puede elegir que se muestren los comentarios de un solo revisor o de todos los revisores. String de Lectura/Escritura.

Nota   Para ver los comentarios de todos los revisores, establezca el valor de esta propiedad en "Todos los revisores".

Sintaxis

expresión.ShowBy(Author)

expresión   Requerida. Expresión que devuelve un objeto Comments.

Author   String requerida. Nombre del revisor.


Ejemplo de la propiedad ShowBy

En el siguiente ejemplo, aparecen los comentarios de Pablo Díaz.

If ActiveDocument.Comments.Count >= 1 Then

    ActiveWindow.View.SplitSpecial = wdPaneComments

    ActiveDocument.Comments.ShowBy = "Pablo Díaz"

End If


Propiedad Delivery

Devuelve o establece el método de entrega utilizado para distribuir el documento. Puede ser una de las siguientes constantes WdRoutingSlipDelivery: wdAllAtOnce o wdOneAfterAnother. Long de Lectura/Escritura antes de que se inicie la distribución; Long de sólo lectura durante el proceso de distribución.


Ejemplo de la propiedad Delivery

En este ejemplo, se distribuye el documento denominado "Estado.doc" a dos destinatarios, uno a continuación del otro.

Documents("Estado.doc").HasRoutingSlip = True

With Documents("Estado.doc").RoutingSlip

    .Subject = "Estado Doc"

    .AddRecipient Recipient:="Pablo Díaz"

    .AddRecipient Recipient:="Miguel Ramírez"

    .Delivery = wdOneAfterAnother

End With

Documents("Estado.doc").Route


Propiedad HasRoutingSlip

True si el documento especificado tiene una lista de distribución adjunta. Si se establece el valor de esta propiedad en True, se crea una lista de distribución; si se establece en False, se elimina la lista de distribución. Boolean de Lectura/Escritura.


Ejemplo de la propiedad HasRoutingSlip

En este ejemplo, se quita la lista de distribución de Ventas 1995.doc.

Documents("Ventas 1995.doc").HasRoutingSlip = False

Si el documento activo tiene una lista de distribución adjunta, en este ejemplo se distribuye el documento.

If ActiveDocument.HasRoutingSlip = True Then

    ActiveDocument.Route

End If


Propiedad Message

Devuelve o establece el texto del mensaje de la lista de distribución especificada. El texto se usa como texto principal de los mensajes de correo usados para distribuir el libro. String de Lectura/Escritura.


Ejemplo de la propiedad Message

En este ejemplo, se agrega una lista de distribución al documento activo, se establece el tema y el texto del mensaje, se agrega un destinatario y, a continuación, se distribuye el documento.

ActiveDocument.HasRoutingSlip = True

With ActiveDocument.RoutingSlip

    .Subject = "Estado Doc"

    .Message = "Por favor, rellene el estado."

    .AddRecipient Recipient:="Claudia Del Valle"

End With

ActiveDocument.Route

Si Informe mensual.doc tiene una lista de distribución adjunta, en este ejemplo se muestra el texto del mensaje.

Set miDoc = Documents("Informe mensual.doc")

If miDoc.HasRoutingSlip = True Then MsgBox miDoc.RoutingSlip.Message


Método Protect

Protege el documento especificado para que no se modifique. Cuando está protegido un documento, el usuario puede efectuar sólo cambios limitados, como agregar anotaciones, efectuar revisiones o cumplimentar un formulario.

Nota   Si el documento ya está protegido al utilizar este método, se producirá un error.

Sintaxis

expresión.Protect(Type, NoReset, Password)

expresión   Requerida. Expresión que devuelve un objeto Document.

Type   Long requerida. Tipo de protección para el documento guardado. Puede ser una de las siguientes constantes WdProtectionType: wdAllowOnlyComments, wdAllowOnlyFormFields, wdAllowOnlyRevisions o wdNoProtection.

NoReset   Variant opcional. False para volver a establecer campos de formulario a sus valores predeterminados. True para retener los valores del campo de formulario actual si se protege el documento especificado. Si Type no es wdAllowOnlyFormFields, se ignorará el argumento NoReset.

Password   Variant opcional. Contraseña necesaria para "desproteger" el documento especificado.


Ejemplo del método Protect

En este ejemplo, se protege el documento activo de formularios sin volver a establecer el contenido de los campos de formulario.

If ActiveDocument.ProtectionType = wdNoProtection Then

    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End If

En este ejemplo, se protege Informe mensual.doc para que sólo puedan agregarse comentarios. La contraseña "libre" es necesaria para desproteger el documento.

Set miDoc = Documents("Informe mensual.doc")

miDoc.Protect Type:=wdAllowOnlyComments, Password:="libre"


Propiedad Protect

Devuelve o establece el tipo de protección para el documento asociado con la lista de distribución especificada. Puede ser una de las siguientes constantes WdProtectionType: wdAllowOnlyComments, wdAllowOnlyFormFields, wdAllowOnlyRevisions o wdNoProtection. Long de Lectura/Escritura.


Ejemplo de la propiedad Protect

Si el documento tiene una lista de distribución, en este ejemplo se protege el documento y sólo se permiten comentarios, y, a continuación, se distribuye.

With ActiveDocument

    If .HasRoutingSlip = True Then

        .RoutingSlip.Protect = wdAllowOnlyComments

        .Route

    End If

End With


Método AddRecipient

Agrega el nombre de un destinatario a la lista de distribución especificada.

Nota Si el nombre del destinatario no está en la libreta de direcciones global, se producirá un error.

Sintaxis

expresión.AddRecipient(Recipient)

expresión   Requerida. Expresión que devuelve un objeto RoutingSlip.

Recipient   String requerida. Nombre del destinatario.


Ejemplo del método AddRecipient

En este ejemplo, se distribuye el documento activo a dos destinatarios, uno a continuación del otro.

ActiveDocument.HasRoutingSlip = True

With ActiveDocument.RoutingSlip

    .Subject = "Documento de estado"

    .AddRecipient Recipient:="Vicente Saavedra"

    .AddRecipient Recipient:="Patricia Menéndez"

    .Delivery = wdOneAfterAnother

End With

ActiveDocument.Route


Propiedad ReturnWhenDone

True si el documento asociado a la lista de distribución especificada se devuelve al remitente original cuando haya terminado el proceso de distribución. Boolean de Lectura/Escritura antes de que se inicie la distribución; Boolean de sólo lectura durante el proceso de distribución.


Ejemplo de la propiedad ReturnWhenDone

En este ejemplo, se establece la lista de distribución de Ventas 1995.doc para devolver el documento al remitente original después de que la revise el último destinatario.

If Documents("Ventas 1995.doc").HasRoutingSlip = True Then

    With Documents("Ventas 1995.doc").RoutingSlip

        .Delivery = wdOneAfterAnother

        .ReturnWhenDone = True

    End With

End If


Método Route

Distribuye el documento especificado mediante la lista de distribución actual del mismo.

Comentarios

Si el documento no tiene ninguna lista de distribución, se producirá un error. Utilice la propiedad HasRoutingSlip para determinar si el documento tiene una lista de distribución adjunta. Al distribuir un documento se establece el valor de la propiedad Routed en True.

Sintaxis

expresión.Route

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método Route

Si el documento activo tiene una lista de distribución adjunta, en este ejemplo se distribuye el documento.

If ActiveDocument.HasRoutingSlip = True Then ActiveDocument.Route

En este ejemplo, se distribuye Respuesta.doc a dos destinatarios, uno a continuación del otro.

Documents("Respuesta.doc").HasRoutingSlip = True

With Documents("Respuesta.doc").RoutingSlip

    .Subject = "Su respuesta, por favor..."

    .AddRecipient Recipient:="Carlos García"

    .AddRecipient Recipient:="Bernardo Ramírez"

    .Delivery = wdOneAfterAnother

End With

Documents("Estado.doc").Route


Propiedad Routed

True si el documento especificado se ha distribuido al siguiente destinatario. False si aún debe distribuirse el documento; por ejemplo, si no tiene lista de distribución o si ésta acaba de crearse. Boolean de sólo lectura.


Ejemplo de la propiedad Routed

En este ejemplo, se distribuye el documento activo si aún no se ha distribuido.

If ActiveDocument.Routed = False Then ActiveDocument.Route


Propiedad RoutingSlip

Devuelve un objeto RoutingSlip que representa la información de la lista de distribución del documento especificado. Se utiliza una lista de distribución para enviar un documento a través del sistema de correo electrónico. Es de sólo lectura.


Ejemplo de la propiedad RoutingSlip

En este ejemplo, se agrega una lista de distribución a Estado.doc y, a continuación, se distribuye el documento a los destinatarios especificados.

Documents("Estado.doc").HasRoutingSlip = True

With Documents("Estado.doc").RoutingSlip

    .Subject = "Estado Doc"

    .AddRecipient Recipient:="Pablo Díaz"

    .AddRecipient Recipient:="Ana García"

    .Delivery = wdAllAtOnce

End With

Documents("Estado.doc").Route


Propiedad Status

Devuelve el estado de la distribución de la lista de distribución especificada. Puede ser una de las siguientes constantes WdRoutingSlipStatus: wdNotYetRouted, wdRouteComplete o wdRouteInProgress. Long de sólo lectura.


Ejemplo de la propiedad Status

Si el documento activo tiene una lista de distribución adjunta, en este ejemplo se muestra un mensaje que indica el estado de la distribución.

If ActiveDocument.HasRoutingSlip = True Then

    Select Case ActiveDocument.RoutingSlip.Status

        Case wdNotYetRouted

            MsgBox "Aún no se ha distribuido el documento."

        Case wdRouteInProgress

            MsgBox "Distribución en curso."

        Case wdRouteComplete

            MsgBox "Distribución finalizada."

    End Select

End If

Este ejemplo restablece la lista de distribución de Ventas.doc si la distribución está completa.

With Documents("Ventas.doc").RoutingSlip

    If .Status = wdRouteComplete Then

        .Reset

    Else

        MsgBox "Imposible restablecer la distribución; aún no ha concluido."

    End If

End With


Propiedad Subject

Objeto RoutingSlip: devuelve o establece el texto del tema de los mensajes de correspondencia utilizados para distribuir un documento. String de Lectura/Escritura.

Objeto LetterContent: devuelve o establece el texto del tema de una carta creada por el Asistente para cartas. String de Lectura/Escritura.

Objeto Mailer: devuelve o establece la línea del tema del mensaje de correspondencia. Sólo está disponible en el sistema Macintosh y sólo si está instalada la extensión del sistema de correo PowerTalk. String de Lectura/Escritura.


Ejemplo de la propiedad Subject

En este ejemplo, se establece el tema y el texto de la lista de distribución asociada a Fin de mes.doc.

If Documents("Fin de mes.doc").HasRoutingSlip = True Then

    With Documents("Fin de mes.doc").RoutingSlip

        .Subject = "Informe de fin de mes"

        .Message = "Respuesta requerida."

    End With

End If

En este ejemplo, se muestra el tema de una carta creada por el Asistente para cartas a menos que el tema sea una cadena vacía.

If ActiveDocument.GetLetterContent.Subject <> "" Then

    MsgBox ActiveDocument.GetLetterContent.Subject

End If

En este ejemplo, se establece el tema del formulario asociado al documento activo.

If ActiveDocument.HasMailer = True Then

    ActiveDocument.Mailer.Subject = "Aquí está el documento"

End If


Propiedad TrackStatus

True si se devuelve un mensaje de correo al remitente original cada vez que se envíe el documento distribuido. Boolean de Lectura/Escritura antes de que se inicie la distribución; Boolean de sólo lectura durante el proceso de distribución.


Ejemplo de la propiedad TrackStatus

En este ejemplo se agrega una lista de distribución al documento activo, se agregan dos destinatarios, se activa el seguimiento de estado y, a continuación, se distribuye el documento.

ActiveDocument.HasRoutingSlip = True

With ActiveDocument.RoutingSlip

    .AddRecipient Recipient:="Nicolás Menéndez"

    .AddRecipient Recipient:="Ricardo García"

    .TrackStatus = True

    .Parent.Route

End With


Propiedad Recipients

Devuelve el nombre de un destinatario desde la lista de distribución especificada. String de sólo lectura.

Sintaxis

expresión.Recipients(Index)

expresión   Requerida. Expresión que devuelve un objeto RoutingSlip.

Index   Variant opcional. Número que especifica el destinatario, de la lista de destinatarios.


Ejemplo de la propiedad Recipients

En este ejemplo, se agrega un destinatario a la lista de distribución adjunta a Ventas.doc y, a continuación, se muestra el nombre del primer destinatario.

If Documents("Ventas.doc").HasRoutingSlip = True Then

    Documents("Ventas.doc").RoutingSlip.AddRecipient Recipient:="Martín Menéndez"

    MsgBox Documents("Ventas.doc").RoutingSlip.Recipients(1)

End If


Método CheckName

Valida las direcciones de correo electrónico que aparecen en las líneas A:, Cc: y Cco: del mensaje activo de WordMail. Este método sólo está disponible si WordMail está instalado.

Nota   Si los nombres no pueden validarse, aparecerá el cuadro de diálogo Comprobar nombres.

Sintaxis

expresión.CheckName

expresión   Requerida. Expresión que devuelve un objeto MailMessage.


Ejemplo del método CheckName

En este ejemplo, se validan las direcciones de correo electrónico que aparecen en el mensaje de WordMail activo.

Application.MailMessage.CheckName


Método DisplayMoveDialog

Abre el cuadro de diálogo Mover, donde el usuario puede especificar una nueva ubicación para el mensaje de WordMail activo en un almacén de mensajes. Este método sólo está disponible si WordMail está instalado.

Sintaxis

expresión.DisplayMoveDialog

expresión   Requerida. Expresión que devuelve un objeto MailMessage.


Ejemplo del método DisplayMoveDialog

En este ejemplo, se muestra el cuadro de diálogo Mover para el mensaje de WordMail activo.

Application.MailMessage.DisplayMoveDialog


Método DisplayProperties

Muestra el cuadro de diálogo Propiedades para el mensaje de WordMail activo. Este método sólo está disponible si WordMail está instalado.

Sintaxis

expresión.DisplayProperties

expresión   Requerida. Expresión que devuelve un objeto MailMessage.


Ejemplo del método DisplayProperties

En este ejemplo, se muestra el cuadro de diálogo Propiedades para el mensaje de WordMail activo.

Application.MailMessage.DisplayProperties


Método DisplaySelectNamesDialog

Muestra el cuadro de diálogo Seleccionar nombres, donde el usuario puede agregar direcciones para las líneas A:, Cc: y Cco: del mensaje de WordMail activo todavía sin enviar. Este método sólo está disponible si WordMail está instalado.

Sintaxis

expresión.DisplaySelectNamesDialog

expresión   Requerida. Expresión que devuelve un objeto MailMessage.


Ejemplo del método DisplaySelectNamesDialog

En este ejemplo, se muestra el cuadro de diálogo Seleccionar nombres para el mensaje de WordMail activo.

Application.MailMessage.DisplaySelectNamesDialog


Método Forward

Abre un nuevo mensaje de WordMail con la línea A: vacía para reenviar el mensaje activo. Este método sólo está disponible si WordMail está instalado.

Sintaxis

expresión.Forward

expresión   Requerida. Expresión que devuelve un objeto MailMessage.


Ejemplo del método Forward

En este ejemplo, se abre un nuevo mensaje de WordMail para reenviar el mensaje activo.

Application.MailMessage.Forward


Propiedad MailingLabel

Devuelve un objeto MailingLabel que representa una nueva etiqueta postal. Es de sólo lectura.


Ejemplo de la propiedad MailingLabel

En este ejemplo, se crea un documento de minietiquetas Avery 2160 nuevo utilizando una dirección predefinida.

dir = "Agustín Rivera" & vbCr & "C/Jr. Carabaya 442" & vbCr & "Lima 1, PERÚ"

Application.MailingLabel.CreateNewDocument _

    Name:="2160 mini", Address:=dir, ExtractAddress:=False


Propiedad MailMessage

Devuelve un objeto MailMessage que representa el mensaje de WordMail activo. Es de sólo lectura.


Ejemplo de la propiedad MailMessage

En este ejemplo, se muestra el cuadro de diálogo Seleccionar nombres para el mensaje de WordMail activo.

Application.MailMessage.DisplaySelectNamesDialog


Propiedad MAPIAvailable

True si MAPI está instalado. Boolean de sólo lectura.


Ejemplo de la propiedad MAPIAvailable

En este ejemplo, se muestra un mensaje si MAPI está instalado.

If Application.MAPIAvailable = True Then

    MsgBox "MAPI está disponible"

End If


Método Post

Envía el documento especificado a una carpeta pública de Microsoft Exchange. Este método muestra el cuadro de diálogo Enviar a carpeta de Exchange de manera que pueda seleccionarse una carpeta.

Sintaxis

expresión.Post

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método Post

En este ejemplo, se muestra el cuadro de diálogo Enviar a carpeta de Exchange de manera que el documento activo pueda enviarse a una carpeta pública.

ActiveDocument.Post


Método Reply

Objeto MailMessage: abre un nuevo mensaje de WordMail, con la dirección del remitente en la línea A: para responder el mensaje activo.

Objeto Document: responde al documento creando una copia y abre el formulario del nuevo documento que deba enviarse al autor. Sólo es válido si va adjunto al documento un formulario recibido; sólo puede responderse a un documento si se ha recibido. Sólo está disponible en un equipo Macintosh con el sistema de correo electrónico PowerTalk instalado.

Sintaxis

expresión.Reply

expresión   Requerida. Expresión que devuelve un objeto Document o MailMessage.

Comentarios

Si desea responder a un documento, utilice este método para establecer el formulario, la propiedad Mailer para ajustar sus valores, si es necesario, y después el método SendMailer para enviar la respuesta.


Ejemplo del método Reply

En este ejemplo, se responde al remitente del documento activo.

Set original = ActiveDocument

If original.HasMailer Then

    original.Reply

    original.Mailer.Subject = "Ésta es mi respuesta"

    ActiveDocument.SendMailer

End If

En este ejemplo, se abre un nuevo mensaje de WordMail para responder el mensaje activo.

Application.MailMessage.Reply


Método ReplyAll

Objeto MailMessage: abre un nuevo mensaje de WordMail, con la dirección del remitente y del resto de los destinatarios en la línea A: y Cc:, respectivamente, para responder al mensaje activo.

Objeto Document: responde al documento creando una copia y abre el formulario del nuevo documento que debe enviarse a todos los destinatarios del original. Sólo es válido si va adjunto al documento un formulario recibido; sólo puede responderse a un documento si se ha recibido. Sólo está disponible en un equipo Macintosh con el sistema de correo electrónico PowerTalk instalado.

Sintaxis

expresión.ReplyAll

expresión   Requerida. Expresión que devuelve un objeto Document o MailMessage.

Comentarios

Si desea responder a todos los destinatarios de un documento, utilice este método para establecer el formulario, la propiedad Mailer para ajustar sus valores, si es necesario, y después el método SendMailer para enviar la respuesta.


Ejemplo del método ReplyAll

En este ejemplo, se responde a todos los destinatarios del documento activo.

Set original = ActiveDocument

If original.HasMailer Then

    original.ReplyAll

    original.Mailer.Subject = "Ésta es mi respuesta"

    ActiveDocument.SendMailer

End If

En este ejemplo, se abre un nuevo mensaje de WordMail para responder el mensaje activo.

Application.MailMessage.ReplyAll


Método ToggleHeader

Activa la presentación del encabezado del mensaje de WordMail activo.

Sintaxis

expresión.ToggleHeader

expresión   Requerida. Expresión que devuelve un objeto MailMessage.


Ejemplo del método ToggleHeader

En este ejemplo, se activa la presentación del encabezado del mensaje de WordMail activo.

Application.MailMessage.ToggleHeader


Método GetAddress

Devuelve una dirección de la libreta de direcciones predeterminada.

Sintaxis

expresión.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)

expresión   Requerida. Expresión que devuelve un objeto Application.

Name   Variant opcional. Nombre del destinatario, como se especifica en el cuadro de diálogo Nombre de búsqueda de la libreta de direcciones.

AddressProperties   Variant opcional. Si UseAutoText es True, este argumento indica el nombre de un elemento de Autotexto que define una secuencia de propiedades de la libreta de direcciones. Si UseAutoText es False o se omite, este argumento define un diseño personalizado. Los nombres de propiedades o los conjuntos de nombres de propiedades válidos de la libreta de direcciones van entre corchetes angulares ("<" y ">"), separados por un espacio o marca de párrafo; por ejemplo, "<PR_NOMBRE_DADO> <PR_APELLIDO>" & vbCr & "<PR_NÚMERO_TELÉFONO_OFICINA>".

Si se omite este argumento, se utilizará el elemento de Autotexto predeterminado "AddressLayout". Si no se ha definido dicho elemento, se utilizará la siguiente definición de diseño de direcciones: "<PR_NOMBRE_DADO> <PR_APELLIDO>" & vbCr & "<PR_NOMBRE_CALLE>" & vbCr & "<PR_LOCALIDAD>" & ", " & "<PR_ESTADO_O_PROVINCIA>" & " " & "<PR_CÓDIGO_POSTAL>" & vbCr & "<PR_PAÍS>".

Si desea ver la lista de los nombres válidos de las propiedades de la libreta de direcciones, consulte el método AddAddress.

UseAutoText   Variant opcional. True si AddressProperties especifica el nombre de un elemento de Autotexto que define una secuencia de propiedades de la libreta de direcciones; False si especifica un diseño personalizado.

DisplaySelectDialog   Variant opcional. Especifica si se muestra el cuadro de diálogo Seleccionar nombre, tal como se muestra en la siguiente tabla.

Valor	Resultado
0 (cero)	No se muestra el cuadro de diálogo Seleccionar nombre.
1 u omitido	Se muestra el cuadro de diálogo Seleccionar nombre.
2	No se muestra el cuadro de diálogo Seleccionar nombre ni se realizan búsquedas de ningún nombre específico. La dirección devuelta por este método será la dirección previamente seleccionada.
SelectDialog   Variant opcional. Especifica cómo debería mostrarse, es decir, en qué modo, el cuadro de diálogo Seleccionar nombre, tal como se muestra en la siguiente tabla.

Valor	Modo de presentación
0 (cero) u omitido	Modo Examinar
1	Modo Redacción, sólo con el cuadro A:
2	Modo Redacción, con los cuadros A: y CC:
CheckNamesDialog   Variant opcional. True para mostrar el cuadro de diálogo Comprobar nombres cuando el valor del argumento Name no es lo suficientemente específico.

RecentAddressesChoice   Variant opcional. True para utilizar la lista de remites utilizados recientemente.

UpdateRecentAddresses   Variant opcional. True para agregar una dirección a la lista de direcciones utilizadas recientemente; False para no agregar las direcciones. Si se establece el calor de SelectDialog en 1 ó 2, no se tendrá en cuenta este argumento.


Ejemplo del método GetAddress

En este ejemplo, se establece la variable Dirección para la dirección de Juan Camilo Pardo, se desplaza el punto de inserción al principio del documento y se inserta la dirección. La dirección insertada incluirá las propiedades de la libreta de direcciones predeterminada.

Dirección = Application.GetAddress(Name:="Juan Camilo Pardo", CheckNamesDialog:=True)

ActiveDocument.Range(Start:=0, End:=0).InsertAfter Dirección

En el siguiente ejemplo, se devuelve la dirección de Juan Camilo Pardo, utilizando el elemento de Autotexto "Mi diseño de dirección" como definición de diseño. "Mi diseño de dirección" se define en la plantilla activa y tiene un conjunto de propiedades de dirección asignadas a la variable text$. En este ejemplo, también se agrega la dirección de Juan Camilo Pardo a la lista de direcciones utilizadas recientemente.

Dim MatrizIdMarca(0 To 3) As String

Dim MatrizValor(0 To 3) As String

MatrizIdMarca(0) = "PR_NOMBRE_PRESENTADO"

MatrizIdMarca(1) = "PR_NOMBRE_DADO"

MatrizIdMarca(2) = "PR_APELLIDO"

MatrizIdMarca(3) = "PR_COMENTARIOS"

MatrizValor(0) = "Nombre_Presentado"

MatrizValor(1) = "Cristina"

MatrizValor(2) = "Martínez"

MatrizValor(3) = "Éste es un comentario"

Application.AddAddress TagID:=MatrizIdMarca(), Value:=MatrizValor()

addr = Application.GetAddress(Name:="Cristina Martínez", UpdateRecentAddresses:=True)


Objeto MailMessage

Representa el mensaje activo de WordMail.

Uso del objeto MailMessage

Utilice la propiedad MailMessage para devolver el objeto MailMessage. En el siguiente ejemplo, se validan las direcciones de correo electrónico que aparecen en el mensaje de WordMail activo.

Application.MailMessage.CheckName

Comentarios

Los métodos del objeto MailMessage necesitan que WordMail esté instalado y que esté activo un mensaje de WordMail. Si no se da ninguna de estas condiciones, se producirá un error.


Método NextLetter

Abre la carta de Microsoft Word no leída más antigua de la Bandeja de entrada. Sólo está disponible en un equipo Macintosh con el sistema de correo electrónico PowerTalk instalado.

Nota   En Windows, NextLetter no está disponible y se produce un error.

Sintaxis

expresión.NextLetter

expresión   Requerida. Expresión que devuelve un objeto Application.


Ejemplo del método NextLetter

En este ejemplo, se abre la carta de Microsoft Word no leída más antigua de la Bandeja de entrada.

If Application.MailSystem = wdPowerTalk Then _

    Application.NextLetter


Propiedad FocusInMailHeader

True si el punto de inserción se encuentra en un campo de encabezado de WordMail; por ejemplo, el campo A:. Boolean de sólo lectura.


Ejemplo de la propiedad FocusInMailHeader

En este ejemplo, se muestra un mensaje en la barra de estado si el punto de inserción es un campo de encabezado de WordMail.

If Application.FocusInMailHeader = True Then

    StatusBar = "La selección está en el encabezado del mensaje"

End If


Propiedad BottomMargin

Devuelve o establece la distancia, en puntos, entre el borde inferior de la página y el límite inferior del texto principal. Single de Lectura/Escritura.


Ejemplo de la propiedad BottomMargin

En este ejemplo se establece el valor del margen inferior en 72 puntos (2,54 centímetros) y el del superior en 5 centímetros para el documento activo. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

With ActiveDocument.PageSetup

    .BottomMargin = 72

    .TopMargin = CentimetersToPoints(5)

End With

En este ejemplo se establece el valor del margen inferior en 6 centímetros para todas las secciones de la selección actual.

Selection.PageSetup.BottomMargin = CentimetersToPoints(6)

En este ejemplo se devuelve el margen inferior de la sección 1 de la selección. Se utiliza el método PointsToCentimeters para convertir el resultado en centímetros.

myvar = Selection.Sections(1).PageSetup.BottomMargin

MsgBox PointsToCentimeters(myvar) & " centímetros"


Propiedad CountBy

Devuelve o establece el incremento numérico de los números de línea. Por ejemplo, si se establece el valor de la propiedad CountBy como 5, cada cinco líneas aparecerá el número de línea. Los números de línea sólo se muestran en la vista Diseño de página y en la Vista preliminar. Long de Lectura/Escritura.

Comentarios

Este propiedad no tendrá efecto a menos que se establezca el valor de la propiedad Active del objeto LineNumbering como True.


Ejemplo de la propiedad CountBy

En este ejemplo se activa la numeración de líneas del documento activo. El número de línea se muestra cada cinco líneas y la numeración vuelve a iniciarse cuando empieza una nueva sección.

With ActiveDocument.PageSetup.LineNumbering

    .Active = True

    .CountBy = 5

    .RestartMode = wdRestartSection

End With


Propiedad FirstPageTray

Devuelve o establece la bandeja de papel que se va a utilizar para la primera página de un documento o de una sección. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormatBin wdPrinterTractorFeed wdPrinterUpperBin


Ejemplo de la propiedad FirstPageTray

En este ejemplo se establece la bandeja que se va a utilizar para imprimir la primera página de cada sección del documento activo.

ActiveDocument.PageSetup.FirstPageTray = wdPrinterLowerBin

En este ejemplo se establece la bandeja que se va a utilizar para imprimir la primera página de cada sección de la selección.

Selection.PageSetup.FirstPageTray = wdPrinterUpperBin


Propiedad FooterDistance

Devuelve o establece la distancia, en puntos, entre el pie de página y la parte inferior de la misma. Single de Lectura/Escritura.


Ejemplo de la propiedad FooterDistance

En este ejemplo se establece la distancia entre el pie de página y la parte inferior de la misma en 1,25 centímetros. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

ActiveDocument.PageSetup.FooterDistance = CentimetersToPoints(1.25)

En este ejemplo se establece 72 puntos (2,54 cm) para la distancia entre el pie de página y la parte inferior de la misma en todas las secciones de la selección.

Selection.Range.PageSetup.FooterDistance = 72


Propiedad Footers

Devuelve un conjunto HeadersFooters que representa a los pies de página de la sección especificada. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Footers

En este ejemplo se agrega un número de página alineado a la derecha al pie de página principal de la primera sección del documento activo.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

    .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight

End With


Propiedad Gutter

Devuelve o establece la cantidad, en puntos, de espacio de margen adicional agregado a cada página de un documento o de una sección para la encuadernación. Single de Lectura/Escritura.

Comentarios

Si se establece el valor de la propiedad MirrorMargins como True, la propiedad Gutter agrega el espacio adicional a los márgenes interiores. De lo contrario, el espacio adicional se agrega al margen izquierdo.


Ejemplo de la propiedad Gutter

En este ejemplo se agregan 72 puntos (2,54 cm) a los márgenes interiores del documento activo.

With ActiveDocument.PageSetup

    .MirrorMargins = True

    .Gutter = 72

End With


Propiedad HeaderDistance

Devuelve o establece la distancia, en puntos, entre el encabezado y la parte superior de la página. Single de Lectura/Escritura.


Ejemplo de la propiedad HeaderDistance

En este ejemplo se muestra la distancia, en puntos, entre el encabezado y la parte superior de la página. Se utiliza el método PointsToCentimeters para convertir los puntos en centímetros.

dist = ActiveDocument.PageSetup.HeaderDistance

Msgbox PointsToCentimeters(dist) & " centímetros"


Propiedad LeftMargin

Devuelve o establece la distancia, en puntos, entre el borde izquierdo de la página y el límite izquierdo del texto principal. Single de Lectura/Escritura.

Comentarios

Si el valor de la propiedad MirrorMargins se establece como True, la propiedad LeftMargin controla el valor de los márgenes interiores y la propiedad RightMargin el de los exteriores.


Ejemplo de la propiedad LeftMargin

En este ejemplo se establece el valor del margen izquierdo como 72 puntos (2,54 cm) para la segunda sección del documento activo.

ActiveDocument.Sections(2).PageSetup.LeftMargin = 72


Propiedad LineBetween

True: si aparecen líneas verticales entre todas las columnas del conjunto TextColumns. Su valor puede establecerse como True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad LineBetween

En este ejemplo se examinan todas las secciones del documento activo y se muestra un cuadro de mensaje si las columnas de texto están separadas por líneas verticales.

i = 1

For each s in ActiveDocument.Sections

    If s.PageSetup.TextColumns.LineBetween = True Then

        MsgBox "Las columnas de la sección " & i & " contienen líneas."

    End If

    i = i + 1

Next s


Propiedad OtherPagesTray

Devuelve o establece la bandeja de papel que se va a utilizar para todas las páginas, excepto la primera, de un documento o de una sección. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdPaperTray:

wdPrinterAutomaticSheetFeed wdPrinterDefaultBin wdPrinterEnvelopeFeed wdPrinterFormSource wdPrinterLargeCapacityBin wdPrinterLargeFormatBin wdPrinterLowerBin wdPrinterManualEnvelopeFeed	wdPrinterManualFeed wdPrinterMiddleBin wdPrinterOnlyBin wdPrinterPaperCassette wdPrinterSmallFormatBin wdPrinterTractorFeed wdPrinterUpperBin


Ejemplo de la propiedad OtherPagesTray

En este ejemplo se establece la bandeja que se va a utilizar para imprimir todas las páginas, excepto la primera, de cada sección del documento activo.

ActiveDocument.PageSetup.OtherPagesTray = wdPrinterUpperBin

En este ejemplo se establece la bandeja que se va a utilizar para imprimir todas las páginas, excepto la primera, de cada sección de la selección.

Selection.PageSetup.OtherPagesTray = wdPrinterLowerBin


Propiedad PageNumbers

Devuelve un conjunto PageNumbers que representa todos los campos de número de página incluidos en el encabezado o pie de página especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad PageNumbers

En este ejemplo se crea un nuevo documento y se agregan números de página al pie de la misma.

Set miDoc = Documents.Add

With miDoc.Sections(1).Footers(wdHeaderFooterPrimary)

    .PageNumbers.Add PageNumberAlignment := wdAlignPageNumberCenter

End With


Propiedad RightMargin

Devuelve o establece la distancia, en puntos, entre el borde derecho de la página y el límite derecho del texto principal. Single de Lectura/Escritura.

Comentarios

Si el valor de la propiedad MirrorMargins se establece como True, la propiedad  RightMargin controla el valor de los márgenes exteriores y la propiedad LeftMargin el de los interiores.


Ejemplo de la propiedad RightMargin

En este ejemplo se muestra el valor del margen derecho del documento activo. Se utiliza el método PointsToCentimeters para convertir el resultado en centímetros.

With ActiveDocument.PageSetup

    Msgbox "El valor del margen derecho se ha establecido como " & _

        PointsToCentimeters(.RightMargin) & " centímetros."

End With

En este ejemplo se establece el margen derecho de la sección dos de la selección. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

Selection.Sections(2).PageSetup.RightMargin = CentimetersToPoints(2.5)


Método TogglePortrait

Activa o desactiva la orientación de página horizontal o vertical de un documento o de una sección.

Sintaxis

expresión.TogglePortrait

expresión   Requerida. Expresión que devuelve un objeto PageSetup.

Comentarios

Si las secciones especificadas tienen orientaciones de página distintas, se produce un error.


Ejemplo del método TogglePortrait

En este ejemplo se cambia la orientación de página del documento activo.

ActiveDocument.PageSetup.TogglePortrait

En este ejemplo se cambia la orientación de página de todas las secciones de la selección. Si la orientación inicial de cada sección no es la misma que la del resto de las secciones, se produce un error.

Selection.PageSetup.TogglePortrait


Propiedad VerticalAlignment

Devuelve o establece la alineación vertical del texto de todas las páginas de un documento o de una sección, o bien de una o varias celdas de una tabla. Puede ser una de las siguientes constantes WdVerticalAlignment: wdAlignVerticalBottom, wdAlignVerticalCenter, wdAlignVerticalJustify o wdAlignVerticalTop. Long de Lectura/Escritura.


Ejemplo de la propiedad VerticalAlignment

En este ejemplo se cambia la alineación vertical del primer documento de forma que el texto se centre entre los márgenes superior e inferior.

Documents(1).PageSetup.VerticalAlignment = wdAlignVerticalCenter

En este ejemplo se crea un nuevo documento y, a continuación, se inserta el mismo párrafo 10 veces. A continuación, se establece la alineación vertical del documento de forma que el espaciado de los 10 párrafos sea el mismo (justificado) entre los márgenes superior e inferior.

Set miDoc = Documents.Add

With miDoc.Content

    For i = 1 to 9

        .InsertAfter "Ésta es una frase."

        .InsertParagraphAfter

    Next i

    .InsertAfter "Ésta es una frase."

End With

miDoc.PageSetup.VerticalAlignment = wdAlignVerticalJustify

En este ejemplo se crea una tabla de 3x3 en un nuevo documento y se asigna un número de celda secuencial a todas las celdas de la tabla. A continuación, se establece el alto de la primera fila en 20 puntos y se alinea verticalmente el texto en la parte superior de las celdas.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 3)

i = 1

For Each c In miTabla.Range.Cells

    c.Range.InsertAfter "Celda " & i

    i = i + 1

Next

With miTabla.Rows(1)

    .Height = 20

    Cells VerticalAlignment = wdAlignVerticalTop

End With


Propiedad MirrorMargins

True: si los márgenes interiores de páginas opuestas y los márgenes exteriores tienen el mismo ancho. Su valor puede establecerse como True, False o wdUndefined. Long de Lectura/Escritura.

Comentarios

Si el valor de la propiedad MirrorMargins se establece como True, la propiedad  LeftMargin controla el valor de los márgenes interiores y la propiedad RightMargin el de los exteriores.


Ejemplo de la propiedad MirrorMargins

En este ejemplo se establece el valor de los márgenes interiores del documento activo en 72 puntos (2,54 cm) y el de los exteriores en 1,25 centímetros. Se utiliza el método CentimetersToPoints para convertir los centímetros en puntos.

With ActiveDocument.PageSetup

    .MirrorMargins = True

    .LeftMargin = 72

    .RightMargin = CentimetersToPoints(1.25)

End With


Propiedad TopMargin

Devuelve o establece la distancia, en puntos, entre el borde superior de la página y el límite superior del texto principal. Single de Lectura/Escritura.


Ejemplo de la propiedad TopMargin

En este ejemplo se establece el valor del margen superior en 72 puntos (2,54 cm) para la primera sección del documento activo.

ActiveDocument.Sections(1).PageSetup.TopMargin = 72

En este ejemplo se crea una nueva etiqueta personalizada y se establecen distintas propiedades, incluido el margen superior. También se crea un nuevo documento con las etiquetas personalizadas.

Set nuevaeti = Application.MailingLabel. _

    CustomLabels.Add(Name:="Mi etiqueta")

With nuevaeti

    .Height = InchesToPoints(1.25)

    .NumberAcross = 2

    .NumberDown = 7

    .PageSize = wdCustomLabelLetter

    .SideMargin = InchesToPoints(0)

    .TopMargin = InchesToPoints(1)

    .Width = InchesToPoints(4.25)

End With

Application.MailingLabel.CreateNewDocument Name:="Mi etiqueta"


Propiedad EvenlySpaced

True: si el espaciado de las columnas de texto es uniforme. Su valor puede establecerse como True, False o wdUndefined. Long de Lectura/Escritura.

Comentarios

Si se establece la propiedad Spacing o Width del objeto TextColumns, el valor de la propiedad EvenlySpaced se establece automáticamente como True. Además, al establecer esta propiedad pueden cambiar los valores de las propiedades Spacing y Width del objeto TextColumns.


Ejemplo de la propiedad EvenlySpaced

En este ejemplo se establecen las columnas del documento activo de forma que su espaciado sea uniforme.

Set misColumnas= ActiveDocument.PageSetup.TextColumns

    If misColumnas.Count > 1 Then myCols.EvenlySpaced = True

En este ejemplo se devuelve el estado de la opción Columnas de igual ancho del cuadro de diálogo Columnas (menú Formato).

temp = ActiveDocument.PageSetup.TextColumns.EvenlySpaced


Propiedad Headers

Devuelve un conjunto HeadersFooters que representa a los encabezados de la sección especificada. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.

Comentarios

Para devolver un conjunto HeadersFooters que represente a los pies de página de la sección especificada, utilice la propiedad Footers.


Ejemplo de la propiedad Headers

En este ejemplo se agregan números de página centrados en todas las páginas del documento activo excepto la primera, cuyo encabezado se crea por separado.

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)

    .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter, _

        FirstPage:=False

End With

En este ejemplo se agrega texto al encabezado de la primera página del documento activo.

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)

    .Range.InsertAfter("Texto de la primera página")

    .Range.Paragraphs.Alignment = wdAlignParagraphRight

End With


Propiedad IsHeader

True: si el objeto HeaderFooter especificado es un encabezado. Boolean de sólo lectura.


Ejemplo de la propiedad IsHeader

En este ejemplo se selecciona un pie de página y se agrega un número de página.

With ActiveWindow.ActivePane.View

    .Type = wdPageView

    .SeekView = wdSeekCurrentPageHeader

End With

If Selection.HeaderFooter.IsHeader = True Then

    ActiveWindow.ActivePane.View _

        .SeekView = wdSeekCurrentPageFooter

End If

Selection.HeaderFooter.PageNumbers.Add


Propiedad LineNumbering

Devuelve o establece el objeto LineNumbering que representa a los números de línea del objeto PageSetup especificado. Lectura/Escritura.

Comentarios

Para ver la numeración de líneas es necesario estar en la vista Diseño de página.


Ejemplo de la propiedad LineNumbering

En este ejemplo se activa la numeración de líneas del documento activo.

ActiveDocument.PageSetup.LineNumbering.Active = True

En este ejemplo se activa la numeración de líneas de un documento denominado "Mi documento". Se establece el valor del número inicial en 1, el número de línea aparece cada cinco líneas y la numeración es continua e incluye todas las secciones del documento.

set miDoc = Documents("MiDocumento")

With miDoc.PageSetup.LineNumbering

    .Active = True

    .StartingNumber = 1

    .CountBy = 5

    .RestartMode = wdRestartContinuous

End With

En este ejemplo se establece que la numeración de líneas del documento activo sea igual a la de MiDocumento.

ActiveDocument.PageSetup.LineNumbering = Documents("MiDocumento") _

    .PageSetup.LineNumbering


Propiedad OddAndEvenPagesHeaderFooter

True: si el objeto PageSetup especificado tiene distintos encabezados y pies de página para las páginas pares e impares numeradas. Su valor puede establecerse como True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad OddAndEvenPagesHeaderFooter

En este ejemplo se crean distintos encabezados y pies de página para las páginas pares e impares del Documento1.

set miDoc = Documents("Documento1")

miDoc.PageSetup.OddAndEvenPagesHeaderFooter = True

With miDoc.Sections(1)

    .Headers(wdHeaderFooterPrimary).Range.InsertAfter "Encabezado impar"

    .Headers(wdHeaderFooterEvenPages).Range.InsertAfter "Encabezado par"

End With


Propiedad PageHeight

Devuelve o establece el alto de la página en puntos. Single de Lectura/Escritura.

Comentarios

Si se establece la propiedad PageHeight, el valor de la propiedad PaperSize se cambia a wdPaperCustom.

Utilice la propiedad PaperSize para establecer el alto y el ancho de página con los valores del tamaño de papel predefinido, como por ejemplo Carta o A4.


Ejemplo de la propiedad PageHeight

En este ejemplo se establece el valor del alto de página del documento activo en 20 centímetros.

With ActiveDocument.PageSetup

    .PageHeight = CentimetersToPoints(20)

    .PageWidth = CentimetersToPoints(12)

End With


Propiedad PageWidth

Devuelve o establece el ancho de página en puntos. Single de Lectura/Escritura.

Comentarios

Si se establece la propiedad PageWidth, el valor de la propiedad PaperSize se cambia a wdPaperCustom.

Utilice la propiedad PaperSize para establecer el alto y el ancho de página con los valores del tamaño de papel predefinido, como por ejemplo Carta o A4.


Ejemplo de la propiedad PageWidth

En este ejemplo se devuelve el ancho de página del Documento1. Se utiliza el método PointsToCentimeters para convertir los puntos en centímetros.

Set doc1set = Documents("Documento1").PageSetup

Msgbox "El ancho de página es " & _

    PointsToCentimeters(doc1set.PageWidth) & " centímetros."


Propiedad RestartMode

Devuelve o establece la forma de ejecución del sistema de numeración de líneas; es decir, si empieza al principio de una página nueva o se ejecuta de forma continua. Puede ser una de las siguientes constantes WdNumberingRule: wdRestartContinuous, wdRestartPage o wdRestartSection. Long de Lectura/Escritura.

Comentarios

Para ver la numeración de líneas es necesario estar en la vista Diseño de página.


Ejemplo de la propiedad RestartMode

En este ejemplo se activa la numeración de líneas del documento activo. Se establece el valor del número inicial en 1, el número de línea aparece cada diez líneas y la numeración empieza al principio de cada sección.

set miDoc = ActiveDocument

With miDoc.PageSetup.LineNumbering

    .Active = True

    .StartingNumber = 1

    .CountBy = 10

    .RestartMode = wdRestartSection

End With


Propiedad SectionStart

Devuelve o establece el tipo de salto de sección del objeto PageSetup especificado. Puede ser una de las siguientes constantes WdSectionStart: wdSectionContinuous, wdSectionEvenPage, wdSectionNewColumn, wdSectionNewPage o wdSectionOddPage. Long de Lectura/Escritura.


Ejemplo de la propiedad SectionStart

En este ejemplo se cambia el tipo de salto de sección de todas las secciones del documento activo a continuo.

ActiveDocument.PageSetup.SectionStart = wdSectionContinuous

En este ejemplo se devuelve el tipo de salto de sección utilizado al principio de la segunda sección de MiDoc y se aplica a todas las secciones del documento activo.

mitipo = Documents("MiDoc").Sections(2).PageSetup.SectionStart

ActiveDocument.PageSetup.SectionStart = mitipo


Propiedad StartingNumber

Devuelve o establece el número inicial de nota, de línea o de página. Long de Lectura/Escritura.

Comentarios

Parar ver la numeración de líneas es necesario estar en la vista Diseño de página.

Cuando se aplica a los números de página, esta propiedad devuelve o establece el número de página inicial del objeto HeaderFooter especificado. Este número puede que no aparezca en la primera página, dependiendo del valor establecido en la propiedad ShowFirstPageNumber. Si el valor de la propiedad RestartNumberingAtSection se establece como False, anulará la propiedad StartingNumber para que la numeración de páginas continúe desde la sección anterior.


Ejemplo de la propiedad StartingNumber

En este ejemplo se crea un nuevo documento, se establece el número inicial de las notas al pie como 10 y, a continuación, se agrega una nota al pie en el punto de inserción.

Set miDoc =Documents.Add

With miDoc.Footnotes

    .StartingNumber = 10

    .Add Range:=Selection.Range, Text:="Texto de una nota al pie"

End With

En este ejemplo se activa la numeración de líneas del documento activo. Se establece el valor del número inicial en 5, cada cinco líneas aparece el número de línea y la numeración empieza al principio de cada sección del documento.

With ActiveDocument.PageSetup.LineNumbering

    .Active = True

    .StartingNumber = 5

    .CountBy = 5

    .RestartMode = wdRestartSection

End With

En este ejemplo se establecen las propiedades de los números de página y, a continuación, se agregan números de página al encabezado del documento activo.

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers

    .NumberStyle = wdPageNumberStyleArabic

    .IncludeChapterNumber = False

    .RestartNumberingAtSection = True

    .StartingNumber = 5

    .Add PageNumberAlignment:=wdAlignPageNumberCenter, _

        FirstPage:=True

End With


Propiedad ChapterPageSeparator

Devuelve o establece el carácter separador utilizado entre los números de capítulo y de página. Puede ser una de las siguientes constantes WdSeparatorType: wdSeparatorColon, wdSeparatorEmDash, wdSeparatorEnDash, wdSeparatorHyphen o wdSeparatorPeriod. Long de Lectura/Escritura.

Comentarios

Antes de crear números de página que incluyan números de capítulo, los títulos del documento deben tener un formato de esquema numerado que utilice estilos del cuadro de diálogo Viñetas y números. En Visual Basic es necesario utilizar el método ApplyListTemplate.


Ejemplo de la propiedad ChapterPageSeparator

En la primera parte de este ejemplo se crea un nuevo documento, se agregan títulos de capítulo y saltos de página y, a continuación, se aplica formato al documento con el primer formato de esquema numerado del cuadro de diálogo Viñetas y números. En la segunda parte del ejemplo se agregan números de página centrados, incluido el número de capítulo, al encabezado; un guión corto separa los números de capítulo y de página.

Documents.Add

For i = 1 To 5

    With Selection

        .TypeText "Número de capítulo " & i

        .TypeParagraph

        .InsertBreak

    End With

Next i

ActiveDocument.Content.ListFormat.ApplyListTemplate _

        ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(1)

Set miEncabezado = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)

With miEncabezado.PageNumbers

    .Add PageNumberAlignment:= wdAlignPageNumberCenter

    .NumberStyle = wdPageNumberStyleArabic

    .IncludeChapterNumber = True

    .HeadingLevelForChapter = 0

    .ChapterPageSeparator = wdSeparatorEnDash

End With


Propiedad HeadingLevelForChapter

Devuelve o establece el estilo de nivel de títulos que se aplica a los títulos de los capítulos del documento. Puede ser un número comprendido entre 0 (cero) y 8, que corresponde a los niveles de título del 1 al 9. Long de Lectura/Escritura.

Comentarios

Antes de crear números de página que incluyan números de capítulos,  los títulos del documento deben tener un formato de esquema numerado que utilice estilos del cuadro de diálogo Viñetas y números. En Visual Basic es necesario utilizar el método ApplyListTemplate.


Ejemplo de la propiedad HeadingLevelForChapter

En la primera parte de este ejemplo se crea un documento nuevo, se agregan títulos de capítulo y saltos de página y, a continuación, se aplica formato al documento con el quinto formato de esquema numerado del cuadro de diálogo Viñetas y números. En la segunda parte del ejemplo se agregan números de página centrados, incluido el número de capítulo, al pie de página; un guión corto separa los números de capítulo y de página. Se utiliza el primer nivel de título para el número de capítulo y numerales romanos en minúsculas para el número de página.

Documents.Add

For i = 1 To 5

    With Selection

        .TypeText "Número de capítulo " & i

        .TypeParagraph

        .InsertBreak

    End With

Next i

ActiveDocument.Content.ListFormat.ApplyListTemplate _

        ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(5)

Set miPie = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

With miPie.PageNumbers

    .Add PageNumberAlignment:= wdAlignPageNumberCenter

    .NumberStyle = wdPageNumberStyleLowercaseRoman

    .IncludeChapterNumber = True

    .HeadingLevelForChapter = 0

    .ChapterPageSeparator = wdSeparatorEnDash

End With


Propiedad ShowFirstPageNumber

True: si el número de página aparece en la primera página de la sección. Boolean de Lectura/Escritura.

Comentarios

Si se establece el valor de esta propiedad como True, se agregan automáticamente números de página a la sección.


Ejemplo de la propiedad ShowFirstPageNumber

En este ejemplo se comprueba si el número de página aparece en la primera página del documento activo.

Set miDoc = ActiveDocument

primero = miDoc.Sections(1).Headers(wdHeaderFooterPrimary). _

    PageNumbers.ShowPrimeroPageNumber

Msgbox "Este documento muestra números en la primera página - " & primero

En este ejemplo se agregan números de página al documento activo.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers _

    .ShowFirstPageNumber = True


Propiedad ActiveSpellingDictionary

Devuelve un objeto Dictionary que representa el diccionario ortográfico activo para el idioma especificado. Es de sólo lectura.

Comentarios

Si no hay diccionario ortográfico instalado del idioma especificado, esta propiedad devuelve Nothing.


Ejemplo de la propiedad ActiveSpellingDictionary

En este ejemplo se devuelve la ruta de acceso completa y el nombre del archivo del diccionario ortográfico activo.

miIdioma = Selection.LanguageID

Set miOrtog = Languages(miIdioma).ActiveSpellingDictionary

MsgBox miOrtog.Path & Application.PathSeparator & miOrtog.Name


Método CheckSpelling

Sintaxis 1: Inicia una revisión ortográfica del documento o intervalo especificado. Si el documento o intervalo contiene errores, este método muestra el cuadro de diálogo Ortografía y gramática (menú Herramientas) con la casilla de verificación Revisar gramática desactivada. En el caso de un documento, este método comprueba todos los artículos disponibles, tales como encabezados, pies de página y cuadros de texto.

Sintaxis 2: Comprueba si hay errores ortográficos en una cadena. Devuelve True si la cadena no contiene errores ortográficos.

Sintaxis 1

expresión.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, CustomDictionary2 – CustomDictionary10)

Sintaxis 2

expresión.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, CustomDictionary2 – CustomDictionary10)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Document o Range.

Sintaxis 2: Opcional. Expresión que devuelve un objeto Application.

Word   String requerida. Texto cuya ortografía se va a revisar.

CustomDictionary   Variant opcional. Una expresión que devuelve un objeto Dictionary o el nombre del archivo del diccionario personalizado.

IgnoreUppercase   Variant opcional. True si se ignora el uso de mayúsculas. Si se omite el argumento, se utiliza el valor actual de la propiedad IgnoreUppercase.

AlwaysSuggest   Variant opcional. True si Word sugiere siempre términos alternativos. Si se omite el argumento, se utiliza el valor actual de la propiedad SuggestSpellingCorrections.

MainDictionary   Variant opcional. Una expresión que devuelve un objeto Dictionary o el nombre del archivo del diccionario principal.

CustomDictionary2 – CustomDictionary10   Variant opcional. Una expresión que devuelve un objeto Dictionary o el nombre del archivo de un diccionario personalizado adicional. Se puede especificar hasta un total de nueve diccionarios adicionales.


Ejemplo del método CheckSpelling

En este ejemplo se inicia una revisión ortográfica de todos los artículos disponibles del documento activo.

ActiveDocument.CheckSpelling

En este ejemplo se inicia una revisión ortográfica de la sección dos de MiDocumento.dic. La revisión incluye palabras con todas las letras en mayúscula y se utilizan dos diccionarios personalizados además del principal.

Set Rango2 = Documents("MiDocumento.doc").Sections(2).Range

Rango2.CheckSpelling IgnoreUpperCase:=False, _

    CustomDictionary:="Trabajo.Dic", _

    CustomDictionary2:="Técnico.Dic"

En este ejemplo se inicia una revisión ortográfica en la selección.

Selection.Range.CheckSpelling

En este ejemplo se muestra el resultado de la revisión ortográfica de la selección.

pasar = Application.CheckSpelling(Word:=Selection.Text)

MsgBox "La selección no tiene errores ortográficos: " & pasar


Propiedad CheckSpellingAsYouType

True si Word revisa la ortografía y marca los errores automáticamente mientras se escribe. Boolean de Lectura/Escritura.

Comentarios

Esta propiedad marca los errores ortográficos, pero para verlos en pantalla se debe definir la propiedad ShowSpellingErrors como True.


Ejemplo de la propiedad CheckSpellingAsYouType

En este ejemplo se desactiva la revisión ortográfica automática de Word.

Options.CheckSpellingAsYouType = False

En este ejemplo se define Word de modo que revise los errores ortográficos mientras se escribe y que muestre cualquier error que se encuentre en el documento activo.

Options.CheckSpellingAsYouType = True

ActiveDocument.ShowSpellingErrors = True

En este ejemplo se devuelve el estado de la opción Revisar ortografía mientras escribe de la ficha Ortografía y gramática del cuadro de diálogo Opciones (menú Herramientas).

temp = Options.CheckSpellingAsYouType


Propiedad SpellingChecked

True si tuvo lugar una revisión ortográfica de todo el intervalo o documento especificado. False si una parte del intervalo o documento especificado no se revisó ortográficamente. Boolean de Lectura/Escritura.

Comentarios

Para revisar de nuevo la ortografía de un documento o intervalo, defina la propiedad SpellingChecked como False.

Para ver si el intervalo o el documento tiene errores ortográficos, utilice la propiedad Spelling Errors.


Ejemplo de la propiedad SpellingChecked

En este ejemplo se determina si se revisó la ortografía de la sección uno del documento activo. Si no se revisó la ortografía, el ejemplo inicia una revisión ortográfica.

Set miIntervalo = ActiveDocument.Sections(1).Range

estáRevisado = miIntervalo.SpellingChecked

If estáRevisado = False Then

    miIntervalo.CheckSpelling

Else

    MsgBox "Ya se revisó ortográficamente el intervalo."

End If

En este ejemplo se define la propiedad SpellingChecked como False para MiDocumento.doc y, a continuación, se ejecuta otra revisión ortográfica del documento.

Documents("MiDocumento.doc").SpellingChecked = False

Documents("MiDocumento.doc").CheckSpelling IgnoreUppercase:=False


Propiedad SpellingErrors

Devuelve un conjunto ProofreadingErrors que representa las palabras identificadas como errores ortográficos del documento o intervalo especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad SpellingErrors

En este ejemplo se revisa el documento activo en busca de errores ortográficos y se muestra el número de errores encontrados

miErr = ActiveDocument.SpellingErrors.Count

If miErr = 0 Then

    Msgbox "No se encontraron errores ortográficos."

Else

    Msgbox "Se encontraron " & miErr & " errores ortográficos."

End If

En este ejemplo se revisa el intervalo especificado en busca de errores ortográficos y se muestra cada error que se encuentra.

Set misErrores = ActiveDocument.Paragraphs(3).Range.SpellingErrors

If misErrores.Count = 0 Then

    Msgbox "No se encontraron errores ortográficos."

Else

    For Each miErr in misErrores

        Msgbox miErr.Text

    Next

End If


Método GetSpellingSuggestions

Sintaxis 1: Devuelve un conjunto SpellingSuggestions que representa las palabras sugeridas como términos de substitución de la primera palabra del intervalo especificado.

Sintaxis 2: Devuelve un conjunto SpellingSuggestions que representa las palabras sugeridas como términos de substitución de una palabra determinada.

Sintaxis 1

expresión.GetSpellingSuggestions(CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2 – CustomDictionary10)

Sintaxis 2

expresión.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2 – CustomDictionary10)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Range.

Sintaxis 2: Opcional. Expresión que devuelve un objeto Application.

Word   String requerida. Palabra cuya ortografía se va a revisar.

CustomDictionary   Variant opcional. Una expresión que devuelve un objeto Dictionary o el nombre del archivo del diccionario personalizado.

IgnoreUppercase   Variant opcional. True para ignorar palabras con todas las letras en mayúscula. Si se omite el argumento, se utiliza el valor actual de la propiedad IgnoreUppercase.

MainDictionary   Variant opcional. Una expresión que devuelve un objeto Dictionary o el nombre del archivo del diccionario principal. Si no se especifica un diccionario principal, Word utiliza el diccionario principal que corresponde al formato de idioma de Word o de la primera palabra del intervalo.

SuggestionMode   Variant opcional. Especifica el modo en que Word realiza las sugerencias de términos. Puede ser una de las siguientes constantes WdSpellingWordType: El valor predeterminado es WdSpellword.

Constante	Descripción
wdSpellword	Word sugiere términos correctos para la palabra o para la primera palabra del intervalo especificado.
wdWildcard	Word sugiere sustituciones que coinciden con los criterios de búsqueda de una palabra que contiene el carácter comodín interrogación (?) o asterisco (*).
wdAnagram	Word sugiere anagramas para la palabra.  Word no sugiere anagramas de un diccionario personalizado.
Nota   Este parámetro puede ignorarse, dependiendo del archivo del diccionario que esté en uso.

CustomDictionary2 – CustomDictionary10   Variant opcional. Una expresión que devuelve un objeto Dictionary o el nombre del archivo de un diccionario personalizado adicional. Se puede especificar hasta un total de nueve diccionarios adicionales.

Comentarios

Si la palabra es correcta desde el punto de vista ortográfico, la propiedad Count del objeto SpellingSuggestions devuelve un 0 (cero).


Ejemplo del método GetSpellingSuggestions

En este ejemplo se buscan las sugerencias de términos alternativos para la primera palabra de la selección. Si hay sugerencias, el ejemplo ejecuta una revisión ortográfica de la selección.

If Selection.Range.GetSpellingSuggestions.Count = 0 Then

    Msgbox "No hay sugerencias."

Else

    Selection.Range.CheckSpelling

End If

En este ejemplo se buscan las sugerencias de términos alternativos para "c?fre". Las sugerencias incluyen sustituciones del carácter comodín ?. Los términos sugeridos se muestran en cuadros de mensajes.

Set listSug = GetSpellingSuggestions(Word:="?irar", _

    SuggestionMode:=wdWildcard)

If listSug.Count = 0 Then

    Msgbox "No hay sugerencias."

Else

    For each sug in listSug

        Msgbox sug.Name

    Next sug

End If


Método Activate

Activa el objeto especificado.

Sintaxis 1

expresión.Activate(Wait)

Sintaxis 2

expresión.Activate

expresión   Requerida. Expresión que devuelve un objeto Task (Sintaxis 1) u otro objeto de la lista Aplicar a (Sintaxis 2).

Wait   Boolean opcional. Sólo objeto Task. True para activar inmediatamente la tarea, aunque Word no esté activo. False para no activar la tarea hasta que el usuario haya activado Word.


Ejemplo del método Activate

En este ejemplo, se activa el documento denominado "Ventas.doc".

Documents("Ventas.doc").Activate

En este ejemplo, se activa la siguiente ventana del conjunto Windows.

ActiveWindow.Next.Activate

En este ejemplo, se activa la aplicación Bloc de notas si está en el conjunto Tasks.

For Each myTask In Tasks

    If InStr(myTask.Name, "Bloc de notas") > 0 Then

        myTask.Activate

        myTask.WindowState = wdWindowStateNormal

    End If

Next myTask

En este ejemplo, se divide la ventana activa y, a continuación, se activa el primer panel.

With ActiveWindow

    .SplitVertical = 50

    .Panes(1).Activate

End With


Propiedad Active

Objeto LineNumbering: True si se activa la numeración de líneas de la sección o secciones, o bien del documento especificado. Su valor puede ser True, False o wdUndefined. Long de Lectura/Escritura.

Objeto Selection: True si está activa la selección de la ventana o del panel especificado. Boolean de sólo lectura.

Objeto Window: True si está activa la ventana especificada. Boolean de sólo lectura.


Ejemplo de la propiedad Active

En este ejemplo, se activa la primera ventana del conjunto Windows, si no lo está actualmente.

If Windows(1).Active = False Then Windows(1).Activate

En este ejemplo, se activa la numeración de líneas de la primera sección de la selección.

With Selection.Sections(1).PageSetup.LineNumbering

    .Active = True

    .CountBy = 5

    .StartingNumber = 1

End With

En este ejemplo, se divide la ventana activa en dos paneles y se activa la selección del primero, si aún no lo está.

ActiveWindow.Split = True

If ActiveWindow.Panes(1).Selection.Active = False Then

    ActiveWindow.Panes(1).Activate

End If


Propiedad ActiveDocument

Devuelve un objeto Document que representa el documento activo; es decir, el documento seleccionado. Si no hay documentos abiertos, se producirá un error. Es de sólo lectura.


Ejemplo de la propiedad ActiveDocument

En este ejemplo, se muestra el nombre del documento activo, o bien un mensaje en caso de que no lo esté.

If Documents.Count >= 1 Then

    MsgBox ActiveDocument.Name

Else

    MsgBox "No hay documentos abiertos"

End If

En este ejemplo, se contrae la selección en un punto de inserción y, a continuación, se crea un intervalo para los cinco caracteres siguientes de la selección.

Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.Range Start:=Selection.Start, End:=Selection.Start+5

En este ejemplo, se inserta texto al principio del documento activo y, a continuación, se imprime el documento.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)

With myRange

    .InsertBefore "Informe de la organización"

    .Font.Name = "Arial"

    .Font.Size = 24

    .InsertParagraphAfter

End With

ActiveDocument.PrintOut


Propiedad ActivePane

Devuelve un objeto Pane que representa el panel activo de la ventana especificada. Es de sólo lectura.


Ejemplo de la propiedad ActivePane

En este ejemplo, se divide la ventana activa y después se activa el siguiente panel a continuación del panel activo.

With ActiveWindow

    .Split = True

    .ActivePane.Next.Activate

    MsgBox "El panel " & .ActivePane.Index & " está activo"

End With

En este ejemplo, se activa la primera ventana y se muestran las tabulaciones del panel activo.

With Windows(1)

    .Activate

    .ActivePane.View.ShowTabs = True

End With


Propiedad ActiveRecord

Devuelve o establece el registro de datos de combinación de correspondencia activo. Puede ser el número de registro de datos válido del resultado de la consulta o una de las siguientes constantes WdMailMergeActiveRecord: wdFirstRecord, wdLastRecord, wdNextRecord, wdNoActiveRecord o wdPreviousRecord. Long de Lectura/Escritura.

Nota   El número de registro de datos activo corresponde a la posición del registro en el resultado de la consulta producido por las opciones de consulta actuales; este número no corresponde necesariamente a la posición del registro en el origen de datos.


Ejemplo de la propiedad ActiveRecord

En este ejemplo, se ocultan los códigos de campo de combinación de correspondencia del documento activo para que los datos de combinación sean visible en el documento principal. A continuación, el registro activo pasa al siguiente registro del origen de datos.

If ActiveDocument.MailMerge.MainDocumentType <> _

        wdNotAMergeDocument Then

    With ActiveDocument.MailMerge

        .ViewMailMergeFieldCodes = False

        .DataSource.ActiveRecord = wdNextRecord

    End With

End If

En este ejemplo, se devuelve el registro de datos activo del Principal2.doc.

If Documents("Principal2.doc").MailMerge.State = wdMainAndDataSource Or _

    wdMainAndSourceAndHeader Then

num = Documents("Principal2.doc").MailMerge.DataSource.ActiveRecord

 End If


Propiedad ActiveWindow

Devuelve un objeto Window que representa la ventana activa; es decir, la ventana seleccionada. Si no hay ventanas abiertas, se producirá un error. Es de sólo lectura.


Ejemplo de la propiedad ActiveWindow

En este ejemplo, se muestra el texto del título de la ventana activa.

MsgBox ActiveWindow.Caption

En este ejemplo, se abre una nueva ventana para la ventana activa y, a continuación, se organizan en mosaico todas las ventanas.

Set myWindow = ActiveWindow.NewWindow

Windows.Arrange ArrangeStyle:=wdTiled

En este ejemplo, se divide la primera ventana del documento.

Documents(1).ActiveWindow.Split= True


Método MoveDown

Baja la selección y devuelve el número de unidades que se han movido.

Nota   La constante wdWindow puede utilizarse para moverse al principio o al final de la ventana activa. Independientemente del valor de Count (superior a 1 o inferior a  – 1), la constante wdWindow sólo mueve una unidad. Use la constante wdScreen para mover más de una pantalla.

Sintaxis

expresión.MoveDown(Unit, Count, Extend)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Unit   Variant opcional. Unidad por la que va a moverse la selección. Puede ser una de las siguientes constantes WdUnits: wdLine, wdParagraph, wdWindow o wdScreen. El valor predeterminado es wdLine.

Count   Variant opcional. El número de unidades que va a moverse la selección. El valor predeterminado es 1.

Extend   Variant opcional. Puede ser wdMove o wdExtend. Si se utiliza wdMove, se contrae la selección en el punto final y se baja. Si se utiliza wdExtend, se amplía hacia abajo la selección. El valor predeterminado es wdMove.


Ejemplo del método MoveDown

En este ejemplo, se amplía hacia abajo la selección una línea.

Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

En este ejemplo, se baja la selección tres párrafos. Si es correcto el movimiento, se inserta "Organización" en el punto de inserción.

unitsMoved = Selection.MoveDown(Unit:=wdParagraph, Count:=3, Extend:=wdMove)

If unitsMoved = 3 Then Selection.Text = "Organización"

En este ejemplo, se muestra el número de línea actual, se baja la selección tres líneas y vuelve a mostrarse dicho número.

MsgBox "Línea " & Selection.Information(wdFirstCharacterLineNumber)

Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdMove

MsgBox "Línea " & Selection.Information(wdFirstCharacterLineNumber)


Método MoveLeft

Mueve la selección a la izquierda y devuelve el número de unidades que se han movido.

Sintaxis

expresión.MoveLeft(Unit, Count, Extend)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Unit   Variant opcional. Unidad por la que va a moverse la selección. Puede ser una de las siguientes constantes WdUnits: wdCell, wdCharacter, wdWord o wdSentence. El valor predeterminado es wdCharacter.

Count   Variant opcional. El número de unidades que va a moverse la selección. El valor predeterminado es 1.

Extend   Variant opcional. Puede ser wdMove o wdExtend. Si se utiliza wdMove, se contrae la selección en el punto final y se mueve a la izquierda. Si se utiliza wdExtend, se amplía hacia la izquierda la selección. El valor predeterminado es wdMove.

Comentarios

Cuando el valor de Unit es wdCell, el argumento Extend será sólo wdMove.


Ejemplo del método MoveLeft

En este ejemplo, se mueve la selección un carácter a la izquierda. Si el movimiento es correcto, MoveLeft devuelve el valor 1.

If Selection.MoveLeft = 1 Then MsgBox "El movimiento ha sido correcto"

En este ejemplo, se activa el sombreado de campo para el campo seleccionado, se inserta el campo FECHA y, a continuación, se mueve la selección a la izquierda para seleccionar el campo.

ActiveWindow.View.FieldShading = wdFieldShadingWhenSelected

With Selection

    .Fields.Add Range:=Selection.Range, Type:=wdFieldDate

    .MoveLeft Unit:=wdWord, Count:=1

End With

En este ejemplo, se mueve la selección a la celda de la tabla anterior.

If Selection.Information(wdWithInTable) = True Then

    Selection.MoveLeft Unit:=wdCell, Count:=1, Extend:=wdMove

End If


Método MoveRight

Mueve la selección a la derecha y devuelve el número de unidades que se han movido.

Sintaxis

expresión.MoveRight(Unit, Count, Extend)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Unit   Variant opcional. Unidad por la que va a moverse la selección. Puede ser una de las siguientes constantes WdUnits: wdCell, wdCharacter, wdWord o wdSentence. El valor predeterminado es wdCharacter.

Count   Variant opcional. El número de unidades que va a moverse la selección. El valor predeterminado es 1.

Extend   Variant opcional. Puede ser wdMove o wdExtend. Si se utiliza wdMove, se contrae la selección en el punto final y se mueve a la derecha. Si se utiliza wdExtend, se amplía hacia la derecha la selección. El valor predeterminado es wdMove.

Comentarios

Cuando el valor de Unit es wdCell, el argumento Extend será sólo wdMove.


Ejemplo del método MoveRight

En este ejemplo, se mueve la selección delante del campo anterior y, a continuación, se selecciona el campo.

With Selection

    Set MyRange = .GoTo(wdGoToField, wdGoToPrevious)

    .MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

    If Selection.Fields.Count = 1 Then Selection.Fields(1).Update

End With

En este ejemplo, se mueve la selección un carácter a la derecha. Si el movimiento es correcto, MoveRight devuelve el valor 1.

If Selection.MoveRight = 1 Then MsgBox "El movimiento ha sido correcto"

En este ejemplo, se mueve la selección a la celda de la tabla siguiente.

If Selection.Information(wdWithInTable) = True Then

    Selection.MoveRight Unit:=wdCell, Count:=1, Extend:=wdMove

End If


Método Select

Selecciona el objeto especificado.

Nota   Después de utilizar este método, puede usar la propiedad Selection para devolver un objeto Selection. Para obtener más información, consulte el tema Trabajar con el objeto Selection..

Sintaxis

expresión.Select

expresión   Requerida. Expresión que devuelve un objeto de la lista Aplicar a.


Ejemplo del método Select

En este ejemplo, se selecciona el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Range.Select

En este ejemplo, se selecciona la fila uno de la tabla uno de Informe.doc.

Documents("Informe.doc").Tables(1).Rows(1).Select

En este ejemplo, se actualiza y se selecciona el primer campo del documento activo.

ActiveWindow.View.FieldShading = wdFieldShadingWhenSelected

If ActiveDocument.Fields.Count >= 1 Then

    With ActiveDocument.Fields(1)

       .Update

       .Select

    End With

End If


Propiedad Selection

Devuelve el objeto Selection que representa un intervalo seleccionado o el punto de inserción. Es de sólo lectura.


Ejemplo de la propiedad Selection

En este ejemplo, se muestra el texto seleccionado.

If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text

En este ejemplo, se copia la selección desde la ventana uno a la siguiente ventana.

If Windows.Count >= 2 Then

    Windows(1).Selection.Copy

    Windows(1).Next.Activate

    Selection.Paste

End If

En este ejemplo, se aplica la fuente Arial y el formato de negrita a la selección.

With Selection.Font

    .Bold = True

    .Italic = False

    .Name = "Arial"

End With

Si el punto de inserción no está en una tabla, se mueve la selección a la siguiente tabla.

If Selection.Information(wdWithInTable) = False Then

    Selection.GoToNext What:=wdGoToTable

End If


Propiedad Information

Devuelve información acerca de la selección o del intervalo especificado. Variant de sólo lectura.

Sintaxis

expresión.Information(Type)

expresión   Requerida. Expresión que devuelve un objeto Range o Selection.

Type   Long Requerida. Información que va a devolverse. Puede ser una de las siguientes constantes WdInformation:

•	wdActiveEndAdjustedPageNumber   Devuelve el número de la página que contiene el extremo activo de la selección o del intervalo seleccionado. Si establece el número de una página inicial o hace otros ajustes manualmente, devolverá el número de página ajustada, a diferencia de wdActiveEndPageNumber.

•	wdActiveEndPageNumber   Devuelve el número de página que contiene el extremo activo de la selección o del rango especificado, contando desde el principio del documento. No se tienen en cuenta los ajustes manuales en la numeración de páginas, a diferencia de wdActiveEndAdjustedPageNumber.

•	wdActiveEndSectionNumber   Devuelve el número de la sección que contiene el extremo activo de la selección o del intervalo seleccionado.

•	wdAtEndOfRowMarker   Devuelve el valor True si la selección o el intervalo especificado está al final de la marca de fila en una tabla.

•	wdCapsLock   Devuelve el valor True si está activada la tecla Bloq Mayús.

•	wdEndOfRangeColumnNumber   Devuelve el número de columna de la tabla que contiene el extremo de la selección o del intervalo seleccionado.

•	wdEndOfRangeRowNumber   Devuelve el número de fila de la tabla que contiene el extremo de la selección o del intervalo seleccionado.

•	wdFirstCharacterColumnNumber   Devuelve la posición de carácter del primer carácter de la selección o del intervalo especificado. Si la selección o el intervalo están contraídos, se devuelve el número de carácter inmediatamente a la derecha del intervalo o de la selección; es el mismo que el número de columna de caracteres mostrado en la barra de estado detrás de "Col".

•	wdFirstCharacterLineNumber   Devuelve el número de línea del primer carácter de la selección. Si el valor de la propiedad Pagination es False o el de la propiedad Draft es True, devuelve  – 1.

•	wdFrameIsSelected   Devuelve el valor True si la selección o el intervalo es un marco o un cuadro de texto completo.

•	wdHeaderFooterType   Devuelve un valor que indica el tipo de encabezado o pie de página que contiene la selección o el intervalo especificado, como se muestra en la siguiente tabla.

Valor	Tipo de encabezado o pie de página
– 1	Ninguno, la selección o el intervalo no está en ningún encabezado o pie de página.
0 (cero)	Encabezado de página par
1	Encabezado de página impar o único encabezado, si no hay encabezados pares e impares.
2	Pie de página par
3	Pie de página impar o único pie de página, si no hay pies de página pares e impares.
4	Encabezado de la primera página
5	Pie de primera página
•	wdHorizontalPositionRelativeToPage   Devuelve la posición horizontal de la selección o del intervalo especificado; se trata de la distancia desde el borde izquierdo de la selección o del intervalo hasta el borde izquierdo de la página, en twips (20 twips = 1 punto, 72 puntos = 2,54 centímetros). Si no está en el área de la pantalla la selección o el intervalo, devuelve el valor  – 1.

•	wdHorizontalPositionRelativeToPage   Devuelve la posición horizontal de la selección o del intervalo especificado; relativa al borde izquierdo del límite de texto más próximo que lo incluya, en twips (20 twips = 1 punto, 72 puntos = 2,54 centímetros). Si no está en el área de la pantalla la selección o el intervalo, devuelve el valor  – 1.

•	wdInClipboard   Devuelve el valor True si la selección o el intervalo seleccionado está en el Portapapeles de Macintosh.

•	wdInCommentPane   Devuelve el valor True si la selección o el intervalo seleccionado está en el panel de comentarios.

•	wdInEndnote   Devuelve el valor True si la selección o el rango especificado está en el área de nota al final de la vista Diseño de página o en el panel de nota al final de la vista Normal.

•	wdInFootnote   Devuelve el valor True si la selección o el rango especificado está en el área de nota al pie de la vista Diseño de página o en el panel de nota al pie de la vista Normal.

•	wdInFootnoteEndnotePane   Devuelve el valor True si la selección o el rango especificado está en el panel de nota al pie o nota al final de la vista Diseño de página o en el área de nota al pie o nota al final de la vista Normal. Para obtener más información, consulte las descripciones de wdInFootnote y wdInEndnote de los párrafos anteriores.

•	wdInHeaderFooter   Devuelve el valor True si la selección o el rango especificado está en el panel del encabezado o de nota al pie de página o en el encabezado o el pie de página de la vista Diseño de página.

•	wdInMasterDocument   Devuelve el valor True si la selección o el intervalo está en un documento maestro; es decir, un documento que contenga al menos un subdocumento.

•	wdInWordMail   Devuelve un valor que indica la ubicación de WordMail de la selección o el intervalo, como se muestra en la siguiente tabla.

Valor	Ubicación de WordMail
0(cero)	Ni la selección ni el intervalo están en ningún mensaje de WordMail.
1	La selección y el intervalo están en una nota de envío de WordMail.
2	La selección y el intervalo están en una nota de lectura de WordMail.
•	wdMaximumNumberOfColumns   Devuelve el número mayor de columnas de tabla dentro de cualquier fila de la selección o del rango.

•	wdMaximumNumberOfRows   Devuelve el número mayor de filas de tabla dentro de la tabla de la selección o del rango especificado.

•	wdNumberOfPagesInDocument   Devuelve el número de páginas del documento asociado a la selección o al intervalo.

•	wdNumLock   Devuelve el valor True si está activada la tecla Bloq Num.

•	wdOverType   Devuelve el valor True si está activado el modo de sobrescritura. Puede utilizarse la propiedad Overtype para cambiar el estado del modo de sobrescritura.

•	wdReferenceOfType   Devuelve un valor que indica la posición de la selección en relación con una nota al pie, una nota al final o una referencia de comentario, como se muestra en la siguiente tabla.

Valor	Descripción
– 1	La selección o el intervalo incluye, pero no se limita a, la nota al pie, la nota al final o la referencia de comentario.
0 (cero)	Ni la selección ni el intervalo están delante de la nota al pie, la nota al final o la referencia de comentario.
1	La selección o el intervalo está delante de la referencia de nota al pie de página.
2	La selección o el intervalo está delante de la referencia de nota al final.
3	La selección o el intervalo está delante de la referencia de comentario.
•	wdRevisionMarking   Devuelve el valor True si está activo el control de cambios.

•	wdSelectionMode   Devuelve un valor que indica el modo de selección actual, como se muestra en la siguiente tabla.

Valor	Modo de selección
0 (cero)	Selección normal
1	Selección ampliada ("EXT" aparece en la barra de estado)
2	Selección de columna. ("COL" aparece en la barra de estado)
•	wdStartOfRangeColumnNumber   Devuelve el número de columna de la tabla que contiene el principio de la selección o del intervalo.

•	wdStartOfRangeRowNumber   Devuelve el número de fila de la tabla que contiene el principio de la selección o del intervalo.

•	wdVerticalPositionRelativeToPage   Devuelve la posición vertical de la selección o del intervalo especificado; se trata de la distancia desde el borde superior de la selección o del intervalo hasta el borde superior de la página, en twips (20 twips = 1 punto, 72 puntos = 2,54 centímetros). Si no se ve la selección en la ventana del documento, devuelve el valor  – 1.

•	wdVerticalPositionRelativeToTextBoundary   Devuelve la posición vertical de la selección o del intervalo; relativa al borde superior del límite de texto más próximo que lo incluya, en twips (20 twips = 1 punto, 72 puntos = 2,54 centímetros). Es útil para determinar la posición del punto de inserción dentro de un marco o de la celda de una tabla. Si no es visible la selección, devuelve el valor  – 1.

•	wdWithInTable   Devuelve el valor True si la selección está en la tabla.

•	wdZoomPercentage   Devuelve el porcentaje actual de ampliación de la forma establecida por la propiedad Percentage.


Ejemplo de la propiedad Information

En este ejemplo, se muestra el número de página actual y el número total de páginas del documento activo.

MsgBox "La selección está en la página " & _

    Selection.Information(wdActiveEndPageNumber) & " de un total de páginas de " _

    & Selection.Information(wdNumberOfPagesInDocument)

Si la selección está en una tabla, en este ejemplo se selecciona la tabla.

If Selection.Information(wdWithInTable) Then Selection.Tables(1).Select

En este ejemplo, se muestra un mensaje que indica el número de sección actual.

Selection.Collapse Direction:=wdCollapseStart

MsgBox "El punto de inserción está en la sección."

    Selection.Information(wdActiveEndSectionNumber)


Método TypeText

Inserta el texto especificado. Si el valor de la propiedad ReplaceSelection es True, el texto especificado sustituirá a la selección. Si el valor de ReplaceSelection es False, se inserta el texto especificado delante de la selección.

Sintaxis

expresión.TypeText(Text)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Text   String requerida. Texto que se va a insertar.


Ejemplo del método TypeText

Si se selecciona el comando Reemplazar la selección al escribir en la ficha Edición del cuadro de diálogo Opciones, en este ejemplo se contrae la selección antes de insertar "Hola." Esta técnica evita que se sustituya el texto del documento.

If Options.ReplaceSelection = True Then

    Selection.Collapse Direction:=wdCollapseStart

    Selection.TypeText Text:="Hola"

End If

En este ejemplo, se inserta "Título" a continuación del nuevo párrafo.

Options.ReplaceSelection = False

With Selection

    .TypeText Text:="Título"

    .TypeParagraph

End With


Método MoveUp

Sube la selección y devuelve el número de unidades que se han movido.

Nota   La constante wdWindow puede utilizarse para moverse al principio o al final de la ventana activa. Independientemente del valor de Count (superior a 1 o inferior a  – 1), la constante wdWindow sólo mueve una unidad. Use la constante wdScreen para mover más de una pantalla.

Sintaxis

expresión.MoveUp(Unit, Count, Extend)

expresión   Requerida. Expresión que devuelve un objeto Selection.

Unit   Variant opcional. Unidad por la que va a moverse la selección. Puede ser una de las siguientes constantes WdUnits: wdLine, wdParagraph, wdWindow o wdScreen. El valor predeterminado es wdLine.

Count   Variant opcional. El número de unidades que va a moverse la selección. El valor predeterminado es 1.

Extend   Variant opcional. Puede ser wdMove o wdExtend. Si se utiliza wdMove, se contrae la selección en el punto final y se sube. Si se utiliza wdExtend, se amplía hacia arriba la selección. El valor predeterminado es wdMove.


Ejemplo del método MoveUp

En este ejemplo, se mueve la selección al principio del párrafo anterior.

Selection.MoveRight

Selection.MoveUp Unit:=wdParagraph, Count:=2, Extend:=wdMove

En este ejemplo, se muestra el número de línea actual, se sube la selección tres líneas y vuelve a mostrarse dicho número.

MsgBox "Línea " & Selection.Information(wdFirstCharacterLineNumber)

Selection.MoveUp Unit:=wdLine, Count:=3, Extend:=wdMove

MsgBox "Línea " & Selection.Information(wdFirstCharacterLineNumber)


Propiedad AutomaticallyUpdate

True: si vuelve a definirse el estilo automáticamente basado en la selección. False: si Word le pide confirmación antes de volver a definir el estilo basado en la selección. Los estilos se pueden volver a definir cuando se han aplicado a una selección con el mismo estilo pero distinto formato manual. Boolean de Lectura/Escritura.


Ejemplo de la propiedad AutomaticallyUpdate

En este ejemplo se crea un estilo denominado "miEstilo", que puede volver a definirse sin necesidad de confirmación.

Set miDoc = Documents.Add

Set myEstilo = miDoc.Styles.Add("miEstilo")

With myEstilo

    .BaseStyle = miDoc.Styles(wdStyleNormal)

    .ParagraphFormat.LineSpacingRule = wdLineSpaceDouble

    .AutomaticallyUpdate = True

End With


Propiedad BaseStyle

Devuelve o establece un estilo existente en el que puede basar el formato de otro estilo. Para establecer esta propiedad, especifique el nombre local del estilo base, un número entero o una constante WdBuiltinStyle, o bien un objeto que represente a dicho estilo. Variant de Lectura/Escritura.

Para obtener una lista de las constantes WdBuiltinStyle, consulte la propiedad Style.


Ejemplo de la propiedad BaseStyle

En este ejemplo se crea un nuevo documento y, a continuación, se agrega un nuevo estilo de párrafo denominado "miTítulo". Se asigna Título 1 como estilo base del nuevo estilo. A continuación, se especifica una sangría izquierda de 72 puntos (2,54 cm) para el nuevo estilo.

Set miDoc = Documents.Add

Set miEncabezado = miDoc.Styles.Add("miTítulo")

With miEncabezado

    .BaseStyle = miDoc.Styles(wdStyleHeading1)

    .ParagraphFormat.LeftIndent = 72

End With

En este ejemplo se devuelve el estilo base utilizado para el estilo de párrafo Texto principal.

base = ActiveDocument.Styles(wdStyleBodyText).BaseStyle

MsgBox base


Propiedad BuiltIn

True: si el objeto especificado es uno de los estilos o etiquetas de títulos integrados de Word. Boolean de sólo lectura.

Comentarios

Puede especificar estilos integrados en todos los idiomas utilizando las constantes WdBuiltinStyle, o en un idioma, utilizando el nombre de estilo de la versión de idioma de Word. Por ejemplo, en la versión Inglés (U.S.) de Word, las siguientes instrucciones son equivalentes:

ActiveDocument.Styles(wdStyleHeading1)

ActiveDocument.Styles("Título 1")


Ejemplo de la propiedad BuiltIn

En este ejemplo se comprueban todos los estilos del documento activo. Cuando se encuentra un estilo no integrado, se muestra el nombre del mismo.

For Each estilo in ActiveDocument.Styles

    If estilo.BuiltIn = False Then

        Msgbox estilo.NameLocal

    End If

Next

En este ejemplo se comprueban todas las etiquetas de título creadas en la aplicación. Cuando se encuentra una etiqueta de título no integrada, se muestra el nombre de la misma.

For Each lb in CaptionLabels

    If lb.BuiltIn = False Then

        Msgbox lb.Name

    End If

Next


Propiedad Description

Devuelve la descripción del estilo especificado. Por ejemplo, una descripción típica del estilo Título 2 debería ser "Normal + Fuente: Arial, 12 pto, Negrita, Cursiva, Espacio anterior 12 pto y posterior 3 pto, Conservar con el siguiente, Nivel 2." String de sólo lectura.


Ejemplo de la propiedad Description

En este ejemplo se crea un nuevo documento y se inserta una lista delimitada por tabulaciones de los estilos del documento activo y sus descripciones.

Set miDoc = ActiveDocument

Set nuevoDoc = Documents.Add

For Each estilo In miDoc.Styles

    With nuevoDoc.Range

        .InsertAfter Text:=estilo.NameLocal & Chr(9) & estilo.Description

        .InsertParagraphAfter

    End With

Next estilo


Propiedad NextParagraphStyle

Devuelve o establece el estilo que se va a aplicar automáticamente al nuevo párrafo insertado a continuación de un párrafo que tenga aplicado el formato del estilo especificado. Para establecer esta propiedad, especifique el nombre local del estilo siguiente, un número entero o una constante WdBuiltinStyle, o bien un objeto que represente a dicho estilo. Variant de Lectura/Escritura.

Para obtener una lista de las constantes WdBuiltinStyle, consulte la propiedad Style.


Ejemplo de la propiedad NextParagraphStyle

En este ejemplo se establece el estilo Título 1 al que va a seguir el estilo Título 2 del documento activo.

ActiveDocument.Styles(wdStyleHeading1).NextParagraphStyle = _

    ActiveDocument.Styles(wdStyleHeading2)

En este ejemplo se crea un nuevo documento y se agrega un estilo de párrafo denominado "MiEstilo". El nuevo estilo se basa en el estilo Normal, va seguido por el estilo Título 3, tiene una sangría izquierda de 72 puntos (2,54 cm) y está en negrita.

Set miDoc = Documents.Add

Set miEstilo = miDoc.Styles.Add(Name:= "MiEstilo")

    With miEstilo

        .BaseStyle = wdStyleNormal

        .NextParagraphStyle = wdStyleHeading3

        .ParagraphFormat.LeftIndent = 72

        .Font.Bold = True

    End With


Propiedad StyleName

Devuelve el nombre del estilo aplicado al elemento de Autotexto especificado. String de sólo lectura.


Ejemplo de la propiedad StyleName

En este ejemplo se crea un elemento de Autotexto y, a continuación, se muestra el nombre del estilo del elemento.

Set mientrada = NormalTemplate.AutoTextEntries.Add(Name:="rsvp", _

    Range:=Selection.Range)

MsgBox mientrada.StyleName


Propiedad Styles

Devuelve un conjunto Styles del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Styles

En este ejemplo se aplica el estilo Título 1 a todos los párrafos del documento activo que empiezan por la palabra "Capítulo".

For Each para In ActiveDocument.Paragraphs

    If para.Range.Words(1).Text = "Capítulo " Then

        para.Style = ActiveDocument.Styles(wdStyleHeading1)

    End If

Next para

En este ejemplo se abre la plantilla adjunta al documento activo y se modifica el estilo Título 1. Se guarda la plantilla y se actualizan todos los estilos de dicho documento.

Set tempDoc = ActiveDocument.AttachedTemplate.OpenAsDocument

With tempDoc.Styles(wdStyleHeading1).Font

    .Name = "Arial"

    .Size = 16

End With

tempDoc.Close SaveChanges:=wdSaveChanges

ActiveDocument.UpdateStyles


Método AddFromFile

Agrega el subdocumento especificado al principio de la selección y devuelve un objeto Subdocument.

Nota   Si la vista activa no es ni la vista Esquema ni la vista del documento maestro, se producirá un error.

Sintaxis

expresión.AddFromFile(Name, ConfirmConversions, ReadOnly, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate)

expresión   Requerida. Expresión que devuelve un objeto Subdocuments.

Name   String requerida. Nombre del archivo del subdocumento que se va a insertar en el documento maestro.

ConfirmConversions   Variant opcional. True para confirmar el cuadro de diálogo Convertir archivo si el archivo no está en formato de Word.

ReadOnly   Variant opcional. True para insertar el subdocumento como documento de sólo lectura.

PasswordDocument   Variant opcional. Contraseña requerida para abrir el subdocumento si está protegido con contraseña.

PasswordTemplate   Variant opcional. Contraseña requerida para abrir la plantilla adjunta al subdocumento si la plantilla está protegida con contraseña.

Revert   Variant opcional. Controla lo que sucede si Name es el nombre del archivo de un documento abierto. True para insertar la versión guardada del subdocumento. False para insertar la versión abierta del subdocumento, que puede contener cambios sin guardar.

WritePasswordDocument   Variant opcional. Contraseña requerida para guardar los cambios en el archivo del documento si está protegido contra escritura.

WritePasswordTemplate   Variant opcional. Contraseña requerida para guardar la plantilla adjunta al subdocumento si la plantilla está protegida contra escritura.


Ejemplo del método AddFromFile

En este ejemplo, se agrega un subdocumento denominado "Subdoc.doc" al documento activo.

ActiveWindow.View.Type = wdMasterView

ActiveDocument.Subdocuments.AddFromFile Name:="C:\MiCarpeta\Subdoc.doc"

En este ejemplo, se agrega un subdocumento protegido con contraseña  denominado "MiSubdoc.doc" al documento activo en base de sólo lectura.

Selection.Range.Subdocuments.AddFromFile Name:="MiSubdoc.doc", _

    ReadOnly:=True, PasswordDocument:="MiContraseña"


Método AddFromRange

Crea uno o varios subdocumentos a partir del texto en el intervalo especificado y devuelve un objeto SubDocument.

Nota   El intervalo debe empezar por uno de los estilos de nivel de título integrados; por ejemplo, Título1. Los subdocumentos se crean en todos los párrafos con formato con el mismo formato de título utilizado al principio del intervalo. Los archivos de subdocumentos se guardan cuando el documento maestro se guarda y se les asigna nombre automáticamente utilizando el texto de la primera línea del archivo.

Sintaxis

expresión.AddFromRange(Range)

expresión   Requerida. Expresión que devuelve un objeto Subdocuments.

Range   Objeto Range requerido. Objeto Range utilizado para crear uno o varios subdocumentos.


Ejemplo del método AddFromRange

En este ejemplo, se crea uno o varios subdocumentos a partir de la selección.

ActiveWindow.View.Type = wdMasterView

ActiveDocument.SubDocuments.AddFromRange Range:=Selection.Range


Propiedad Expanded

True si se amplían los subdocumentos del documento especificado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Expanded

En este ejemplo, se amplían todos los subdocumentos del documento maestro activo.

If ActiveDocument.Subdocuments.Count >= 1 Then

    ActiveDocument.Subdocuments.Expanded = True

End If

En este ejemplo, se activa la propiedad Expanded entre todos los subdocumentos que se contraen y se amplían del documento activo.

ActiveDocument.Subdocuments.Expanded = Not ActiveDocument.Subdocuments.Expanded

En este ejemplo, se determina si los subdocumentos de Informe.doc se amplían y, a continuación, se muestra un mensaje que indica su estado.

If Documents("Informe.doc").Subdocuments.Expanded = True Then

    MsgBox "Se muestra toda la información disponible."

Else

    MsgBox "Amplíe los subdocumentos para obtener más información."

End If


Propiedad HasFile

True si se ha guardado el subdocumento especificado en un archivo. Boolean de sólo lectura.


Ejemplo de la propiedad HasFile

En este ejemplo, se muestra el nombre del archivo de cada subdocumento del documento activo. En este ejemplo, también se muestra un mensaje para cada subdocumento que no se haya guardado.

For Each subdoc In ActiveDocument.Subdocuments

    subdoc.Range.Select

    If subdoc.HasFile = True Then

        MsgBox subdoc.Path & Application.PathSeparator & subdoc.Name

    Else

        MsgBox "No se guardó este documento."

    End If

Next subdoc


Propiedad IsMasterDocument

True si el documento especificado es un documento maestro. Un documento maestro incluye uno o varios subdocumentos. Boolean de sólo lectura.


Ejemplo de la propiedad IsMasterDocument

Si el documento activo es un documento maestro, en este ejemplo se pasa a la vista de documento maestro y se abre el primer subdocumento.

If ActiveDocument.IsMasterDocument = True Then

    ActiveWindow.View.Type = wdMasterView

    ActiveDocument.Subdocuments(1).Open

Else

    MsgBox "Este documento no es un documento maestro."

End If


Propiedad IsSubdocument

True si el documento especificado está abierto en una ventana de documento independiente como subdocumento de un documento maestro. Boolean de sólo lectura.


Ejemplo de la propiedad IsSubdocument

En este ejemplo, se determina si Ventas.doc es un subdocumento y, a continuación, se muestra un mensaje que indica su estado.

If Documents("Ventas.doc").IsSubdocument = True Then

    MsgBox "Ventas.doc es un subdocumento."

Else

    MsgBox "Ventas.doc no es un subdocumento."

End If


Propiedad Locked

Objeto Subdocument: True si el subdocumento de un documento maestro está bloqueado. Boolean de Lectura/Escritura.

Objeto LinkFormat: True si está bloqueado un objeto Field, InlineShape o Shape para evitar actualizaciones automáticas. Si utiliza esta propiedad con un objeto Shape que es una imagen vinculada flotante; es decir, una imagen agregada con un método AddPicture del objeto Shapes, se producirá un error. Boolean de Lectura/Escritura.

Objeto Field o MailMergeField: True si está bloqueado el campo especificado. Cuando un campo está bloqueado, no podrá actualizar sus resultados. Boolean de Lectura/Escritura.

Objeto Fields: True si están bloqueados todos los campos del conjunto Fields. Puede ser True, False o wdUndefined, si está bloqueado alguno de los campos del conjunto. Long de Lectura/Escritura.


Ejemplo de la propiedad Locked

En este ejemplo, se comprueba el primer subdocumento del documento maestro especificado y se establece que este último permita sólo comentarios si está bloqueado el subdocumento.

If ActiveDocument.Subdocuments(1).Locked = True Then

    ActiveDocument.Protect Type:=wdAllowOnlyComments

End If

En este ejemplo, se inserta un campo FECHA al principio de la selección y, a continuación, se bloquea el campo.

Selection.Collapse Direction:=wdCollapseStart

Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _

    Type:=wdFieldDate)

myField.Locked = True

En este ejemplo, se bloquean todos los campos de la selección.

Selection.Fields.Locked = True

En este ejemplo, se muestra un mensaje si están bloqueados algunos campos del documento activo.

Set theFields = ActiveDocument.Fields

If theFields.Locked = wdUndefined Then

    MsgBox "Hay campos bloqueados"

ElseIf theFields.Locked = False Then

    MsgBox "No hay campos bloqueados"

ElseIf theFields.Locked = True Then

    MsgBox "Todos los campos están bloqueados"

End If


Propiedad Subdocuments

Devuelve un conjunto Subdocuments que representa todos los subdocumentos del intervalo o del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Subdocuments

En este ejemplo, se muestra el número de subdocumentos incrustados del documento activo.

MsgBox ActiveDocument.Subdocuments.Count

En este ejemplo, se muestra la ruta de acceso y el nombre del archivo de cada subdocumento del documento activo.

For Each subdoc In ActiveDocument.Subdocuments

    If subdoc.HasFile = True Then

        MsgBox subdoc.Path & Application.PathSeparator & subdoc.Name

    Else

        MsgBox "No se guardó este documento."

    End If

Next subdoc


Propiedad AntonymList

Devuelve una lista de antónimos de la palabra u oración. La lista se devuelve en forma de una matriz de cadenas. Variant de sólo lectura.

Comentarios

La propiedad AntonymList es una propiedad del objeto SynonymInfo, que puede devolverse desde un intervalo o una aplicación. Si este objeto se devuelve desde una aplicación, se especifica la palabra que se va a buscar y el idioma que se va utilizar. Cuando el objeto se devuelve desde un intervalo, éste se busca utilizando el idioma del intervalo.


Ejemplo de la propiedad AntonymList

En este ejemplo se devuelve una lista de antónimos de la palabra "grande".

Alist = SynonymInfo(Word:="grande", LanguageID:=wdSpanish).AntonymList

For i = 1 To UBound(Alist)

    Msgbox Alist(i)

Next i

En este ejemplo se devuelve una lista de antónimos de la palabra u oración de la selección y los presenta en la ventana Immediate del Editor de Visual Basic.

listAnt = Selection.Range.SynonymInfo.AntonymList

If UBound(listAnt) <> 0 Then

    For i = 1 To UBound(listAnt)

        Debug.Print listAnt(i) & Str(i)

    Next i

Else

    Msgbox "No se encontraron antónimos."

End If

En este ejemplo se devuelve una lista de antónimos de la tercera palabra del documento activo, en el caso de que haya alguno.

Set miIntervalo = ActiveDocument.Words(3)

milistant = miIntervalo.SynonymInfo.AntonymList

If Ubound(milistant) = 0 Then

    MsgBox "No hay antónimos de la tercera palabra."

Else

    For i = 1 To UBound(milistant)

        Msgbox milistant(i)

    Next I

End If


Propiedad Found

Objeto SynonymInfo: True si el diccionario de sinónimos encuentra sinónimos, antónimos, palabras relacionadas o expresiones relacionadas para la palabra u oración. Boolean de sólo lectura.

Objeto Find: True si la búsqueda produce una coincidencia. Boolean de sólo lectura.


Ejemplo de la propiedad Found

En este ejemplo se comprueba si el diccionario de sinónimos contiene sugerencias de sinónimos de la palabra "autorizar".

Set mipalabra = SynonymInfo(Word:="autorizar", LanguageID:=wdSpanish)

If mipalabra.Found = True Then

    Msgbox "El diccionario de sinónimos tiene sugerencias."

Else

    Msgbox "El diccionario de sinónimos no tiene sugerencias."

End If

En este ejemplo se comprueba si el diccionario de sinónimos contiene sugerencias de sinónimos para la selección. Si las tiene, el ejemplo muestra el cuadro de diálogo Sinónimos con los sinónimos listados.

Set miSininfo = Selection.Range.SynonymInfo

If miSininfo.Found = True Then

    Selection.Range.CheckSynonyms

Else

    Msgbox "El diccionario de sinónimos no tiene sugerencias."

End If

En este ejemplo, se quita el formato de los criterios de búsqueda antes de buscar en la selección. Si se encuentra la palabra "Hola" con formato de negrita, se selecciona y se copia todo el párrafo al Portapapeles.

With Selection.Find

    .ClearFormatting

    .Font.Bold = True

    .Execute FindText:="Hola", Format:=True, Forward:=True

    If .Found = True Then

        .Parent.Expand Unit:=wdParagraph

        .Parent.Copy

    End If

End With


Propiedad MeaningCount

Devuelve el número de elementos de la lista de significados que se encontraron en el diccionario de sinónimos para la palabra u oración. Devuelve un 0 (cero) si no se encontraron significados. Long de sólo lectura.

Comentarios

Cada significado representa una lista única de sinónimos de la palabra u oración.

Las listas de palabras relacionadas, expresiones relacionadas y antónimos no se cuentan como elementos de la lista de significados.


Ejemplo de la propiedad MeaningCount

En este ejemplo se comprueba si se encontraron algunos significados para la selección. Si se encontró alguno, la lista de significados se muestra en la ventana Immediate del Editor de Visual Basic.

Set miSinInfo = Selection.Range.SynonymInfo

If miSinInfo.MeaningCount <> 0 Then

    miLista = miSinInfo.MeaningList

    For i = 1 To Ubound(miLista)

        Debug.Print miLista(i)

    Next i

Else

    Msgbox "No se encontraron significados."

End If


Propiedad MeaningList

Devuelve la lista de significados de la palabra u oración. La lista se devuelve en forma de una matriz de cadenas. Variant de sólo lectura.

Comentarios

Las listas de palabras relacionadas, expresiones relacionadas y antónimos no se cuentan como elementos de la lista de significados.


Ejemplo de la propiedad MeaningList

En este ejemplo se comprueba si se encontraron algunos significados de la tercera palabra de MiDoc.doc. Si es así, los significados se presentan en una serie de cuadros de mensaje.

Set miSin = Documents("MiDoc.doc").Words(3).SynonymInfo

If miSin.MeaningCount <> 0 Then

    miLista = miSin.MeaningList

    For i = 1 To UBound(miLista)

        Msgbox miLista(i)

    Next i

Else

    Msgbox "No se encontraron significados."

End If


Propiedad PartOfSpeechList

Devuelve una lista de las partes del texto correspondiente a los significados que se encontraron de la palabra u oración que se buscó en el diccionario de sinónimos. La lista se devuelve en forma de una matriz de enteros. Variant de sólo lectura.

Comentarios

La lista de las partes del texto se devuelve en forma de una matriz que consiste de las siguientes constantes WdPartOfSpeech: wdAdjective, wdAdverb, wdNoun y wdVerb. Los elementos de la matriz se ordenan para que correspondan con los elementos devueltos por la propiedad MeaningList.


Ejemplo de la propiedad PartOfSpeechList

En este ejemplo se comprueba si el diccionario de sinónimos ha encontrado algunos significados de la selección. Si es así, los significados y las partes del texto correspondientes se presentan en una serie de cuadros de mensaje.

Set miSinInfo = Selection.Range.SynonymInfo

If miSinInfo.MeaningCount <> 0 Then

    miLista = miSinInfo.MeaningList

    miPos = miSinInfo.PartOfSpeechList

    For i = 1 To UBound(miPos)

        Select Case miPos(i)

            Case wdAdjective

                 pos = "adjetivo"

            Case wdNoun

                 pos = "nombre"

            Case wdAdverb

                 pos = "adverbio"

            Case wdVerb

                 pos = "verbo"

        End Select

        MsgBox miLista(i) & " encontrado como " & pos

    Next i

Else

    Msgbox "No se encontraron significados."

End If


Propiedad RelatedExpressionList

Devuelve una lista de expresiones relacionadas con la palabra o la oración especificada. La lista se devuelve en forma de una matriz de cadenas. Variant de sólo lectura.

Comentarios

Normalmente se encuentran muy pocas expresiones relacionadas en el diccionario de sinónimos.


Ejemplo de la propiedad RelatedExpressionList

En este ejemplo se comprueba si se encontraron algunas expresiones relacionadas para la selección. Si es así, los significados se presentan en una serie de cuadros de mensaje. Si no se encuentra ninguno, se especifica en un cuadro de mensaje.

Set miSinfo = Selection.Range.SynonymInfo

If miSinfo.Found = True Then

    miListRel = miSinfo.RelatedExpressionList

    If UBound(miListRel) <> 0 Then

        For i = 1 To UBound(miListRel)

            Msgbox miListRel(i)

        Next i

    Else

        Msgbox "No se encontraron expresiones relacionadas."

    End If

End If


Propiedad RelatedWordList

Devuelve una lista de palabras relacionadas con la palabra o la oración especificada. La lista se devuelve en forma de una matriz de cadenas. Variant de sólo lectura.


Ejemplo de la propiedad RelatedWordList

En este ejemplo se comprueba si se encontraron algunas palabras relacionadas para la tercera palabra del documento activo. Si es así, los significados se presentan en una serie de cuadros de mensaje. Si no se encontraron palabras relacionadas, el hecho se especifica en un cuadro de mensaje.

Set miSinon = ActiveDocument.Words(3).SynonymInfo

If miSinon.Found = True Then

    miListapal = miSinon.RelatedWordList

    If UBound(miListapal) <> 0 Then

        For i = 1 To UBound(miListapal)

            Msgbox miListapal(i)

        Next i

    Else

        Msgbox "No se encontraron palabras relacionadas."

    End If

End If


Propiedad SynonymInfo

Devuelve un objeto SynonymInfo que contiene información del diccionario de sinónimos acerca de sinónimos, antónimos o palabras o expresiones relacionadas de la palabra u oración especificada. Es de sólo lectura.

Sintaxis 1

expresión.SynonymInfo

Sintaxis 2

expresión.SynonymInfo(Word, LanguageID)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Range.

Sintaxis 2: Opcional. Expresión que devuelve un objeto Application.

Word   String requerida. Palabra u oración que se busca en el diccionario de sinónimos.

LanguageID   Variant opcional. Idioma que utiliza el diccionario de sinónimos. Puede ser una de las siguientes constantes WdLanguageID:

wdAfrikaans wdArabic wdBasque wdBelgianDutch wdBelgianFrench wdBrazilianPortuguese wdBulgarian wdByelorussian wdCatalan wdCroation wdCzech wdDanish wdDutch wdEnglishAUS wdEnglishCanadian wdEnglishNewZealand wdEnglishSouthAfrica wdEnglishUK wdEnglishUS wdEstonian wdFarsi wdFinnish wdFrench wdFrenchCanadian wdGerman wdGreek wdHebrew wdHungarian wdItalian wdIcelandic wdJapanese wdKorean	wdLanguageNone wdLatvian wdMacedonian wdMalaysian wdMexicanSpanish wdNoProofing wdNorwegianBokmol wdNorwegianNynorsk wdPolish wdPortuguese wdRomanian wdRussian wdSerbianCyrillic wdSerbianLatin wdSesotho wdSimplifiedChinese wdSlovak wdSlovenian wdSpanish wdSpanishModernSort wdSwedish wdSwissFrench wdSwissGerman wdSwissItalian wdTraditionalChinese wdTsonga wdTswana wdTurkish wdUkrainian wdVenda wdXhosa wdZulu


Ejemplo de la propiedad SynonymInfo

En este ejemplo se devuelve una lista de antónimos de la palabra "grande".

Alist = SynonymInfo(Word:="grande", LanguageID:=wdSpanish).AntonymList

For i = 1 To UBound(Alist)

    Msgbox Alist(i)

Next i

En este ejemplo se devuelve una lista de sinónimos del primer significado de la selección.

Slist = Selection.Range.SynonymInfo.SynonymList(Meaning:=1)

For i = 1 To UBound(Slist)

    Msgbox Slist(i)

Next i


Propiedad SynonymList

Devuelve una lista de sinónimos de un significado especificado de una palabra u oración. La lista se devuelve en forma de una matriz de cadenas. Variant de sólo lectura.

Sintaxis

expresión.SynonymList(Meaning)

expresión   Requerida. Expresión que devuelve un objeto SynonymInfo.

Meaning   Variant requerido. Significado como una cadena o un número de índice de la matriz de significados posibles.


Ejemplo de la propiedad SynonymList

En este ejemplo se devuelve una lista de sinónimos de la palabra "grande", utilizando el significado "magno".

Slist = SynonymInfo(Word:="grande", LanguageID:=wdSpanish) _

    .SynonymList(Meaning:="magno")

For i = 1 To UBound(Slist)

    Msgbox Slist(i)

Next i

En este ejemplo se devuelve una lista de sinónimos del segundo significado de la palabra u oración seleccionada y se presentan los sinónimos en la ventana Immediate del Editor de Visual Basic. Si no hay segundo significado o si no hay sinónimos, el hecho se indica en un cuadro de mensaje.

Set miSi = Selection.Range.SynonymInfo

If miSi.MeaningCount >= 2 Then

    listaSin = miSi.SynonymList(Meaning:=2)

        For i = 1 To UBound(listaSin)

            Debug.Print listaSin(i)

        Next i

Else

    MsgBox "No hay otro significado de esta palabra u oración."

End If


Propiedad Word

Devuelve la palabra u oración que se buscó mediante el diccionario de sinónimos. String de sólo lectura.

Comentarios

El diccionario de sinónimos buscará algunas veces una versión abreviada de la cadena o intervalo para devolver el objeto SynonymInfo. La propiedad Word permite ver la cadena exacta que se utilizó.


Ejemplo de la propiedad Word

En este ejemplo se devuelve una lista de sinónimos del primer significado de la tercera palabra del documento activo.

Set miObjSin = ActiveDocument.Words(3).SynonymInfo

SList = miObjSin.SynonymList(1)

For i = 1 To UBound(SList)

    Msgbox "Un sinónimo de " & miObjSin.Word & " es " & SList(i)

Next i

En este ejemplo se hace una comprobación para asegurarse que la palabra u oración que se buscó no está vacía. Si no está, el ejemplo devuelve una lista de sinónimos del primer significado de la palabra u oración.

Set miSininfo = Selection.Range.SynonymInfo

If miObjSin.Word = "" Then

    Msgbox "Por favor, seleccione una palabra u oración"

Else

    SList = miObjSin.SynonymList(1)

    For i = 1 To UBound(SList)

        Msgbox "Un sinónimo de " & miObjSin.Word & " es " & SList(i)

    Next i

End If


Propiedad ActiveThesaurusDictionary

Devuelve un objeto Dictionary que representa el diccionario de sinónimos activo para el idioma especificado. Es de sólo lectura.

Comentarios

Si no hay diccionario de sinónimos instalado del idioma especificado, esta propiedad devuelve Nothing.


Ejemplo de la propiedad ActiveThesaurusDictionary

En este ejemplo se devuelve la ruta de acceso completa y el nombre del archivo del diccionario de sinónimos activo.

miIdioma = Selection.LanguageID

Set miSin = Languages(miIdioma).ActiveThesaurusDictionary

MsgBox miSin.Path & Application.PathSeparator & miSin.Name


Propiedad Country

Devuelve la designación de país del sistema. Long de sólo lectura.

Puede ser una de las siguientes constantes WdCountry:

wdArgentina wdBrazil wdCanada wdChile wdChina wdDenmark wdFinland wdFrance wdGermany wdIceland wdItaly wdJapan	wdKorea wdLatinAmerica wdMexico wdNetherlands wdNorway wdPeru wdSpain wdSweden wdTaiwan wdUK wdUS wdVenezuela


Ejemplo de la propiedad Country

Si la propiedad Country devuelve el valor wdSpain, el valor del margen superior se convierte de puntos a centímetros.

If System.Country = wdSpain Then

    margenSup = ActiveDocument.PageSetup.TopMargin

    MsgBox "El margen superior tiene " & PointsToCentimeters(margenSup)

End If


Propiedad Cursor

Devuelve o establece el estado o la forma del puntero. Puede ser una de las siguientes constantes WdCursorType: wdCursorIBeam, wdCursorNormal, wdCursorNorthwestArrow o wdCursorWait. Long de Lectura/Escritura.


Ejemplo de la propiedad Cursor

En este ejemplo se imprime un mensaje de la barra de estado y se cambia la forma del puntero a un reloj de arena.

StatusBar = "Por favor, espere..."

For i = 1 To 1000

    System.Cursor = wdCursorWait

Next i

StatusBar = "La tarea ha finalizado"

System.Cursor = wdCursorNormal


Propiedad FreeDiskSpace

Devuelve el espacio en disco disponible en la unidad actual, en bytes. Utilice la instrucción ChDir para cambiar la unidad actual. Long de sólo lectura.

Nota   Un kilobyte equivale a 1024 bytes y un megabyte a 1.048.576 bytes.


Ejemplo de la propiedad FreeDiskSpace

En este ejemplo se comprueba la cantidad de espacio libre en disco. Si hay menos de 10 megabytes de espacio disponible, se muestra un mensaje.

If (System.FreeDiskSpace \ 1048576) < 10 Then MsgBox "Espacio libre insuficiente en el disco"


Propiedad HorizontalResolution

Devuelve la resolución de pantalla horizontal en píxeles. Long de sólo lectura.


Ejemplo de la propiedad HorizontalResolution

En este ejemplo se muestra la resolución de pantalla actual; por ejemplo, "1024 x 768".

horz = System.HorizontalResolution

vert = System.VerticalResolution

MsgBox "Resolución = " & horz & " x " & vert


Propiedad LanguageDesignation

Devuelve el idioma designado del software del sistema. String de sólo lectura.


Ejemplo de la propiedad LanguageDesignation

En este ejemplo se muestra "Inglés EE.UU." si la propiedad LanguageDesignation devuelve el valor "enu".

If System.LanguageDesignation = "enu" Then MsgBox "Inglés EE.UU."


Propiedad MathCoprocessorInstalled

True: si el sistema tiene instalado un coprocesador matemático. Boolean de sólo lectura.


Ejemplo de la propiedad MathCoprocessorInstalled

En este ejemplo se muestra un mensaje si el sistema tiene instalado un coprocesador matemático.

If System.MathCoprocessorInstalled = True Then

    MsgBox "Coprocesador matemático instalado."

End If


Método MSInfo

Inicia la aplicación Información del sistema de Microsoft si no está ejecutándose, o bien pasa a ella si se está ejecutando.

Sintaxis

expresión.MSInfo

expresión   Requerida. Expresión que devuelve un objeto System.


Ejemplo del método MSInfo

En este ejemplo se inicia o se pasa a la aplicación Información del sistema de Microsoft.

System.MSInfo


Propiedad ProcessorType

Devuelve el tipo de procesador que utiliza el sistema; por ejemplo, i486. String de sólo lectura.


Ejemplo de la propiedad ProcessorType

En este ejemplo se muestra un mensaje en la barra de estado si el procesador que utiliza el sistema no es un procesador Pentium.

If System.ProcessorType <> "Pentium" Then StatusBar = "Por favor, espere..."


Propiedad System

Devuelve el objeto System, que puede utilizarse para recuperar información y ejecutar tareas relacionadas con el sistema. Es de sólo lectura.


Ejemplo de la propiedad System

En este ejemplo se devuelve información acerca del sistema.

procesador = System.ProcessorType

entorno = System.OperatingSystem

En este ejemplo se establece una conexión con la unidad de red.

System.Connect Path:="\\Proyecto\Info"


Propiedad VerticalResolution

Devuelve la resolución de pantalla vertical en píxeles. Long de sólo lectura.


Ejemplo de la propiedad VerticalResolution

En este ejemplo se muestra la resolución de pantalla actual; por ejemplo, "1024 x 768".

horz = System.HorizontalResolution

vert = System.VerticalResolution

MsgBox "Resolución = " & horz & " x " & vert


Propiedad MathCoprocessorAvailable

True: si el sistema tiene instalado un coprocesador matemático. Boolean de sólo lectura.


Ejemplo de la propiedad MathCoprocessorAvailable

En este ejemplo se muestra un mensaje que indica si el sistema tiene instalado un coprocesador matemático.

If Application.MathCoprocessorAvailable = True Then

    MsgBox "Coprocesador matemático instalado."

Else

    MsgBox "No está instalado ningún coprocesador matemático."

End If


Método Connect

En Windows, establece una conexión con una unidad de la red. En un Macintosh, Connect no está disponible y produce un error; en su lugar, utilice el método MountVolume.

Sintaxis

expresión.Connect(Path, Drive, Password)

expresión   Requerida. Expresión que devuelve un objeto System.

Path   String requerida. Ruta de acceso de la unidad de red; por ejemplo, "\\Proyecto\Info".

Drive   Variant opcional. Número que corresponde a la letra que desee asignar a la unidad de red, donde 0 (cero) corresponde a la primera letra disponible, 1 corresponde a la segunda y así sucesivamente. Si se omite este argumento, se utilizará la siguiente letra disponible.

Password   Variant opcional. Contraseña, si es que la unidad de red está protegida con una.

Comentarios

Utilice la propiedad Dialogs con la constante wdDialogConnect para mostrar el cuadro de diálogo Conectar a la unidad de red. En el siguiente ejemplo se muestra el cuadro de diálogo Conectar a la unidad de red, con una ruta de acceso previamente establecida.

With Dialogs(wdDialogConnect)

    .Path = "\\Mercadotecnia\Público"

    .Show

End With


Ejemplo del método Connect

En este ejemplo, se establece la conexión con una unidad de red (\\Proyecto\Info) protegida con la contraseña "sonriente" y se le asigna la siguiente letra de unidad disponible.

System.Connect Path:="\\Proyecto\Info", Password:="sonriente"

En este ejemplo, se establece la conexión con una unidad de red (\\Equipo1\Público) y se le asigna la tercera letra de unidad disponible.

System.Connect Path:="\\Equipo1\Público", Drive:=2


Propiedad ProfileString

Devuelve o establece un valor del registro de Windows con la siguiente clave: HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word. En un Macintosh, esta propiedad devuelve o establece un valor del archivo Word Settings (97). String de Lectura/Escritura.

Sintaxis

expresión.ProfileString(Section, Key)

expresión   Requerida. Expresión que devuelve un objeto System.

Section   String requerida. Clave bajo la ruta de acceso "HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word" del registro de Windows.

Key   String requerida. Valor de la clave especificada por Section; por ejemplo, "BackgroundPrint" en la clave Opciones.


Ejemplo de la propiedad ProfileString

En este ejemplo, se recupera y se muestra la ruta de acceso de inicio guardada en el registro de Windows.

MsgBox System.ProfileString("Options", "Ruta acceso Inicio")

En este ejemplo, se establece y se devuelve un valor del registro de Windows; la clave de Valores se agrega bajo HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Valores.

System.ProfileString("Valores", "Prueba") = "foo"

MsgBox System.ProfileString("Valores", "Prueba")


Propiedad PrivateProfileString

Devuelve o establece una cadena de un archivo de configuración o del registro de Windows. String de Lectura/Escritura.

Sintaxis

expresión.PrivateProfileString(Filename, Section, Key)

expresión   Requerida. Expresión que devuelve un objeto System.

Filename   String requerida. Nombre del archivo de configuración. Si no se especifica ninguna ruta de acceso, se toma la carpeta de Windows (Windows) o de Preferencias (Macintosh). Si está utilizando Windows 95 o Windows NT para devolver un valor del registro, Filename debe ser una cadena vacía ("").

Section   String requerida. Nombre de la sección del archivo de configuración que contiene Key. En un archivo de configuración de Windows, el nombre de la sección aparece entre paréntesis delante de las claves asociadas; no incluya los paréntesis en Section. Si está devolviendo un valor del registro de Windows, Section debería ser la ruta de acceso completa de la clave, incluyendo el raíz; por ejemplo, "HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Opciones".

Key   String requerida. Clave cuya configuración desea recuperar. En un archivo de configuración de Windows, el nombre de la clave va seguido de un signo igual (=) y del valor. Si está devolviendo un valor del registro de Windows, Key debería ser el valor de la clave especificada en Section; por ejemplo, "Herramientas-Ruta de acceso".

Comentarios

Puede escribir macros que utilicen un archivo de configuración para guardar y recuperar valores. Por ejemplo, puede guardar el nombre del documento activo al salir de Word de manera que pueda volver a abrirse automáticamente la próxima vez que inicie Word. En Windows, un archivo de configuración es un archivo de texto con información organizada como la del archivo WIN.INI de Windows 3.x. En un Macintosh, un archivo de configuración es un archivo de recursos como Word Settings (97).


Ejemplo de la propiedad PrivateProfileString

En este ejemplo, se establece el nombre del documento actual con el valor de ÚltimoArchivo bajo el título ValoresMacro en Valores.txt.

System.PrivateProfileString("C:\Valores.txt", "ValoresMacro", _

    "ÚltimoArchivo") = ActiveDocument.FullName

En este ejemplo, se devuelve el valor ÚltimoArchivo de Valores.txt y, a continuación, se abre el documento guardado en ÚltimoArchivo.

ÚltimoArchivo = System.PrivateProfileString("C:\Valores.Txt", _

    "ValoresMacro", "ÚltimoArchivo")

If ÚltimoArchivo <> "" Then Documents.Open FileName:=ÚltimoArchivo

En este ejemplo, se muestra el valor predeterminado para el nombre de usuario del registro de Windows.

unNombre = System.PrivateProfileString("", _

    "HKEY_CURRENT_USER\Software\Microsoft\MS Setup (ACME)\User Info", "Defname")

MsgBox unNombre


Propiedad AllowBreakAcrossPages

True: si el texto de las filas de una tabla puede dividirse en un salto de página. Su valor puede establecerse en True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad AllowBreakAcrossPages

En este ejemplo se crea un nuevo documento con una tabla de 5 x 5 y se evita que se divida la tercera fila durante la paginación.

Set nuevoDoc = Documents.Add

Set unaTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, _

    NumRows:=5, NumColumns:=5)

unaTabla.Rows(3).AllowBreakAcrossPages = False

En este ejemplo se determina si pueden dividirse las filas de la tabla actual entre las páginas. Si el punto de inserción no está en la tabla, aparecerá un cuadro de mensaje.

Selection.Collapse Direction:=wdCollapseStart

If Selection.Tables.Count = 0 Then

    MsgBox "El punto de inserción no está en ninguna tabla."

Else

    permiteDivisión = Selection.Rows.AllowBreakAcrossPages

End If


Método AutoFit

Cambia el ancho de la columna de una tabla para incluir el ancho del texto sin cambiar el ajuste del mismo en las celdas.

Sintaxis

expresión.AutoFit

expresión   Requerida. Expresión que devuelve un objeto Column o Columns.

Comentarios

Si la tabla ya tiene el ancho de la distancia entre los márgenes izquierdo y derecho, este método no tendrá efecto.


Ejemplo del método AutoFit

En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento y, a continuación, se cambia el ancho de la primera columna para incluir el ancho del texto.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, _

    NumRows:=3, NumColumns:=3)With miTabla

    .Cell(1,1).Range.InsertAfter "Primera celda"

    .Columns(1).AutoFit

End With

En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento y, a continuación, se cambia el ancho de todas las columnas para incluir el ancho del texto.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 3)

With miTabla

    .Cell(1,1).Range.InsertAfter "Primera celda"

    .Cell(1,2).Range.InsertAfter "Celda (1,2)"

    .Cell(1,3).Range.InsertAfter "(1,3)"

    .Columns.AutoFit

End With


Método AutoSum

Inserta un campo = (Fórmula) que calcula y muestra la suma de los valores de las celdas de la tabla sobre o a la izquierda de la celda especificada en la expresión. Para obtener información acerca de la forma en que Word determina los valores que van a agregarse, consulte el método Formula.

Sintaxis

expresión.AutoSum

expresión   Requerida. Expresión que devuelve un objeto Cell.


Ejemplo del método AutoSum

En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento y se suman los números de la primera columna.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 3)

With MiTabla

    .Cell(1,1).Range.InsertAfter "10"

    .Cell(2,1).Range.InsertAfter "15"

    .Cell(3,1).AutoSum

End With

En este ejemplo se suman los números sobre o a la izquierda de la celda que contiene el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells(1).AutoSum

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Método Cell

Devuelve un objeto Cell que representa a una celda de una tabla.

Sintaxis

expresión.Cell(Row, Column)

expresión   Requerida. Expresión que devuelve un objeto Table.

Row   Long requerida. Número de la fila de la tabla que va a devolverse. Puede ser un número entero comprendido entre 1 y el número de filas de la tabla.

Column   Long requerida. Número de la celda de la tabla que va a devolverse. Puede ser un número entero comprendido entre 1 y el número de columnas de la tabla.


Ejemplo del método Cell

En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento y se inserta texto en la primera y última celda de la tabla.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 3)

With miTabla

    .Cell(1,1).Range.InsertAfter "Primera celda"

    .Cell(miTabla.Rows.Count, _

        miTabla.Columns.Count).Range.InsertAfter "Última celda"

End With

En este ejemplo se elimina la primera celda de la primera tabla del documento activo.

If ActiveDocument.Tables.Count >= 1 Then

    ActiveDocument.Tables(1).Cell(1, 1).Delete

End If


Propiedad Cells

Devuelve un conjunto Cells que representa las celdas de la tabla en una columna, fila, selección o rango. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Cells

En este ejemplo se crea una tabla de 3 x 3 y se asigna un número de celda secuencial a todas las celdas de la tabla.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 3)

i = 1

For Each c In miTabla.Range.Cells

    c.Range.InsertAfter "Celda " & i

    i = i + 1

Next c

En este ejemplo se establece el color de fondo de la celda en rojo.

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells(1).Shading.BackgroundPatternColorIndex = wdRed

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Propiedad Column

Objeto Bookmark: True si el marcador especificado está en la columna de una tabla. Boolean de sólo lectura.

Objeto Cell: devuelve un objeto Column que representa a la columna de la tabla que contiene la celda especificada. Es de sólo lectura.


Ejemplo de la propiedad Column

En este ejemplo se crea una tabla con un marcador y, a continuación, se muestra un mensaje que confirma que el marcador es una columna de la tabla.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 5)

Set miRangoCeldas = miTabla.Cell(3,5).Range

miRangoCeldas.InsertAfter "Celda(3,5)"

nuevoDoc.Bookmarks.Add Name:="BKMK_Celda35", Range:=miRangoCeldas

MsgBox nuevoDoc.Bookmarks(1).Column

En este ejemplo se crea una tabla de 3 x 5 y se aplica el formato de sombreado a las columnas pares.

Selection.Collapse Direction:=wdCollapseStart

Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    NumRows:=3, NumColumns:=5)

For Each unaCelda In miTabla.Rows(1).Cells

    If unaCelda.ColumnIndex Mod 2 = 0 Then

        unaCelda.Column.Shading.Texture = wdTexture10Percent= 10

    End If

Next unaCelda


Propiedad ColumnIndex

Devuelve el número de columna de la tabla que contiene la celda especificada. Long de sólo lectura.


Ejemplo de la propiedad ColumnIndex

En este ejemplo se crea una tabla en un nuevo documento, se seleccionan todas las celdas de la primera fila y se devuelve el número de columna que contiene la celda seleccionada.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 3)

For Each unaCelda In miTabla.Rows(1).Cells

    unaCelda.Select

    MsgBox "Columna " & unaCelda.ColumnIndex

Next unaCelda

En este ejemplo se devuelve el número de columna de la celda que contiene el punto de inserción.

Msgbox Selection.Cells(1).ColumnIndex


Propiedad Columns

Devuelve un conjunto Columns que representa a todas las columnas de la tabla del intervalo, la selección o la tabla. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Columns

En este ejemplo se muestra el número de columnas de la primera tabla del documento activo.

If ActiveDocument.Tables.Count >= 1 Then

    MsgBox ActiveDocument.Tables(1).Columns.Count

End If

En este ejemplo se establece el ancho de la columna actual en 2,5 centímetros.

If Selection.Information(wdWithInTable) = True Then

    Selection.Columns.SetWidth ColumnWidth:=CentimetersToPoints(2.5), _

        RulerStyle:=wdAdjustProportional

End If


Método Formula

Inserta un campo = (Fórmula) que contiene la fórmula especificada en la celda de una tabla.

Sintaxis

expresión.Formula(Formula, NumFormat)

expresión   Requerida. Expresión que devuelve un objeto Cell.

Formula   Variant opcional. Fórmula matemática que desee que evalúe el campo = (Fórmula). Son válidas las referencias de tipo de hoja de cálculo a las celdas de la tabla. Por ejemplo, "=SUMA(A4:C4)" especifica los tres primeros valores de la cuarta fila. Para obtener más información acerca del campo = (Fórmula), consulte Códigos de campo: campo = (Fórmula).

NumFormat   Variant opcional. Formato para el resultado del campo = (Fórmula). Para obtener información acerca de los tipos de formatos aplicables, consulte Modificador de campo (\#) de imagen numérica.

Comentarios

Formula es opcional en tanto que haya, al menos, una celda que contenga un valor sobre o a la izquierda de la celda con el punto de inserción. Si las celdas sobre y a la izquierda del punto de inserción contienen valores, el campo insertado será {=SUMA(SOBRE)} y {=SUMA(IZQUIERDA)} respectivamente, y Word utilizará las siguientes reglas para determinar la función SUMA que va a insertarse:

•	Si la celda situada sobre el punto de inserción contiene un valor, Word insertará {=SUMA(SOBRE)}.

•	Si la celda situada sobre el punto de inserción no contiene ningún valor y la que está a la izquierda sí, Word insertará {=SUMA(IZQUIERDA)}.

•	Si ninguna celda adyacente contiene valores, Word insertará {=SUMA(SOBRE)}.

•	Si no especifica ningún valor de Formula y todas las celdas sobre y a la izquierda del punto de inserción están vacías, el resultado del campo dará un error.


Ejemplo del método Formula

En este ejemplo se crea una tabla de 3 x 3 al principio del documento activo y, a continuación, se obtiene la media de los números de la primera columna.

Set miIntervalo = ActiveDocument.Range(0, 0)

Set miTabla = ActiveDocument.Tables.Add(miIntervalo, 3, 3)

With miTabla

    .Cell(1,1).Range.InsertAfter "100"

    .Cell(2,1).Range.InsertAfter "50"

    .Cell(3,1).Formula Formula:="=Promedio(Encima)"

End With

En este ejemplo se inserta una fórmula en el punto de inserción, que determina el número más alto de la celda que se encuentra sobre la celda seleccionada.

Selection.Collapse Direction:=wdCollapseStart

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells(1).Formula Formula:="=Max(Encima)"

Else

   MsgBox "El punto de inserción no está en una tabla."

End If


Propiedad HeadingFormat

True: si las filas especificadas tienen el formato del título de una tabla. Las filas con formato de títulos de tabla se repiten cuando una tabla ocupa varias páginas. Su valor puede establecerse en True, False o wdUndefined. Long de Lectura/Escritura.


Ejemplo de la propiedad HeadingFormat

En este ejemplo se crea una tabla de 5 x 5 al principio del documento activo y, a continuación, se agrega el formato de título de tabla a la primera fila de la misma.

Set miIntervalo = ActiveDocument.Range(0, 0)

Set miTabla = ActiveDocument.Tables.Add(miIntervalo, 5, 5)

miTabla.Rows(1).HeadingFormat = True

En este ejemplo se determina si la fila que contiene el punto de inserción tiene el formato de título de tabla.

If Selection.Information(wdWithInTable) = True Then

    If Selection.Rows(1).HeadingFormat = True Then _

        MsgBox "La fila actual corresponde al título de una tabla"

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Propiedad IsFirst

True: si la columna o fila especificada es la primera de la tabla. Boolean de sólo lectura.


Ejemplo de la propiedad IsFirst

En este ejemplo se determina si la primera fila de la selección es la primera de la tabla.

MsgBox Selection.Rows(1).IsFirst


Propiedad IsLast

True: si la columna o fila especificada es la última de la tabla. Boolean de sólo lectura.


Ejemplo de la propiedad IsLast

En este ejemplo se determina si la segunda fila es la última de la tabla.

MsgBox ActiveDocument.Tables(1).Rows(2).IsLast

En este ejemplo se determina si la primera columna de la selección es la última de la tabla.

If Selection.Information(wdWithInTable) = True Then

    MsgBox Selection.Columns(1).IsLast

End If


Propiedad Row

Devuelve un objeto Row que representa a la fila que contiene la celda especificada. Es de sólo lectura.


Ejemplo de la propiedad Row

En este ejemplo se aplica el formato de sombreado a la fila de la tabla que contiene el punto de inserción.

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells(1).Row.Shading.Texture = wdTexture10Percent

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Propiedad RowIndex

Devuelve el número de fila que contiene la celda especificada. Long de sólo lectura.


Ejemplo de la propiedad RowIndex

En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento, se seleccionan todas las celdas de la primera columna y se muestra el número de fila que contiene la celda seleccionada.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, _

    NumRows:=3, NumColumns:=3)

For Each unaCelda In miTabla.Columns(1).Cells

    unaCelda.Select

    MsgBox "Fila " & unaCelda.RowIndex

Next unaCelda

En este ejemplo se muestra el número de fila de la primera fila de la selección.

If Selection.Information(wdWithInTable) = True Then

    Msgbox Selection.Cells(1).RowIndex

End If


Propiedad Rows

Devuelve un conjunto Rows que representa a todas las filas de la tabla del intervalo, la selección o la tabla. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Rows

En este ejemplo se elimina la segunda fila de la primera tabla del documento activo.

ActiveDocument.Tables(1).Rows(2).Delete

En este ejemplo se coloca un borde alrededor de las celdas de la fila que contiene el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

If Selection.Information(wdWithInTable) = True Then

    Selection.Rows(1).Borders.OutsideLineStyle =  wdLineStyleSingle

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Método Sort

Sintaxis 1: ordena la columna de la tabla especificada.

Sintaxis 2: ordena la tabla especificada.

Sintaxis 3: ordena los párrafos de la selección o del intervalo especificado.

Sintaxis 1

expresión.Sort(ExcludeHeader, SortFieldType, SortOrder, CaseSensitive, LanguageID)

Sintaxis 2

expresión.Sort(ExcludeHeader, FieldNumber, SortFieldType, SortOrder, FieldNumber2, SortFieldType2, SortOrder2, FieldNumber3, Sort FieldNum3, SortFieldType3, SortOrder3, CaseSensitive, LanguageID)

Sintaxis 3

expresión.Sort(ExcludeHeader, FieldNumber, SortFieldType, SortOrder, FieldNumber2, SortFieldType2, SortOrder2, FieldNumber3, SortFieldType3, SortOrder3, SortColumn, Separator, CaseSensitive, LanguageID)

expresión   Sintaxis 1: requerida. Expresión que devuelve un objeto Column.

Sintaxis 2: requerida. Expresión que devuelve un objeto Table.

Sintaxis 3: requerida. Expresión que devuelve un objeto Range o Selection.

ExcludeHeader   Variant opcional. True: para excluir la primera fila o el primer párrafo a partir de la operación de ordenación. El valor predeterminado es False.

FieldNumber, FieldNumber2, FieldNumber3   Variant opcional. Campos por los que se va a realizar la ordenación. Word ordena por FieldNum, FieldNum2 y, a continuación, por FieldNum3.

SortFieldType, SortFieldType2, SortFieldType3   Variant opcional. El tipo de ordenación de columnas (Sintaxis 1) o los tipos de ordenación respectivos de FieldNumber, FieldNumber2 y FieldNumber3 (Sintaxis 2 y Sintaxis 3). Puede ser una de las siguientes constantes WdSortFieldType: wdSortFieldAlphanumeric, wdSortFieldDate o wdSortFieldNumeric. El valor predeterminado es wdSortFieldAlphanumeric.

SortOrder, SortOrder2, SortOrder3   Variant opcional. El orden de ordenación de las columnas (Sintaxis 1) o el que se va a utilizar al ordenar FieldNum, FieldNum2 y FieldNum3 (Sintaxis 2 y Sintaxis 3). Puede ser una de las siguientes constantes WdSortOrder: wdSortOrderAscending o wdSortOrderDescending. El valor predeterminado es wdSortAscending.

SortColumn   Variant opcional. True: para ordenar sólo la columna especificada por el objeto Range o Selection.

Separator   Variant opcional. Tipo de separador de campo. Puede ser una de las siguientes constantes WdSortSeparator: wdSortSeparateByCommas, wdSortSeparateByDefaultTableSeparator o wdSortSeparateByTabs. El valor predeterminado es wdSortSeparateByCommas. Si el intervalo o la selección está en una tabla, se ignora este argumento.

CaseSensitive   Variant opcional. True: para ordenar distinguiendo entre mayúsculas y minúsculas. El valor predeterminado es False.

LanguageID   Variant opcional. Especifica el idioma de ordenación. Puede ser una de las constantes WdLanguageID:

Comentarios

Si desea ordenar los párrafos de la celda de una tabla, incluya sólo los párrafos y no la marca de fin de celda; si incluye esta marca en la selección o el rango e intenta ordenar los párrafos, Word muestra un mensaje indicando que no ha encontrado registros válidos que ordenar.


Ejemplo del método Sort

En este ejemplo se crea una tabla de 5 x 5 en un nuevo documento, se inserta texto en todas las celdas y, a continuación, se ordena la tabla en orden alfanumérico descendente.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 5, 5)

For iFila = 1 To miTabla.Rows.Count

    For iCol = 1 To miTabla.Columns.Count

       Set miIntervalo= miTabla.Rows(iFila).Cells(iCol).Range

       miIntervalo.InsertAfter "Celda (" & Str$(iFila) & "," & Str$(iCol) & ")"

    Next iCol

Next iFila

MsgBox "Haga clic en Aceptar para que el proceso de ordenación se efectúe en orden descendente."

miTabla.Sort SortOrder:=wdSortOrderDescending

En este ejemplo se insertan tres líneas de texto en un nuevo documento y, a continuación, se ordenan las líneas en orden alfanumérico ascendente.

Set nuevoDoc = Documents.Add

nuevoDoc.Content.InsertAfter "pera" & Chr(13) & "zucchini" & Chr(13) _

    & "manzana" & Chr(13)

nuevoDoc.Content.Sort SortOrder:=wdSortOrderAscending


Propiedad SpaceBetweenColumns

Devuelve o establece la distancia, en puntos, entre el texto de las columnas adyacentes de las filas especificadas. Single de Lectura/Escritura.


Ejemplo de la propiedad SpaceBetweenColumns

En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento y, a continuación, se establece el valor de la distancia entre las columnas de la primera fila en 1,25 centímetros.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 3, 3)

miTabla.Rows(1).SpaceBetweenColumns = CentimetersToPoints(1.25)

En este ejemplo se devuelve la distancia, en puntos, entre las columnas de las filas seleccionadas en la tabla.

If Selection.Information(wdWithInTable) = True Then

    MsgBox Selection.Rows.SpaceBetweenColumns

End If


Propiedad Tables

Devuelve un conjunto Tables que representa a todas las tablas del documento, selección o intervalo especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Tables

En este ejemplo se crea una tabla de 5 x 5 en el documento activo y, a continuación, se aplica un formato predefinido.

Selection.Collapse Direction:=wdCollapseStart

Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

NumRows:=5, NumColumns:=5)

miTabla.AutoFormat Format:=wdTableFormatClassic2

En este ejemplo se insertan números y texto en la primera columna de la primera tabla del documento activo.

num = 90

For Each unaCelda In ActiveDocument.Tables(1).Columns(1).Cells

    unaCelda.Range.Text = num & " Ventas"

    num = num + 1

Next unaCelda


Propiedad Uniform

True: si todas las filas de la tabla tienen el mismo número de columnas. Boolean de sólo lectura.


Ejemplo de la propiedad Uniform

En este ejemplo se crea una tabla que contiene una celda dividida y, a continuación, se muestra un cuadro de mensaje que confirma que la tabla no tiene el mismo número de columnas en cada fila.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 5, 5)

miTabla.Cell(3, 3).Split numColumns:=2

If miTabla.Uniform = False Then MsgBox "La tabla no es uniforme"

En este ejemplo se determina si la tabla que contiene la selección tiene el mismo número de columnas en cada fila.

If Selection.Information(wdWithInTable) = True Then

    MsgBox Selection.Tables(1).Uniform

End If


Método UpdateAutoFormat

Actualiza la tabla con las características de un formato de tabla predefinido. Por ejemplo, si aplica un formato de tabla con la función Autoformato y, a continuación, inserta filas y columnas, puede que el aspecto de la tabla ya no coincida con el predefinido. UpdateAutoFormat restaura el formato.

Sintaxis

expresión.UpdateAutoFormat

expresión   Requerida. Expresión que devuelve un objeto Table.


Ejemplo del método UpdateAutoFormat

En este ejemplo se crea una tabla, se le aplica un formato predefinido, se agrega una fila y, a continuación, se vuelve a aplicar el formato predefinido.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Selection.Range, 5, 5)

With miTabla

    .AutoFormat Format:=wdTableFormatColumns1

    .Rows.Add BeforeRow:=miTabla.Rows(1)

End With

MsgBox "Haga clic en Aceptar para volver a aplicar Autoformato."

miTabla.UpdateAutoFormat

En este ejemplo se restaura el formato predefinido a la tabla que contiene el punto de inserción.

If Selection.Information(wdWithInTable) = True Then

    Selection.Tables(1).UpdateAutoFormat

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Método AutoFormat

Objeto Table: aplica una presentación previamente definida a una tabla. Los argumentos de este método se corresponden con las opciones del cuadro de diálogo Autoformato de tablas (menú Tabla).

Objeto Document o Range: da formato a un documento automáticamente. Utilice la propiedad Kind para especificar un tipo de documento.

Sintaxis 1

expresión.AutoFormat(Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit)

Sintaxis 2

expresión.AutoFormat

expresión   Requerida. Expresión que devuelve un objeto Table (Sintaxis 1) o una expresión que devuelve un objeto Document o Range (Sintaxis 2).

Format   Variant opcional. Formato de tabla previamente definido. Puede ser una de las constantes WdTableFormat. El valor predeterminado es wdTableFormatSimple1.

ApplyBorders   Variant opcional. True: para aplicar las propiedades de borde del formato especificado. El valor predeterminado es True.

ApplyShading   Variant opcional. True: para aplicar las propiedades de sombreado del formato especificado. El valor predeterminado es True.

ApplyFont   Variant opcional. True: para aplicar las propiedades de fuente del formato especificado. El valor predeterminado es True.

ApplyColor   Variant opcional. True: para aplicar las propiedades de color del formato especificado. El valor predeterminado es False.

ApplyHeadingRows   Variant opcional. True: para aplicar las propiedades de fila de títulos del formato especificado. El valor predeterminado es True.

ApplyLastRow   Variant opcional. True: para aplicar las propiedades de última fila del formato especificado. El valor predeterminado es False.

ApplyFirstColumn   Variant opcional. True: para aplicar las propiedades de primera columna del formato especificado. El valor predeterminado es True.

ApplyLastColumn   Variant opcional. True: para aplicar las propiedades de última columna del formato especificado. El valor predeterminado es False.

AutoFit   Variant opcional. True: para reducir el ancho de columna de tabla el máximo posible sin cambiar el ajuste de texto de las celdas. El valor predeterminado es True.


Ejemplo del método AutoFormat

En este ejemplo, se inserta una tabla 5 x 5 en un nuevo documento y se le aplican todas las propiedades del formato Vistoso 2.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, _

    NumRows:=5, NumColumns:=5)

miTabla.AutoFormat Format:=wdTableFormatColorful2, ApplyColor:=True

En este ejemplo, se aplican todas las propiedades del formato Clásico 2 a la tabla en la que se encuentra actualmente el punto de inserción. Si el punto de inserción no está en ninguna tabla, aparecerá un cuadro de mensaje.

Selection.Collapse Direction:=wdCollapseStart

If Selection.Information(wdWithInTable) = True Then

    Selection.Tables(1).AutoFormat Format:=wdTableFormatClassic2

Else

    MsgBox "El punto de inserción no está en una tabla."

End If

En este ejemplo, se da formato a la selección.

Selection.Range.AutoFormat


Método ConvertToText

Convierte una tabla en texto y devuelve un objeto Range que representa el texto delimitado.

Sintaxis

expresión.ConvertToText(Separator)

expresión   Requerida. Expresión que devuelve un objeto Row, Rows o Table.

Separator   Variant opcional. Carácter que delimita las columnas convertidas; las marcas de párrafo delimitan las filas convertidas. Puede ser una de las siguientes constantes WdTableFieldSeparator: wdSeparateByCommas, wdSeparateByDefaultListSeparator, wdSeparateByParagraphs o wdSeparateByTabs. El valor predeterminado es wdSeparateByTabs.

Comentarios

Al aplicar el método ConvertToText a un objeto Table, se elimina el objeto. Para conservar la referencia del contenido convertido de una tabla, debe asignar el objeto Range devuelto por el método ConvertToText a una nueva variable de objeto. En el siguiente ejemplo, la primera tabla del documento activo se convierte en texto y, a continuación, se le da formato de lista con viñetas.

Set miTabla = ActiveDocument.Tables(1)

Set unIntervalo = miTabla.ConvertToText(Separator:=wdSeparateByParagraphs)

unIntervalo.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _

    wdBulletGallery).ListTemplates(1)


Ejemplo del método ConvertToText

En este ejemplo, se crea una tabla y, a continuación, se convierte en texto utilizando tabulaciones como caracteres de separación.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, _

    NumRows:=3, NumColumns:=3)

i = 1

For Each unaCelda In miTabla.Range.Cells

    unaCelda.Range.InsertAfter "Celda " & i

    i = i + 1

Next unaCelda

MsgBox "Haga clic en Aceptar para convertir una tabla en texto."

Set miIntervalo = miTabla.ConvertToText(Separator:=wdSeparateByTabs)

En este ejemplo, se convierte en texto la tabla que contiene la selección, con espacios entre las columnas.

If Selection.Information(wdWithInTable) = True Then

    Selection.Tables(1).ConvertToText Separator:=" "

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Propiedad HeightRule

Objetos Cell, Cells, Row y Rows: devuelve o establece la norma que determinará el alto de las celdas o filas especificadas. Puede ser una de las siguientes constantes WdRowHeightRule: wdRowHeightAtLeast, wdRowHeightAuto o wdRowHeightExactly. Long de Lectura/Escritura.

Objeto Frame: devuelve o establece la norma que determinará el alto del marco especificado. Puede ser una de las siguientes constantes WdFrameSizeRule: wdFrameAtLeast, wdFrameAuto o wdFrameExact. Long de Lectura/Escritura.

Comentarios

Al establecer la propiedad HeightRule de un objeto Cell o Cells, la propiedad se establece automáticamente para toda la fila.


Ejemplo de la propiedad HeightRule

En este ejemplo, se crea una tabla 3 x 3 en un nuevo documento y, a continuación, se establece un alto mínimo de fila de 24 puntos para la segunda fila.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _

    NumColumns:=3)

With miTabla.Rows(2)

    .Height = 24

    .HeightRule = wdRowHeightAtLeast

End With

En este ejemplo, se establece la norma de alto de las filas seleccionadas de manera que se ajuste automáticamente con la celda más alta de la fila.

If Selection.Information(wdWithInTable) = True Then

    Selection.Rows.HeightRule = wdRowHeightAuto

Else

    MsgBox "El punto de inserción no está en una tabla."

End If

En este ejemplo, se establece el alto y el ancho del primer marco del documento activo exactamente en 0,5 cm.

If ActiveDocument.Frames.Count >= 1 Then

    With ActiveDocument.Frames(1)

        .HeightRule = wdFrameExact

        .Height = CentimetersToPoints(0.5)

        .WidthRule = wdFrameExact

        .Width = CentimetersToPoints(0.5)

    End With

End If


Método SetHeight

Establece el alto de las filas o celdas de la tabla.

Sintaxis

expresión.SetHeight(RowHeight, HeightRule)

expresión   Requerida. Expresión que devuelve un objeto Cell, Cells, Row o Row.

RowHeight   Single requerida. Alto de la fila o filas en puntos.

HeightRule   Variant opcional. Norma que determinará el alto de las celdas especificadas. Puede ser una de las siguientes constantes WdRowHeightRule: wdRowHeightAtLeast, wdRowHeightAuto o wdRowHeightExactly. El valor predeterminado es wdRowHeightAtLeast.

Comentarios

Al establecer la propiedad SetHeight de un objeto Cell o Cells, la propiedad se establece automáticamente para toda la fila.


Ejemplo del método SetHeight

En este ejemplo, se inserta una tabla y, a continuación, se establece un alto fijo de fila de 1,25 cm para la primera fila.

Set nuevoDoc = Documents.Add

Set unaTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _

    NumColumns:=3)

unaTabla.Rows(1).SetHeight RowHeight:=CentimetersToPoints(1.25), _

    HeightRule:=wdRowHeightExactly

En este ejemplo, se establece el alto de fila de las celdas seleccionadas en 18 puntos como mínimo.

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells.SetHeight RowHeight:=18, HeightRule:=wdRowHeightAtLeast

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Método SetLeftIndent

Establece la sangría de una fila o varias filas de una tabla.

Sintaxis

expresión.SetLeftIndent(LeftIndent, RulerStyle)

expresión   Requerida. Expresión que devuelve un objeto Row o Rows.

LeftIndent   Single requerida. Distancia, en puntos, entre el margen izquierdo de la página y el borde izquierdo de la fila o filas especificadas.

RulerStyle   Long requerida. Controla la forma en que Word ajusta la tabla cuando se cambia la sangría izquierda. Puede ser una de las siguientes constantes WdRulerStyle:

Constante	Descripción
wdAdjustFirstColumn	Conserva la posición del borde derecho de la tabla haciendo más estrechas las celdas de la primera columna.
wdAdjustNone	Desplaza las celdas a la derecha. Es el valor predeterminado.
wdAdjustProportional	Conserva la posición del borde derecho de la tabla haciendo más estrechas todas las celdas de las filas especificadas en función de su ancho.
wdAdjustSameWidth	Conserva la posición del borde derecho de la tabla haciendo más estrechas todas las celdas de las filas especificadas, asignándoles el mismo ancho.


Ejemplo del método SetLeftIndent

En este ejemplo, se inserta una tabla en un documento nuevo y se aplica una sangría de 1,25cm a la primera fila. Al cambiar la sangría izquierda, los anchos de celda se ajustan para que se mantenga el borde derecho de la tabla.

Set unDoc = Documents.Add

Set miTabla = unDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _

    NumColumns:=3)

miTabla.Rows(1).SetLeftIndent LeftIndent:=CentimetersToPoints(1.25), _

    RulerStyle:=wdAdjustSameWidth

En este ejemplo, se aplica una sangría de 18 puntos a la primera fila de la tabla uno del documento activo y se reduce el ancho de la primera columna para conservar la posición del borde derecho de la tabla.

If ActiveDocument.Tables.Count >= 1 Then

    ActiveDocument.Tables(1).Rows.SetLeftIndent LeftIndent:=18, _

        RulerStyle:=wdAdjustFirstColumn

End If


Método SetWidth

Establece el ancho de las filas o celdas de una tabla.

Sintaxis

expresión.SetWidth(ColumnWidth, RulerStyle)

expresión   Requerida. Expresión que devuelve un objeto Cell, Cells, Column o Columns.

ColumnWidth   Single requerida. Ancho, en puntos, de la columna o columnas especificadas.

RulerStyle   Long requerido. Controla la forma en que Word ajusta los anchos de celda. Puede ser una de las siguientes constantes WdRulerStyle:

Constante	Descripción
wdAdjustFirstColumn	Mantiene el ancho de columna haciendo más estrechas las celdas de la primera columna.
wdAdjustNone	Mantiene el ancho de todas las columnas excepto las que contienen las celdas especificadas. Es el valor predeterminado.
wdAdjustProportional	Mantiene el ancho de columna ajustando todas las celdas a la derecha de la columna especificada.
wdAdjustSameWidth	Mantiene el ancho de columna haciendo más estrechas las celdas de las columnas especificadas, asignándoles el mismo ancho a todas.


Ejemplo del método SetWidth

En este ejemplo, se inserta una tabla en un nuevo documento y se establece el ancho de la primera celda de la segunda fila en 3,5 cm. En el ejemplo se mantiene el ancho del resto de las celdas de la tabla.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _

    NumColumns:=3)

miTabla.Cell(2,1).SetWidth ColumnWidth:=CentimetersToPoints(3.5), RulerStyle:=wdAdjustNone

En este ejemplo, se establece el ancho de la celda que contiene el punto de inserción en 36 puntos. También se reduce el ancho de la primera columna para conservar la posición del borde derecho de la tabla.

If Selection.Information(wdWithInTable) = True Then

    Selection.Cells(1).SetWidth ColumnWidth:=36, RulerStyle:=wdAdjustFirstColumn

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Método SortAscending

Ordena los párrafos o las filas de una tabla en orden alfanumérico ascendente. El primer párrafo o la primera fila de la tabla se consideran un registro de encabezado y no se incluyen en la ordenación. Utilice el método Sort si desea que el registro del encabezado se incluya en la ordenación.

Nota   Este método proporciona un tipo de ordenación simplificado destinado a la combinación de orígenes de datos que se incluyen en columnas. Para la mayoría de las tareas de ordenación, utilice el método Sort.

Sintaxis

expresión.SortAscending

expresión   Requerida. Expresión que devuelve un objeto Range, Selection o Table.


Ejemplo del método SortAscending

En este ejemplo, se ordena la tabla que contiene la selección en orden ascendente.

If Selection.Information(wdWithInTable) = True Then

    Selection.Tables(1).SortAscending

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Método SortDescending

Ordena los párrafos o las filas de una tabla en orden alfanumérico descendente. El primer párrafo o la primera fila de la tabla se consideran un registro de encabezado y no se incluyen en la ordenación. Utilice el método Sort si desea que el registro del encabezado se incluya en la ordenación.

Nota   Este método proporciona un tipo de ordenación simplificado destinado a la combinación de orígenes de datos que se incluyen en columnas. Para la mayoría de las tareas de ordenación, utilice el método Sort.

Sintaxis

expresión.SortDescending

expresión   Requerida. Expresión que devuelve un objeto Range, Selection o Table.


Ejemplo del método SortDescending

En este ejemplo, se crea una tabla de 5 x 5 en un nuevo documento, se inserta texto en todas las celdas y, a continuación, se ordena la tabla en orden alfanumérico descendente.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _

    NumColumns:=5)

For Filai = 1 To miTabla.Rows.Count

    For Coli = 1 To miTabla.Columns.Count

        Set MiIntervalo = miTabla.Rows(Filai).Cells(Coli).Range

        MiIntervalo.InsertAfter "Celda" & Str$(Filai) & "," & Str$(Coli)

    Next Coli

Next Filai

MsgBox "Haga clic en Aceptar para orden descendente."

miTabla.SortDescending

En este ejemplo, se ordena la tabla que contiene el punto de inserción en orden alfanumérico descendente.

If Selection.Information(wdWithInTable) = True Then

    Selection.Tables(1).SortDescending

Else

    MsgBox "El punto de inserción no está en una tabla."

End If


Propiedad Width

Devuelve o establece el ancho, en puntos, del objeto especificado. Long de Lectura/Escritura.


Ejemplo de la propiedad Width

En este ejemplo, se inserta una tabla 5 x 5 en un nuevo documento y, a continuación, se establece el ancho de la primera celda en 3,5 cm.

Set nuevoDoc = Documents.Add

Set miTabla = nuevoDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _

    NumColumns:=5)

miTabla.Cell(1, 1).Width = CentimetersToPoints(3.5)

En este ejemplo, se devuelve el ancho, en centímetros, de la celda que contiene el punto de inserción.

If Selection.Information(wdWithInTable) = True Then

    MsgBox PointsToCentimeters(Selection.Cells(1).Width)

End If

En este ejemplo, se da formato de tres columnas a la sección que contiene la selección. El bucle For Each...Next se utiliza para mostrar el ancho de cada una de las columnas del conjunto TextColumns.

Selection.PageSetup.TextColumns.SetCount NumColumns:=3

For Each unacol In Selection.PageSetup.TextColumns

    MsgBox "Ancho= " & PointsToCentimeters(unacol.Width)

Next unacol

En este ejemplo, se establece el ancho y el alto de la ventana de la aplicación Word.

With Application

    .WindowState = wdWindowStateNormal

    .Width = 500

    .Height = 400

End With


Propiedad AutoFormatType

Devuelve el tipo de formato automático que se ha aplicado a la tabla especificada. Long de sólo lectura.

Puede ser una de las siguientes constantes WdTableFormat:

wdTableFormat3DEffects1 wdTableFormat3DEffects2 wdTableFormat3DEffects3 wdTableFormatClassic1 wdTableFormatClassic2 wdTableFormatClassic3 wdTableFormatClassic4 wdTableFormatColorful1 wdTableFormatColorful2 wdTableFormatColorful3 wdTableFormatColumns1 wdTableFormatColumns2 wdTableFormatColumns3 wdTableFormatColumns4 wdTableFormatColumns5 wdTableFormatContemporary wdTableFormatElegant wdTableFormatGrid1 wdTableFormatGrid2 wdTableFormatGrid3	wdTableFormatGrid4 wdTableFormatGrid5 wdTableFormatGrid6 wdTableFormatGrid7 wdTableFormatGrid8 wdTableFormatList1 wdTableFormatList2 wdTableFormatList3 wdTableFormatList4 wdTableFormatList5 wdTableFormatList6 wdTableFormatList7 wdTableFormatList8 wdTableFormatNone wdTableFormatProfessional wdTableFormatSimple1 wdTableFormatSimple2 wdTableFormatSimple3 wdTableFormatSubtle1 wdTableFormatSubtle2
Nota  Utilice el método AutoFormat para aplicar formato automático a una tabla.


Ejemplo de la propiedad AutoFormatType

En este ejemplo, se da formato a la primera tabla del documento activo para utilizar Autoformato Clásico 1 si el formato actual es Básico 1, Básico 2 o Básico 3.

If ActiveDocument.Tables.Count >= 1 Then

    If ActiveDocument.Tables(1).AutoFormatType <= 3 Then

        ActiveDocument.Tables(1).AutoFormat Format:=wdTableFormatClassic1

    End If

End If


Método DistributeHeight

Ajusta el alto de las filas o celdas especificadas para que sean iguales.

Sintaxis

expresión.DistributeHeight

expresión   Requerida. Expresión que devuelve un objeto Cells o Rows.


Ejemplo del método DistributeHeight

En este ejemplo, se ajusta el alto de las filas de la primera tabla del documento activo para que sean iguales.

ActiveDocument.Tables(1).Rows.DistributeHeight

En este ejemplo, se ajusta el alto de las tres primeras filas de la primera tabla para que sean iguales.

If ActiveDocument.Tables.Count >= 1 Then

    Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Rows(1).Range.Start, _

        End:=ActiveDocument.Tables(1).Rows(3).Range.End)

    myRange.Rows.DistributeHeight

End If


Método DistributeWidth

Ajusta el ancho de las columnas o celdas especificadas para que sean iguales.

Sintaxis

expresión.DistributeWidth

expresión   Requerida. Expresión que devuelve un objeto Cells o Columns.


Ejemplo del método DistributeWidth

En este ejemplo, se ajusta el ancho de las columnas de la primera tabla del documento activo para que sean iguales.

ActiveDocument.Tables(1).Columns.DistributeWidth

En este ejemplo, se ajusta el alto de las celdas seleccionadas.

If Selection.Cells.Count >= 2 Then

    Selection.Cells.DistributeWidth

End If


Método InsertCells

Agrega celdas a una tabla existente. El número de celdas insertadas es igual al número de celdas de la selección.

Nota   También puede insertar celdas utilizando el método Add del objeto Cells.

Sintaxis

expresión.InsertCells(ShiftCells)

expresión   Requerida. Expresión que devuelve un objeto Selection.

ShiftCells   Variant opcional. Puede ser una de las siguientes constantes WdInsertCells:

Constante	Descripción
wdInsertCellsEntireColumn	Inserta una columna completa a la izquierda de la columna que contiene la selección.
wdInsertCellsEntireRow	Inserta una fila completa sobre la fila que contiene la selección.
wdInsertCellsShiftDown	Inserta celdas nuevas sobre las celdas seleccionadas.
wdInsertCellsShiftRight	Inserta celdas nuevas a la izquierda de las celdas seleccionadas.


Ejemplo del método InsertCells

En este ejemplo, se insertan nuevas celdas a la izquierda de las celdas seleccionadas y, a continuación, se rodean las celdas seleccionadas con un borde rojo de una sola línea.

If Selection.Cells.Count >= 1 Then

    Selection.InsertCells ShiftCells:=wdInsertCellsShiftRight

    For Each aBorder In Selection.Borders

        aBorder.LineStyle = wdLineStyleSingle

        aBorder.ColorIndex = wdRed

    Next aBorder

End If


Método InsertColumns

Inserta columnas nuevas a la izquierda de la columna que contiene la selección. Si la selección no está en la tabla, se produce un error.

Nota   El número de columnas insertado es igual al número de columnas seleccionado. También puede insertar columnas utilizando el método Add del objeto Columns.

Sintaxis

expresión.InsertColumns

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método InsertColumns

En este ejemplo, se insertan nuevas columnas a la izquierda de la columna que contiene la selección. El número de columnas insertado es igual al número de columnas seleccionado.

If Selection.Information(wdWithInTable) = True Then

    With Selection

        .InsertColumns

        .Shading.Texture = wdTexture10Percent

    End With

End If


Método InsertRows

Inserta el número especificado de filas nuevas sobre la fila que contiene la selección. Si la selección no está en la tabla, se produce un error.

Nota   También puede insertar filas utilizando el método Add del objeto Rows.

Sintaxis

expresión.InsertRows(NumRows)

expresión   Requerida. Expresión que devuelve un objeto Selection.

NumRows   Variant opcional. Número de filas que se van a agregar.


Ejemplo del método InsertRows

En este ejemplo, se insertan dos nuevas filas sobre la fila que contiene la selección y, a continuación, se quitan los bordes de las filas nuevas.

If Selection.Information(wdWithInTable) = True Then

    Selection.InsertRows NumRows:=2

    Selection.Borders.Enable =False

End If


Método SelectColumn

Selecciona la columna que contiene el punto de inserción o todas las columnas que contienen la selección. Si la selección no está en la tabla, se produce un error.

Sintaxis

expresión.SelectColumn

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SelectColumn

En este ejemplo, se contrae la selección en el punto final y, a continuación, se selecciona la columna que contiene el punto de inserción.

Selection.Collapse Direction:=wdCollapseEnd

If Selection.Information(wdWithInTable) = True Then

    Selection.SelectColumn

End If


Método SelectRow

Selecciona la fila que contiene el punto de inserción o todas las filas que contienen la selección. Si la selección no está en la tabla, se produce un error.

Sintaxis

expresión.SelectRow

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método SelectRow

En este ejemplo, se contrae la selección en el punto inicial y, a continuación, se selecciona la columna que contiene el punto de inserción.

Selection.Collapse Direction:=wdCollapseStart

If Selection.Information(wdWithInTable) = True Then

    Selection.SelectRow

End If


Método AutoMarkEntries

Agrega automáticamente campos EÍ (entrada de índice) al documento especificado, utilizando las entradas de un archivo de concordancia.

Nota   Un archivo de concordancia es un documento de Word que contiene una tabla con dos columnas, con los términos que se van a incluir en el índice en la primera columna y las entradas de índice en la segunda columna.

Sintaxis

expresión.AutoMarkEntries(ConcordanceFileName)

expresión   Requerida. Expresión que devuelve un objeto Indexes.

ConcordanceFileName   String requerida. El nombre del archivo de concordancia que incluye una lista de entradas que se van indizar.


Ejemplo del método AutoMarkEntries

En este ejemplo se agregan entradas de índice al documento Tesis.doc basados en elementos de C:\Documentos\Lista.doc.

Documents("Tesis.doc").Indexes.AutoMarkEntries ConcordanceFileName:="C:\Documentos\Lista.doc"


Propiedad Caption

Objeto TableOfFigures: Devuelve o establece la etiqueta que identifica a los elementos que se van a incluir en una tabla de ilustraciones. Corresponde al modificador \c de un campo TDC. String de Lectura/Escritura.

Objeto Window o Application: Devuelve o establece el texto del título del documento o ventana de aplicación especificado. String de Lectura/Escritura.

Comentarios

Para cambiar el título de la ventana de aplicación al texto predeterminado, establezca esta propiedad como una cadena vacía ("").


Ejemplo de la propiedad Caption

En este ejemplo se muestra el título de cada ventana del conjunto Windows.

Count = 1

For Each vent In Windows

    MsgBox Prompt:=vent.Caption, Title:="Ventana" & Str(Count) & _

    " Título"

    Count = Count + 1

Next vent

En este ejemplo se restablece el título de la ventana de aplicación.

Application.Caption = ""

En este ejemplo se establece el título de la ventana activa como el nombre del documento activo.

ActiveWindow.Caption = ActiveDocument.FullName

En este ejemplo se cambia el título de la ventana de aplicación de Word para que se incluya el nombre del usuario.

Application.Caption = UserName & "copia de Word de Federico"

En este ejemplo se inserta un título de Tabla y luego se cambia el título de la primera tabla de ilustraciones a "Tabla".

Selection.Collapse Direction:=wdCollapseStart

Selection.Range.InsertCaption "Tabla"

If ActiveDocument.TablesOfFigures.Count >= 1 Then

    ActiveDocument.TablesOfFigures(1).Caption = "Tabla"

End If


Propiedad HeadingSeparator

Devuelve o establece el texto entre grupos alfabéticos (elementos que comienzan con la misma letra) del índice. Corresponde al modificador \h de un campo ÍNDICE. Puede ser una de las siguientes constantes WdHeadingSeparator: wdHeadingSeparatorBlankLine, wdHeadingSeparatorLetter, wdHeadingSeparatorLetterFull, wdHeadingSeparatorLetterLow o wdHeadingSeparatorNone. Long de Lectura/Escritura.


Ejemplo de la propiedad HeadingSeparator

En este ejemplo se da formato al primer índice del documento activo en una sola columna, con la letra apropiada al principio de cada grupo alfabético.

If ActiveDocument.Indexes.Count >= 1 Then

    With ActiveDocument.Indexes(1)

        .HeadingSeparator = wdHeadingSeparatorLetter

        .NumberOfColumns = 1

    End With

End If


Propiedad IncludeLabel

True si la etiqueta de título y el número de título se incluyen en una tabla de ilustraciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad IncludeLabel

En este ejemplo se da formato a la primera tabla de ilustraciones del documento activo para que se excluyan las etiquetas de título, por ejemplo Ilustración 1.

If ActiveDocument.TablesOfFigures.Count >= 1 Then

    ActiveDocument.TablesOfFigures(1).IncludeLabel = False

End If

En este ejemplo se agrega una tabla de ilustraciones en lugar de la selección y, a continuación, se da formato a la tabla para incluir etiquetas de título.

Set TDI = ActiveDocument.TablesOfFigures.Add(Range:=Selection.Range, _

    Caption:="Ilustración")

TDI.IncludeLabel = True


Propiedad IncludePageNumbers

True si los números de página se incluyen en la tabla de contenido o en la tabla de ilustraciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad IncludePageNumbers

En este ejemplo se da formato a la primera tabla de contenido del documento activo para que se incluyan números de página alineados a la derecha.

If ActiveDocument.TablesOfContents.Count >= 1 Then

    With ActiveDocument.TablesOfContents(1)

        .IncludePageNumbers = True

        .RightAlignPageNumbers = True

    End With

End If


Propiedad Index

Devuelve un número que indica la posición de un elemento en un conjunto. Long de sólo lectura.


Ejemplo de la propiedad Index

En este ejemplo se agrega una variable de documento al documento activo y, a continuación, se devuelve la posición de la variable en el conjunto Variables.

Set miVariable = ActiveDocument.Variables.Add(Name:="Nombre", Value:="Enrique")

num = miVariable.Index

En este ejemplo se devuelve la posición del campo seleccionado del conjunto Fields.

num = Selection.Fields(1).Index

En este ejemplo se devuelve el número de la primera ventana del conjunto Windows. Si hay al menos dos ventanas en el conjunto Windows, la macro activa la siguiente ventana, copia la primera palabra, pasa de nuevo a la ventana original e inserta allí el contenido del Portapapeles.

Set myWindow = Windows(1)

winNum = myWindow.Index

If Windows.Count >= 2 Then

    myWindow.Next.Activate

    ActiveDocument.Words(1).Copy

    Windows(winNum).Activate

    Selection.Range.Paste

End If


Propiedad Indexes

Devuelve un conjunto Indexes que representa todos los índices del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Indexes

En este ejemplo se agrega un índice al final del documento activo.

Set MiIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Content.End - 1, _

    End:=ActiveDocument.Content.End - 1)

ActiveDocument.Indexes.Add Range:=MiIntervalo, NumberOfColumns:=1, _

    HeadingSeparator:=False

En este ejemplo se establece el número de columnas y la alineación del número de página de los índices de Informe.doc.

For Each unÍndice In Documents("Informe.doc").Indexes

    unÍndice.NumberOfColumns = 2

    unÍndice.RightAlignPageNumbers = True

Next unÍndice

En este ejemplo se inserta una entrada de índice al texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:=Selection.Range.Text

End If


Propiedad LowerHeadingLevel

Devuelve o establece el nivel final del título de una tabla de contenido o una tabla de ilustraciones. Corresponde al valor final que se ha utilizado con el modificador \o de un campo TDC (Tabla de contenido). Long de Lectura/Escritura.

Comentarios

Utilice la propiedad UpperHeadingLevel para establecer el nivel inicial de título. Por ejemplo, para establecer la sintaxis de campo TDC {TDC \o "1-3"}, establezca la propiedad LowerHeadingLevel como 3 y la propiedad UpperHeadingLevel como 1.


Ejemplo de la propiedad LowerHeadingLevel

En este ejemplo se da formato a la primera tabla de contenido del documento activo para mostrar elementos a los que se ha dado formato con los estilos de Título 2, Título 3 o Título 4.

If ActiveDocument.TablesOfContents.Count >= 1 Then

    With ActiveDocument.TablesOfContents(1)

        .UseHeadingStyles = True

        .UpperHeadingLevel = 2

        .LowerHeadingLevel = 4

    End With

End If


Método MarkEntry

Sintaxis 1: Inserta un campo EÍ (Entrada de índice) después del intervalo especificado. El campo EÍ se devuelve como un objeto Field.

Sintaxis 2: Inserta un campo TC (Elemento de tabla de contenido) después del intervalo especificado. El campo TC se devuelve como un objeto Field.

Sintaxis 1

expresión.MarkEntry(Range, Entry, EntryAutoText, CrossReference, CrossReferenceAutoText, BookmarkName, Bold, Italic)

Sintaxis 2

expresión.MarkEntry(Range, Entry, EntryAutoText, TableID, Level)

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Indexes.

Sintaxis 2: Requerida. Expresión que devuelve un objeto TablesOfContents o TablesOfFigures.

Range   Objeto Range requerido. La ubicación del elemento. El campo EÍ o el TC se inserta después de Range.

Entry   Variant opcional. El texto que aparece en el índice, tabla de contenido o tabla de ilustraciones. Para indicar un subelemento, incluya el texto del elemento principal y el del subelemento separados por dos puntos (:), por ejemplo "Introducción: El Producto".

EntryAutoText   Variant opcional. El nombre del elemento de Autotexto que incluye texto para el índice, tabla de ilustraciones o tabla de contenido (se ignora Entry).

CrossReference   Variant opcional. Una referencia cruzada que va a aparecer en el índice, por ejemplo "Vea Manzanas".

CrossReferenceAutoText   Variant opcional. El nombre del elemento de Autotexto que contiene el texto de una referencia cruzada (se ignora CrossReference).

BookmakName   Variant opcional. El nombre del marcador que marca el intervalo de páginas que se desea que aparezcan en el índice. Si se omite este argumento, el número de la página que contiene el campo EÍ aparece en el índice.

Bold   Variant opcional. True para agregar formato de negrita a los números de página de los elementos en el índice.

Italic   Variant opcional. True para agregar formato de cursiva a los números de página de los elementos en el índice.

TableID   Variant opcional. Un identificador de una sola letra del elemento de la tabla de ilustraciones o tabla de contenido, por ejemplo "i" para una "ilustración".

Level   Variant opcional. Un nivel para el elemento de la tabla de contenido o tabla de ilustraciones.


Ejemplo del método MarkEntry

En este ejemplo se inserta una entrada de índice después de la selección del documento activo. El texto del subelemento es el texto de la selección.

If Selection.Type = wdSelectionNormal Then

    ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, _

        Entry:="Introducción:" & Selection.Range.Text, Italic:=True

End If

En este ejemplo se inserta un elemento de tabla de contenido que hace referencia al texto seleccionado. El texto escrito en el cuadro de entrada aparece en la tabla de contenido. Una tabla de contenido que utiliza campos se agrega luego al comienzo del documento activo.

entryText = InputBox("Escriba texto del elemento")

ActiveDocument.TablesOfContents.MarkEntry Range:=Selection.Range, Entry:=entryText

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.TablesOfContents.Add Range:=miIntervalo, UseFields:=True, UseHeadingStyles:=False


Propiedad NumberOfColumns

Establece o devuelve el número de columnas de cada página de un índice. Long de Lectura/Escritura.

Nota   Al especificar 0 (cero) se establece el número de columnas en el índice para que sea igual que en el documento.


Ejemplo de la propiedad NumberOfColumns

En este ejemplo se establece el número de columnas en el primer índice para que sea igual que en el documento activo.

ActiveDocument.Indexes(1).NumberOfColumns = 0

En este ejemplo se establece un formato de dos columnas para cada índice del documento activo.

For Each miÍndice In ActiveDocument.Indexes

    miÍndice.NumberOfColumns = 2

Next miÍndice


Propiedad RightAlignPageNumbers

True si los números de página se alinean con el margen derecho en un índice, tabla de contenido o tabla de ilustraciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad RightAlignPageNumbers

En este ejemplo se alinean a la derecha los números de página de la primera tabla de contenido del documento activo.

If ActiveDocument.TablesOfContents.Count >= 1 Then

    With ActiveDocument.TablesOfContents(1)

        .IncludePageNumbers = True

        .RightAlignPageNumbers = True

    End With

End If


Propiedad TabLeader

Devuelve o establece el carácter entre las entradas y sus números de página en un índice, tabla de contenido o tabla de ilustraciones. Puede ser una de las siguientes constantes WdTabLeader: wdTabLeaderDashes, wdTabLeaderDots, wdTabLeaderHeavy, wdTabLeaderLines o wdTabLeaderSpaces. Long de Lectura/Escritura.


Ejemplo de la propiedad TabLeader

En este ejemplo se da formato a las tablas de contenido de Ventas.doc para usar el punto como carácter de relleno.

For Each unaTDC In Documents("Ventas.doc").TablesOfContents

    unaTDC.TabLeader = wdTabLeaderDots

Next unaTDC

En este ejemplo se agrega un índice al final del documento activo. Los números de página se alinean a la derecha y se utiliza el guión como carácter de relleno.

Set miIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Content.End -1, _

    End:=ActiveDocument.Content.End -1)

ActiveDocument.Indexes.Add(Range:=miIntervalo, Type:=wdIndexIndent, _

    RightAlignPageNumbers:=True).TabLeader = wdTabLeaderDashes


Propiedad TableID

Devuelve o establece un identificador de una sola letra que se utiliza para construir una tabla de contenido o una tabla de ilustraciones a partir de campos TC. Corresponde al modificador \f de un campo TDC. Por ejemplo, "T" crea una tabla de contenido a partir de campos TC utilizando el identificador de tabla T. String de Lectura/Escritura.


Ejemplo de la propiedad TableID

En este ejemplo se inserta un campo TC con un identificador "A" después de la selección de Ventas.doc. A la primera tabla de contenido se le da, a continuación, formato para compilar los elementos "A".

Documents("Ventas.doc").TablesOfContents.MarkEntry Range:=Selection.Range, _

    Entry:="Hola", TableID:="A"

With Documents("Ventas.doc").TablesOfContents(1)

    .TableID = "A"

    .UseFields = True

    .UseHeadingStyles = False

    .Update

End With

En este ejemplo se agrega una tabla de ilustraciones al principio del documento activo y, a continuación, se da formato a la tabla para compilar los elementos "B".

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

Set miTDI = ActiveDocument.TablesOfFigures.Add(Range:=miIntervalo)

With miTDI

    .UseFields = True

    .UseHeadingStyles = False

    .TableID = "B"

    .Caption = ""

End With


Propiedad TablesOfContents

Devuelve un conjunto TablesOfContents que representa las tablas de contenido del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad TablesOfContents

En este ejemplo se agrega una tabla de contenido al comienzo de Ventas.doc. La tabla de contenido reúne texto de elementos de campos TC.

Set miIntervalo = Documents("Ventas.doc").Range(Start:=0, End:=0)

Documents("Ventas.doc").TablesOfContents.Add Range:=miIntervalo, _

    UseFields:=True, UseHeadingStyles:=False

En este ejemplo se actualiza los números de página de elementos de la tabla de contenido del documento activo.

For Each miTDC In ActiveDocument.TablesOfContents

    miTDC.UpdatePageNumbers

Next miTDC


Propiedad TablesOfFigures

Devuelve un conjunto TablesOfFigures que representa las tablas de ilustraciones del documento especificado. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad TablesOfFigures

En este ejemplo se agrega una tabla de ilustraciones en el punto de inserción del documento activo.

Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.TablesOfFigures.Add Range:=Selection.Range, _

    Caption:=wdCaptionFigure

En este ejemplo se actualiza el contenido de la primera tabla de ilustraciones de Informe.doc.

Documents("Informe.doc").TablesOfFigures(1).Update


Método UpdatePageNumbers

Actualiza los números de página de los elementos de la tabla de contenido o de la tabla de ilustraciones especificada.

Sintaxis

expresión.UpdatePageNumbers

expresión   Requerida. Expresión que devuelve un objeto TablesOfContents o TablesOfFigures.


Ejemplo del método UpdatePageNumbers

En este ejemplo se actualizan todas las tablas de ilustraciones de Ventas.doc.

For Each ilus In Documents("Ventas.doc").TablesOfFigures

    ilus.UpdatePageNumbers

Next ilus

En este ejemplo se inserta un salto de página en el punto de inserción y, a continuación, se actualizan los números de página de la primera tabla de contenido del documento activo.

Selection.Collapse Direction:=wdCollapseStart

Selection.InsertBreak Type:=wdPageBreak

ActiveDocument.TablesOfContents(1).UpdatePageNumbers


Propiedad UpperHeadingLevel

Devuelve o establece el nivel del título inicial de una tabla de contenido o una tabla de ilustraciones. Corresponde al valor inicial que se ha utilizado con el modificador \o de un campo TDC (Tabla de contenido). Long de Lectura/Escritura.

Comentarios

Use la propiedad LowerHeadingLevel para establecer el nivel de título final. Por ejemplo, para establecer la sintaxis de campo TDC {TDC \o "1-3"}, establezca la propiedad LowerHeadingLevel como 3 y la propiedad UpperHeadingLevel como 1.


Ejemplo de la propiedad UpperHeadingLevel

En este ejemplo se da formato a la primera tabla de contenido del documento activo para compilar todos los títulos a los que se ha dado formato con los estilos de Título 2 o Título 3.

If ActiveDocument.TablesOfContents.Count >= 1 Then

    With ActiveDocument.TablesOfContents(1)

        .UseHeadingStyles = True

        .UseFields = False

        .UpperHeadingLevel = 2

        .LowerHeadingLevel = 3

    End With

End If


Propiedad UseFields

True si campos TC (Tabla de elementos de contenido) se utilizan para crear una tabla de contenido o una tabla de ilustraciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad UseFields

En este ejemplo se da formato a la primera tabla de contenido del documento activo para utilizar estilos de títulos en lugar de campos TC.

If ActiveDocument.TablesOfContents.Count >= 1 Then

    With ActiveDocument.TablesOfContents(1)

        .UseFields = False

        .UseHeadingStyles = True

    End With

End If

En este ejemplo se agrega una tabla de ilustraciones después de la selección y se da formato a la tabla para compilar elementos con el identificador "B".

Selection.Collapse Direction:=wdCollapseEnd

Set miTDI = ActiveDocument.TablesOfFigures.Add(Range:=Selection.Range)

With miTDI

    .UseFields = True

    .TableId = "B"

    .Caption = ""

End With


Propiedad UseHeadingStyles

True si estilos de título integrados se utilizan para crear una tabla de contenido o una tabla de ilustraciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad UseHeadingStyles

En este ejemplo se da formato a la primera tabla de contenido del documento activo para compilar elementos a los que se ha dado formato con los estilos de Título 1, Título 2 o Título 3.

If ActiveDocument.TablesOfContents.Count >= 1 Then

    With ActiveDocument.TablesOfContents(1)

        .UseHeadingStyles = True

        .UseFields = False

        .UpperHeadingLevel = 1

        .LowerHeadingLevel = 3

    End With

End If

En este ejemplo se agrega una tabla de ilustraciones en lugar de la selección y, a continuación, se da formato a la tabla para compilar elementos de campos TC.

With ActiveDocument.TablesOfFigures.Add(Range:=Selection.Range)

    .UseHeadingStyles = False

    .UseFields = True

End With


Método MarkAllEntries

Inserta un campo EÍ (Entrada de índice) detrás de las instancias del texto de Range.

Sintaxis

expresión.MarkAllEntries(Range, Entry, EntryAutoText, CrossReference, CrossReferenceAutoText, BookmarkName, Bold, Italic)

expresión   Requerida. Expresión que devuelve un objeto Indexes.

Range   Objeto Range requerido. Intervalo cuyo texto está marcado con un campo EÍ en todo el documento.

Entry   Variant opcional. Texto que desee que aparezca en el índice, en el formato ElementoPrincipal[:Subelemento].

EntryAutoText   Variant opcional. Elemento de Autotexto que contiene el texto que desee que aparezca en el índice; si se especifica este argumento, Entry no se tendrá en cuenta.

CrossReference   Variant opcional. Referencia cruzada que aparecerá en el índice.

CrossReferenceAutoText   Variant opcional. Nombre del elemento de Autotexto que contiene el texto de una referencia cruzada; si se especifica este argumento, CrossReference no se tendrá en cuenta.

BookmarkName   Variant opcional. Nombre del marcador que indica el intervalo de páginas que desee que aparezca en el índice. Si se omite este argumento, el número de la página que contiene el campo EÍ aparecerá en el índice.

Bold   Variant opcional. True para aplicar formato de negrita a los números de página de las entradas de índice.

Italic   Variant opcional. True para aplicar formato de cursiva a los números de página de las entradas de índice.


Ejemplo del método MarkAllEntries

En este ejemplo, se marca el texto seleccionado con campos TA en el documento activo y, a continuación, se actualiza el primer índice del documento. El texto de la entrada del índice coincide con el texto seleccionado.

If Selection.Type = wdSelectionNormal Then

    ActiveDocument.Indexes.MarkAllEntries Range:=Selection.Range, _

        Entry:=Selection.Range.Text, Italic:=True

    ActiveDocument.Indexes(1).Update

End If


Propiedad HeadingStyles

Devuelve un objeto HeadingStyles que representa otros estilos utilizados para compilar una tabla de contenido o tabla de ilustraciones; es decir, diferentes a los estilos Título 1 – Título 9. Es de sólo lectura.


Ejemplo de la propiedad HeadingStyles

En este ejemplo, se agrega un estilo al conjunto HeadingStyles y, a continuación, se muestran los nombres de todos los estilos del conjunto.

If ActiveDocument.TablesOfContents.Count >=1 Then

    ActiveDocument.TablesOfContents(1).HeadingStyles.Add _

        Style:="Título", Level:=2

    For Each EstiloT In ActiveDocument.TablesOfContents(1).HeadingStyles

        MsgBox EstiloT.Style

    Next EstiloT

End If

En este ejemplo, se agrega el estilo "Azul" al conjunto HeadingStyles de una tabla de contenido de Ventas.doc.

With Documents("Ventas.doc")

    .Styles.Add Name:="Azul"

    .TablesOfContents(1).UseHeadingStyles = True

    .TablesOfContents(1).HeadingStyles.Add Style:="Azul", Level:=4

End With


Convertir macros de WordBasic a Visual Basic

Word 97 convierte las macros automáticamente en una plantilla de Word 6.x o Word 95 la primera vez que realice alguna de las siguientes acciones:

•	Abrir la plantilla

•	Crear un nuevo documento basado en la plantilla.

•	Adjuntar la plantilla a un documento utilizando el comando Plantillas (menú Herramientas).

Durante la conversión de las macros, se mostrará un mensaje en la barra de estado. Una vez finalizada la conversión, debe guardar la plantilla para guardar las macros convertidas. Si no guarda la plantilla, Word volverá a convertir las macros la próxima vez que la utilice.

Nota   Word 97 no puede convertir macros de Word 2.x directamente. En su lugar, deberá abrir y guardar las plantillas de Word 2.x en Word 6.x o Word 95 y, a continuación, abrirlas en Word 97.

El proceso convierte cada macro en un módulo de Visual Basic. Si desea ver las macros convertidas, señale el comando Macro del menú Herramientas y haga clic en Macros. Los nombres de las macros del cuadro de diálogo Macros aparecen con el formato nombremacro.Main, donde Main hace referencia a la subrutina principal de la macro convertida, es decir, la subrutina que en versiones anteriores de Word empezaba por Sub MAIN. Si desea modificar la macro convertida, seleccione el nombre y haga clic en Edición para ver el módulo de Visual Basic en el Editor de Visual Basic.

Las instrucciones de WordBasic se modifican para que funcionen con Visual Basic for Applications. Las macros de WordBasic convertidas son equivalentes, desde el punto de vista funcional, a las macros de Visual Basic for Applications nuevas que pueda escribir o grabar, pero no son idénticas. En el siguiente ejemplo se muestra una macro de WordBasic en una plantilla de Word 95.

Sub MAIN

FormatFont .Name = "Arial", .Points = 10

Insert "Hola Mundo"

End Sub

Al abrir la plantilla en Word 97, la macro se convierte en el siguiente código.

Public Sub Main()

WordBasic.FormatFont Font:="Arial", Points:=10

WordBasic.Insert "Hola Mundo"

End Sub

Cada instrucción de la macro convertida empieza por la propiedad WordBasic. WordBasic es una propiedad del modelo de objeto de Word 97 que devuelve un objeto con todas las instrucciones y funciones de WordBasic; este objeto hace que sea posible ejecutar macros de WordBasic en Word 97.

Nota   Si guarda la plantilla sobre la original, se perderán las macros de WordBasic y las versiones anteriores de Word no podrán utilizar las macros convertidas.

La siguiente macro de Visual Basic es igual, desde el punto de vista funcional, a la macro de WordBasic anterior, pero no utiliza la propiedad WordBasic.

Public Sub Main()

With Selection.Font

    .Name = "Arial"

    .Size = 10

End With

Selection.TypeText Text:="Hola Mundo"

End Sub


Diferencias conceptuales entre WordBasic y Visual Basic

La diferencia fundamental entre Visual Basic for Applications y WordBasic consiste en que, mientras que el lenguaje de WordBasic se basa en una lista de un nivel de unos 900 comandos, Visual Basic se basa en una jerarquía de objetos, cada uno de los cuales expone un conjunto específico de métodos y propiedades, similares a las instrucciones y funciones de WordBasic. Mientras que los comandos de WordBasic pueden ejecutarse en cualquier ocasión, Visual Basic sólo muestra los métodos y propiedades de los objetos que están disponibles en un momento determinado.

Los objetos son la pieza fundamental de Visual Basic; casi todo lo que se hace en Visual Basic implica la modificación de objetos. Todos los elementos de Word (documentos, párrafos, campos, marcadores, etc.) pueden representarse con objetos de Visual Basic. A diferencia de los comandos de una lista de un solo nivel, existen objetos a los que sólo se obtiene acceso a través de otros. Por ejemplo, al objeto Font puede obtenerse acceso desde varios objetos, incluidos Style, Selection y Find.

La tarea de aplicar formato de negrita demuestra las diferencias entre los dos lenguajes de programación. La siguiente instrucción de WordBasic aplica formato de negrita a la selección.

Bold 1

El siguiente ejemplo corresponde al método equivalente de Visual Basic para aplicar formato de negrita a la selección.

Selection.Font.Bold = True

Visual Basic no incluye una instrucción y función Bold. En su lugar, existe una propiedad denominada Bold. Normalmente, una propiedad es el atributo de un objeto, como el tamaño, el color o si tiene o no formato de negrita. Bold es una propiedad del objeto Font. De forma similar, Font es la propiedad del objeto Selection que devuelve un objeto Font. Si se sigue la jerarquía de objetos, puede crearse la instrucción para aplicar formato de negrita a la selección.

La propiedad Bold es una propiedad Boolean de Lectura/Escritura. Es decir, el valor de la propiedad Bold puede establecerse en True o False (activarse o desactivarse) o puede devolverse el valor actual. La siguiente instrucción de WordBasic devuelve un valor que indica si el formato de negrita se aplica a la selección.

x = Bold()

El siguiente ejemplo corresponde al método equivalente de Visual Basic para devolver el estado de formato de negrita de la selección.

x = Selection.Font.Bold

El proceso de elaboración de Visual Basic

Para realizar una tarea en Visual Basic, deberá especificar el objeto adecuado. Por ejemplo, si desea aplicar formatos de caracteres del cuadro de diálogo Fuente, utilice el objeto Font. A continuación, deberá determinar cómo se "atravesará" la jerarquía de objetos de Word desde el objeto Application hasta el objeto Font; es decir, los objetos que contienen el objeto Font que desea modificar. Una vez determinada la ruta de acceso del objeto (por ejemplo, Selection.Font), utilice el Examinador de objetos, la Ayuda o las funciones como Generador automático de instrucciones del Editor de Visual Basic para determinar las propiedades y los métodos que pueden aplicarse al objeto. Para obtener más información acerca de cómo llegar a los objetos utilizando propiedades y métodos, consulte Descripción de objetos, propiedades y métodos.

Las propiedades y los métodos suelen estar disponibles para varios objetos de la jerarquía de Word. Por ejemplo, la siguiente instrucción aplica formato de negrita a todo el documento.

ActiveDocument.Content.Bold = True

Por otro lado, a menudo los propios objetos se encuentran en varios lugares de la jerarquía. Para ver una ilustración del modelo de objeto de Word, consulte Objetos de Microsoft Word.

Si conoce el comando de WordBasic para la tarea que desee realizar en Word 97, consulte Equivalentes de Visual Basic para comandos de WordBasic.

Los objetos Selection y Range

La mayoría de los comandos de WordBasic modifican la selección. Por ejemplo, el comando Bold da formato de negrita a la selección. El comando InsertField inserta un campo en el punto de inserción. Siempre que desee trabajar con la selección en Visual Basic, utilice la propiedad Selection para devolver el objeto Selection. La selección puede ser un bloque de texto o simplemente el punto de inserción.

En el siguiente ejemplo de Visual Basic se insertan texto y un nuevo párrafo detrás de la selección.

Selection.InsertAfter Text:="Hola Mundo"

Selection.InsertParagraphAfter

Además de trabajar con la selección, también puede definir y trabajar con varios intervalos de texto de un documento. Un objeto Range hace referencia a un área contigua del documento que tiene una posición de carácter inicial y una posición de carácter final. De forma similar al uso de los marcadores en un documento, los objetos Range se utilizan en Visual Basic para identificar partes de un documento. Sin embargo, a diferencia de los marcadores, el usuario no puede ver un objeto Range si no se ha seleccionado Range utilizando el método Select. Por ejemplo, puede utilizar Visual Basic para aplicar formato de negrita a cualquier parte del documento sin cambiar la selección. En este ejemplo se aplica formato de negrita a los 10 primeros caracteres del documento activo.

ActiveDocument.Range(Start:=0, End:=10).Bold = True

En el siguiente ejemplo se aplica formato de negrita al primer párrafo.

ActiveDocument.Paragraphs(1).Range.Bold = True

En estos dos ejemplos se cambia el formato del documento activo sin cambiar la selección. Para obtener más información acerca del objeto Range, consulte Trabajar con objetos Range.


Objetos, propiedades y métodos

Los objetos son la pieza fundamental de Visual Basic; casi todo lo que se hace en Visual Basic implica la modificación de objetos. Todos los elementos de Word (documentos, tablas, párrafos, marcadores, campos, etc.) pueden representarse con objetos de Visual Basic.

¿Qué son objetos y conjuntos?

Un objeto representa un elemento de Word, como un documento, un párrafo, un marcador o un carácter. Un conjunto es un objeto que contiene otros objetos, normalmente del mismo tipo; por ejemplo, todos los objetos marcador de un documento están incluidos en un único conjunto. Utilizando propiedades y métodos, puede modificarse un único objeto o todo un conjunto de objetos.

¿Qué es es una propiedad?

Una propiedad es el atributo de un objeto o un aspecto de su comportamiento. Por ejemplo, en las propiedades de un documento se incluyen el nombre, el contenido y el estado con que se guarda, así como si está activado el control de cambios. Para cambiar las características de un objeto, se cambian los valores de sus propiedades.

Para establecer el valor de una propiedad, detrás de la referencia a un objeto escriba un punto, el nombre de la propiedad, un signo igual y el nuevo valor de la propiedad. En el siguiente ejemplo se activa el control de cambios en el documento "MiDoc.doc".

Documents("MiDoc.doc").TrackRevisions = True

En este ejemplo, Documents hace referencia al conjunto de documentos abiertos y "MiDoc.doc" identifica un solo documento del conjunto. La propiedad TrackRevisions se establece para ese único documento.

Algunas propiedades no pueden establecerse. El tema de Ayuda de una propiedad indica si puede establecerse (es de Lectura/Escritura) o sólo leerse (es de sólo lectura).

Puede devolverse información acerca de un objeto devolviendo el valor de una de sus propiedades. En el siguiente ejemplo, se devuelve el nombre del documento activo.

docName = ActiveDocument.Name

En este ejemplo, ActiveDocument hace referencia al documento de la ventana activa de Word. El nombre del documento se asigna a la variable Nombredoc.

Nota   El tema de Ayuda de cada propiedad indica si puede establecerse la propiedad (de Lectura/Escritura), sólo leerse (es de sólo lectura) o sólo escribirse (es de sólo escritura). Asimismo, el Examinador de objetos del Editor de Visual Basic muestra el estado de Lectura/Escritura en la parte inferior de la ventana cuando se selecciona la propiedad.

¿Qué es un método?

Un método es una acción que puede realizar un objeto. Por ejemplo, igual que puede imprimirse un documento, el objeto Document tiene un método PrintOut. Con frecuencia, los métodos tienen argumentos que califican cómo se realiza la acción. En el siguiente ejemplo se imprimen las tres primeras páginas del documento activo.

ActiveDocument.PrintOut From:="1", To:="3"

En la mayoría de los casos, los métodos son acciones y las propiedades cualidades. Si se utiliza un método la acción recae sobre el objeto, mientras que si se usa una propiedad se devuelve información acerca del objeto o se cambia una de sus cualidades.

Devolver un objeto

En la mayoría de los casos, se devuelve un solo objeto del conjunto. Por ejemplo, el conjunto Documents contiene los documentos abiertos de Word. La propiedad Documents del objeto Application, objeto del nivel más alto de la jerarquía de objetos de Word, se utiliza para devolver el conjunto Documents.

Después de obtener acceso al conjunto, puede devolverse un solo objeto utilizando un valor de índice entre paréntesis, igual que cuando se trabaja con matrices. El valor de índice es normalmente un número o un nombre. Para obtener más información, consulte Devolver un objeto de un conjunto.

En el siguiente ejemplo se utiliza la propiedad Documents para obtener acceso al conjunto Document. El número de índice se utiliza para devolver el primer documento del conjunto Documents. A continuación, se aplica el método Close al objeto Document para cerrar el primer documento del conjunto Documents.

Documents(1).Close

En el siguiente ejemplo se utiliza un nombre, especificado como cadena, para identificar un objeto Document dentro del conjunto Documents.

Documents("Ventas.doc").Close

Con frecuencia, los objetos del conjunto tienen métodos y propiedades que pueden utilizarse para modificar todo el conjunto de objetos. El objeto Documents tiene un método Save que guarda todos los documentos del conjunto. En el siguiente ejemplo se guardan los documentos abiertos aplicando el método Save.

Documents.Save

El objeto Document también dispone de un método Save para guardar un solo documento. En el siguiente ejemplo, se guarda el documento Informes.doc.

Documents("Informes.doc").Save

Para devolver un objeto que se encuentra en un nivel inferior de la jerarquía de objetos de Word, deberá recorrerla utilizando propiedades y métodos para devolver objetos.

Para ver cómo se hace, abra el Editor de Visual Basic y haga clic en el comando Examinador de objetos del menú Ver. Haga clic en Aplicación de la lista Clases que está a la izquierda. A continuación, haga clic en ActiveDocument de la lista de elementos que está a la derecha. El texto de la parte inferior del Examinador de objetos indica que ActiveDocument es una propiedad de sólo lectura que devuelve un objeto Document. Haga clic en Document en la parte inferior del Examinador de objetos; se seleccionará el objeto Document automáticamente en la lista Clases y la lista Miembros mostrará los elementos del objeto Document. Desplácese a través de la lista de elementos hasta que encuentre Close. Haga clic en el método Close. El texto de la parte inferior de la ventana del Examinador de objetos muestra la sintaxis del método. Para obtener más información acerca del método, presione la tecla F1 o haga clic en el botón Ayuda para saltar al tema de ayuda del método Close.

Una vez obtenida esta información, podrá escribir la siguiente instrucción para cerrar el documento activo.

ActiveDocument.Close SaveChanges:=wdSaveChanges

En el siguiente ejemplo se maximiza la ventana del documento activo.

ActiveWindow.WindowState = wdWindowStateMaximize

La propiedad ActiveWindow devuelve un objeto Window que representa la ventana activa. La propiedad WindowState se establece con la constante de maximización (wdWindowStateMaximize).

En el siguiente ejemplo se crea un nuevo documento y se muestra el cuadro de diálogo Guardar como de manera que pueda asignarse un nombre al documento.

Documents.Add.Save

La propiedad Documents devuelve el conjunto Documents. El método Add crea un nuevo documento y devuelve un objeto Document. A continuación, se aplica el método Save al objeto Document.

Como puede observarse, los métodos o propiedades se utilizan para atravesar la jerarquía hasta llegar al objeto. Es decir, un objeto se devuelve aplicando un método o una propiedad a un objeto superior en la jerarquía. Después de devolver el objeto que desee, puede aplicar los métodos y controlar las propiedades del mismo. Para ver la jerarquía de objetos, consulte Objetos de Microsoft Word.

Ayuda acerca de objetos, métodos y propiedades

Hasta que esté familiarizado con el modelo de objeto de Word, hay algunas herramientas que le pueden servir de ayuda para atravesar la jerarquía.

•	Generador automático de instrucciones. Al escribir un punto (.) después de una propiedad o método en el Editor de Visual Basic, se mostrará una lista de las propiedades y métodos disponibles. Por ejemplo, si escribe Application., se abrirá una lista desplegable con los métodos y propiedades del objeto Application.

•	Ayuda. También puede recurrir a la Ayuda para descubrir cuáles son las propiedades y métodos que pueden utilizarse con un objeto. El tema de Ayuda de cada objeto incluye un salto a Propiedades y Métodos que muestra la lista de propiedades y métodos de dicho objeto. Presione la tecla F1 en el Examinador de objetos o en un módulo para saltar al tema de Ayuda correspondiente.

•	Objetos de Microsoft Word. Este tema muestra la forma en la que los objetos de Word se organizan dentro de la jerarquía. Haga clic en un objeto del gráfico para que se abra el tema de Ayuda correspondiente.

•	Examinador de objetos. El Examinador de objetos del Editor de Visual Basic muestra los elementos (propiedades y métodos) de los objetos de Word.


Trabajar con objetos Range

Una tarea habitual cuando se utiliza Visual Basic es especificar un área en un documento y, a continuación, hacer algo con ella, como insertar texto o aplicarle formato. Por ejemplo, puede que desee escribir una macro que inserte una palabra u oración en una parte del documento. Esa parte del documento puede estar representada por un objeto Range. Una vez identificado el objeto Range, pueden aplicarse los métodos y las propiedades de dicho objeto para modificar el contenido del intervalo.

Un objeto Range hace referencia a una zona contigua del documento. Cada objeto Range se define mediante una posición de carácter inicial y final. De forma similar al uso de los marcadores en un documento, se utilizan los objetos Range en los procedimientos de Visual Basic para identificar partes específicas del documento. Un objeto Range puede ser tan pequeño como el punto de inserción o tan grande como todo el documento. Sin embargo, a diferencia de los marcadores, sólo existe un objeto Range mientras se ejecute el procedimiento que lo define.

Las propiedades Start, End y StoryType identifican un objeto Range de forma exclusiva. Las propiedades Start y End devuelven o establecen las posiciones de carácter inicial y final del objeto Range. La posición de carácter del principio del documento es cero, la posición que sigue al primer carácter es uno, y así sucesivamente. Existen 11 tipos de artículos diferentes representados por las constantes WdStoryType de la propiedad StoryType.

Nota   Los objetos Range son independientes de la selección. Es decir, puede definir y modificar un intervalo sin cambiar la selección actual. Por otro lado, en un documento pueden definirse varios intervalos, mientras que sólo puede haber una selección por panel de documento.

Uso del método Range

El método Range se utiliza para crear un objeto Range en el documento especificado. Este método, que está disponible en el objeto Document, devuelve un objeto Range ubicado en el contenido principal, dados un punto inicial y final. En el siguiente ejemplo se crea un objeto Range que se asigna a la variable MiIntervalo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=10)

MiIntervalo hace referencia a los diez primeros caracteres del documento activo. Puede saber si se ha creado el objeto Range al aplicar una propiedad o un método a dicho objeto guardado en la variable MiIntervalo. En este ejemplo se aplica formato de negrita a los diez primeros caracteres del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=10)

miIntervalo.Bold = True

Si necesita hacer referencia a un objeto Range varias veces, puede utilizar la instrucción Set para establecer una variable que sea equivalente al objeto Range. Sin embargo, si sólo tiene que realizar una acción, no tiene necesidad de guardarlo en una variable. Puede obtener idénticos resultados utilizando una sola instrucción que identifique el intervalo y cambie la propiedad Bold.

ActiveDocument.Range(Start:=0, End:=10).Bold = True

Al igual que los marcadores, un intervalo puede ocupar un grupo de caracteres o marcar una posición en un documento. El objeto Range del siguiente ejemplo tiene un mismo punto inicial y final. En el intervalo no se incluye texto. En el siguiente ejemplo, se inserta texto al principio del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

miIntervalo.InsertBefore "Hola "

El punto inicial y final de un intervalo puede definirse utilizando los números de posición de carácter anteriormente mencionados o las propiedades Start y End con objetos como Selection, Bookmark o Range. En el siguiente ejemplo se crea un objeto Range que empieza al principio del segundo párrafo y acaba después del tercer párrafo.

Set miDoc = ActiveDocument

Set miIntervalo = miDoc.Range(Start:=miDoc.Paragraphs(2).Range.Start, _

    End:=miDoc.Paragraphs(3).Range.End)

Para obtener información adicional y ver ejemplos, consulte el método Range.

Uso de la propiedad Range

La propiedad Range aparece en múltiples objetos, como Paragraph, Bookmark y Cell y se utiliza para devolver un objeto Range. En el siguiente ejemplo, se devuelve un objeto Range que hace referencia al primer párrafo del documento activo.

Set miIntervalo = ActiveDocument.Paragraphs(1).Range

Una vez creado un objeto Range, puede utilizar cualquiera de sus propiedades o métodos para modificarlo. En el siguiente ejemplo, se selecciona el segundo párrafo del documento activo.

ActiveDocument.Paragraphs(2).Range.Select

Si necesita aplicar muchas propiedades o muchos métodos a un mismo objeto Range, puede utilizar la estructura With…End With. En el siguiente ejemplo, se da formato al texto del primer párrafo del documento activo.

Set miIntervalo = ActiveDocument.Paragraphs(1).Range

With miIntervalo

    .Bold = True

    .ParagraphFormat.Alignment = wdAlignParagraphCenter

    .Font.Name = "Arial"

End With

Para obtener información adicional y ver ejemplos, consulte el tema de la propiedad Range

Volver a definir un objeto Range

Utilice el método SetRange para volver a definir un objeto Range. En el siguiente ejemplo se define miIntervalo con la selección actual. El método SetRange redefine miIntervalo de manera que haga referencia a la selección actual y a los diez caracteres siguientes.

Set miIntervalo = Selection.Range

miIntervalo.SetRange Start:=miIntervalo.Start, End:=miIntervalo.End + 10

Para obtener información adicional y ver ejemplos, consulte el método SetRange.

Nota   Al depurar las macros, puede utilizar el método Select para asegurarse de que haya un objeto Range que haga referencia al intervalo de texto correcto. En el siguiente ejemplo se selecciona el objeto Range denominado unIntervalo. El objeto unIntervalo hace referencia al segundo y tercer párrafo del documento activo.

Set unIntervalo = ActiveDocument.Paragraphs(2).Range

unIntervalo.SetRange Start:=unIntervalo.Start, _

    End:=ActiveDocument.Paragraphs(3).Range.End

unIntervalo.Select


Trabajar con objetos Document

En Visual Basic, los métodos para modificar archivos son los del objeto Document o los del objeto del conjunto Documents.

Crear un nuevo documento

El conjunto Documents contiene todos los documentos abiertos. Si desea crear un nuevo documento, utilice el método Add para agregar un objeto Document al conjunto Documents. Con la siguiente instrucción se crea un nuevo documento.

Documents.Add

Una alternativa mejor para crear un documento nuevo es asignar el valor de devolución a una variable de objeto. El método Add devuelve un objeto Document que hace referencia al nuevo documento. En el siguiente ejemplo, se asigna el objeto Document devuelto por el método Add a una variable de objeto, nuevoDoc. Después se establecen varias propiedades y métodos del objeto Document. Puede controlar sin dificultad el nuevo documento utilizando la variable de objeto nuevoDoc.

Set nuevoDoc = Documents.Add

With nuevoDoc

    .Content.Font.Name = "Arial"

    .SaveAs FileName:="Muestra.doc"

End With

Abrir un documento

Para abrir un documento, utilice el método Open con el conjunto Documents. Con la siguiente instrucción se abre el documento "MiDocumento.doc" que está ubicado en la carpeta "MiCarpeta".

Documents.Open FileName:="C:\MiCarpeta\MiDocumento.doc"

Guardar un documento existente

Si desea guardar un solo documento, utilice el método Save con el objeto Document. Con la siguiente instrucción se guarda el documento Ventas.doc.

Documents("Ventas.doc").Save

Puede guardar todos los documentos abiertos aplicando el método Save al conjunto Documents. Con la siguiente instrucción se guardan todos los documentos abiertos.

Documents.Save

Guardar un nuevo documento

Si desea guardar un solo documento, utilice el método SaveAs con el objeto Document. Con la siguiente instrucción se guarda el documento activo como "Temp.doc" en la carpeta actual.

ActiveDocument.SaveAs FileName:="Temp.doc"

En el argumento FileName sólo puede incluirse el nombre de archivo o la ruta de acceso completa, como se muestra en la siguiente tabla.

Sistema operativo	Sintaxis del nombre de archivo
Macintosh	"Unidad disco duro:Documentos:Archivo temporal"
Windows	"C:\Documentos\Archivo temporal.doc"
Cerrar documentos

Si desea cerrar un solo documento, utilice el método Close con el objeto Document. Con la siguiente instrucción se cierra el documento Ventas.doc.

Documents("Ventas.doc").Close SaveChanges:=wdSaveChanges

Puede cerrar todos los documentos abiertos aplicando el método Close al conjunto Documents. Con la siguiente instrucción se cierran todos los documentos sin guardar los cambios.

Documents.Close SaveChanges:=wdDoNotSaveChanges

En el siguiente ejemplo se pide al usuario que guarde el documento antes de cerrarlo.

For Each unDoc In Documents

    unDoc.Save NoPrompt:=False

    unDoc.Close

Next

Activar un documento

Si desea cambiar el documento activo, utilice el método Activate con el objeto Document. Con la siguiente instrucción se activa el documento abierto MiDocumento.doc.

Documents("MiDocumento.doc").Activate

Determinar si se abre un documento

Para saber si un documento está abierto puede enumerar el conjunto Documents utilizando una instrucción For Each...Next. En el siguiente ejemplo se activa el documento "Muestra.doc" si está abierto o, en caso contrario, se abre.

For Each unDoc In Documents

    If InStr(1, unDoc.Name, "muestra.doc", 1) Then

        unDoc.Activate

    Else

        docFound = False

    End If

Next unDoc

If docFound = False Then Documents.Open FileName:="C:\Documentos\Muestra.doc"

Hacer referencia al documento activo

En lugar de hacer referencia a un documento por el nombre o el número de índice, como Documents("Ventas.doc"), la propiedad ActiveDocument devuelve un objeto Document que hace referencia al documento activo (documento seleccionado). En el siguiente ejemplo, se muestra el nombre del documento activo, o bien un mensaje en caso de que no esté abierto.

If Documents.Count >= 1 Then

    MsgBox ActiveDocument.Name

Else

    MsgBox "No hay documentos abiertos"

End If


Revisar macros de Visual Basic grabadas

La grabadora de macros es una gran herramienta para descubrir los métodos y propiedades de Visual Basic que desee utilizar. Si no sabe qué propiedades o métodos debe utilizar, active la grabadora de macros y realice la acción manualmente. La grabadora de macros convierte sus acciones en el código de Visual Basic. Sin embargo, existen algunas limitaciones para la grabación de macros. No puede grabar lo siguiente:

•	Bifurcaciones condicionales

•	Asignaciones de variables

•	Estructuras de bucle

•	Formularios personalizados

•	Control de errores

•	Selecciones de texto realizadas con el mouse (ratón); deben usarse combinaciones de teclas.

Para mejorar las macros, puede revisar el código grabado en su módulo.

Quitar la propiedad Selection

Las macros creadas mediante la grabadora de macros dependen de la selección. Delante de la mayoría de las instrucciones de las macros grabadas aparece "Selection". Las macros grabadas utilizan la propiedad Selection para devolver el objeto Selection. En el siguiente ejemplo, se desplaza la selección hasta el marcador Temp y se inserta texto detrás de él.

Sub Macro1()

Selection.Goto What:=wdGotoBookmark, Name:="Temp"

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="Nuevo texto"

End Sub

Con esta macro se realiza la tarea, pero existen algunos inconvenientes. En primer lugar, si el documento no tiene un marcador denominado Temp, la macro enviará un error. En segundo lugar, la macro desplaza la selección, que quizás no sea lo adecuado. Estos dos aspectos pueden resolverse corrigiendo la macro de manera que no utilice el objeto Selection. A continuación se muestra la macro corregida.

Sub MiMacro()

If ActiveDocument.Bookmarks("Temp").Exists = False Then

    marca = ActiveDocument.Bookmarks("Temp").End

    ActiveDocument.Range(Start:=marca, End:=marca).InsertAfter "Nuevo texto"

End If

End Sub

El método Exists se utiliza para comprobar si existe el marcador Temp. Si se encuentra, la propiedad End devuelve la posición de carácter final del marcador. Por último, se utiliza el método Range para devolver un objeto Range que haga referencia a la posición final del marcador, de forma que pueda insertarse texto utilizando el método InsertAfter. Para obtener más información acerca de la definición de objetos Range, consulte Trabajar con objetos Range.

Uso de With…End With

Las instrucciones de las macros que hacen referencia al mismo objeto pueden simplificarse utilizando una estructura With…End With. Por ejemplo, se ha grabado la siguiente macro al agregar un título en la parte superior del documento.

Sub Macro1()

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="Título"

Selection.ParagraphAlignment.Alignment = wdAlignParagraphCenter

End Sub

La propiedad Selection se utiliza con cada instrucción para devolver un objeto Selection. La macro puede simplificarse para que la propiedad Selection sólo se utilice una vez.

Sub MiMacro()

With Selection

    .HomeKey Unit:=wdStory

    .TypeText Text:="Título"

    .ParagraphAlignment.Alignment = wdAlignParagraphCenter

End With

End Sub

La misma tarea puede realizarse sin utilizar el objeto Selection. La siguiente macro utiliza un objeto Range al principio del documento activo para realizar la misma tarea.

Sub MiMacro()

With ActiveDocument.Range(Start:=0, End:=0)

    .InsertAfter "Título"

    .ParagraphFormat.Alignment = wdAlignParagraphCenter

End With

End Sub

Quitar propiedades innecesarias

Si se graba una macro que implique seleccionar una opción en un cuadro de diálogo, la grabadora de macros registrará los valores de todas las opciones del cuadro de diálogo, aunque sólo se cambien una o dos opciones. Si no desea cambiar todas las opciones, puede quitar las propiedades innecesarias de la macro grabada. En la siguiente macro grabada se incluyen varias opciones del cuadro de diálogo Párrafo (menú Formato).

Sub Macro1()

With Selection.ParagraphFormat

    .LeftIndent = InchesToPoints(0)

    .RightIndent = InchesToPoints(0)

    .SpaceBefore = 6

    .SpaceAfter = 6

    .LineSpacingRule = 0

    .Alignment = wdAlignParagraphLeft

    .WidowControl = True

    .KeepWithNext = False

    .KeepTogether = False

    .PageBreakBefore = False

    .NoLineNumber = False

    .Hyphenation = True

    .FirstLineIndent = InchesToPoints(0)

    .OutlineLevel = 10

End With

End Sub

Sin embargo, si sólo desea cambiar el espacio anterior y posterior del párrafo, puede modificar la macro de la siguiente forma:

Sub MiMacro()

With Selection.ParagraphFormat

    .SpaceBefore = 6

    .SpaceAfter = 6

End With

End Sub

La macro simplificada se ejecuta más rápido, ya que establece menos propiedades. Sólo se cambia el espacio anterior y posterior; el resto de los valores de los párrafos seleccionados permanecen invariables.

Quitar argumentos innecesarios

Cuando la grabadora de macros registra un método se incluyen los valores de todos los argumentos. La siguiente macro se ha grabado al abrir el documento Prueba.doc. En la macro obtenida se incluyen todos los argumentos del método Open.

Sub Macro1()

Documents.Open FileName:="C:\Mis Documentos\Prueba.doc", ConfirmConversions:= _

    False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _

    PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _

    WritePasswordTemplate:="", Format:=wdOpenFormatAuto

End Sub

Los argumentos no necesarios pueden quitarse de la macro grabada. Por ejemplo, podría quitar todos los argumentos establecidos con una cadena vacía (WritePasswordDocument:=""), como se muestra a continuación.

Sub MiMacro()

Documents.Open FileName:="C:\Mis Documentos\Prueba.doc", ConfirmConversions:= _

    False, ReadOnly:=False, AddToRecentFiles:=False, _

    Revert:=False, Format:=wdOpenFormatAuto

End Sub


Modificar parte de un documento

Visual Basic incluye objetos que pueden utilizarse para modificar los siguientes elementos del documento: caracteres, palabras, oraciones, párrafos y secciones. En la siguiente tabla se incluyen las propiedades que corresponden a estos elementos del documento y a los objetos que devuelven.

La expresión	Devuelve el objeto
Words(index)	Range
Characters(index)	Range
Sentences(index)	Range
Paragraphs(index)	Paragraph
Sections(index)	Section
Si estas propiedades se utilizan sin índice, se devuelve un objeto de conjunto del mismo nombre. Por ejemplo, la propiedad Paragraphs devuelve el objeto de conjunto Paragraphs. Sin embargo, si se identifica un elemento de estos conjuntos con el índice, se devuelve el objeto de la segunda columna de la tabla. Por ejemplo, Words(1) devuelve un objeto Range. Una vez creado un objeto Range, puede utilizar cualquiera de las propiedades o métodos de intervalo para modificarlo. Por ejemplo, con la siguiente instrucción se copia la primera palabra de la selección en el Portapapeles.

Selection.Words(1).Copy

Nota   Los elementos de los conjuntos Paragraphs y Sections son formas particulares del conjunto más que objetos Range. Sin embargo, la propiedad Range, que devuelve un objeto Range, está disponible en los objetos Paragraph y Section. Por ejemplo, con la siguiente instrucción se copia el primer párrafo del documento activo en el Portapapeles.

ActiveDocument.Paragraphs(1).Range.Copy

Todas las propiedades de los elementos del documento de la tabla anterior están disponibles en los objetos Document, Selection y Range. En los siguientes ejemplos se muestra cómo puede llegarse a estas propiedades desde los objetos Document, Selection y Range.

En el siguiente ejemplo, se establece si la primera palabra del documento activo va en mayúsculas o minúsculas.

ActiveDocument.Words(1).Case = wdUpperCase

En el siguiente ejemplo se establece el margen inferior de la sección actual en 0,2 cm.

Selection.Sections(1).PageSetup.BottomMargin = InchesToPoints(0.5)

En el siguiente ejemplo se duplica el espacio del texto del documento activo; la propiedad Content devuelve un objeto Range.

ActiveDocument.Content.ParagraphFormat.Space2

Modificar un grupo de elementos de documento

Para modificar un intervalo de texto formado por un grupo de elementos de documento (caracteres, palabras, oraciones, párrafos o secciones), necesita crear un objeto Range. El método Range crea un objeto Range, dados un punto inicial y final. Por ejemplo, con la siguiente instrucción se crea un objeto Range que hace referencia a los diez primeros caracteres del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=10)

Al utilizar las propiedades Start y End con un objeto Range, puede crearse un objeto Range nuevo que haga referencia a un grupo de elementos del documento. Por ejemplo, con la siguiente instrucción se crea un objeto Range (miIntervalo) que hace referencia a las tres primeras palabras del documento activo.

Set Doc = ActiveDocument

Set miIntervalo = Doc.Range(Start:=Doc.Words(1).Start, _

    End:=Doc.Words(3).End)

En el siguiente ejemplo se crea un objeto Range (unIntervalo) que empieza al principio del segundo párrafo y acaba después del tercer párrafo.

Set Doc = ActiveDocument

Set miIntervalo = Doc.Range(Start:=Doc.Paragraphs(2).Range.Start, _

    End:=Doc.Paragraphs(3).Range.End)

Para obtener más información acerca de la definición de objetos Range, consulte Trabajar con objetos Range.


Trabajar con el objeto Selection

Cuando se trabaja con un documento en Word, normalmente se selecciona el texto y después se realiza una acción, como darle formato o escribir. En Visual Basic, no es necesario seleccionar texto antes de modificarlo. En su lugar, se crea un objeto Range que hace referencia a una parte específica del documento. Para obtener información acerca de la definición de objetos Range, consulte Trabajar con objetos Range. Sin embargo, si desea que el código responda a la selección o la cambie, puede utilizar el objeto Selection.

El método Select activa un objeto. Por ejemplo, con la siguiente instrucción se selecciona la primera palabra del documento activo.

ActiveDocument.Words(1).Select

Si desea ver más ejemplos del método Select, consulte el método Select o Seleccionar texto en un documento.

La propiedad Selection devuelve un objeto Selection que representa la selección activa de un panel de la ventana del documento. Sólo puede haber un objeto Selection por panel de ventana de documento y sólo uno puede estar activo. En el siguiente ejemplo, se cambia el formato de párrafo de los párrafos de la selección.

Selection.Paragraphs.LeftIndent = InchesToPoints(0.5)

En el siguiente ejemplo se inserta la palabra "Hola" detrás de la selección.

Selection.InsertAfter Text:="Hola"

En el siguiente ejemplo se aplica formato de negrita a la selección.

Selection.Font.Bold = True

Con frecuencia, la grabadora de macros crea una macro que utiliza la propiedad Selection. El siguiente ejemplo se ha creado utilizando la grabadora de macros. La macro aplica formato de negrita a las dos primeras palabras del documento.

Selection.HomeKey Unit:=wdStory

Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Font.Bold = wdToggle

En el siguiente ejemplo se realiza la misma tarea sin utilizar la propiedad Selection.

ActiveDocument.Range(Start:=0, End:=ActiveDocument.Words(2).End).Bold = True


Devolver un objeto de un conjunto

El método Item devuelve un solo objeto de un conjunto. En el siguiente ejemplo se establece la variable primerDoc de un objeto Document que representa el primer documento del conjunto Documents.

Set primerDoc = Documents.Item(1)

El método Item es el método predeterminado para la mayoría de los conjuntos, por lo que puede escribirse la misma instrucción de forma más breve omitiendo la clave Item.

Set primerDoc = Documents(1)

Objetos denominados

Aunque normalmente puede especificarse un valor entero con el método Item, quizás sea más adecuado devolver un objeto por su nombre. En el siguiente ejemplo se cambia la selección a un documento denominado Ventas.doc.

Documents("Ventas.doc").Activate

En el siguiente ejemplo, se selecciona el intervalo de texto delimitado por el marcador "temp" en el documento activo.

ActiveDocument.Bookmarks("temp").Select

No todos los conjuntos pueden indizarse por nombre. Para determinar los valores de índice de conjunto válidos, consulte el tema del objeto del conjunto.

Valores de índice predefinidos

Algunos conjuntos tienen valores de índice previamente definidos que pueden utilizarse para devolver un objeto. Cada valor de índice definido previamente está representado por una constante. Por ejemplo, se especifica una constante WdBorderType con la propiedad Borders para devolver un objeto Border.

En el siguiente ejemplo, se agrega un borde de una línea de 0,75 puntos por debajo del primer párrafo de la selección.

With Selection.Paragraphs(1).Borders(wdBorderBottom)

    .LineStyle = wdLineStyleSingle

    .LineWidth = wdLineWidth075pt

End With


propiedades y métodos predeterminados

La mayoría de los objetos tienen una propiedad o un método predeterminados. Visual Basic aplica la propiedad o el método predeterminados a un objeto dado para resolver una expresión que de otro modo no sería válida. Puede escribir instrucciones que utilicen propiedades o métodos predeterminados de forma más breve si omite las claves predeterminadas. Por ejemplo, el método Item es el método predeterminado para la mayoría de los conjuntos de Word, por lo que las siguientes instrucciones son equivalentes.

ActiveDocument.Paragraphs.Item(1).Alignment = wdAlignParagraphCenter

ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter

Nota   Las propiedades y los métodos predeterminados se señalan agregando un punto azul al gráfico de la propiedad o método que aparece delante del nombre en el Examinador de objetos.


Automatizar las tareas comunes de Word

En este tema se incluyen algunas tareas habituales de Word y el código de Visual Basic necesario para llevarlas a cabo.

Aplicar formato al texto

Modificar texto

Buscar y reemplazar texto o formato

Tareas varias

Trabajar con tablas

Trabajar con documentos


Aplicar formato al texto

En este tema se incluyen ejemplos de Visual Basic relacionados con las siguientes tareas:

•	Aplicar formato a la selección

•	Aplicar formato al intervalo

•	Insertar texto y aplicar formato de caracteres y de párrafo

•	Alternar el espacio antes de párrafo entre 12 puntos y ninguno

•	Alternar el formato de negrita

•	Aumentar el margen izquierdo en 0,2 cm

Aplicar formato a la selección

En el siguiente ejemplo se utiliza la propiedad Selection para aplicar formato de caracteres y de párrafo al texto seleccionado. La propiedad Font se utiliza para obtener acceso a las propiedades y métodos de formato de caracteres y la propiedad ParagraphFormat para obtener acceso a las propiedades y métodos de formato de párrafo.

With Selection.Font

    .Name = "Times New Roman"

    .Size = 14

    .AllCaps = True

End With

With Selection.ParagraphFormat

    .LeftIndent = InchesToPoints(0.5)

    .Space1

End With

Aplicar formato a un intervalo

En el siguiente ejemplo, se define un objeto Range que hace referencia a los tres primeros párrafos del documento activo. A Range (miIntervalo) se le da formato aplicando las propiedades de los objetos Font y ParagraphFormat.

Set miIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, _

    End:=ActiveDocument.Paragraphs(3).Range.End)

With miIntervalo

    .Font.Name = "Arial"

    .ParagraphFormat.Alignment = wdAlignParagraphJustify

End With

Insertar texto y aplicar formato de carácter y de párrafo

En el siguiente ejemplo, se agrega la palabra Título en la parte superior del documento actual. El primer párrafo está alineado al centro y detrás de él se agrega un espacio de 0,2 cm. La palabra Título tiene formato de fuente Arial de 24 puntos.

Set oIntervalo = ActiveDocument.Range(Start:=0, End:=0)

With oIntervalo

    .InsertAfter Text:="Título"

    .InsertParagraphAfter

    .Font.Name = "Arial"

    .Font.Size = 24

End With

With ActiveDocument.Paragraphs(1)

    .Alignment = wdAlignParagraphCenter

    .SpaceAfter = InchesToPoints(.5)

End With

Alternar el espacio antes de párrafo entre 12 puntos y ninguno

En el siguiente ejemplo, se cambia el espacio antes de aplicar formato al primer párrafo de la selección. La macro recupera el valor actual de espacio antes y, si el valor es de 12 puntos, se quita el formato de espacio antes: el valor de la propiedad SpaceBefore se establece en cero. Si el valor del espacio antes no es 12, el valor de la propiedad SpaceBefore se establece en 12 puntos.

Set oPárrafo = Selection.Paragraphs(1)

If oPárrafo.SpaceBefore = 12 Then

    oPárrafo.SpaceBefore = 0

Else

    oPárrafo.SpaceBefore = 12

End If

Alternar el formato de negrita

En el siguiente ejemplo se cambia el formato de negrita de la selección.

Selection.Font.Bold = wdToggle

Aumentar el margen izquierdo en 0,2 cm

En el siguiente ejemplo se aumenta el margen izquierdo en 0,2 cm. El objeto PageSetup contiene todos los atributos de configuración de página de un documento (margen izquierdo, margen inferior, tamaño de papel, etc.) como propiedades. La propiedad LeftMargin se utiliza para devolver y establecer la configuración del margen izquierdo.

iMargen = ActiveDocument.PageSetup.LeftMargin

iMargen = iMargen + InchesToPoints(0.5)

ActiveDocument.PageSetup.LeftMargin = iMargen


Modificar texto

En este tema se incluyen ejemplos de Visual Basic relacionados con las siguientes tareas:

•	Determinar si hay texto seleccionado

•	Contraer una selección o intervalo

•	Expandir una selección o intervalo

•	Volver a definir un objeto Range

•	Cambiar texto

Para obtener información y ver ejemplos de otras tareas de modificación, consulte los siguientes temas:

Devolver texto de un documento

Seleccionar texto en un documento

Insertar texto en un documento

Modificar parte de un documento

Determinar si está seleccionado texto

La propiedad Type del objeto Selection devuelve información acerca del tipo de selección. En el siguiente ejemplo, se muestra un mensaje si la selección es un punto de inserción.

If Selection.Type = wdSelectionIP Then MsgBox "No se ha seleccionado nada"

Contraer una selección o un intervalo

Utilice el método Collapse para contraer un objeto Selection o Range a su punto inicial o final. En el siguiente ejemplo, se contrae la selección en un punto de inserción situado al principio de la selección.

Selection.Collapse Direction:=wdCollapseStart

En el siguiente ejemplo se cancela el objeto miIntervalo hasta su punto final, después de la primera palabra.

Set miIntervalo = ActiveDocument.Words(1)

miIntervalo.Collapse Direction:=wdCollapseEnd

Ampliar una selección o un rango

En el siguiente ejemplo se utiliza el método MoveEnd para ampliar el final de la selección de manera que se incluyan tres palabras más. Los métodos MoveLeft, MoveRight, MoveUp y MoveDown también pueden utilizarse para ampliar un objeto Selection.

Selection.MoveEnd Unit:=wdWord, Count:=3

En el siguiente ejemplo se utiliza el método MoveEnd para ampliar oIntervalo de manera que incluya los tres primeros párrafos del documento activo.

Set oIntervalo = ActiveDocument.Paragraphs(1).Range

oIntervalo.MoveEnd Unit:=wdParagraph, Count:=2

Volver a definir un objeto Range

Utilice el método SetRange para volver a definir un objeto Range. Para obtener más información, consulte Trabajar con objetos Range.

Cambiar texto

Puede cambiar texto modificando el contenido de un intervalo. Con la siguiente instrucción se cambia la primera palabra del documento activo estableciendo la propiedad Text como "El".

ActiveDocument.Words(1).Text = "El "

También puede utilizar el método Delete para eliminar texto y después puede insertar texto nuevo utilizando el método InsertAfter o InsertBefore. En el siguiente ejemplo, se elimina el primer párrafo del documento activo y se inserta texto nuevo.

Set miIntervalo = ActiveDocument.Paragraphs(1).Range

With miIntervalo

    .Delete

    .InsertAfter Text:="Nuevo texto"

    .InsertParagraphAfter

End With


Tareas varias

En este tema se incluyen ejemplos de Visual Basic para las siguientes tareas:

•	Cambiar la vista

•	Establecer el texto del encabezado o pie de página

•	Establecer opciones

•	Cambiar el diseño del documento

•	Establecer una repetición para recorrer los párrafos de un documento

•	Personalizar menús y barras de herramientas

Cambiar la vista

El objeto View incluye propiedades y métodos asociados con la presentación de los atributos (mostrar todas, sombreado de campo, líneas de cuadrícula de las tablas, etc.) de una ventana o panel. En el siguiente ejemplo se cambia a vista Diseño de página.

ActiveWindow.View.Type = wdPageView

Establecer el texto del encabezado o pie de página

Las propiedades Headers, Footers y HeaderFooter devuelven el objeto HeaderFooter. En el siguiente ejemplo se cambia el texto del encabezado de la página actual.

ActiveWindow.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.Range.Text = "Texto del encabezado"

En este ejemplo se crea un objeto Range (oIntervalo) que hace referencia al primer pie de página de la primera sección del documento activo. Una vez establecido el objeto Range, se elimina el texto del pie de página existente. El campo FILENAME se agrega al pie de página junto con dos tabulaciones y el campo AUTHOR.

Set oIntervalo = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

With oIntervalo

    .Delete

    .Fields.Add Range:=oIntervalo, Type:=wdFieldFileName, Text:="\p"

    .InsertAfter Text:=vbTab & vbTab

    .Collapse Direction:=wdCollapseStart

    .Fields.Add Range:=oIntervalo, Type:=wdFieldAuthor

End With

Establecer opciones

El objeto Options contiene propiedades que corresponden a elementos del cuadro de diálogo Opciones (menú Herramientas). En el siguiente ejemplo, se establecen tres opciones de aplicación para Word.

With Options

    .AllowDragAndDrop = True

    .ConfirmConversions = False

    .MeasurementUnit = wdPoints

End With

Cambiar el diseño del documento

El objeto PageSetup contiene todos los atributos de configuración de página de un documento (margen izquierdo, margen inferior, tamaño de papel, etc.) como propiedades. En el siguiente ejemplo, se establecen los valores de margen del documento activo.

With ActiveDocument.PageSetup

    .LeftMargin = InchesToPoints(0.75)

    .RightMargin = InchesToPoints(0.75)

    .TopMargin = InchesToPoints(1.5)

    .BottomMargin = InchesToPoints(1)

End With

Establecer una repetición para recorrer los párrafos de un documento

En el siguiente ejemplo se recorren todos los párrafos del documento activo. Si el valor de espacio antes de un párrafo es de 6 puntos, en este ejemplo se cambia a 12 puntos.

For Each unPárraf In ActiveDocument.Paragraphs

   If unPárraf.SpaceBefore = 6 Then oPara.SpaceBefore = 12

Next unPárraf

Para obtener más información, consulte Establecer una repetición para recorrer un conjunto.

Personalizar menús y barras de herramientas

El objeto CommandBar representa los menús y las barras de herramientas. Utilice la propiedad CommandBars con un nombre de menú o de barra de herramientas para devolver un único objeto CommandBar. La propiedad Controls devuelve un objeto CommandBarControls que hace referencia a los elementos de la barra de comandos especificada. En el siguiente ejemplo se agrega el comando Contar palabras al menú Herramientas.

CustomizationContext = NormalTemplate

CommandBars("Tools").Controls.Add Type:=msoControlButton, ID:=792, _

    Before:=6

En el siguiente ejemplo se agrega el comando Subrayado doble a la barra de herramientas Formato.

CustomizationContext = NormalTemplate

CommandBars("Format").Controls.Add Type:=msoControlButton, ID:=60, _

    Before:=7

Active la grabadora de macros y personalice un menú o una barra de herramientas para determinar el valor Id de un comando; por ejemplo, Id 60 es el comando Subrayado doble.


Trabajar con tablas

En este tema se incluyen ejemplos de Visual Basic relacionados con las siguientes tareas:

•	Insertar texto en la celda de una tabla

•	Crear una tabla, insertar texto y aplicar formato

•	Devolver texto de la celda de una tabla sin devolver el marcador de fin de celda

•	Convertir texto en una tabla

•	Devolver el contenido de cada una de las celdas de una tabla

•	Copiar todas las tablas del documento activo en un nuevo documento

Insertar texto en la celda de una tabla

En el siguiente ejemplo, se inserta texto en la primera celda de la primera tabla del documento activo. El método Cell devuelve un único objeto Cell. La propiedad Range devuelve un objeto Range. El método Delete se utiliza para eliminar texto y el método InsertAfter para insertar el texto "Celda 1,1".

If ActiveDocument.Tables.Count >= 1 Then

    With ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range

        .Delete

        .InsertAfter Text:="Celda 1,1"

    End With

End If

Crear una tabla, insertar texto y aplicar formato

En el siguiente ejemplo se inserta una tabla de 4 columnas y 3 filas al principio del documento. La estructura For Each...Next se utiliza para recorrer cada una de las celdas de la tabla. Dentro de la estructura For Each...Next, el método InsertAfter se utiliza para agregar texto a las celdas de una tabla (Celda 1, Celda 2, etc.).

Set oDoc = ActiveDocument

Set oTabla = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows:=3, _

    NumColumns:=4)

iCount = 1

For Each oCelda In oTabla.Range.Cells

    oCelda.Range.InsertAfter "Celda " & iCount

    iCount = iCount + 1

Next oCelda

oTabla.AutoFormat Format:=wdTableFormatColorful2, _

    ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True

Devolver texto de la celda de una tabla sin devolver el marcador de fin de celda

En los siguientes ejemplos se devuelve y se muestra el contenido de las celdas de la primera fila de la primera tabla del documento.

Set oTabla = ActiveDocument.Tables(1)

For Each unaCelda In oTabla.Rows(1).Cells

    Set miIntervalo = ActiveDocument.Range(Start:=unaCelda.Range.Start, _

        End:=unaCelda.Range.End - 1)

    MsgBox miIntervalo.Text

Next unaCelda

Set oTabla = ActiveDocument.Tables(1)

For Each unaCelda In oTabla.Rows(1).Cells

    Set miIntervalo = unaCelda.Range

    miIntervalo.MoveEnd Unit:=wdCharacter, Count:=-1

    MsgBox miIntervalo.Text

Next unaCelda

Convertir texto en una tabla

En el siguiente ejemplo se inserta texto separado por tabulaciones al principio del documento activo y, a continuación, se convierte el texto en una tabla.

Set oIntervalo1 = ActiveDocument.Range(Start:=0, End:=0)

oIntervalo1.InsertBefore "uno" & vbTab & "dos" & vbTab & "tres" & vbCr

Set oTabla1 = oIntervalo1.ConvertToTable(Separator:=Chr(9), NumRows:=1, NumColumns:=3)

Devolver el contenido de cada una de las celdas de una tabla

En el siguiente ejemplo se define una matriz que equivale al número de celdas de la primera tabla del documento, dando por supuesto Option Base 1. La estructura For Each...Next se utiliza para devolver el contenido de cada una de las celdas de una tabla y para asignar el texto al elemento de la matriz correspondiente.

If ActiveDocument.Tables.Count >= 1 Then

    Set oTabla = ActiveDocument.Tables(1)

    iNumCells = oTabla.Range.Cells.Count

    ReDim unaCeldas(iNumCells)

    i = 1

    For Each oCelda In oTabla.Range.Cells

        Set miIntervalo = oCelda.Range

        miIntervalo.MoveEnd Unit:=wdCharacter, Count:=-1

        unaCeldas(i) = miIntervalo.Text

        i = i + 1

    Next oCelda

End If

Copiar todas las tablas del documento activo en un nuevo documento

En este ejemplo, se copian las tablas del documento actual en un nuevo documento.

If ActiveDocument.Tables.Count >= 1 Then

    Set oDoc1 = ActiveDocument

    Set MiIntervalo = Documents.Add.Range(Start:=0, End:=0)

    For Each oTabla In oDoc1.Tables

        oTabla.Range.Copy

        With MiIntervalo

            .Paste

            .Collapse Direction:=wdCollapseEnd

            .InsertParagraphAfter

            .Collapse Direction:=wdCollapseEnd

        End With

    Next

End If


Buscar y reemplazar texto o formato

Los objetos Find y Replacement contienen las funciones de búsqueda y sustitución. El objeto Find está disponible en el objeto Selection y Range. La acción de buscar es ligeramente diferente dependiendo de si se obtiene acceso al objeto Find desde el objeto Selection o Range.

Buscar texto y reemplazarlo

Si se obtiene acceso al objeto Find desde el objeto Selection, la selección se cambiará cuando se encuentren los criterios de búsqueda. En este ejemplo, se selecciona la siguiente aparición de la palabra "Hola". Si se llega al final del documento antes de que se encuentre esta palabra, se detendrá la búsqueda.

With Selection.Find

    .Forward = True

    .Wrap = wdFindStop

    .Text = "Hola"

    .Execute

End With

El objeto Find contiene propiedades relacionadas con las opciones del cuadro de diálogo Buscar y reemplazar (al seleccionar Buscar en el menú Edición). Pueden establecerse las propiedades individuales del objeto Find o utilizarse argumentos con el método Execute, como se muestra en el siguiente ejemplo.

Selection.Find.Execute FindText:="Hola", Forward:=True, Wrap:=wdFindStop

Buscar texto sin cambiar la selección

Si se obtiene acceso al objeto Find desde un objeto Range, no se cambia la selección, sino que vuelve a definirse el objeto Range cuando se encuentran los criterios de búsqueda. En el siguiente ejemplo, se localiza la primera aparición de la palabra "azul" del documento activo. Si la operación de búsqueda es satisfactoria, se vuelve a definir el intervalo y se aplica formato de negrita a la palabra "azul".

With ActiveDocument.Content.Find

    .Text = "azul"

    .Forward = True

    .Execute

    If .Found = True Then .Parent.Bold = True

End With

Con el siguiente ejemplo se obtiene el mismo resultado que en el ejemplo anterior utilizando los argumentos del método Execute.

Set miIntervalo = ActiveDocument.Content

miIntervalo.Find.Execute FindText:="azul", Forward:=True

If miIntervalo.Find.Found = True Then miIntervalo.Bold = True

Uso del objeto Replacement

El objeto Replacement representa los criterios de sustitución de una operación de búsqueda y sustitución. Las propiedades y los métodos del objeto Replacement corresponden a las opciones del cuadro de diálogo Buscar y reemplazar (menú Edición).

El objeto Replacement está disponible a partir del objeto Find. En el siguiente ejemplo, se sustituyen todas las apariciones de la palabra "buenas" por la palabra "hola". Cuando se encuentren los criterios de búsqueda, se cambiará la selección, ya que se obtiene acceso al objeto Find desde el objeto Selection.

With Selection.Find

    .ClearFormatting

    .Text = "buenas"

    .Replacement.ClearFormatting

    .Replacement.Text = "hola"

    .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue

End With

En el siguiente ejemplo, se quita el formato de negrita del documento activo. El valor de la propiedad Bold es True para el objeto Find y False para el objeto Replacement. Para buscar y sustituir formato, establezca los valores de búsqueda y sustitución de texto como cadenas vacías ("") y establezca el valor del argumento Format del método Execute en True. La selección permanece invariable, ya que se obtiene acceso al objeto Find desde un objeto Range; la propiedad Content devuelve un objeto Range.

With ActiveDocument.Content.Find

    .ClearFormatting

    .Font.Bold = True

    With .Replacement

        .ClearFormatting

        .Font.Bold = False

    End With

    .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll

End With


Preguntas frecuentes acerca de Visual Basic

  Microsoft Office 97/Visual Basic Programmer's Guide

Preguntas generales

  Convertir macros de WordBasic a Visual Basic

  Buscar el equivalente de Visual Basic para un comando o una función de WordBasic

  Grabación de macros

  ¿Qué son objetos, propiedades y métodos?

  Buscar la propiedad o el método que va a utilizarse

  Devolver un objeto de un conjunto

Preguntas acerca de las funciones de Word

  Hacer referencia al elemento activo; por ejemplo, párrafo, tabla o campo

  ¿Qué es un objeto Range?

  Hacer referencia a palabras, frases o secciones de un documento

  Sigue apareciendo el mensaje de error "el objeto no admite esta propiedad o este método"; ¿puede evitarse?

  Crear, abrir, guardar y cerrar documentos

  Seleccionar texto en un documento

  Insertar texto en un documento

  Sigue apareciendo el mensaje de error "no existe el miembro del conjunto seleccionado; ¿puede evitarse?

  Recorrer los elementos de un conjunto

  Pedir información del usuario

  Devolver texto de un documento

  Necesidad de la propiedad Application delante de una propiedad o de un método de nivel superior

  Mostrar cuadros de diálogo integrados de Microsoft Word

  Sigue apareciendo un error al intentar obtener acceso a una fila o a una columna de una tabla


Hacer referencia a un elemento activo

Si desea hacer referencia al párrafo activo, a la tabla, al campo o a otro elemento del documento, utilice la propiedad Selection para devolver un objeto Selection. Desde dicho objeto puede obtener acceso a todos los párrafos o al primer párrafo de la selección. En el siguiente ejemplo, se aplica un borde alrededor del primer párrafo de la selección.

Selection.Paragraphs(1).Borders.Enable = True

En el siguiente ejemplo, se aplica un borde alrededor de todos los párrafos de la selección.

Selection.Paragraphs.Borders.Enable = True

En el siguiente ejemplo, se aplica sombreado a la primera fila de la primera tabla de la selección.

Selection.Tables(1).Rows(1).Shading.Texture = wdTexture10Percent

Si la selección no contiene una tabla se producirá un error. Utilice la propiedad Count para determinar si la selección contiene una tabla. En el siguiente ejemplo, se aplica sombreado a la primera fila de la primera tabla de la selección.

If Selection.Tables.Count >= 1 Then

    Selection.Tables(1).Rows(1).Shading.Texture = wdTexture10Percent

Else

    MsgBox "La selección no contiene una tabla"

End If

En el siguiente ejemplo, se aplica sombreado a la primera fila de todas las tablas de la selección. La repetición For Each...Next se utiliza para recorrer cada una de las tablas de la selección.

If Selection.Tables.Count >= 1 Then

    For Each unaTabla In Selection.Tables

        unaTabla.Rows(1).Shading.Texture = wdTexture10Percent

    Next unaTabla

End If


Seleccionar texto en un documento

Utilice el método Select para seleccionar un elemento del documento. El método Select está disponible desde varios objetos, como Bookmark, Field, Range y Table. En el siguiente ejemplo, se selecciona la primera tabla del documento activo.

ActiveDocument.Tables(1).Select

En el siguiente ejemplo, se selecciona el primer campo del documento activo.

ActiveDocument.Fields(1).Select

En el siguiente ejemplo se seleccionan los cuatro primeros párrafos del documento activo. El método Range se utiliza para crear un objeto Range que hace referencia a los cuatro primeros párrafos. A continuación, se aplica el método Select al objeto Range.

Set miIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, _

    End:=ActiveDocument.Paragraphs(4).Range.End)

miIntervalo.Select

Para obtener más información, consulte Trabajar con el objeto Selection.


Insertar texto en un documento

Utilice el método InsertAfter o InsertBefore para insertar texto antes o después de un objeto Selection o Range. En el siguiente ejemplo, se inserta texto al final del documento activo.

ActiveDocument.Content.InsertAfter Text:=" fin."

En el siguiente ejemplo se inserta texto delante de la selección.

Selection.InsertBefore Text:="nuevo texto "

Después de utilizar el método InsertBefore o InsertAfter, Range o Selection se expande para incluir el nuevo texto. Utilice el método Collapse para contraer un objeto Selection o Range al punto inicial o final.


Microsoft Office 97/Visual Basic Programmer's Guide

La guía Microsoft® Office 97/Visual Basic® Programmer's Guide (Microsoft Press, 1996) está disponible en todos los puntos de venta de documentación de computación y directamente en Microsoft Press. En países de habla hispana, los libros de Microsoft Press se pueden obtener a través de la editorial McGraw-Hill. Se trata de una guía de referencia para la programación de Word y otras aplicaciones de Microsoft Office.

Dispone de información acerca de los libros de Microsoft Press en http://www.microsoft.com/mspress/.


No existe el miembro solicitado del conjunto

El error "No existe el miembro solicitado del conjunto" se produce cuando se intenta obtener acceso a un objeto que no existe. Por ejemplo, la siguiente instrucción puede enviar un error si el documento activo no contiene al menos una tabla.

ActiveDocument.Tables(1).Select

Para que este error no se produzca al obtener acceso a un miembro de un conjunto, asegúrese de que el miembro existe antes de intentarlo. Si está utilizando el número de índice para obtener acceso al miembro, puede utilizar la propiedad Count para determinar si existe. En el siguiente ejemplo se selecciona la primera tabla, si existe una como mínimo en el documento activo.

If ActiveDocument.Tables.Count >=1 Then

    ActiveDocument.Tables(1).Select

Else

    MsgBox "El documento no contiene ninguna tabla"

End If

Si está utilizando el nombre para obtener acceso a un miembro de un conjunto, puede recorrer los elementos del conjunto utilizando una repetición For Each...Next para determinar si el miembro mencionado forma parte del conjunto. En el siguiente ejemplo se elimina el elemento de Autocorrección "obtiener" si forma parte del conjunto AutoCorrectEntries.

For Each unElemento In AutoCorrect.Entries

    If unElemento.Name = "obtiener" Then unElemento.Delete

Next unElemento


Error de acceso a una fila o columna de una tabla

Cuando se intenta obtener acceso a determinada fila o columna de una tabla, puede producirse un error de tiempo de ejecución si la tabla no es uniforme. Por ejemplo, la siguiente instrucción envía un error si la primera tabla del documento activo no tiene el mismo número de filas en todas las columnas.

ActiveDocument.Tables(1).Rows(1).Borders.Enable = False

Para evitar que se produzca este error, seleccione primero las celdas de la fila o de la columna utilizando el método SelectColumn o SelectRow. Una vez seleccionadas, utilice la propiedad Cells con el objeto Selection. En el siguiente ejemplo, se selecciona la primera fila de la primera tabla del documento. La propiedad Cells se utiliza para obtener acceso a las celdas seleccionadas, todas las celdas de la primera fila, para que puedan quitarse los bordes.

ActiveDocument.Tables(1).Cell(1, 1).Select

With Selection

    .SelectRow

    .Cells.Borders.Enable = False

End With

En el siguiente ejemplo, se selecciona la primera columna de la primera tabla del documento. La repetición For Each...Next se utiliza para agregar texto a cada una de las celdas de la selección, todas las celdas de la primera columna.

ActiveDocument.Tables(1).Cell(1, 1).Select

Selection.SelectColumn

i = 1

For Each oCelda In Selection.Cells

    oCelda.Range.Text = "Celda " & i

    i = i + 1

Next oCelda


Devolver un objeto de un conjunto

La información acerca de la devolución de un único objeto está disponible en el tema del objeto y en el tema del conjunto que contiene el objeto. En la mayoría de los temas de los objetos se incluye información acerca de cómo devolver un único objeto y cómo agregar un objeto al conjunto. En la mayoría de los temas de los objetos de un conjunto se incluye información acerca de cómo devolver el conjunto y cómo agregarle un objeto.

Para examinar los temas de Ayuda de los objetos y conjuntos de Word, consulte Objetos de Microsoft Word.


El objeto no admite esta propiedad o método

El error "El objeto no admite esta propiedad o método" se produce al intentar utilizar un método o una propiedad que no admite el objeto especificado. Por ejemplo, con la siguiente instrucción se obtiene un error.

ActiveDocument.Copy

La propiedad ActiveDocument devuelve un objeto Document. El método o la propiedad Copy no está disponible para el objeto Document, por lo que se produce un error. Para averiguar qué propiedades y métodos están disponibles para un objeto, siga uno de los siguientes pasos.

•	Utilice el Examinador de objetos para determinar los miembros (propiedades y métodos) que están disponibles para la clase seleccionada (objeto).

•	Utilice la función Generador automático de instrucciones del Editor de Visual Basic. Al escribir un punto (.) después de una propiedad o método en el Editor de Visual Basic, se mostrará una lista de las propiedades y métodos disponibles.

•	Utilice la Ayuda de Visual Basic de Word para determinar cuáles son las propiedades y los métodos que pueden utilizarse con un objeto. El tema de Ayuda de cada objeto incluye un salto a Propiedades y Métodos que muestra la lista de propiedades y métodos de dicho objeto. Presione la tecla F1 en el Examinador de objetos o en un módulo para mostrar el tema de Ayuda correspondiente.

•	Utilice la función TypeName para determinar el tipo de objeto devuelto por una expresión. En el siguiente ejemplo aparece "Range" debido a que la propiedad Content devuelve un objeto Range.

MsgBox TypeName(ActiveDocument.Content)


Hacer un bucle en un conjunto

Existen varias formas distintas para repetir los elementos de un conjunto. Sin embargo, el método recomendado para repetir un conjunto es la repetición For Each...Next. Con este tipo de estructura, Visual Basic repite un bloque de instrucciones para cada uno de los objetos de un conjunto. En el siguiente ejemplo se muestra el nombre de cada documento del conjunto Documents.

For Each unDoc In Documents

    MsgBox unDoc.Name

Next unDoc

En lugar de mostrar el nombre de cada elemento en un cuadro de mensaje, puede utilizar una matriz para guardar la información. En este ejemplo se utiliza la matriz MarcasA() para guardar el nombre de cada marcador que contiene el documento activo.

If ActiveDocument.Bookmarks.Count >= 1 Then

    ReDim MarcasA(ActiveDocument.Bookmarks.Count - 1)

    i = 0

    For Each unMarcador In ActiveDocument.Bookmarks

        MarcasA(i) = unMarcador.Name

        i = i + 1

    Next unMarcador

End If

Puede repetir un conjunto para realizar una tarea condicionalmente en los miembros del conjunto. En el siguiente ejemplo se actualizan los campos DATE del documento activo.

For Each unCampo In ActiveDocument.Fields

    If InStr(1, unCampo.Code, "Fecha", 1) Then unCampo.Update

Next unCampo

Puede recorrer un conjunto para determinar si existe un elemento. En el siguiente ejemplo se muestra un mensaje si el elemento de Autotexto "temp" forma parte del conjunto AutoTextEntries.

For Each unElemento In ActiveDocument.AttachedTemplate.AutoTextEntries

    If unElemento.Name = "temp" Then MsgBox "existe el elemento de Autotexto temp"

Next unElemento


Pedir información

Existen formas distintas de pedir información de un usuario.

•	Utilice la función InputBox para mostrar un cuadro de diálogo con un mensaje y un cuadro de edición. Cuando el usuario hace clic en Aceptar, la función devuelve el texto que haya insertado.

•	Utilice la función MsgBox para mostrar un mensaje sencillo. Puede mostrar varios botones de comandos e iconos diferentes. Esta función devuelve un número que indica en qué botón se hizo clic.

•	Utilice un cuadro de diálogo integrado de Word para ver la inclusión de datos por el usuario de una función específica de Word.

•	Utilice un formulario personalizado para obtener la inclusión de datos por el usuario. Para obtener información acerca de cómo agregar controles a un formulario, consulte Agregar un control a un formulario.


Buscar la propiedad o el método que va a utilizarse

Puede utilizar la grabadora de macros para descubrir los métodos o propiedades necesarios para realizar una tarea en Word. La grabadora de macros es una herramienta que convierte acciones en instrucciones de Visual Basic. Por ejemplo, si activa la grabadora de macros y abre un documento denominado Ejemplos.doc, la grabadora de macros registrará una instrucción similar a la siguiente.

Documents.Open FileName:="Ejemplos.doc", ConfirmConversions:=False, ReadOnly:= _

    False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _

    Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _

    Format:=wdOpenFormatAuto

La propiedad Documents devuelve el conjunto Documents y el método Open abre el nombre de archivo que se especifique. Si está aprendiendo Visual Basic, el uso de la grabadora de macros le servirá para conocer las propiedades y métodos necesarios para realizar una tarea.

Para obtener más información, consulte:

Grabar una macro en Word

Revisar macros de Visual Basic grabadas


Devolver texto de un documento

Utilice la propiedad Text para devolver texto de un objeto Range o Selection. En este ejemplo se selecciona el siguiente párrafo con formato de estilo Título 1. El contenido de la propiedad Text se muestra con la función MsgBox.

With Selection.Find

    .ClearFormatting

    .Style = wdStyleHeading1

    .Execute FindText:="", Format:=True, Forward:=True, Wrap:=wdFindStop

    If .Found = True Then MsgBox Selection.Text

End With

Con la siguiente instrucción se devuelve el texto seleccionado.

strText = Selection.Text

En el siguiente ejemplo, se devuelve la primera palabra del documento activo. Cada elemento del conjunto Words es un objeto Range que representa una palabra.

unaPrimera = ActiveDocument.Words(1).Text

MsgBox unaPrimera

En el siguiente ejemplo, se devuelve el texto asociado al primer marcador del documento activo.

If ActiveDocument.Bookmarks.Count >= 1 Then

    bookText = ActiveDocument.Bookmarks(1).Range.Text

    MsgBox bookText

End If


Determinar si es necesaria la propiedad Application

La mayoría de las propiedades y de los métodos del objeto Application pueden utilizarse sin el cualificador del objeto Application. Por ejemplo, la propiedad ActiveDocument puede usarse sin el cualificador del objeto Application. En lugar de escribir Application.ActiveDocument.PrintOut, puede escribir ActiveDocument.PrintOut.

Las propiedades y los métodos que pueden utilizarse sin el cualificador del objeto Application se consideran "globales". Para ver las propiedades y los métodos globales del Examinador de objetos, haga clic en <globales> al principio de la lista del cuadro Clases.


Comunicación con otras aplicaciones

Además de trabajar con datos de Word, puede que desee que su aplicación intercambie datos con otras aplicaciones, como Microsoft Excel, PowerPoint o Access. Podrá comunicarse con otras aplicaciones mediante la Automatización (antes Automatización OLE) o el intercambio dinámico de datos (DDE).

Sugerencia   Para obtener información detallada acerca de cómo utilizar la Automatización para controlar aplicaciones desde Word, consulte Microsoft Office 97/Visual Basic Programmer's Guide.

Automatizar Word desde otra aplicación

La Automatización le permite devolver, modificar y exportar datos haciendo referencia a los objetos, las propiedades y los métodos de otra aplicación. Los objetos Aplication a los que puede hacerse referencia desde otra aplicación se denominan objetos Automation.

El primer paso para hacer que Word esté disponible para la Automatización de otra aplicación es hacer referencia al objeto Application de Word. En Visual Basic, se utiliza la función CreateObject o GetObject para devolver una referencia al objeto Application de Word. Por ejemplo, en un procedimiento de Microsoft Excel, podría utilizar la siguiente instrucción.

Set wrd = CreateObject("Word.Application")

Esta instrucción hace que el objeto Application de Word esté disponible para Automatización. Mediante los objetos, las propiedades y los métodos del objeto Application de Word, puede controlar Word. Por ejemplo, con la siguiente instrucción se crea un documento de Word.

wrd.Documents.Add

La función CreateObject inicia una sesión de Word que no cerrará Automatización al expirar la variable de objeto que hace referencia al objeto Application. Si establece la referencia del objeto con la palabra clave Nothing no se cerrará Word. En su lugar, utilice el método Quit para cerrar la aplicación Word. En el siguiente ejemplo de Microsoft Excel se muestra la ruta de acceso de inicio de Word. El método Quit se utiliza para cerrar la nueva instrucción de Word después de mostrar la ruta de acceso de inicio.

Set wrd = CreateObject("Word.Application")

MsgBox wrd.Options.DefaultFilePath(wdStartupPath)

wrd.Quit

Automatizar otra aplicación desde Word

Para intercambiar datos con otra aplicación utilizando Automatización desde Word, en primer lugar deberá obtener una referencia a la aplicación mediante la función CreateObject o GetObject. Después, utilizando los objetos, las propiedades y los métodos de la otra aplicación, puede agregar, cambiar o eliminar información. Cuando termine de hacer cambios, cierre la aplicación. El siguiente ejemplo de Word muestra la ruta de acceso de inicio de Microsoft Excel. Puede utilizar la instrucción Set con la palabra clave Nothing para borrar la variable de un objeto, que tiene el mismo efecto que cerrar la aplicación.

Set miobjeto = CreateObject("Excel.Application")

MsgBox miobjeto.StartupPath

Set miobjeto = Nothing

Para obtener más información acerca de cómo hacer referencia a una biblioteca de objetos y cómo utilizar los objetos que expone, consulte los temas Entender la automatización y Establecer una referencia a una biblioteca de tipos.

Uso de intercambio dinámico de datos (DDE)

Si una aplicación no admite la Automatización, otra alternativa es el DDE. Se trata de un protocolo que permite que dos aplicaciones se comuniquen entre sí mediante un intercambio de datos automático y continuo a través de un "canal" DDE. Para controlar una conversación DDE entre dos aplicaciones, se establece un canal, se selecciona un tema, se solicitan datos y se envían y, finalmente, se cierra el canal. En la siguiente tabla se enumeran las tareas que realiza Word con DDE y los métodos utilizados para controlar cada tarea en Visual Basic.

Tarea	Método
Iniciar el DDE	DDEInitiate
Obtener texto de otra aplicación	DDERequest
Enviar texto a otra aplicación	DDEPoke
Ejecutar un comando en otra aplicación	DDEExecute
Cerrar un canal de DDE	DDETerminate
Cerrar todos los canales de DDE	DDETerminateAll


Equivalentes de Visual Basic para comandos de WordBasic

Para encontrar la propiedad o método de Visual Basic que tiene un comando de WordBasic equivalente, haga clic en la primera letra del nombre del comando de WordBasic. A continuación, desplácese por las listas de comandos de WordBasic hasta que localice el comando correspondiente. En la columna de la izquierda se encuentran los comandos correspondientes a WordBasic en español en color azul, y en inglés en color negro. En la columna de la derecha se incluyen ejemplos de la sintaxis de Visual Basic, con saltos a temas de Ayuda de Visual Basic de Microsoft Word.

Para obtener información acerca de la conversión de macros, consulte Convertir macros de WordBasic a Visual Basic.

Para obtener información acerca de las diferencias entre WordBasic y Visual Basic, consulte Diferencias conceptuales entre WordBasic y Visual Basic.


Equivalentes de Visual Basic para comandos de WordBasic A
Equivalentes de Visual Basic para comandos de WordBasic

A
AbrirEspacioPárrafo OpenUpPara	Selection.Paragraphs.OpenUp
AbrirSubdocumento OpenSubdocument	ActiveDocument.Subdocuments(name).Open
Abs(número)	Abs(number)
Aceptar OK	WordBasic.OK
ActDesactEncabPieVinculado ToggleHeaderFooterLink	ActiveDocument.Sections(2).Headers(wdHeaderFooterPrimary).LinkToPrevious
ActDesactEscrituraManual ToggleScribbleMode	WordBasic.ToggleScribbleMode
ActDesactPantallaCompleta ToggleFull	ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
ActDesactPrincipalEstratoTexto ToggleMainTextLayer	ActiveWindow.View.ShowMainTextLayer  = Not ActiveWindow.View.ShowMainTextLayer
Activar nombre Activate name	Windows(name).Activate '  o Documents(name).Activate
ActivarDlg, ActivarDlg() DlgEnable, DlgEnable()
ActivarObjeto ActivateObject	ActiveDocument.Shapes(1).OLEFormat.Activate ' o ActiveDocument.InlineShapes(1).OLEFormat.Activate
ActualizarCampos UpdateFields	ActiveDocument.Sections(1).Range.Fields.Update ActiveDocument.Fields(num).Update
ActualizarFuente UpdateSource	ActiveDocument.Paragraphs(1).Range.Fields.UpdateSource ActiveDocument.Fields(num).UpdateSource
ActualizarPantalla, ActualizarPantalla() ScreenUpdating, ScreenUpdating()	Application.ScreenUpdating = True
AgregarBotón AddButton	CommandBars(name).Controls.Add
AgregarDirección AddAddress	Application.AddAddress
AgregarElementoDesplegable AddDropDownItem	ActiveDocument.FormFields(1).DropDown.ListEntries.Add
AgregarMacroAutomática AddAddIn	Addins.Add
Ahora() Now()	Now
AlFinalDelDocumento() AtEndOfDocument()	If Selection.Type = wdSelectionIP and Selection.End = ActiveDocument.Content.End - 1 Then atEnd = True
AlPrincipioDelDocumento() AtStartOfDocument()	If Selection.Type = wdSelectionIP and Selection.Start = 0 Then atStart = True
AlternarMostrarCampo ToggleFieldDisplay	Selection.Fields.ToggleShowCodes
AlternarVertical TogglePortrait	ActiveDocument.PageSetup.TogglePortrait
AnotaciónRefDeSel$() AnnotationRefFromSel$()	Selection.Comments(1).Reference Text
Año() Year	Year()
AOCEAgregarDestinatario AOCEAddRecipient	ActiveDocument.Mailer.Recipients = Array(name) ActiveDocument.Mailer.CCRecipients = Array(name) ActiveDocument.Mailer.BCCRecipients = Array(name)
AOCEAutentificarUsuario() AOCEAuthenticateUser()	x = WordBasic.AOCEAuthenticateUser
AOCEBorrarCampoFormulario AOCEClearMailerField	ActiveDocument.Mailer.Recipients = ""
AOCEContarDestinatarios() AOCECountRecipients()	x = Ubound(ActiveDocument.Mailer.Recipients) x = Ubound(ActiveDocument.Mailer.CCRecipients) x = Ubound(ActiveDocument.Mailer.BCCRecipients)
AOCEDefinirTema AOCESetSubject	ActiveDocument.Mailer.Subject = text
AOCEEnviarMensaje AOCESendMail	ActiveDocument.SendMailer
AOCEObtenerDestinatario$() AOCEGetRecipient$()	rec = ActiveDocument.Mailer.Recipients ccRec = ActiveDocument.Mailer.CCRecipients bccRec = ActiveDocument.Mailer.BCCRecipients
AOCEObtenerRemitente$() AOCEGetSender$()	send = ActiveDocument.Mailer.Sender
AOCEObtenerTema$() AOCEGetSubject$()	sub = ActiveDocument.Mailer.Subject
ApActivar nombre AppActivate name	Tasks(name).Activate
ApAltoVentana name, height AppWindowHeight name, height ApAltoVentana height AppWindowHeight height	Tasks(name).Height = height Application.Height = height
ApAnchoVentana nombre, ancho AppWindowWidth name, width ApAnchoVentana ancho AppWindowWidth width	Tasks(name).Width = width Application.Width = width
ApCerrar nombre AppClose name	Tasks(name).Close
ApConseguirNombre, ApConseguirNombre() AppGetNames, AppGetNames()	' enumera las tareas i = 1 For Each aTask In Tasks     aArray(i) = aTask.Name     i = i + 1 Next aTask
ApContar() AppCount()	Tasks.Count
ApEnEjecución(nombre) AppIsRunning(name)	Tasks(name).Exists
ApEnviarMensaje AppSendMessage	Tasks(name).SendWindowMessage
ApInfo$(1) ApInfo$(2) ApInfo$(3) ApInfo$(4) ApInfo$(5) ApInfo$(6) ApInfo$(7) ApInfo$(8) ApInfo$(9) ApInfo$(10) ApInfo$(13) ApInfo$(14) ApInfo$(15) ApInfo$(16) ApInfo$(17) ApInfo$(18) ApInfo$(19) ApInfo$(20) ApInfo$(21) ApInfo$(22) ApInfo$(23) ApInfo$(24) ApInfo$(25) ApInfo$(26) AppInfo$()	MsgBox System.OperatingSystem & Chr(32) & System.Version x = Application.Version x = Application.SpecialMode x = Application.Left x = Application.Top x = Application.UsableWidth x = Application.UsableHeight x = Application.WindowState(wdWindowStateMaximize) x = WordBasic.[AppInfo$](9) x = WordBasic.[AppInfo$](10) x = System.MathCoprocessorInstalled x = Application.MouseAvailable x = System.FreeDiskSpace x = Application.International(wdProductLanguageID) x = Application.International(wdListSeparator) x = Application.International(wdDecimalSeparator) x = Application.International(wdThousandsSeparator) x = Application.International(CurrencyCode) x = Application.International(wd24HourClock) x = Application.International(wdInternationalAM) x = Application.International(wdInternationalPM) x = Application.International(wdTimeSeparator) x = Application.International(wdDateSeparator) x = WordBasic.[AppInfo$](26)
ApMaximizar nombre AppMaximize name ApMaximizar AppMaximize	Tasks(name).WindowState = wdWindowStateMaximize Application.WindowState = wdWindowStateMaximize
ApMinimizar nombre AppMinimize name ApMinimizar AppMinimize	Tasks(name).WindowState = wdWindowStateMinimize Application.WindowState = wdWindowStateMinimize
ApMostrar nombre AppShow name ApMostrar AppShow	Tasks(name).Visible = True Application.Visible = True
ApMover nombre, horizpos, vertpos AppMove name, horizpos, vertpos ApMover horizpos, vertpos AppMove horizpos, vertpos	Tasks(name).Move Left:=horizpos, Top:=vertpos Application.Move Left:=horizpos, Top:=vertpos
ApOcultar nombre AppHide name	Tasks(name).Visible = False
ApPosVentanaIzquierda name, horizpos AppWindowPosLeft name, horizpos ApPosVentanaIzquierda horizpos AppWindowPosLeft horizpos	Tasks(name).Left = horizpos Application.Left = horizpos
ApPosVentanaSuperior nombre, vertpos  AppWindowPosTop name, vertpos  ApPosVentanaSuperior vertpos AppWindowPosTop vertpos	Tasks(name).Top = vertpos Application.Top = vertpos
ApRestablecer nombre AppRestore name ApRestablecer AppRestore	Tasks(name).WindowState = wdWindowStateNormal Application.WindowState = wdWindowStateNormal
ApTamaño nombre, width, height AppSize name, width, height ApTamaño width, height AppSize width, height	Tasks(name).Resize Width:=width, Height:=height Application.Resize Width:=width, Height:=height
Archivo número File num	RecentFiles(num).Open
ArchivoAbrir FileOpen	Documents.Open
ArchivoAOCEAgregarFormulario FileAOCEAddMailer	ActiveDocument.HasMailer = True
ArchivoAOCEEliminarFormulario FileAOCEDeleteMailer	ActiveDocument.HasMailer = False
ArchivoAOCEEnviarMensaje FileAOCESendMail	ActiveDocument.SendMailer
ArchivoAOCEExpandirFormulario FileAOCEExpandMailer	Sólo está disponible en la versión para Macintosh
ArchivoAOCEReenviarMensaje FileAOCEForwardMail	ActiveDocument.ForwardMailer
ArchivoAOCEResponderATodosMensaje FileAOCEReplyAllMail	Sólo está disponible en la versión para Macintosh
ArchivoAOCEResponderMensaje FileAOCEReplyMail	Sólo está disponible en la versión para Macintosh
ArchivoAOCESiguienteCarta FileAOCENextLetter	Application.NextLetter
ArchivoBuscar FileFind	Application.FileSearch
ArchivoCerrar FileClose	ActiveDocument.Close
ArchivoCerrarImagen FileClosePicture	ActiveDocument.Close
ArchivoCerrarSesión FileQuit	Application.Quit
ArchivoCerrarTodo FileCloseAll	Documents.Close
ArchivoConfirmarConversiones FileConfirmConversions	Options.ConfirmConversions = True
ArchivoCreador$() FileCreator$()	Sólo está disponible en la versión para Macintosh
ArchivoDistribuir Asunto, Mensaje, TodoALaVez, DevolverAlTerminar, RegistrarEstado, Proteger FileRoutingSlip Subject, Message, AllAtOnce, ReturnWhenDone, TrackStatus, Protect ArchivoDistribuir AgregarListaDistribución FileRoutingSlip AddSlip ArchivoDistribuir DistribuirDocumento FileRoutingSlip RouteDocument ArchivoDistribuir AgregarDestinatarios FileRoutingSlip AddRecipient ArchivoDistribuir RestablecerDistribución FileRoutingSlip ResetSlip ArchivoDistribuir LimpiarDistribución FileRoutingSlip ClearSlip	With ActiveDocument.RoutingSlip     .Subject = text     .Message = text     .Delivery = WdRoutingSlipDelivery     .ReturnWhenDone = True     .TrackStatus = True     .Protect = WdProtectionType End With ActiveDocument.HasRoutingSlip = True ActiveDocument.Route ActiveDocument.RoutingSlip.AddRecipient ActiveDocument.RoutingSlip.Reset ActiveDocument.HasRoutingSlip = False
ArchivoEnviarCorreo FilePost	ActiveDocument.Post
ArchivoEnviarCorreo FileSendMail	ActiveDocument.SendMail
ArchivoEspecificarImpresora FilePrintSetup	ActivePrinter
ArchivoGuardar FileSave	ActiveDocument.Save
ArchivoGuardarComo FileSaveAs	ActiveDocument.SaveAs
ArchivoGuardarTodo FileSaveAll	Documents.Save
ArchivoImprimir FilePrint	ActiveDocument.PrintOut
ArchivoImprimirPredeter FilePrintDefault	ActiveDocument.PrintOut
ArchivoImprimirUnaCopia FilePrintOneCopy	Sólo está disponible en la versión para Macintosh
ArchivoLista número FileList number	RecentFiles(num).Open
ArchivoMacPrepararPágina FileMacPageSetup	Sólo está disponible en la versión para Macintosh
ArchivoMacPrepararPáginaGX FileMacPageSetupGX	Sólo está disponible en la versión para Macintosh
ArchivoMacPrepararPáginaPersGX FileMacCustomPageSetupGX	Sólo está disponible en la versión para Macintosh
ArchivoNuevo Plantilla FileNew Template	Documents.Add Template:=filename
ArchivoNuevoPredeter FileNewDefault	Documents.Add
ArchivoPlantillas FileTemplates	ActiveDocument.AttachedTemplate = template
ArchivoPrepararPágina Tab, MargenSuperior, MargenInferior, MargenIzquierdo, MargenDerecho, Encuadernación, AnchoDeLaPágina, LargoDeLaPágina, Orientación, PrimeraPágina, OtrasPáginas, AlineaciónVert, AplicarPropA, Predeterminado, PáginasParalelas, DistanciaEncabezado, DistanciaPieDePágina, EmpezarSección, PáginasParesEImpares, DiferenteEnPrimeraPágina, NotasAlFinal, NúmDeLínea, EmpezarConNúm, DesdeElTexto, ContarPor, ModoNúm FilePageSetup Tab, TopMargin, BottomMargin, LeftMargin, RightMargin, Gutter, PageWidth, PageHeight, Orientation, FirstPage, OtherPages, VertAlign, ApplyPropsTo, Default, FacingPages, HeaderDistance, FooterDistance, SectionStart, OddAndEvenPages, DifferentFirstPage, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode	With ActiveDocument.PageSetup     .TopMargin = num     .BottomMargin = num     .LeftMargin = num     .RightMargin = num     .Gutter = num     .PageHeight = num     .PageWidth = num     .Orientation = WdOrientation     .FirstPageTray = WdPaperTray     .OtherPagesTray = WdPaperTray     .VerticalAlignment = WdVerticalAlignment     .SetAsTemplateDefault     .MirrorMargins = True     .HeaderDistance = num     .FooterDistance = num     .SectionStart = WdSectionStart     .OddAndEvenPagesHeaderFooter = True     .DifferentFirstPageHeaderFooter = True     .SuppressEndnotes = True     With LineNumbering         .Active =True         .StartingNumber = num         .DistanceFromText = num         .CountBy = num         .RestartMode = WdNumberingRule     End With End With
ArchivoPresentPrel, ArchivoPresentPrel() FilePrintPreview, FilePrintPreview()	PrintPreview = True x = PrintPreview
ArchivoPresentPrelPáginas, ArchivoPresentPrelPáginas() FilePrintPreviewPages, FilePrintPreviewPages()	With ActiveWindow.View.Zoom     .PageColumns = 2     .PageRows = 1 End With
ArchivoPresentPrelPantallaCompleta FilePrintPreviewFullScreen	PrintPreview = True ActiveWindow.View.FullScreen = True
ArchivoResumen Título, Asunto, Autor, PalabrasClave, Comentarios, NombreDeArchivo, Directorio, Plantilla, FechaDeCreación, FechaEnQueSeGuardó, GuardadoÚltimaVezPor, RevisiónNúmero, TiempoDeEdición, ÚltimaVezQueSeImprimió, NúmPáginas, NúmPalabras, NúmCaracteres, NúmPárrafos, NúmLíneas, TamañoArchivo FileSummaryInfo Title, Subject, Author, Keywords, Comments, FileName, Directory, Template, CreateDate, LastSavedDate, LastSavedBy, RevisionNumber, EditTime, LastPrintedDate, NumPages, NumWords, NumChars, NumParas, NumLines, FileSize	With ActiveDocument     .BuiltInDocumentProperties(wdPropertyTitle)     .BuiltInDocumentProperties(wdPropertySubject)     .BuiltInDocumentProperties(wdPropertyLastAuthor)     .BuiltInDocumentProperties(wdPropertyKeywords)     .BuiltInDocumentProperties(wdPropertyComments)     .Name     .Path     .BuiltInDocumentProperties(wdPropertyTemplate)     .BuiltInDocumentProperties(wdPropertyTimeCreated)     .BuiltInDocumentProperties(wdPropertyTimeLastSaved)     .BuiltInDocumentProperties(wdPropertyLastAuthor)     .BuiltInDocumentProperties(wdPropertyRevision)     .BuiltInDocumentProperties(wdPropertyVBATotalEdit)     .BuiltInDocumentProperties(wdPropertyTimeLastPrinted)     .BuiltInDocumentProperties(wdPropertyPages)     .BuiltInDocumentProperties(wdPropertyWords)     .BuiltInDocumentProperties(wdPropertyCharacters)     .BuiltInDocumentProperties(wdPropertyParas)     .BuiltInDocumentProperties(wdPropertyLines)     .BuiltInDocumentProperties(wdPropertyBytes) End With
Archivos$() Files$()	Dir()
ArchivoSalir FileExit	Application.Quit
ArchivoVer FilePreview	Image control
Asc(cadena) Asc(string)	Asc(string)
AsistenteParaIdeas TipWizard	'No tiene equivalente directo. ' muestra una sugerencia especial al iniciar Word  Assistant.FeatureTips = True
Aumentar, Aumentar() Magnifier, Magnifier()	ActiveWindow.View.Magnifier = True state = ActiveWindow.View.Magnifier
AumentarLista PromoteList	Selection.Range.ListFormat.ListIndent
AutomarcarElementosÍndice AutoMarkIndexEntries	ActiveDocument.Indexes.AutoMarkEntries
AutomaticChange	Application.AutomaticChange
Autotexto AutoText	Selection.Range.InsertAutoText
Ayuda Help	Assistant.Help
AyudaAcerca HelpAbout	Application.Help HelpType:=wdHelpAbout
AyudaBuscar HelpSearch	Application.Help HelpType:=wdHelpSearch
AyudaContenido HelpContents	Application.Help HelpType:=wdHelpContents
AyudaEjemplosYDemos HelpExamplesAndDemos	No disponible en Word 97
AyudaHerramienta HelpTool	Application.HelpTool
AyudaÍndice HelpIndex	Application.Help HelpType:=wdHelpIndex
AyudaIntroduc HelpQuickPreview	No disponible en Word 97
AyudaOpcionesWordPerfect HelpWordPerfectHelpOptions	Options.SetWPHelpOptions
AyudaPSS HelpPSSHelp	Application.Help HelpType:=wdHelpPSSHelp
AyudaSugerencias HelpTipOfTheDay	Assistant.FeatureTips = True
AyudaTeclado HelpKeyboard	No disponible en Word 97
AyudaUsarAyuda HelpUsingHelp	Application.Help HelpType:=wdHelpUsingHelp
AyudaVentanaActiva HelpActiveWindow	Application.Help HelpType:=wdHelpActiveWindow
AyudaWordPerfect HelpWordPerfectHelp	Options.WPHelp = True


Equivalentes de Visual Basic para comandos de WordBasic B
Equivalentes de Visual Basic para comandos de WordBasic

B
Beep	Beep
Begin Dialog...End Dialog	Crea y muestra un formulario personalizado. Para obtener información acerca de agregar controles a un formulario consulte el tema de ayuda Agregar un control a un formulario.
BloquearCampos LockFields	' Se puede bloquear un sólo campo o un grupo de campos dentro de un intervalo. Selection.Fields.Locked = True ActiveDocument.Fields(1).Locked =True
BloquearDocumento, BloquearDocumento() LockDocument, LockDocument()	ActiveDocument.Subdocuments(1).Locked = True state = ActiveDocument.Subdocuments(1).Locked
Borde, Borde() Outline, Outline()	Selection.Font.Outline = True x = Selection.Font.Outline
BordeDerecho, BordeDerecho() BorderRight, BorderRight()	With ActiveDocument.Paragraphs(1).Borders(wdBorderRight)     .LineStyle = wdLineStyleSingle     .LineWidth= wdLineWidth075pt End With x = ActiveDocument.Paragraphs(1).Borders(wdBorderRight).LineStyle
BordeEstiloDeLínea, BordeEstiloDeLínea() BorderLineStyle, BorderLineStyle()	Selection.Borders(wdBorderType).LineStyle = wdLineStyle x = ActiveDocument.Paragraphs(1).Borders(wdBorderType).LineStyle
BordeExterior, BordeExterior() BorderOutside, BorderOutside()	With Selection.Paragraphs.Borders     .OutsideLineStyle = wdLineStyleSingle     .OutsideLineWidth = wdLineWidth075pt End With x = Selection.Paragraphs.Borders.OutsideLineStyle
BordeInferior, BordeInferior() BorderBottom, BorderBottom()	With ActiveDocument.Paragraphs(1).Borders(wdBorderBottom)     .LineStyle = wdLineStyleSingle     .LineWidth= wdLineWidth075pt End With x = ActiveDocument.Paragraphs(1).Borders(wdBorderBottom).LineStyle
BordeInterior, BordeInterior() BorderInside, BorderInside()	With Selection.Paragraphs.Borders     .InsideLineStyle = wdLineStyleSingle     .InsideLineWidth = wdLineWidth075pt End With x = Selection.Paragraphs.Borders.InsideLineStyle
BordeIzquierdo, BordeIzquierdo() BorderLeft, BorderLeft()	With ActiveDocument.Paragraphs(1).Borders(wdBorderLeft)     .LineStyle = wdLineStyleSingle     .LineWidth= wdLineWidth075pt End With x = ActiveDocument.Paragraphs(1).Borders(wdBorderLeft).LineStyle
BordeNinguno, BordeNinguno() BorderNone, BorderNone()	Selection.Range.Borders.Enable = False ' o Selection.Range.Borders(wdBorderLeft).LineStyle = wdLineStyleNone x = Selection.Range.Borders.Enable
BordeSuperior, BordeSuperior() BorderTop, BorderTop()	With Selection.Paragraphs(1).Borders(wdBorderTop)     .LineStyle = wdLineStyleSingle     .LineWidth= wdLineWidth075pt End With x = ActiveDocument.Paragraphs(1).Borders(wdBorderTop).LineStyle
BuscarConvertidor(nombre) ConverterLookup(name)	x = FileConverters(name).SaveFormat


Equivalentes de Visual Basic para comandos de WordBasic C
Equivalentes de Visual Basic para comandos de WordBasic

C
Call	Call
CambiarElNombreMenú RenameMenu	CommandBars.ActiveMenuBar.Controls(name).Caption = newname
CambiarMayús, CambiarMayús() ChangeCase, ChangeCase()	Selection.Range.Case = WdCharacterCase x = Selection.Range.Case
CampoAnterior, CampoAnterior() PrevField, PrevField()	Selection.GoToPrevious What:=wdGoToField ' o Selection.PreviousField
CampoFormCasillaVerificación CheckBoxFormField	ActiveDocument.Fields.Add Range:=range, Type:=wdFieldFormCheckBox
CampoFormListaDesplegable DropDownFormField	ActiveDocument.Fields.Add Range:=range, Type:=wdFieldFormDropDown
CampoFormTexto TextFormField	ActiveDocument.FormFields.Add Range:=range, Type:=wdFieldFormTextInput
CampoSiguiente, CampoSiguiente() NextField, NextField()	Selection.GoToNext What:=wdGoToField ' o Selection.NextField
Cancelar Cancel	Selection.ColumnSelectMode = False Selection.ExtendMode = False Selection.EscapeKey
CancelButton	CommandButton
CarácterColor, CarácterColor() CharColor, CharColor()	Selection.Font.ColorIndex = WdColorIndex x = Selection.Font.ColorIndex
CarácterDerecha 1 CharRight 1 CarácterDerecha 1, 1 CharRight 1, 1 num = CarácterDerecha(1) num = CharRight(1)	Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend num = Selection.MoveRight(Unit:=wdCharacter, Count:=1)
CarácterIzquierda 1 CharLeft 1 CarácterIzquierda 1, 1 CharLeft 1, 1 num = CarácterIzquierda(1) num = CharLeft(1)	Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdMove Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend num = Selection.MoveLeft(Unit:=wdCharacter, Count:=1)
CeldaAnterior, CeldaAnterior() PrevCell, PrevCell()	Selection.Move Unit:=wdCell, Count:=-1 ' o Selection.Cells(1).Previous.Select
CeldaSiguiente, CeldaSiguiente() NextCell	Selection.Move Unit:=wdCell, Count:=1 ' o Selection.Cells(1).Next.Select
CentrarPárrafo, CentrarPárrafo() CenterPara, CenterPara()	Selection.Paragraphs.Alignment = wdAlignParagraphCenter x = Selection.Paragraphs.Alignment
CerrarEspacioPárrafo CloseUpPara	Selection.Paragraphs.CloseUp
CerrarPanel ClosePane	ActiveWindow.ActivePane.Close
CerrarPresentPrel ClosePreview	ActiveDocument.ClosePrintPreview
CerrarVerEncabPie CloseViewHeaderFooter	ActiveWindow.View.SeekView = wdSeekMainDocument
chan = DDEInitiate (aplicación, tema) chan = DDEInitiate (application, topic)	chan = DDEInitiate(application, topic)
ChDefaultDir RutaDeAcceso, Tipo ChDefaultDir path, wdDefaultFilePath	Options.DefaultFilePath(WdDefaultFilePath) = path
ChDir RutaDeAcceso ChDir path	ChDir path ' o Application.ChangeFileOpenDirectory
CheckBox CheckBox	CheckBox control
Chr$(num) Chr$(num)	Chr(num)
Close	Close
CmpMarcador() CmpBookmarks()	If ActiveDocument.Bookmarks(name) = ActiveDocument.Bookmarks(name) Then     same = True End If Las propiedades Start y End pueden utilizarse para comparar las posiciones de inicio y final de dos marcadores.
ColorDestacar, ColorDestacar() Highlight	Selection.Range.HighlightColorIndex = WdColorIndex
ComandoVálido() CommandValid()	Utilice la propiedad IsObjectValid para determinar si la referencia a la variable de un objeto es válida. También una variable de un objeto que devuelve Nothing no es válida.
CombinarAbrirFuenteDatos MailMergeOpenDataSource	Documents(1).MailMerge.OpenDataSource
CombinarAbrirFuenteRegistro MailMergeOpenHeaderSource	Documents(name).MailMerge.OpenHeaderSource
CombinarAlImprimir MailMergeToPrinter	ActiveDocument.MailMerge.Destination = wdSendToPrinter
CombinarAyudaCombinación MailMergeHelper	Dialogs(wdDialogMailMergeHelper).Show
CombinarBuscarRegistro MailMergeFindRecord	ActiveDocument.MailMerge.DataSource.FindRecord
CombinarConvertirComillas, CombinarConvertirComillas() MailMergeConvertChevrons, MailMergeConvertChevrons()	FileConverters.ConvertMacWordChevrons = WdChevronConvertRule state = FileConverters.ConvertMacWordChevrons
CombinarCorrespondencia CheckErrors, Destination, MergeRecords, From, To, Suppression, MailMerge, MailSubject, MailAsAttachment, MailAddress MailMerge CheckErrors, Destination, MergeRecords, From, To, Suppression, MailMerge, MailSubject, MailAsAttachment, MailAddress	With ActiveDocument.MailMerge     .Check     .Destination = WdMailMergeDestination     .DataSource.FirstRecord = num     .DataSource.LastRecord = num     .SuppressBlankLines = True     .MailSubject = text     .MailAsAttachment = True     .MailAddressFieldName = text     .Execute End With
CombinarCrearFuenteDatos MailMergeCreateDataSource	ActiveDocument.MailMerge.CreateDataSource
CombinarCrearFuenteRegistro MailMergeCreateHeaderSource	Documents(name).MailMerge.CreateHeaderSource
CombinarEnDocumento MailMergeToDoc	Documents(name).MailMerge.Destination = wdSendToNewDocument
CombinarEstado() MailMergeState()	theState = ActiveDocument.MailMerge.State
CombinarFichaDatos MailMergeDataForm	ActiveDocument.DataForm
CombinarFuenteDatos$(0) MailMergeDataSource$(0) CombinarFuenteDatos$(1) MailMergeDataSource$(1) CombinarFuenteDatos$(2) MailMergeDataSource$(2) CombinarFuenteDatos$(3) MailMergeDataSource$(3)	x = ActiveDocument.MailMerge.DataSource.Name x = ActiveDocument.MailMerge.DataSource.HeaderSourceName x = ActiveDocument.MailMerge.DataSource.Type x = ActiveDocument.MailMerge.DataSource.HeaderSourceType
CombinarInsertarFijar MailMergeInsertSet	ActiveDocument.MailMerge.Fields.AddSet
CombinarInsertarLlenar MailMergeInsertFillIn	Documents(name).MailMerge.Fields.AddFillIn
CombinarInsertarPreguntar MailMergeInsertAsk	Documents(name).MailMerge.Fields.AddAsk
CombinarInsertarPróximo MailMergeInsertNext	Documents(1).MailMerge.Fields.AddNext
CombinarInsertarPróximoSi MailMergeInsertNextIf	ActiveDocument.MailMerge.Fields.AddNextIf
CombinarInsertarRegCombinar MailMergeInsertMergeRec	ActiveDocument.MailMerge.Fields.AddMergeRec
CombinarInsertarSaltarSi MailMergeInsertSkipIf	ActiveDocument.MailMerge.Fields.AddSkipIf
CombinarInsertarSecCombinar MailMergeInsertMergeSeq	ActiveDocument.MailMerge.Fields.AddMergeSeq
CombinarInsertarSi MailMergeInsertIf	ActiveDocument.MailMerge.Fields.AddIf
CombinarIrARegistro, CombinarIrARegistro() MailMergeGotoRecord, MailMergeGotoRecord()	ActiveDocument.MailMerge.DataSource.ActiveRecord = num x = ActiveDocument.MailMerge.DataSource.ActiveRecord
CombinarModificarDocPrincipal MailMergeEditMainDocument	ActiveDocument.MailMerge.EditMainDocument
CombinarModificarFuenteDatos MailMergeEditDataSource	Documents(name).MailMerge.EditDataSource
CombinarModificarFuenteRegistro MailMergeEditHeaderSource	Documents(1).MailMerge.EditHeaderSource
CombinarOpcionesConsulta MailMergeQueryOptions	ActiveDocument.MailMerge.DataSource.QueryString = text
CombinarPreguntarConvertirComillas, CombinarPreguntarConvertirComillas() MailMergeAskToConvertChevrons, MailMergeAskToConvertChevrons()	FileConverters.ConvertMacWordChevrons = WdChevronConvertRule state = FileConverters.ConvertMacWordChevrons
CombinarPrimerRegistro MailMergeFirstRecord	ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
CombinarRegistroAnterior MailMergePrevRecord	ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
CombinarRegistroBuscado() MailMergeFoundRecord()	x = ActiveDocument.MailMerge.DataSource.FindRecord
CombinarRegistroSiguiente MailMergeNextRecord	ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
CombinarRestablecer MailMergeReset	ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
CombinarRevisar MailMergeCheck	ActiveDocument.MailMerge.Check
CombinarTipoDocPrincipal, CombinarTipoDocPrincipal() MailMergeMainDocumentType, MailMergeMainDocumentType()	ActiveDocument.MailMerge.MainDocumentType = WdMailMergeMainDocType state = ActiveDocument.MailMerge.MainDocumentType
CombinarÚltimoRegistro MailMergeLastRecord	Documents(name).MailMerge.DataSource.ActiveRecord = wdLastRecord
CombinarUsarLibreta MailMergeUseAddressBook	ActiveDocument.MailMerge.UseAddressBook
CombinarVerDatos, CombinarVerDatos() MailMergeViewData, MailMergeViewData()	ActiveDocument.MailMerge.ViewMailMergeFieldCodes = True x = ActiveDocument.MailMerge.ViewMailMergeFieldCodes
ComboBox	ComboBox control
ComprimirFuente ShrinkFont	Selection.Font.Shrink
ComprimirFuenteUnPunto ShrinkFontOnePoint	Selection.Font.Size = Selection.Font.Size - 1
ComprimirSelección ShrinkSelection	Selection.Shrink
Conectar Connect	System.Connect
ConservarConSiguiente, ConservarConSiguiente() ParaKeepWithNext, ParaKeepWithNext()	ActiveDocument.Paragraphs(1).KeepWithNext = True x = ActiveDocument.Paragraphs(1).KeepWithNext
ConservarLíneasJuntas, ConservarLíneasJuntas() ParaKeepLinesTogether, ParaKeepLinesTogether()	ActiveDocument.Paragraphs(1).KeepTogether = True x = ActiveDocument.Paragraphs(1).KeepTogether
ContarArchBuscados() CountFoundFiles()	x = Application.FileSearch.FoundFiles.Count
ContarArchivos() CountFiles()	x = RecentFiles.Count
ContarBarrasDeHerramientas() CountToolbars()	For Each xCB In CommandBars     If xCB.Type = msoBarTypeNormal Then aCount = aCount + 1 Next xCB
ContarBotonesBarra() CountToolbarButtons()	x = CommandBars(name).Controls.Count
ContarCamposCombinación() CountMergeFields()	x = ActiveDocument.MailMerge.Fields.Count
ContarDirectorios() CountDirectories()	myPath = "C:\" myName = Dir(myPath, vbDirectory) Do While myName <> ""     If myName <> "." And myName <> ".." Then         If (GetAttr(myPath & myName) And vbDirectory) = vbDirectory Then             count = count + 1         End If     End If myName = Dir Loop MsgBox count & " directorios"
ContarElementosAutotexto() CountAutoTextEntries()	x = ActiveDocument.AttachedTemplate.AutoTextEntries.Count
ContarElementosMenú() CountMenuItems()	x = CommandBars(name).Controls.Count
ContarEstilos() CountStyles()	x = ActiveDocument.Styles.Count ' o x = ActiveDocument.AttachedTemplate.OpenAsDocument.Styles.Count ' para excluir de la cuenta estilos incorporados  For Each xSty In ActiveDocument.Styles     If xSty.BuiltIn = False Then aCount = aCount + 1 Next xSty
ContarFuentes() CountFonts()	x = FontNames.Count ' o x = PortraitFontNames.Count ' o x = LandscapeFontNames.Count
ContarIdiomas() CountLanguages()	x = Languages.Count
ContarMacros() CountMacros()	' no hay equivalente directo ' cuenta el número de módulos asociados a la plantilla normal For Each xItem In NormalTemplate.VBProject.VBComponents     If xItem.Type = vbext_ct_StdModule Then Count = Count + 1 Next x MsgBox Count
ContarMacrosAutomáticas() CountAddins()	x = Addins.Count
ContarMarcador() CountBookmarks()	x = ActiveDocument.Bookmarks.Count
ContarMenús() CountMenus()	x = CommandBars.ActiveMenuBar.Controls.Count
ContarTeclas() CountKeys()	CustomizationContext = template or document x = KeyBindings.Count
ContarVarDocumento() CountDocumentVars()	x = ActiveDocument.Variables.Count
ContarVentanas() CountWindows()	x = Windows.Count
ControlEjecutar ControlRun	WordBasic.ControlRun '  o Shell appfilename
ControlViudasHuérfanas, ControlViudasHuérfanas() ParaWidowOrphanControl, ParaWidowOrphanControl()	ActiveDocument.Paragraphs(1).WidowControl = True x = ActiveDocument.Paragraphs(1).WidowControl
Convertidor$(num) Converter$(num)	x = FileConverters(num).ClassName
ConvertirObjeto IconNumber, ActivateAs, IconFileName, Caption, Class, DisplayIcon ConvertObject IconNumber, ActivateAs, IconFileName, Caption, Class, DisplayIcon	With ActiveDocument.Shapes(1).OLEFormat     .IconIndex = num     .ActivateAs = text     .IconPath & Application.PathSeparator & .IconName     .IconLabel = text     .ClassType = text     .DisplayAsIcon = True End With
CopiarArchivo CopyFile	FileCopy
CopiarFormato CopyFormat	Selection.CopyFormat
CopiarImagenBotón CopyButtonImage	CommandBars(name).Controls(1).CopyFace
CopiarMarcador CopyBookmark	ActiveDocument.Bookmarks(name).Copy(name)
CopiarTexto CopyText	Application.Run MacroName:="CopyText"
CountToolsGrammarStatistics() CountToolsGrammarStatistics()	x = ActiveDocument.Content.ReadabilityStatistics.Count
CrearSubdocumento CreateSubdocument	ActiveDocument.Subdocuments.AddFromRange
Cursiva, Cursiva() Italic, Italic()	Selection.Font.Italic = True


Equivalentes de Visual Basic para comandos de WordBasic D
Equivalentes de Visual Basic para comandos de WordBasic

D
data = DDERequest$( NúmCanal, elemento) data = DDERequest$(channel, item)	data = DDERequest(channel, item)
Date$()	Date ' o Date$
DDEExecute NúmCanal, Comando$  DDEExecute channel, command	DDEExecute channel, command
DDEPoke NúmCanal, elemento, datos DDEPoke channel, item, data	DDEPoke channel, item, data
DDETerminate NúmCanal DDETerminate channel	DDETerminate channel
DDETerminateAll	DDETerminateAll
Declare	Declare
DefaultDir$()	x = DefaultFilePath(WdDefaultFilePath)
DefinirCarácter, DefinirCarácter() ResetChar, ResetChar()	Selection.Font.Reset
DefinirPárrafo, DefinirPárrafo() ResetPara, ResetPara()	Selection.Paragraphs.Reset
DesactivarEntradaTexto DisableInput	Application.EnableCancelKey = WdEnableCancelKey
DesactivarMacrosAuto DisableAutoMacros	WordBasic.DisableAutoMacros
DesbloquearCampos UnlockFields	Selection.Paragraphs(1).Range.Fields.Locked = False ActiveDocument.Fields(num).Locked = False
DescMacro$() MacroDesc$()	x = WordBasic.[MacroDesc$](name)
DesplazarHoriz, DesplazarHoriz() HScroll, HScroll()	ActiveWindow.HorizontalPercentScrolled = num num = ActiveWindow.VerticalPercentScrolled
DesplazarVert, DesplazarVert() VScroll, VScroll()	ActiveWindow.VerticalPercentScrolled = num num = ActiveWindow.VerticalPercentScrolled
Destacar HighlightColor, HighlightColor()	Selection.Range.HighlightColorIndex = WdColorIndex x = Selection.Range.HighlightColorIndex = WdColorIndex
DesvincularCampos UnlinkFields	Selection.Range.Fields.Unlink ActiveDocument.Fields(num).Unlink
Día() Day()	Day
Dialog, Dialog()	Dialogs(WdWordDialog).Show
DialogEditor	ShowVisualBasicEditor = True
Días360() Days360()	DateDiff
Dim	Dim
DiseñoDeSombreado, DiseñoDeSombreado() ShadingPattern, ShadingPattern()	Selection.Shading.Texture = WdTextureIndex
DisminuirATextoIndependiente DemoteToBodyText	Selection.Paragraphs(1).OutlineDemoteToBody
DisminuirLista DemoteList	Selection.Range.ListFormat.ListOutdent
DividirSubdocumento SplitSubdocument	ActiveDocument.Subdocuments(1).Split Range:=range
DlgActualizarPresentPrel DlgUpdateFilePreview
DlgEstablecerImagen DlgSetPicture
DlgLoadValues, DlgLoadValues() DlgLoadValues, DlgLoadValues()
DlgMatrizListaDespl, DlgMatrizListaDespl() DlgListBoxArray, DlgListBoxArray()
DlgStoreValues DlgStoreValues
DlgTexto, DlgTexto$() DlgText, DlgText$()
DlgValor, DlgValor() DlgValue, DlgValue()
DlgVerArchivo, DlgVerArchivo$() DlgFilePreview, DlgFilePreview$()
DlgVisible, DlgVisible() DlgVisible, DlgVisible()
DocAltoVentana, DocAltoVentana() DocWindowHeight	ActiveWindow.Height = height
DocAnchoVentana DocWindowWidth	ActiveWindow.Width = width
DocCerrar DocClose	ActiveWindow.Close
DocDividir, DocDividir() DocSplit, DocSplit()	ActiveWindow.SplitVertical = 50 x = ActiveWindow.SplitVertical
DocMaximizar, DocMaximizar() DocMaximize, DocMaximize()	ActiveWindow.WindowState = wdWindowStateMaximize
DocMinimizar, DocMinimizar() DocMinimize, DocMinimize()	ActiveWindow.WindowState = wdWindowStateMinimize
DocMover PosHoriz, PosVert  DocMove HorizPos, VertPos	With ActiveWindow     .Top = VertPos     .Left = HorizPos End With
DocPosIzquierdaVentana DocWindowPosLeft	ActiveWindow.Left = horizpos
DocPosSuperiorVentana DocWindowPosTop	ActiveWindow.Top = vertpos
DocRestablecer DocRestore	ActiveWindow.WindowState = wdWindowStateNormal
DocTamaño ancho, alto DocSize width, height	With ActiveWindow     .Height = width     .Width = height End With
DOSAWin$() DOSToWin$()	x = WordBasic.[DOSToWin$](StringToTranslate)
DropListBox	ComboBox control


Equivalentes de Visual Basic para comandos de WordBasic E
Equivalentes de Visual Basic para comandos de WordBasic

E
EdiciónAutotexto .Nombre= texto, .Agregar EditAutoText .Name= name, .Add EdiciónAutotexto .Nombre= texto, .InsertarComo = 0, .Insertar EditAutoText .Name= name, .InsertAs = 0, .Insert EdiciónAutotexto .Nombre= texto, .Eliminar EditAutoText .Name= name, .Delete	ActiveDocument.AttachedTemplate.AutoTextEntries.Add ActiveDocument.AttachedTemplate.AutoTextEntries(name).Insert Where:=range, RichText:=True Templates(name).AutoTextEntries(name).Delete
EdiciónBuscar EditFind	Selection.Find
EdiciónBuscarBorde EditFindBorder	Selection.Find.Borders
EdiciónBuscarDestacado EditFindHighlight	Selection.Find.Highlight = True
EdiciónBuscarEliminarFormato EditFindClearFormatting	Selection.Find.ClearFormatting
EdiciónBuscarEncontrado() EditFindFound()	Selection.Find.Found
EdiciónBuscarEstilo EditFindStyle	Selection.Find.Style
EdiciónBuscarFuente EditFindFont	Selection.Find.Font
EdiciónBuscarIdioma EditFindLang	Selection.Find.LanguageID
EdiciónBuscarMarco EditFindFrame	Selection.Find.Frame
EdiciónBuscarNoDestacado EditFindNotHighlight	Selection.Find.Highlight = False
EdiciónBuscarPárrafo EditFindPara	Selection.Find.ParagraphFormat
EdiciónBuscarTabulaciones EditFindTabs	Selection.Find.ParagraphFormat.TabStops
EdiciónConvNotas EditConvertNotes	Selection.Footnotes.Convert ' o Selection.Endnotes.Convert
EdiciónConvTodasNotasFinal EditConvertAllEndnotes	ActiveDocument.Endnotes.Convert
EdiciónConvTodasNotasPie EditConvertAllFootnotes	ActiveDocument.Footnotes.Convert
EdiciónCopiar EditCopy	Selection.Range.Copy
EdiciónCopiarComoImagen EditCopyAsPicture	Selection.Range.CopyAsPicture
EdiciónCortar EditCut	Selection.Range.Cut
EdiciónCrearPublicación EditCreatePublisher	Selection.Range.CreatePublisher
EdiciónDeshacer EditUndo	ActiveDocument.Undo
EdiciónDespejar EditClear	Selection.Range.Delete
EdiciónImagen EditPicture	Selection.ShapeRange(1).Activate
EdiciónIntercambiarNotas EditSwapAllNotes	ActiveDocument.Endnotes.SwapWithFootnotes ' o ActiveDocument.Footnotes.SwapWithEndnotes
EdiciónIrA EditGoTo	Selection.Goto
EdiciónMarcador .Nombre = texto, .Agregar EditBookmark .Name = name, .Add EdiciónMarcador .Nombre = texto, .Eliminar EditBookmark .Name = name, .Delete EdiciónMarcador .Nombre = texto, .IrA EditBookmark .Name = name, .Goto EdiciónMarcador .Nombre = texto, .OrdenarPor EditBookmark .Name = name, .SortBy	ActiveDocument.Bookmarks.Add Name:=name, Range:=range ActiveDocument.Bookmarks(name).Delete ActiveDocument.Bookmarks(name).Select ActiveDocument.Bookmarks.DefaultSorting = wdSortByName
EdiciónObjeto EditObject	Selection.InlineShapes(1).OLEFormat.Edit
EdiciónOpcionesPublicación EditPublishOptions	ActiveDocument.EditionOptions
EdiciónOpcionesSuscripción EditSubscribeOptions	ActiveDocument.EditionOptions
EdiciónPegadoEspecial EditPasteSpecial	Selection.Range.PasteSpecial
EdiciónPegar EditPaste	Selection.Range.Paste
EdiciónReemplazarBorde EditReplaceBorder	Selection.Find.Replacement.Borders
EdiciónReemplazarDestacado EditReplaceHighlight	Selection.Find.Replacement.Highlight = True
EdiciónReemplazarEliminarFormato EditReplaceClearFormatting	Selection.Find.Replacement.ClearFormatting
EdiciónReemplazarEstilo EditReplaceStyle	Selection.Find.Replacement.Style
EdiciónReemplazarFuente EditReplaceFont	Selection.Find.Replacement.Font
EdiciónReemplazarIdioma EditReplaceLang	Selection.Find.Replacement.LanguageID
EdiciónReemplazarMarco EditReplaceFrame	Selection.Find.Replacement.Frame
EdiciónReemplazarNoDestacado EditReplaceNotHighlight	Selection.Find.Replacement.Highlight = False
EdiciónReemplazarPárrafo EditReplacePara	Selection.Find.Replacement.ParagraphFormat
EdiciónReemplazarTabulaciones EditReplaceTabs	Selection.Find.Replacement.ParagraphFormat.TabStops
EdiciónRehacer EditRedo	ActiveDocument.Redo
EdiciónRepetir EditRepeat	Repeat
EdiciónSeleccionarTodo EditSelectAll	ActiveDocument.Content.Select
EdiciónSuscribirA EditSubscribeTo	Selection.Range.SubscribeTo
EdiciónVínculos ModoActualizar, Bloqueado, GuardarImagenEnDoc, ActualizarAhora, AbrirFuente, CancelarVínculo, Vínculo, Aplicación, Artículo, NombreDeArchivo EditLinks UpdateMode, Locked, SavePictureInDoc, UpdateNow, OpenSource, KillLink, Link, Application, Item, FileName	ActiveDocument.Shapes(1).OLEFormat.Open ' o  ActiveDocument.InlineShapes(1).OLEFormat.Open With ActiveDocument.InlineShapes(1).LinkFormat     .AutoUpdate = True     .Locked = True     .SavePictureWithDocument = True     .Update     .BreakLink     .Application.Name     .SourceFullName End With
EjecutarAdminImpresión RunPrintManager	Not available
ElegirDibujoBotón ChooseButtonImage	With CommandBars(name).Controls(1)     .FaceId = num     .TooltipText = text End With
EliminarBotón DeleteButton	CommandBars(name).Controls(num).Delete
EliminarCadena$(cadena) CleanString$(string)	x = CleanString(string)
EliminarCampoFormulario ClearFormField	ActiveDocument.FormFields(1).TextInput.Clear
EliminarMacrosAutomáticas nombre DeleteAddIn name	Addins(name).Delete
EliminarPalabra DeleteWord	Selection.Words(1).Delete
EliminarPalabraAnterior DeleteBackWord	Selection.Delete Unit:=wdWord, Count:=-1
EliminarPropiedadDocumento nombre DeleteDocumentProperty name	ActiveDocument.CustomDocumentProperties(name).Delete
Entorno$() Environ$()	Environ$()
Eof()	EOF()
Err	Err
Error	Error
EsDocumentoSucio() IsDocumentDirty()	x = Not ActiveDocument.Saved
EsMacro() IsMacro()	No disponible en Word 97
EspacioFuenteNormal NormalFontSpacing	Selection.Font.Spacing = 0
EspacioPárrafo1, EspacioPárrafo1() SpacePara1, SpacePara1()	Selection.Paragraphs.Space1 x = Selection.Paragraphs.LineSpacing
EspacioPárrafo15, EspacioPárrafo15() SpacePara15, SpacePara15()	Selection.Paragraphs.Space15 x = Selection.Paragraphs.LineSpacing
EspacioPárrafo2, EspacioPárrafo2() SpacePara2, SpacePara2()	Selection.Paragraphs.Space2 x = Selection.Paragraphs.LineSpacing
Especial Spike	NormalTemplate.AutoTextEntries.AppendToSpike
EsperaCursor WaitCursor	System.Cursor = WdCursorType
EsPlantillaSucia() IsTemplateDirty()	x = Not ActiveDocument.AttachedTemplate.Saved
EsPropiedadDocumentoSoloLectura() IsDocumentPropertyReadOnly()	x = WordBasic.IsDocumentPropertyReadOnly(name)
EsPropiedadPersonalizDocumento() IsCustomDocumentProperty()	For Each aProp In ActiveDocument.CustomDocumentProperties     If aProp.Name = "age" Then isFound = True Next aProp
EsquemaAumentarNivel OutlinePromote	Selection.Paragraphs.OutlinePromote
EsquemaContraer OutlineCollapse	ActiveWindow.View.CollapseOutline
EsquemaDisminuirNivel OutlineDemote	Selection.Paragraphs.OutlineDemote
EsquemaExpandir OutlineExpand	ActiveWindow.View.ExpandOutline
EsquemaMostrarFormato OutlineShowFormat	AcitveWindow.View.ShowFormat = True
EsquemaMostrarPrimeraLínea, EsquemaMostrarPrimeraLínea() OutlineShowFirstLine, OutlineShowFirstLine()	ActiveWindow.View.ShowFirstLineOnly = True x = ActiveWindow.View.ShowFirstLineOnly
EsquemaMoverAbajo OutlineMoveDown	Selection.Range.Relocate Direction:=wdRelocateDown
EsquemaMoverArriba OutlineMoveUp	Selection.Range.Relocate Direction:=wdRelocateUp
EsquemaNivel() OutlineLevel()	aLevel = Selection.Paragraphs.OutlineLevel
EsSóloEjecutable() IsExecuteOnly()	x = ActiveDocument.VBProject.Protection
EstablecerCreadoPorYTipoArchivo SetFileCreatorAndType	Sólo está disponible en la versión para Macintosh
EstablecerPropiedadDocumento() SetDocumentProperty	ActiveDocument.BuiltInDocumentProperties.Add ' o ActiveDocument.CustomDocumentProperties.Add
EstablecerPropiedadVínculoDoc() nombre, origen SetDocumentPropertyLink name, source	ActiveDocument.CustomDocumentProperties(name).LinkSource = source
EstadísticasDocumento NombreDeArchivo, Directorio, Plantilla, Título, Creado, ÚltimaVezQueSeGuardó, GuardadoÚltimaVezPor, Revisión, Hora, Impreso, Páginas, Palabras, Caracteres, Párrafos, Líneas, TamañoArchivo DocumentStatistics FileName, Directory, Template, Title, Created, LastSaved, LastSavedBy, Revision, Time, Printed, Pages, Words, Characters, Paragraphs, Lines, FileSize	With ActiveDocument     var1 = .Name     var2 = .Path     var3 = .BuiltInDocumentProperties(wdPropertyTemplate)     var4 = .BuiltInDocumentProperties(wdPropertyTitle)     var5 = .BuiltInDocumentProperties(wdPropertyTimeCreated)     var6 = .BuiltInDocumentProperties(wdPropertyTimeLastSaved)     var7 = .BuiltInDocumentProperties(wdPropertyLastAuthor)     var8 = .BuiltInDocumentProperties(wdPropertyRevision)     var9 = .BuiltInDocumentProperties(wdPropertyVBATotalEdit)     var10 = .BuiltInDocumentProperties(wdPropertyTimeLastPrinted)     var11 = .BuiltInDocumentProperties(wdPropertyPages)     var12 = .BuiltInDocumentProperties(wdPropertyWords)     var13 = .BuiltInDocumentProperties(wdPropertyCharacters)     var14 = .BuiltInDocumentProperties(wdPropertyParas)     var15 = .BuiltInDocumentProperties(wdPropertyLines)     var16 = .BuiltInDocumentProperties(wdPropertyBytes) End With
EstadoBarra(nombre) ToolbarState(name)	CommandBars(name).Visible = True
EstadoMacroAutomática AddInState state = EstadoMacroAutomática(nombre) state = AddInState(name)	Addins(name).Installed = True state = Addins(name).Installed state = Addins(name).Compiled state = Addins(name).AutoLoad
Estilo Style	Selection.Style = wdStyleHeading1
EstiloDesc$() StyleDesc$()	x = Selection.Style.Description
EstiloNormal NormalStyle	Selection.Style = wdStyleNormal
ExtenderFuente GrowFont	Selection.Font.Grow
ExtenderFuenteUnPunto GrowFontOnePoint	Selection.Font.Size = Selection.Font.Size + 1
ExtenderModo() ExtendMode()	x= Selection.ExtendMode
ExtenderSelección ExtendSelection	' activa el modo extender selección Selection.ExtendMode = True ' extiende la selección Selection.Expand Unit:=wdUnits


Equivalentes de Visual Basic para comandos de WordBasic F
Equivalentes de Visual Basic para comandos de WordBasic

F
FijarAtributos filename, attribute SetAttr filename, attribute	SetAttr filename, attribute
FijarAutotexto SetAutoText	Templates(name).AutoTextEntries.Add
FijarDocumentoSucio 1 SetDocumentDirty 1	ActiveDocument.Saved = False
FijarFinDeMarcador nombre SetEndOfBookmark name FijarFinDeMarcador nombre1, nombre2 SetEndOfBookmark name1, name2	range.Bookmarks(name).Start = range.Bookmarks(name).End ActiveDocument.Bookmarks(name1).End = ActiveDocument.Bookmarks(name2).End
FijarInicioDeMarcador nombre SetStartOfBookmark name FijarInicioDeMarcador marcador1, marcador2 SetStartOfBookmark book1, book2	range.Bookmarks(name).End = range.Bookmarks(name).Start ActiveDocument.Bookmarks(book1).Start = ActiveDocument.Bookmarks(book2).Start
FijarIntervaloSelección Pos1, Pos2 SetSelRange charpos1, charpos2	ActiveDocument.Range(Start:=charpos1, End:=charpos2).Select
FijarPlantillaSucia 0 SetTemplateDirty 0	Documents(name).AttachedTemplate.Saved = True ' o Templates(name).Saved = True
FijarResultadoForm nombre, "texto" SetFormResult name, "text" FijarResultadoForm nombre, 1 FijarResultadoForm nombre, núm SetFormResult name, num FijarResultadoForm nombre, , predeterminado SetFormResult name, , default	ActiveDocument.FormFields(name).Result = "text" ActiveDocument.FormFields(name).CheckBox.Value = True ActiveDocument.FormFields(name).DropDown.Value = num Use the Default property with a CheckBox, DropDown or TextInput object.
FijarSeparadorOAviso ResetNoteSepOrNotice	ActiveDocument.Endnotes.ResetContinuationNotice ActiveDocument.Footnotes.ResetContinuationNotice ActiveDocument.Endnotes.ResetContinuationSeparator ActiveDocument.Footnotes.ResetContinuationSeparator
FijarVariablesDocumento nombre, valor SetDocumentVar nombre, valor	ActiveDocument.Variables.Add name, value
FileDocumentLayout	Sólo está disponible en la versión para Macintosh
FinDeColumna, FinDeColumna() EndOfColumn, EndOfColumn()	Selection.EndOf Unit:=wdColumn, Extend:=wdMove
FinDeDocumento, FinDeDocumento() EndOfDocument, EndOfDocument()	Selection.EndKey Unit:=wdStory
FinDeFila, FinDeFila() EndOfRow, EndOfRow()	Selection.EndKey Unit:=wdRow, Extend:=wdMove
FinDeLínea, FinDeLínea() EndOfLine, EndOfLine()	Selection.EndKey Unit:=wdLine, Extend:=wdMove
FinDeVentana, FinDeVentana() EndOfWindow, EndOfWindow()	Application.Run MacroName:="EndOfWindow"
FocoDlg, FocoDlg$() DlgFocus, DlgFocus$()
For...Next For...Next	For...Next
FormatoAutoformato FormatAutoFormat	ActiveDocument.AutoFormat
FormatoBordesYSombreado Sombra, BordeSuperior, BordeIzquierdo, BordeInferior, BordeDerecho, BordeHorizontal, BordeVertical, ColorSuperior, ColorIzquierdo, ColorInferior, ColorDerecho, ColorHorizontal, ColorVertical, SombreadoFino, DesdeElTexto, Sombreado, Fondo, PrimerPlano, Tab FormatBordersAndShading Shadow, TopBorder, LeftBorder, BottomBorder, RightBorder, HorizBorder, VertBorder, TopColor, LeftColor, BottomColor, RightColor, HorizColor, VertColor, FineShading, FromText, Shading, Foreground, Background, Tab	With ActiveDocument.Paragraphs(1).Borders     .Shadow = True     .DistanceFromBottom = num     .DistanceFromTop = num     .DistanceFromLeft = num     .DistanceFromRight = num End With With Selection.Paragraphs.Shading     .Texture = WdTextureIndex     .BackgroundPatternColorIndex = WdColorIndex     .ForegroundPatternColorIndex = WdColorIndex End With With ActiveDocument.Paragraphs(1)     .Borders(WdBorderType).LineStyle = WdLineStyle     .Borders(WdBorderType).LineWidth = WdLineWidth     .Borders(WdBorderType).ColorIndex = WdColorIndex End With With Dialogs(wdDialogFormatBordersAndShading)     .DefaultTab = WdWordDialogTab     .Show End With
FormatoCambiarMayúsMinús FormatChangeCase	Selection.Range.Case = WdCharacterCase
FormatoColumnas Columnas, AnchoDeColumna, EspacioColumna, EspaciadoEquivalente, ColLínea FormatColumns Columns, ColumnWidth, ColumnSpacing, EvenlySpaced, ColLine	With ActiveDocument.TextColumns     .SetCount NumColumns:=num     .Width = num     .Spacing = num     .EvenlySpaced = False     .LineBetween = False End With
FormatoDefinirEstiloBorde FormatDefineStyleBorders	' establece las propiedades del objeto Borders (Borde) With ActiveDocument.Styles(name).Borders     .Enable = True     .Shadow = True End With
FormatoDefinirEstiloFuente FormatDefineStyleFont	' establece las propiedades del objeto Font (Fuente) With ActiveDocument.Styles(name).Font     .Bold = True     .Name = "Arial" End With
FormatoDefinirEstiloIdioma FormatDefineStyleLang	ActiveDocument.Styles(name).LanguageID = WdLanguageID
FormatoDefinirEstiloMarco FormatDefineStyleFrame	' establece las propiedades del objeto Frame (Marco) With ActiveDocument.Styles(name).Frame     .Width = num     .VerticalPosition = num End With
FormatoDefinirEstiloNúmero FormatDefineStyleNumbers	' establece las propiedades del objeto ListLevel  With ActiveDocument.Styles(name). ListGalleries(WdListGalleryType).ListTemplates(num).ListLevels(num)     .NumberFormat = "%1)"     .TrailingCharacter = wdTrailingTab     .NumberStyle = wdListNumberStyleArabic End With
FormatoDefinirEstiloPárrafo FormatDefineStylePara	' establece las propiedades del objeto ParagraphFormat (FormatoPárrafo) With ActiveDocument.Styles(name).ParagraphFormat     .SpaceAfter = num     .RightIndent = num End With
FormatoDefinirEstiloTabs FormatDefineStyleTabs	' establece las propiedades del objeto TabStops  ActiveDocument.Styles(name).ParagraphFormat.TabStops(1).Leader = WdTabLeader
FormatoDibujarObjeto FormatDrawingObject	' establece las propiedades del objeto Shape.
FormatoDiseñoSección EmpezarSección, AlineaciónVert, NotasAlFinal, NúmDeLínea, EmpezarConNúm, DesdeElTexto, ContarPor, ModoNúm FormatSectionLayout SectionStart, VertAlign, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode	With ActiveDocument.PageSetup     .VerticalAlignment = WdVerticalAlignment     .SectionStart = WdSectionStart     .SuppressEndnotes = True     With LineNumbering         .Active =True         .StartingNumber = num         .DistanceFromText = num         .CountBy = num         .RestartMode = WdNumberingRule     End With End With
FormatoEncabPieVinculado FormatHeaderFooterLink	ActiveDocument.Sections(num).Headers(WdHeaderFooterIndex).LinkToPrevious = True ' o ActiveDocument.Sections(num).Footers(WdHeaderFooterIndex).LinkToPrevious = True
FormatoEstilo Nombre, Eliminar, Combinar, NuevoNombre, BasadoEn, EstiloSiguiente, Tipo, NombreDeArchivo, Origen, AgregarAPlantilla, Definir, CambiarNombre, Aplicar FormatStyle Name, Delete, Merge, NewName, BasedOn, NextStyle, Type, FileName, Source, AddToTemplate, Define, Rename, Apply	With ActiveDocument.Styles(name)     .Delete     .NameLocal = name     .BaseStyle = text     .NextParagraphStyle = style     x = .Type End With Application.OrganizerCopy With ActiveDocument     .UpdateStyles     .CopyStylesFromTemplate End With ActiveDocument.Styles.Add Selection.Style = name
FormatoFuente Puntos, Subrayado, Color, Tachar, Superíndice, Subíndice, Sombra, Oculto, Versales, Mayúsculas, Contorno, Espacio, Posición, AjusteDeEspacio, MínimoEspacio, Predeterminado, Tab, Fuente, Negrita, Cursiva FormatFont Points, Underline, Color, Strikethrough, Superscript, Subscript, Shadow, Hidden, SmallCaps, AllCaps, Outline, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic	With Selection.Font     .Size = num     .Underline = True     .ColorIndex = WdColorIndex     .StrikeThrough = True     .Superscript = num     .Subscript = num     .Shadow = True     .Hidden = True     .SmallCaps = True     .AllCaps = True     .Outline = True     .Spacing = num     .Position = num     .Kerning = num     .SetAsTemplateDefault     .Font = name     .Bold = True     .Italic = True End With With Dialogs(wdDialogFormatFont)     .DefaultTab = WdWordDialogTab     .Show End With
FormatoFuenteDirección FormatAddrFonts	' establece las propiedades del objeto Font (Fuente) With ActiveDocument.Envelope.Address.Font     .Size = num     .ColorIndex = WdColorIndex     .Bold = True End With
FormatoFuenteRemite FormatRetAddrFonts	' establece las propiedades del objeto Font (Fuente) With ActiveDocument.Envelope.ReturnAddress.Font     .Size = num     .ColorIndex = WdColorIndex     .Bold = True End With
FormatoGaleríaEstilos FormatStyleGallery	ActiveDocument.CopyStylesFromTemplate
FormatoImagen FijarTamaño, RecortarIzquierda, RecortarDerecha, RecortarSuperior, RecortarInferior, EscalaX, EscalaY, TamañoX, TamañoY FormatPicture SetSize, CropLeft, CropRight, CropTop, CropBottom, ScaleX, ScaleY, SizeX, SizeY	With ActiveDoucment.InlineShapes(1)     .Width = num     .Height = num     .ScaleHeight = num     .ScaleWidth = num     With .PictureFormat         .CropBottom = num         .CropLeft = num         .CropRight = num         .CropTop = num     End With End With
FormatoLetraCapital Posición, Fuente, DisminuirAlto, DistanciaDesdeElTexto FormatDropCap Position, Font, DropHeight, DistFromText	With ActiveDocument.Paragraphs(1).DropCap     .Position = WdDropPosition     .FontName = text     .LinesToDrop = num     .DistanceFromText = num End With
FormatoLlamada Tipo, Vacío, Ángulo, Disminuir, Largo, Borde, Autoadjuntar, Acentuar FormatCallout Type, Gap, Angle, Drop, Length, Border, AutoAttach, Accent	With ActiveDocument.Shapes(1).Callout     .Type = MsoCalloutType     .Gap = num     .Angle = MsoCalloutAngleType     .Drop = num     .DropType = MsoCalloutDropType     .Length = num     .Border = MsoTriState     .AutoAttach = MsoTriState     .Accent = MsoTriState End With
FormatoMarco Ajuste, ReglaAncho, AnchoFijo, ReglaAlto, AltoFijo, PosiciónHorz, PosiciónHorzRel, DistanciaDesdeElTexto, PosiciónVert, PosiciónVertRel, DistanciaVertDesdeElTexto, MoverConTexto, BloquearMarcadores, QuitarMarco FormatFrame Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame	With ActiveDocument.Frames(1)     .TextWrap = True     .WidthRule = WdFrameSizeRule     .Width = num     .Height = num        .HeightRule = WdFrameSizeRule     .HorizontalPosition = num     .RelativeHorizontalPosition = WdRelativeHorizontalPosition     .HorizontalDistanceFromText = num     .VerticalPosition = num     .RelativeVerticalPosition = WdRelativeVerticalPosition     .VerticalDistanceFromText = num     .LockAnchor = True     .Delete End With
FormatoMultinivel FormatMultilevel	' establece las propiedades del objeto ListLevel y utiliza el método ApplyListTemplate  Set atemp = ListGalleries(wdOutlineNumberGallery).ListTemplates(num) atemp.ListLevels(1).NumberStyle = wdListNumberStyleLowercaseLetter Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=atemp
FormatoNumeraciónTítulos FormatHeadingNumbering	' establece las propiedades del objeto ListLevel y utiliza el método ApplyListTemplate  Set atemp = ListGalleries(wdOutlineNumberGallery).ListTemplates(num) With atemp.ListLevels(1)     .NumberFormat = "Chapter %1"     .TrailingCharacter = wdTrailingNone     .NumberStyle = wdListNumberStyleArabic End With Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=atemp
FormatoNumeraciónViñeta Quitar, Preestablecer FormatBulletsAndNumbering Remove, Preset	Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(WdListGalleryType).ListTemplates(num) Selection.Range.ListFormat.RemoveNumbers
FormatoNumerarTítulo FormatHeadingNumber	With ListGalleries(WdListGalleryType).ListTemplates(num).ListLevels(num)     ' Set properties of the ListLevel object and use the ApplyListTemplate method End With
FormatoNúmero FormatNumber	' establece las propiedades del objeto ListLevel y utiliza el método ApplyListTemplate  Set atemp = ListGalleries(wdNumberGallery).ListTemplates(num) With atemp.ListLevels(1)     .NumberFormat = "%1."     .TrailingCharacter = wdTrailingTab     .NumberStyle = wdListNumberStyleArabic End With Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=atemp
FormatoNúmeroPágina NúmeroCapítulo, ReiniciarNumeración, FormatoNúm, EmpezarConNúm, Nivel, Separador FormatPageNumber ChapterNumber, NumRestart, NumFormat, StartingNum, Level, Separator	With Section.Footers(wdHeaderFooterPrimary).PageNumbers     .IncludeChapterNumber = True     .RestartNumberingAtSection = True     .NumberStyle = WdPageNumberStyle     .StartingNumber = num     .HeadingLevelForChapter = num     .ChapterPageSeparator = WdSeparatorType End With
FormatoNúmeroPredeter, FormatoNúmeroPredeter() FormatNumberDefault, FormatNumberDefault()	Selection.Range.ListFormat.ApplyNumberDefault Selection.Range.ListFormat.RemoveNumbers
FormatoPárrafo SangríaIzquierda, SangríaDerecha, Antes, Después, InterlineadoRegla, Interlineado, Alineación, ControlDeLíneasViudas, ConservarConElSiguiente, ConservarLíneasJuntas, SaltoDePágina, SinNúmLíneas, NoDividir, Tab, SangríaPrimera FormatParagraph LeftIndent, RightIndent, Before, After, LineSpacingRule, LineSpacing, Alignment, WidowControl, KeepWithNext, KeepTogether, PageBreak, NoLineNum, DontHyphen, Tab, FirstIndent	With ActiveDocument.Paragraphs(1)     .LeftIndent = num     .RightIndent = num     .SpaceBefore = num     .SpaceAfter = num     .LineSpacingRule = WdLineSpacing     .LineSpacing = num     .Alignment = WdParagraphAlignment     .WidowControl = True     .KeepWithNext = True     .KeepTogether  = True     .PageBreakBefore = True     .NoLineNumber = True     .Hyphenation = True     .FirstLineIndent = num End With With Dialogs(wdDialogFormatParagraph)     .DefaultTab = WdWordDialogTab     .Show End With
FormatoTabulaciones Posición, TabsPredeterminadas, Alinear, Relleno, Fijar, Borrar, BorrarTodas FormatTabs Position, DefTabs, Align, Leader, Set, Clear, ClearAll	With Selection.Paragraphs.TabStops     .ClearAll     .Add Position:=num, Alignment:= WdTabAlignment, Leader:= WdTabLeader     .Item(1).Clear End With ActiveDocument.DefaultTabStop
FormatoViñeta Puntos, Color, Alineación, Sangría, Espacio, SangFrancesa, NúmCarácter, Fuente FormatBullet Points, Color, Alignment, Indent, Space, Hang, CharNum, Font	With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)     .NumberFormat = ChrW(num)     .NumberStyle = wdListNumberStyleBullet     .NumberPosition = num     .Alignment = WdListLevelAlignment     .TextPosition = num     .TabPosition = num     With .Font         .Size = num         .Name = text         .ColorIndex = WdColorIndex     End With End With
FormatoViñetaPredeter, FormatoViñetaPredeter() FormatBulletDefault, FormatBulletDefault()	Selection.Range.ListFormat.ApplyBulletDefault Selection.Range.ListFormat.RemoveNumbers
FormOpcionesCampo Elemento, Salir, Nombre, Permitir, TipoDeTexto, AnchoDeTexto, TextoPredeterminado, FormatoDeTexto, VerificarTamaño, VerificarAncho, VerificarPredeterminado, Tipo, SuPropiaAyuda, TextoAyuda, SuPropiaAyudaEnBarraDeEstado, TextoEstático FormFieldOptions Entry, Exit, Name, Enable, TextType, TextWidth, TextDefault, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText	With ActiveDocument.FormFields(1)     .EntryMacro = text     .ExitMacro = text     .Name = text     .Enabled = True     .OwnHelp = True     .HelpText = text     .OwnStatus = True     .StatusText = text     .Type = WdFieldType End With With ActiveDocument.FormFields(1).TextInput     .Width = num     .Default = text     .EditType End With With ActiveDocument.FormFields(1).CheckBox     .Size = num     .AutoSize = True     .Default = True End With
FormSombreado, FormSombreado() FormShading	ActiveDocument.FormFields.Shaded = True
Fuente, Fuente$() Font, Font$()	Selection.Font.Name = text x = Selection.Font.Name
FuenteSymbol$ SymbolFont	Selection.Font.Name = "Symbol"
Function...End Function	Function…End Function


Equivalentes de Visual Basic para comandos de WordBasic G
Equivalentes de Visual Basic para comandos de WordBasic

G
GetCurValues GetCurValues	Dialogs(WdWordDialog).Update
GetPrivateProfileString$() GetPrivateProfileString$()	x = System.PrivateProfileString(filename, section, key)
GetProfileString$() GetProfileString$()	x = System.ProfileString(section, key)
Goto	GoTo
GroupBox	Frame control
GuardarPlantilla SaveTemplate	ActiveDocument.AttachedTemplate.Save ' o Templates(name).Save


Equivalentes de Visual Basic para comandos de WordBasic H
Equivalentes de Visual Basic para comandos de WordBasic

H
HacerClicCampo DoFieldClick	Selection.Fields(1).DoClick
HerramAdministrarCampos ToolsManageFields	Application.Run MacroName:="ToolsManageFields"
HerramAgregarRegistroPredeter ToolsAddRecordDefault	WordBasic.ToolsAddRecordDefault ' o, si el origen de los datos es una tabla de Word  Selection.Tables(1).Cell(Row:=Selection.Information(wdMaximumNumberOfRows), _     Column:=Selection.Information(wdMaximumNumberOfColumns)).Select Selection.MoveRight Unit:=wdCell
HerramAutocorrec MayúsculaInicial, InicialesMayúsculasEnFrase, Días, Mayúsculas, Reemplazar ToolsAutoCorrect InitialCaps, SentenceCaps, Days, CapsLock, ReplaceText HerramAutocorrec ComillasTipográficas ToolsAutoCorrect SmartQuotes HerramAutocorrec DarFormato, Reemplazar, Con, Agregar ToolsAutoCorrect Formatting, Replace, With, Add HerramAutocorrec DarFormato, Reemplazar, Con, Agregar ToolsAutoCorrect Formatting, Replace, With, Add HerramAutocorrec .Replace = texto, .Eliminar ToolsAutoCorrect .Replace = text, .Delete	With AutoCorrect     .CorrectInitialCaps = True     .CorrectSentenceCaps = True     .CorrectCapsLock = True     .ReplaceText = True End with Options.AutoFormatAsYouTypeReplaceQuotes = True AutoCorrectEntries.AddRichText Name:= text, Range:=range AutoCorrectEntries.Add Name:= text, Value:= text AutoCorrectEntries(name).Delete
HerramAutocorrecciónBloqNúmInact, HerramAutocorrecciónBloqNúmInact() ToolsAutoCorrectCapsLockOff, ToolsAutoCorrectCapsLockOff()	AutoCorrect.CorrectCapsLock = True
HerramAutocorrecComillas, HerramAutocorrecComillas() ToolsAutoCorrectSmartQuotes, ToolsAutoCorrectSmartQuotes()	Options.AutoFormatAsYouTypeReplaceQuotes = True
HerramAutocorrecMayús, HerramAutocorrecMayús() ToolsAutoCorrectInitialCaps, ToolsAutoCorrectInitialCaps()	AutoCorrect.CorrectInitialCaps = True
HerramAutocorrecMayúsFrase, HerramAutocorrecMayúsFrase() ToolsAutoCorrectSentenceCaps, ToolsAutoCorrectSentenceCaps()	AutoCorrect.CorrectSentenceCaps = True
HerramAutocorrecReemplazarTexto, HerramAutocorrecReemplazarTexto() ToolsAutoCorrectReplaceText, ToolsAutoCorrectReplaceText()	AutoCorrect.ReplaceText = True
HerramAutorRevisiones$() ToolsRevisionAuthor$()	anAuthor = Selection.Range.Revisions(1).Author
HerramCalcular, HerramCalcular() ToolsCalculate, ToolsCalculate()	Selection.Range.Calculate
HerramCompararVersiones ToolsCompareVersions	ActiveDocument.Compare
HerramContarPalabras ContarNotasPie, Páginas, Palabras, Caracteres, Párrafos, Líneas ToolsWordCount CountFootnotes, Pages, Words, Characters, Paragraphs, Lines	ActiveDocument.ComputeStatistics Statistic:=WdStatistic, IncludeFootnotesAndEndnotes:=True
HerramCrearEtiqueta ImprimirSobreEtiqueta ToolsCreateLabels PrintEnvLabel HerramCrearEtiqueta AgregarAlDocumento ToolsCreateLabels AddToDocument	Application.MailingLabel.PrintOut Application.MailingLabel.CreateNewDocument
HerramCrearSobre ImprimirSobreEtiqueta ToolsCreateEnvelope PrintEnvLabel HerramCrearSobre AgregarAlDocumento ToolsCreateEnvelope AddToDocument	ActiveDocument.Envelope.Insert ActiveDocument.Envelope.PrintOut
HerramDesprotegerDocumento ToolsUnprotectDocument	ActiveDocument.UnProtect(Password:=text)
HerramEliminarRegistroPredeter ToolsRemoveRecordDefault	WordBasic.ToolsRemoveRecordDefault ' o, si el origen de los datos es una tabla de Word  Selection.Tables(1).Rows(1).Delete
HerramEspecAvanzadas ToolsAdvancedSettings	' No disponible con Windows 95 y Windows NT
HerramExcepcionesAutocorrección Tab = 0, Nombre, Agregar ToolsAutoCorrectExceptions Tab = 0, Name, Add HerramExcepcionesAutocorrección Tab = 1, Nombre, Agregar ToolsAutoCorrectExceptions Tab = 1, Name, Add HerramExcepcionesAutocorrección Tab = 0, AgregarAuto ToolsAutoCorrectExceptions Tab = 1, AutoAdd HerramExcepcionesAutocorrección Tab = 0, Nombre, .Eliminar ToolsAutoCorrectExceptions Tab = 0, Name, .Delete HerramExcepcionesAutocorrección Tab = 1, Nombre, .Eliminar ToolsAutoCorrectExceptions Tab = 1, Name, Delete	FirstLetterExceptions.Add name TwoInitialCapsExceptions.Add name AutoCorrect.FirstLetterAutoAdd = True AutoCorrect.TwoInitialCapsAutoAdd = True FirstLetterExceptions(name).Delete TwoInitialCapsExceptions(name).Delete
HerramFechaRevisión$ ToolsRevisionDate$()	aDate = ActiveDocument.Revisions(1).Date
HerramGramática ToolsGrammar	ActiveDocument.CheckGrammar
HerramGramáticaEstadísticas ToolsGrammarStatisticsArray	' enumera las estadísticas de legibilidad i = 1 For Each aStat In ActiveDocument.ReadabilityStatistics     aArray(i) = aStat.Value     i = i + 1 Next aStat
HerramGuiones AutoSeparación, GuionesMayúsculas, ZonaDivisión, LímiteDeGuionesSeguidos ToolsHyphenation AutoHyphenation, HyphenateCaps, HyphenationZone, LimitConsecutiveHyphens	With ActiveDocument     .AutoHyphenation = True     .HyphenateCaps = True     .HyphenationZone = num     .ConsecutiveHyphensLimit = num End With
HerramGuionesManual ToolsHyphenationManual	ActiveDocument.ManualHyphenation
HerramIdioma Idioma, Predeterminado ToolsLanguage Language, Default	Selection.Range.LanguageID = WdLanguageID ActiveDocument.Styles(wdStyleNormal).LanguageID = WdLanguageID
HerramListaNúmeroPredeter ToolsNumberListDefault	Selection.Range.ListFormat.ApplyNumberDefault
HerramMacro Nombre, Ejecutar, Editar, Mostrar, Eliminar, CambiarNombre, Descripción, NuevoNombre, FijarDesc ToolsMacro Name, Run, Edit, Show, Delete, Rename, Description, NewName, SetDesc	Application.Run Application.OrganizerDelete Application.OrganizerRename With Dialogs(wdDialogToolsMacro)     .Show = "nombrePlantilla"     .Name = "nombreMacro"     .Edit = True     .Execute End With With Dialogs(wdDialogToolsMacro)     .Show = "nombrePlantilla"     .Name = "nombreMacro"     .Description = "nuevaDescripción"     .SetDesc = True     .Execute End With
HerramObtenerOrtografía, HerramObtenerOrtografía() ToolsGetSpelling, ToolsGetSpelling()	GetSpellingSuggestions
HerramObtenerSinónimos, HerramObtenerSinónimos() ToolsGetSynonyms, ToolsGetSynonyms()	SynonymInfo
HerramOpciones ToolsOptions	Dialogs(WdWordDialog).Show
HerramOpcionesAutoformato ConservarEstilos, AplicarEstilosTítulos, AplicarEstilosListas, AplicarEstilosOtrosPárrafos, ReemplazarComillas, ReemplazarSímbolos, AplicarViñetas, ReemplazarNúmeros, ReemplazarFracciones, MostrarOpcionesPara ToolsOptionsAutoFormat PreserveStyles, ApplyStylesHeadings, ApplyStylesLists, ApplyStylesOtherParas, ReplaceQuotes, ReplaceSymbols, ApplyBulletedLists, ReplaceOrdinals, ReplaceFractions, ShowOptionsFor HerramOpcionesAutoformato AplicarBordes, AplicarViñetas, AplicarEstilosTítulos, AplicarListasNumeradas, ReemplazarFracciones, ReemplazarNúmeros, ReemplazarComillas, ReemplazarSímbolos, MostrarOpcionesPara ToolsOptionsAutoFormat ApplyBorders, ApplyBulletedLists, ApplyStylesHeadings, ApplyNumberedLists, ReplaceFractions, ReplaceOrdinals, ReplaceQuotes, ReplaceSymbols, ShowOptionsFor No existe equivalente en Visual Basic para los siguientes argumentos: AjustarMarcasPárrafo, AjustarEspacioTabs, ReemplazarViñetas, AjustarPárrafosVacíos.	With Options     .AutoFormatPreserveStyles = True     .AutoFormatApplyHeadings = True     .AutoFormatApplyLists = True     .AutoFormatApplyOtherParas = True     .AutoFormatReplaceQuotes = True     .AutoFormatReplaceSymbols = True     .AutoFormatApplyBulletedLists = True     .AutoFormatReplaceOrdinals = True     .AutoFormatReplaceFractions = True End With With Options     .AutoFormatAsYouTypeApplyBorders = True     .AutoFormatAsYouTypeApplyBulletedLists = True     .AutoFormatAsYouTypeApplyHeadings = True     .AutoFormatAsYouTypeApplyNumberedLists = True     .AutoFormatAsYouTypeReplaceFractions = True     .AutoFormatAsYouTypeReplaceOrdinals = True     .AutoFormatAsYouTypeReplaceQuotes = True     .AutoFormatAsYouTypeReplaceSymbols = True End With
HerramOpcionesCompatibilidad ToolsOptionsCompatibility	ActiveDocument.Compatibility Type:=WdCompatibility
HerramOpcionesEdición ReemplazarSelección, ArrastrarYColocar, AutoselecciónPalabras, InsParaPegar, Sobrescribir, CortarYPegarInteligentemente, PermitirMayúsculasAcentuadas, EditorImagen ToolsOptionsEdit ReplaceSelection, DragAndDrop, AutoWordSelection, InsForPaste, Overtype, SmartCutPaste, AllowAccentedUppercase, PictureEditor	With Options     .ReplaceSelection = True     .AllowDragAndDrop = True     .AutoWordSelection = True     .INSKeyForPaste = True     .Overtype = True     .SmartCutPaste = True     .AllowAccentedUppercase = True     .PictureEditor = text     .TabIndentKey = True End With
HerramOpcionesGeneral Paginación, AyudaWP, TeclasDeNavWPDoc, PantallaAzul, BipErrores, ActualizarVínculos, EnviarMensajeAdjunto, Unidades, ClipCampoBotones, RTFEnPortapapeles, ConfirmarConversiones, ArchivosRecientes, CuentaDeArchivosRecientes ToolsOptionsGeneral Pagination, WPHelp, WPDocNavKeys, BlueScreen, ErrorBeeps, UpdateLinks, SendMailAttach, Units, ButtonFieldClicks, RTFInClipboard, ConfirmConversions, RecentFiles, RecentFileCount	With Options     .Pagination = True     .WPHelp = True     .WPDocNavKeys = True     .BlueScreen = True     .EnableSound = True     .UpdateLinksAtOpen = True     .SendMailAttach = True     .MeasurementUnit = WdUnits     .ButtonFieldClicks = num     .ShortMenuNames = True     .RTFInClipboard = True     .ConfirmConversions = True End With Assistant.ActivateWizard With Application     .DisplayRecentFiles = True     .RecentFiles.Maximum = num End With
HerramOpcionesGuardar HacerCopiaDeRespaldo, GuardarRápidamente, PresentarResumen, SímboloGlobalDot, FormatoImagenOriginal, RespaldoAutomático, IntervaloGuardar ToolsOptionsSave CreateBackup, FastSaves, SummaryPrompt, GlobalDotPrompt, NativePictureFormat, AutoSave, SaveInterval HerramOpcionesGuardar FichasDeDatos, Contraseña, EscribirContraseña, RecomendadoSóloLectura, FuentesIncrustadas ToolsOptionsSave FormsData, Password, WritePassword, RecommendReadOnly, EmbedFonts	With Options     .CreateBackup = True     .AllowFastSave = True     .SavePropertiesPrompt = True     .SaveNormalPrompt = True     .BackgroundSave = True     .SaveInterval = number End With With ActiveDocument     .SaveFormsData = True     .Password = text     .WritePassword = text     .ReadOnlyRecommended = True     .EmbedTrueTypeFonts = True End With
HerramOpcionesImprimir Borrador, OrdenInverso, ActualizarCampos, Resumen, MostrarCódigos, Anotaciones, MostrarOculto, AlimenDeSobreInstalado, ActualizarVínculos, Fondo, ObjetoDibujo, BandejaPredeterminada, FichasDeDatos ToolsOptionsPrint Draft, Reverse, UpdateFields, Summary, ShowCodes, Annotations, ShowHidden, EnvFeederInstalled, UpdateLinks, Background, DrawingObjects, DefaultTray, FormsData	With Options     .PrintDraft = True     .PrintReverse = True     .UpdateFieldsAtPrint = True     .PrintProperties = True     .PrintFieldCodes = True     .PrintComments = True     .PrintHiddenText = True     .EnvelopeFeederInstalled = True     .UpdateLinksAtPrint = True     .PrintBackground = True     .PrintDrawingObjects = True     .DefaultTray = text     .DefaultTrayID = WdPaperTray End With With ActiveDocument     .PrintFormsData = True     .PrintFractionalWidths = True     .PrintPostScriptOverText = True End With
HerramOpcionesInfoUsuario Nombre, Iniciales, Dirección ToolsOptionsUserInfo Name, Initials, Address	With Application     .UserName = text     .UserInitials = text     .UserAddress = text End With
HerramOpcionesOrtografía SugerirSiempre, SugerirSóloDelDicPrincipal, IgnorarMayúsculas, IgnorarDígitosMixtos, RestablecerIgnorarTodo, Tipo, DicPersonal ToolsOptionsSpelling AlwaysSuggest, SuggestFromMainDictOnly, IgnoreAllCaps, IgnoreMixedDigits, ResetIgnoreAll, Type, CustomDictn	With Options     .SuggestSpellingCorrections = True     .SuggestFromMainDictionaryOnly = True     .IgnoreUppercase = True     .IgnoreMixedDigits = True     .CheckSpellingAsYouType = True End With With ActiveDocument     .SpellingChecked = False     .ShowSpellingErrors = True End With  Application.ResetIgnoreAll Languages(wdLanguageID).SpellingDictionaryType = wdDictionaryType CustomDictionaries.Add
HerramOpcionesPosArchivos ToolsOptionsFileLocations	Options.DefaultFilePath(WdDefaultFilePath) = text
HerramOpcionesRevisiones MarcaDelTextoInsertado, MarcaDelTextoEliminado, MarcaDeLíneaRevisada, ColorDeLíneaRevisada, ColorDelTextoEliminado, ColorDelTextoInsertado, ColorParaDestacar ToolsOptionsRevisions InsertedTextMark, DeletedTextMark, RevisedLinesMark, InsertedTextColor, DeletedTextColor, RevisedLinesColor, HighlightColor	With Options     .InsertedTextMark = WdInsertedTextMark     .DeletedTextMark = WdDeletedTextMark     .RevisedLinesMark = WdRevisedLinesMark     .InsertedTextColor = WdColorIndex     .DeletedTextColor = WdColorIndex     .RevisedLinesColor = WdColorIndex     .DefaultHighlightColorIndex = WdColorIndex End With
HerramOpcionesVer FuentesBorrador, AjustarALaVentana, PosiciónDeImágenes, CódigosDeCampo, Marcadores, SombreadoCampo, DesplazarHoriz, DesplazarVert, AnchoÁreaEstilo, Tabulaciones, Espacios, Pár, Guiones, Oculto, MostrarTodo, Dibujos, MarcadoresPosición, LímitesDelTexto, VRegla, Destacar ToolsOptionsView DraftFont, WrapToWindow, PicturePlaceHolders, FieldCodes, BookMarks, FieldShading, Hscroll, Vscroll, StyleAreaWidth, Tabs, Spaces, Paras, Hyphens, Hidden, ShowAll, Drawings, Anchors, TextBoundaries, Vruler, Highlight HerramOpcionesVer BarraDeEstado ToolsOptionsView StatusBar	With ActiveWindow.View     .Draft = True     .WrapToWindow = True     .ShowPicturePlaceHolders = True     .ShowFieldCodes = True     .ShowBookmarks = True     .FieldShading = WdFieldShading     .Parent.DisplayHorizontalScrollBar = True     .Parent.DisplayVerticalScrollBar = True     .Parent.StyleAreaWidth = num     .ShowTabs = True     .ShowSpaces = True     .ShowParagraphs = True     .ShowHyphens = True     .ShowHiddenText = True     .ShowAll = True     .ShowDrawings = True     .ShowObjectAnchors = True     .ShowTextBoundaries = True     .Parent.DisplayVerticalRuler = True     .ShowHighlight = True End With Application.DisplayStatusBar = True
HerramOrtografía ToolsSpelling	ActiveDocument.CheckSpelling
HerramOrtografíaRevisarDocumento ToolsSpellingRecheckDocument	ActiveDocument.SpellingChecked = False
HerramPersonal Tab ToolsCustomize Tab	With Dialogs(WdWordDialog)     .DefaultTab = WdWordDialogTab     .Show End With
HerramPersonalBarraMenú Contexto, Posición, TipoDeMenú, TextoDeMenú, Menú, Agregar, Quitar, CambiarNombre ToolsCustomizeMenuBar Context, Position, MenuType, MenuText, Menu, Add, Remove, Rename	CustomizationContext = template or document CommandBars(name).Delete CommandBars.Add CommandBars(name).Name = text
HerramPersonalMenú TipoDeMenú, Posición, Categoría, Nombre, Menú, AgregarDebajo, TextoDeMenú, CambiarNombre, Agregar, Quitar, RestablecerTodo, ValorComando, Contexto ToolsCustomizeMenus MenuType, Position, Category, Name, Menu, AddBelow, MenuText, Rename, Add, Remove, ResetAll, CommandValue, Context	CustomizationContext = template or document CommandBars(name).Controls(num).Delete CommandBars(name).Controls.Add Type:=msoControlButton, ID:=num, Before:=num CommandBars(name).Controls(num).Caption = text
HerramPersonalTeclado Clave, Clave2, Categoría, Nombre, Agregar, Quitar, RestablecerTodo, ValorComando, Contexto ToolsCustomizeKeyboard KeyCode, KeyCode2, Category, Name, Add, Remove, ResetAll, CommandValue, Context	CustomizationContext = template or document KeyBindings.Add CustomizationContext = template or document FindKey(BuildKeyCode(Wdkey, Wdkey)).Disable CustomizationContext = template or document KeyBindings.ClearAll
HerramProtegerDocumento ToolsProtectDocument	ActiveDocument.Protect
HerramProtegerDocumento() ToolsDocumentProtection()	x = ActiveDocument.ProtectionType
HerramProtegerSección Proteger, Sección ToolsProtectSection Protect, Section	ActiveDocument.Sections(num).ProtectedForForms = True
HerramReducirAjustar ToolsShrinkToFit	ActiveDocument.FitToPages
HerramRepaginar ToolsRepaginate	ActiveDocument.Repaginate
HerramRevisarSelección ToolsSpellSelection	Selection.Range.CheckSpelling
HerramRevisiones MarcarRevisiones, VerRevisiones, ImprimirRevisiones, AceptarTodas, RechazarTodas ToolsRevisions MarkRevisions, ViewRevisions, PrintRevisions, AcceptAll, RejectAll	With ActiveDocument     .TrackRevisions = True     .PrintRevisions = True     .ShowRevisions = True End With With Selection.Range.Revisions     .AcceptAll     .RejectAll End With
HerramSinónimos ToolsThesaurus	Selection.Range.CheckSynonyms
HerramTipoRevisión() ToolsRevisionType()	aType = ActiveDocument.Revisions(1).Type
HerramUnirRevisiones ToolsMergeRevisions	ActiveDocument.Merge FileName:=name
HerramVerificarRevisiones MostrarMarcas, OcultarMarcas, Ajuste, BuscarAnterior, BuscarSiguiente, AceptarRevisiones, RechazarRevisiones ToolsReviewRevisions ShowMarks, HideMarks, Wrap, FindPrevious, FindNext, AcceptRevisions, RejectRevisions	ActiveDocument.ShowRevisions = True Selection.NextRevision Selection.PreviousRevision Selection.Range.Revisions.AcceptAll Selection.Range.Revisions.RejectAll
HerramViñetasListaPredeter ToolsBulletListDefault	Selection.Range.ListFormat.ApplyBulletDefault
HerramViñetasNúmero Reemplazar, Fuente, NúmCarácter, Tipo, FormatoEsquema, ActualizarAutomát, FormatoNúmero, Puntuación, EmpezarEn, Puntos, SangFrancesa, Sangría, Quitar ToolsBulletsNumbers Replace, Font, CharNum, Type, FormatOutline, AutoUpdate, FormatNumber, Punctuation, StartAt, Points, Hang, Indent, Remove	With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)     .NumberFormat = "%1."     .TrailingCharacter = WdTrailingCharacter     .NumberStyle = WdListNumberStyle     .Alignment = WdListLevelAlignment     .TextPosition = InchesToPoints(num)     .TabPosition = InchesToPoints(num)     .ResetOnHigher = True     .StartAt = num     .Font.Size = num End With Selection.Range.ListFormat.ApplyListTemplate _         ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(1)
Hora() Hour()	Hour
Hoy() Today()	Dim x As Long x = DateSerial(Year(Date), Month(Date), Day(Date))


Equivalentes de Visual Basic para comandos de WordBasic I
Equivalentes de Visual Basic para comandos de WordBasic

I
Idioma, Idioma$() Language, Language$()	Selection.LanguageID
If...Then...Else If...Then...Else	If...Then...Else
IndicadorControlDlg() DlgControlId()	La funcionalidad de cuadros de diálogo dinámicos de WordBasic se ha sustituido por formularios personalizados por el usuario. Consulte los temas de la Ayuda de formularios de Microsoft.
InfoNombreArchivo$() FileNameInfo$()	x = WordBasic.[FileNameInfo$]() x = ActiveDocument.Name x = ActiveDocument.Path x = ActiveDocument.FullName
InfoSelecc(Tipo) SelInfo(Type)	x = Selection.Information(WdInformation)
Input Input	Input
Input$ Input$()	Input()
InputBox$() InputBox$()	InputBox
Insertar Insert	Selection.InsertAfter Text:=text ' o Selection.TypeText Text:=text
InsertarAgregarTítulo InsertAddCaption	CaptionLabels.Add
InsertarAnotación InsertAnnotation	ActiveDocument.Comments.Add
InsertarArchivo Nombre, Intervalo, ConfirmarConversions, Vínculo InsertFile Name, Range, ConfirmConversions, Link	Selection.InsertFile
InsertarAutotexto InsertAutoText	Selection.Range.InsertAutoText
InsertarBaseDeDatos InsertDatabase	Selection.Range.InsertDatabase
InsertarCampoCarácter InsertFieldChars	Selection.Fields.Add Range:=range, Type:=wdFieldEmpty, PreserveFormatting:=False
InsertarCampoComb InsertMergeField	ActiveDocument.MailMerge.Fields.Add
InsertarCampoFecha InsertDateField	Selection.Fields.Add Range:=range, Type:=wdFieldDate
InsertarCampoForm Elemento, Salir, Nombre, Permitir, TipoDeTexto, OpcionesDeTexto, AnchoDeTexto, FormatoDeTexto, VerificarTamaño, VerificarAncho, VerificarPredeterminado, Tipo, SuPropiaAyuda, TextoAyuda, SuPropiaAyudaEnBarraDeEstado, TextoEstático InsertFormField Entry, Exit, Name, Enable, TextType, TextDefault, TextWidth, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText	Set myField = ActiveDocument.FormFields.Add(Range:=range, Type:=WdFieldType) With myField     .EntryMacro = text     .ExitMacro = text     .Name = text     .Enabled = True     .OwnHelp = True     .HelpText = text     .OwnStatus = True     .StatusText = text End With With myField.TextInput     .Width = num     .Default = text     .EditType End With With myField.CheckBox     .Size = num     .AutoSize = True     .Default = True End With
InsertarCampoHora InsertTimeField	ActiveDocument.Fields.Add Range:=range, Type:=wdFieldTime
InsertarCampoPágina InsertPageField	ActiveDocument.Fields.Add Range:=range, Type:=wdFieldPage
InsertarDibujo InsertDrawing	ActiveDocument.Shapes.AddOLEObject
InsertarDirección InsertAddress	Application.GetAddress
InsertarEcuación InsertEquation	ActiveDocument.Shapes.AddOLEObject
InsertarEpígrafeAuto Borrar, BorrarTodas, Etiqueta, Posición InsertAutoCaption Clear, ClearAll, Label, Position	With AutoCaptions(name)     .AutoInsert = True     .CaptionLabel.Name     .CaptionLabel.Position End With AutoCaptions.CancelAutoInsert
InsertarEspecial InsertSpike	NormalTemplate.AutoTextEntries("Spike").Insert Where:=range
InsertarFechaHora InsertDateTime	Selection.InsertDateTime
InsertarGráfico InsertChart	ActiveDocument.Shapes.AddOLEObject
InsertarImagen Nombre, VincularAArchivo, Nuevo InsertPicture Name, LinkToFile, New	ActiveDocument.Shapes.AddPicture ActiveDocument.InlineShapes.New Range:=range
InsertarÍndice InsertIndex	ActiveDocument.Indexes.Add
InsertarMarco InsertFrame	Selection.Frames.Add
InsertarNotaAlPie Referencia, TipoNota InsertFootnote Reference, NoteType	ActiveDocument.Footnotes.Add Range:=range, Text:=text ActiveDocument.Endnotes.Add Range:=range, Text:=text
InsertarNúmerosEpígrafes Etiqueta, FormatoNúmero, NúmeroCapítulo, Nivel, Separador InsertCaptionNumbering Label, FormatNumber, ChapterNumber, Level, Separator	With CaptionLabels(name)     .ChapterStyleLevel = num     .Separator = WdSeparatorType     .NumberStyle = WdCaptionNumberStyle     .IncludeChapterNumber = True End With
InsertarNúmerosPágina InsertPageNumbers	ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add
InsertarObjeto InsertObject	ActiveDocument.Shapes.AddOLEObject
InsertarPárra InsertPara	Selection.InsertParagraphAfter ' o Selection.TypeParagraph
InsertarRefCruzada InsertCrossReference	Selection.InsertCrossReference
InsertarSalto InsertBreak	Selection.InsertBreak Type:=WdBreakType
InsertarSaltoColumna InsertColumnBreak	Selection.InsertBreak Type:=wdColumnBreak
InsertarSaltoPágina InsertPageBreak	Selection.InsertBreak Type:=wdPageBreak
InsertarSaltoSección InsertSectionBreak	Selection.Range.InsertBreak Type:=WdBreakType
InsertarSímbolo InsertSymbol	Selection.InsertSymbol
InsertarSonido InsertSound	Selection.InlineShapes.AddOLEObject ClassType:="SoundRec"
InsertarSubdocumento InsertSubdocument	ActiveDocument.Subdocuments.AddFromFile Range:=range
InsertarTablaDeContenido InsertTableOfContents	ActiveDocument.TablesOfContents.Add
InsertarTablaDeIlustraciones InsertTableOfFigures	ActiveDocument.TablesOfFigures.Add
InsertarTablaExcel InsertExcelTable	ActiveDocument.Shapes.AddOLEObject
InsertarTítulo InsertCaption	Selection.InsertCaption
InsertarWordArt InsertWordArt	ActiveDocument.Shapes.AddOLEObject
InsertCampo Campo InsertField field_type	ActiveDocument.Fields.Add Range:=range, Type:=field_type
InStr()	InStr()
Int()	Int()
InterrumpirGrabación PauseRecorder	WordBasic.PauseRecorder
IrAAnotaciónSiguiente GoToNextAnnotation IrANotaAlFinalSiguiente GoToNextEndnote IrANotaAlPieSiguiente GoToNextFootnote IrAPáginaSiguiente GoToNextPage IrASecciónSiguiente GoToNextSection IrASubdocumentoSiguiente GoToNextSubdocument	Selection.GoToNext(wdGoToComment) Selection.GoToNext(wdGoToEndnote) Selection.GoToNext(wdGoToFootnote) Selection.GotoNext(wdGoToPage) Selection.GotoNext(wdGoToSection) Selection.NextSubdocument
IrAElementoAnterior GoToPreviousItem	Selection.GoTo What:=WdGoToItem, Which:=wdGoToPrevious
IrAEncabezadoPiePágina GoToHeaderFooter	If Selection.HeaderFooter.IsHeader = True Then     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If
IrAMarcaAnotación GoToAnnotationScope	Selection.Comments(1).Scope.Select


Equivalentes de Visual Basic para comandos de WordBasic J-L
Equivalentes de Visual Basic para comandos de WordBasic

K
KeyCode() KeyCode()	x = KeyBindings(1).KeyCode
Kill nombrearchivo Kill filename	Kill filename
L
LCase$() LCase$()	LCase() ' o LCase$()
Left$() Left$()	Left$() ' o Left()
Len() Len()	Len()
Let Let	Let
LimpiarMacrosAutomáticast ClearAddInst	Addins.Unload
Line Input Line Input	Line Input
LíneaAbajo, LíneaAbajo() LineDown, LineDown()	Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdMove
LíneaArriba, LíneaArriba() LineUp, LineUp()	Selection.MoveUp Unit:= wdLine, Count:=1, Extend:=wdMove
LíneaH HLine	ActiveWindow.SmallScroll ToRight:=num ' o ActiveWindow.SmallScroll ToLeft:=num
LíneaV VLine	ActiveWindow.SmallScroll Down:=num ' o ActiveWindow.SmallScroll Up:=num
ListaDeComandos ListCommands	Application.ListCommands
ListaVentana núm WindowList num	Window(num).Activate
ListBox ListBox	ListBox Control
Lof() Lof()	LOF()
LTrim$() LTrim$()	LTrim()


Equivalentes de Visual Basic para comandos de WordBasic M
Equivalentes de Visual Basic para comandos de WordBasic

M
MacID$() MacID$()	Sólo está disponible en la versión para Macintosh
MacroBotónBarra$() ToolbarButtonMacro$()	x = CommandBars(name).Controls(1).OnAction
MacroCopiar MacroCopy	Application.OrganizerCopy
MacroElementoMenú$() MenuItemMacro$()	x = CommandBars(name).Controls(num).OnAction
MacroNombreDeVentana$() MacroNameFromWindow$()	No disponible en Word 97
MacScript, MacScript$() MacScript, MacScript$()	Sólo está disponible en la versión para Macintosh
MarcadorExistente (nombre) ExistingBookmark(name)	x = ActiveDocument.Bookmarks.Exists(name)
MarcadorVacío(nombre) EmptyBookmark(name)	x = ActiveDocument.Bookmarks(name).Empty
MarcarElementoÍndice MarkIndexEntry	ActiveDocument.Indexes.MarkEntry
MarcarElementoTDC MarkTableOfContentsEntry	ActiveDocument.TablesOfContents.MarkEntry
MásAyuda ShowMe	Application.ShowMe
MatrizOrdenar SortArray	WordBasic.SortArray
Mayúsculas, Mayúsculas() AllCaps, AllCaps()	Selection.Font.AllCaps = True x = Selection.Font.AllCaps
Mes() Month()	Month()
MicrosoftAccess	WordBasic.MicrosoftAccess ' o utilice la técnica mostrada en el ejemplo de Microsoft Excel
MicrosoftExcel	WordBasic.MicrosoftExcel ' o If Tasks.Exists("Microsoft Excel") = True Then     Tasks("Microsoft Excel").Activate     Tasks("Microsoft Excel").WindowState = wdWindowStateMaximize Else     Shell "C:\MSOffice\Excel\Excel.exe" End If
MicrosoftFoxPro	WordBasic.MicrosoftFoxPro ' o utilice la técnica mostrada en el ejemplo de Microsoft Excel
MicrosoftMail	WordBasic.Mail ' o utilice la técnica mostrada en el ejemplo de Microsoft Excel
MicrosoftPowerPoint	WordBasic.PowerPoint ' o utilice la técnica mostrada en el ejemplo de Microsoft Excel
MicrosoftProject	WordBasic.Project ' o utilice la técnica mostrada en el ejemplo de Microsoft Excel
MicrosoftPublisher	WordBasic.Publisher ' o utilice la técnica mostrada en el ejemplo de Microsoft Excel
MicrosoftSchedule	WordBasic.Schedule ' o utilice la técnica mostrada en el ejemplo de Microsoft Excel
MicrosoftSystemInfo	System.MSInfo
Mid$()	Mid$() ' o Mid()
Minuto() Minute()	Minute()
MkDir nombre MkDir path_name	MkDir path_name
ModificarImagenBotón EditButtonImage	WordBasic.EditButtonImage
ModoMenú MenuMode	WordBasic.MenuMode
MontarVolumen MountVolume	Application.MountVolume
MostrarAnotacionesDe nombre ShowAnnotationBy name	ActiveDocument.Comments.ShowBy = name
MostrarEncabPieAnterior ShowPrevHeaderFooter	ActiveWindow.View.PreviousHeaderFooter
MostrarEncabPieSiguiente ShowNextHeaderFooter	ActiveWindow.View.NextHeaderFooter
MostrarPortapapeles ShowClipboard	Application.ShowClipboard
MostrarTïtuloNúmero ShowHeadingNumber	Windows(name).View.ShowHeading Level:=num
MostrarTodo, MostrarTodo() ShowAll, ShowAll()	Windows(1).View.ShowAll = True x = ActiveWindow.View.ShowAll
MostrarTodosTítulos ShowAllHeadings	ActiveWindow.View.ShowAllHeadings
MostrarVariables ShowVars	Add a watch expression in the Visual Basic Editor
MoverBarraHerram MoveToolbar	With CommandBars(name)     .Top = num     .Left = num End With CommandBars(name).Position = MsoBarPosition
MoverBotón MoveButton	CommandBars(name).Controls(1).Move
MoverTexto MoveText	WordBasic.MoveText
MsgBox, MsgBox()	MsgBox, MsgBox()


Equivalentes de Visual Basic para comandos de WordBasic N
Equivalentes de Visual Basic para comandos de WordBasic

N
Name	Name
name = NombreBarra$( name = ToolbarName$()	name = CommandBars(num).Name
Negrita, Negrita() Bold, Bold()	Selection.Font.Bold = True x = Selection.Font.Bold
nombre = NombreMarcador$(num) name = BookmarkName$(num)	name = ActiveDocument.Bookmarks(num).Name
NombreArchivo$() FileName$() NombreArchivo$(núm) FileName$(num)	x = ActiveDocment.FullName x = RecentFiles(num).Name & Application.PathSeparator & RecentFiles(num).Path
NombreArchivoDeVentana$() FileNameFromWindow$()	x = Windows(1).Document.FullName
NombreArchivoMacro$() MacroFileName$()	No disponible en Word 97
NombreArchivosBuscados$() FoundFileName$()	Application.FileSearch.FoundFiles(num)
NombreAutotexto$(núm, contexto) AutoTextName$(num, context)	x = ActiveDocument.AttachedTemplate.AutoTextEntries(num).Name
NombreCampoCombinación$(núm) MergeFieldName$(num)	x = ActiveDocument.MailMerge.DataSource.FieldNames(num)
NombreEstilo$() StyleName$()	x = Selection.Style.NameLocal
NombreMacro$() MacroName$()	x = WordBasic.[MacroName$](num)
NombreVentana$() WindowName$()	aCap = ActiveWindow.Caption
NuevaBarra NewToolbar	CommandBars.Add
num = Ventana() num = Window()	num = ActiveWindow.Index
NúmExcepcionesAutocorrección(0) CountAutoCorrectExceptions(0) NúmExcepcionesAutocorrección(1) CountAutoCorrectExceptions(1)	x = AutoCorrect.FirstLetterExceptions.Count x = AutoCorrect.TwoInitialCapsExceptions.Count
NúmPropiedadesDocumento() CountDocumentProperties()	x = ActiveDocument.BuiltInDocumentProperties.Count ' o x = ActiveDocument.CustomDocumentProperties.Count


Equivalentes de Visual Basic para comandos de WordBasic O-P
Equivalentes de Visual Basic para comandos de WordBasic

O
ObjetoAnterior PrevObject	Selection.GoToPrevious What:=wdGoToObject ' o  Selection.MoveLeft Unit:=wdItem
ObjetoSiguiente NextObject	Selection.GoToNext What:=wdGoToObject ' o Selection.MoveRight Unit:=wdItem
ObtenerAtributos(nombrearchivo) GetAttr(filename)	GetAttr(filename)
ObtenerAutocorregir$(nombre) GetAutoCorrect$(name)	x = AutoCorrect.Entries(name).Value
ObtenerAutotexto$() GetAutoText$()	x = ActiveDocument.AttachedTemplate.AutoTextEntries(name).Value
ObtenerCampoCombinación$() GetMergeField$()	x = ActiveDocument.MailMerge.DataSource.DataFields(name).Value
ObtenerDatosCampo$() GetFieldData$()	x = Selection.Fields(1).Data
ObtenerDirección$() GetAddress$()	x = Application.GetAddress
ObtenerDirectorio$() GetDirectory$()	x = WordBasic.[GetDirectory$]()
ObtenerExcepciónAutocorrección$() GetAutoCorrectException$()	x = AutoCorrect.FirstLetterExceptions(num).Name x = AutoCorrect.TwoInitialCapsExceptions(num).Name
ObtenerIdMacrosAuto(nombre) GetAddInID(name)	x = Addins(name).Index
ObtenerInfoSistema$(21) ObtenerInfoSistema$(22) ObtenerInfoSistema$(23) ObtenerInfoSistema$(24) ObtenerInfoSistema$(25) ObtenerInfoSistema$(26) ObtenerInfoSistema$(27) ObtenerInfoSistema$(28) ObtenerInfoSistema$(29) ObtenerInfoSistema$(30) ObtenerInfoSistema$(31) ObtenerInfoSistema$(32) GetSystemInfo$()	x = System.OperatingSystem x = System.ProcessorType ' no disponible x = System.Version ' no disponible x = System.FreeDiskSpace ' no disponible x = System.MathCoprocessorInstalled x = System.Country x = System.LanguageDesignation x = System.VerticalResolution x = System.HorizontalResolution ' los valores de 512 a 526 sólo están disponibles en la versión para Macintosh.
ObtenerMarcador$(nombre) GetBookmark$(name)	x = ActiveDocument.Bookmarks(name).Range.Text
ObtenerNombreMacrosAuto$(núm) GetAddInName$(num)	x = Addins(num).Name
ObtenerNombreVarDocument$(núm) GetDocumentVarName$(num)	x = ActiveDocument.Variables(num).Name
ObtenerPosFinalSel() GetSelEndPos()	x = Selection.End
ObtenerPosIniSel() GetSelStartPos()	x = Selection.Start
ObtenerPropiedadDocumento$(), ObtenerPropiedadDocumento() GetDocumentProperty(), GetDocumentProperty$()	x = ActiveDocument.CustomDocumentProperties(name).Value ' o x = ActiveDocument.BuiltInDocumentProperties(name).Value
ObtenerResultadoForm(), ObtenerResultadoForm$() GetFormResult(), GetFormResult$()	x = ActiveDocument.FormFields(1).Result
ObtenerTexto$(Pos1, Pos2) GetText$(Pos1, Pos2)	x = ActiveDocument.Range(Pos1, Pos2).Text
ObtenerVarDocumento$(nombre) GetDocumentVar$(name)	x = ActiveDocument.Variables(name).Value
Oculto, Oculto() Hidden	Selection.Font.Hidden = True
OKButton	CommandButton control
On Error	On Error
OnTime	Application.OnTime
OpcionesNotas NotasAlPieEn, PieNúmeroComo, PieEmpezarCon, PieEmpezarNumeración, NotasAlFinalEn, FinalNúmeroComo, FinalEmpezarCon, FinalEmpezarNumeración NoteOptions FootnotesAt, FootNumberAs, FootStartingNum, FootRestartNum, EndnotesAt, EndNumberAs, EndStartingNum, EndRestartNum	With ActiveDocument.Footnotes     .Location = WdFootnoteLocation     .NumberingRule = WdNumberingRule     .NumberStyle = WdNoteNumberStyle     .StartingNumber = num End With With ActiveDocument.Endnotes     .Location = WdEndnoteLocation     .NumberingRule = WdNumberingRule     .NumberStyle = WdNoteNumberStyle     .StartingNumber = num End With
Open	Open
OptionButton	OptionButton control
OptionGroup	Frame control
Organizador Organizer	Application.OrganizerCopy Application.OrganizerDelete Application.OrganizerRename
OrtografíaRevisada, OrtografíaRevisada() SpellChecked, SpellChecked()	ActiveDocument.Content.SpellingChecked = True x = ActiveDocument.Content.SpellingChecked
OtroPanel OtherPane	ActiveWindow.ActivePane.Next.Activate
P
PáginaAbajo, PáginaAbajo() PageDown, PageDown()	Selection.MoveDown Unit:=wdScreen, Count:=1, Extend:=wdMove
PáginaAnterior, PáginaAnterior() PrevPage, PrevPage()	Selection.GoToPrevious What:=wdGoToPage ' o ActiveWindow.View.Type = wdPageView ActiveWindow.PageScroll Up:=1
PáginaArriba, PáginaArriba() PageUp, PageUp()	Selection.MoveUp Unit:=wdScreen, Count:=1, Extend:=wdMove
PáginaH HPage	ActiveWindow.LargeScroll ToRight:=num ' o ActiveWindow.LargeScroll ToLeft:=num
PáginaSiguiente, PáginaSiguiente() NextPage, NextPage()	Selection.GoToNext What:=wdGoToPage ' o ActiveWindow.View.Type = wdPageView ActiveWindow.PageScroll Down:=1
PáginaV VPage	ActiveWindow.LargeScroll Down:=num ' o ActiveWindow.LargeScroll Up:=num
PalabraDerecha 1 WordRight 1 PalabraDerecha 1, 1 WordRight 1, 1	Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove Selection.MoveEnd Unit:=wdWord, Count:=1 ' o Selection.MoveRight Unit:=WdWord, Count:=1, Extend:=wdExtend
PalabraIzquierda cuenta WordLeft count PalabraIzquierda cuenta, seleccionar WordLeft count, select	Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdMove Selection.MoveStart Unit:=wdWord, Count:=-1 ' o Selection.MoveLeft Unit:=WdWord, Count:=1, Extend:=wdExtend
PanelDeVentana() WindowPane()	' Utilice la propiedad Split para determinar si una ventana está dividida. ' Utilice la propiedad StoryType con el objeto Selection para determinar el panel de la selección.
PárrafoAbajo, PárrafoAbajo() ParaDown, ParaDown()	Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
PárrafoArriba, PárrafoArriba() ParaUp, ParaUp()	Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdMove
PárrafoDerecha, PárrafoDerecha() RightPara, RightPara()	Selection.Paragraphs.Alignment = wdAlignParagraphRight
PárrafoIzquierda, PárrafoIzquierda() LeftPara, LeftPara()	Selection.Paragraphs.Alignment = wdAlignParagraphLeft
PárrafoJustificado, PárrafoJustificado() JustifyPara, JustifyPara()	Selection.Paragraphs.Alignment = wdAlignParagraphJustify
PegarFormato PasteFormat	Selection.PasteFormat
PegarImagenBotón PasteButtonImage	CommandBars(name).Controls(1).PasteFace
PermitirCampoFormulario EnableFormField	ActiveDocument.FormFields(1).Enabled = True
Picture Picture	Image control
PonerDatosEnCampo PutFieldData	ActiveDocument.Fields(1).Data = text
PosiciónFuenteNormal NormalFontPosition	Selection.Font.Position = 0
PrincipioDeColumna, PrincipioDeColumna() StartOfColumn, StartOfColumn()	Selection.StartOf Unit:=wdColumn, Extend:=wdMove
PrincipioDeDocumento, PrincipioDeDocumento() StartOfDocument, StartOfDocument()	Selection.HomeKey Unit:=wdStory, Extend:=wdMove
PrincipioDeFila, PrincipioDeFila() StartOfRow, StartOfRow()	Selection.StartOf Unit:=wdRow, Extend:=wdMove
PrincipioDeLínea, PrincipioDeLínea() StartOfLine, StartOfLine()	Selection.HomeKey Unit:=wdLine, Extend:=wdMove
PrincipioDeVentana, PrincipioDeVentana() StartOfWindow, StartOfWindow()	Application.Run MacroName:="StartOfWindow"
PrincipioFraseAnterior 1,1 SentLeft 1,1	Selection.Sentences(1).Previous(Unit:=wdSentence, Count:=1).Select
PrincipioFraseSiguiente 1, 1 SentRight 1, 1	Selection.Sentences(1).Next(Unit:=wdSentence, Count:=1).Select
Print Print	Print Print
PropiedadDoc FileProperties	WordBasic.FileProperties
PropiedadDocumentoExiste() DocumentPropertyExists()	' enumera las diferentes propiedades de documento For Each aProp In ActiveDocument.CustomDocumentProperties     If aProp.Name = name Then itExists = True Next aProp
PropiedadDocumentoNombre$() DocumentPropertyName$()	x = ActiveDocument.CustomDocumentProperties(num).Name ' o x = ActiveDocument.BuiltInDocumentProperties(num).Name
PropiedadDocumentoTipo() DocumentPropertyType()	x = ActiveDocument.CustomDocumentProperties(name).Type
PushButton PushButton	CommandButton control
Q
QuitarElementoDesplegable RemoveDropDownItem	ActiveDocument.FormFields(1).DropDown.ListEntries(1).Delete
QuitarElementosDesplegables RemoveAllDropDownItems	ActiveDocument.FormFields(1).DropDown.ListEntries.Clear
QuitarMarco RemoveFrames	Selection.Frames(1).Delete
QuitarSangría UnIndent	Selection.Paragraphs.TabIndent Count:=-1
QuitarSangríaFrancesa UnHang	ActiveDocument.Paragraphs(1).TabHangingIndent Count:=-1
QuitarSubdocumento RemoveSubdocument	ActiveDoucment.Subdocuments(1).Delete
QuitarViñetasNúmeros RemoveBulletsNumbers	Selection.Range.ListFormat.RemoveNumbers


Equivalentes de Visual Basic para comandos de WordBasic R
Equivalentes de Visual Basic para comandos de WordBasic

R
Read	Open
RedibujarPantalla ScreenRefresh	Application.ScreenRefresh
Redim	ReDim
Regresar GoBack	Application.GoBack
REM	REM
RepetirBuscar RepeatFind	Application.Run MacroName:="RepeatFind"
RestablecerImagenBotón ResetButtonImage	CommandBars(name).Controls(1).Reset
Right$() Right$()	Right() o Right$()
RmDir nombre	RmDir path
Rnd(número) Rnd(number)	Rnd(number)
RTrim$() RTrim$()	RTrim() o RTrim$()
RutaDeLaRutaMac$() PathFromMacPath$()	x = WordBasic.[PathFromMacPath$](path)
RutaDeLaRutaWin$() PathFromWinPath$()	x = WordBasic.[PathFromWinPath$](path)


Equivalentes de Visual Basic para comandos de WordBasic S
Equivalentes de Visual Basic para comandos de WordBasic

S
SalirWindows ExitWindows	Tasks.ExitWindows
SaltarNumeración, SaltarNumeración() SkipNumbering, SkipNumbering()	Selection.Range.ListFormat.RemoveNumbers
SaltoDePáginaAntes, SaltoDePáginaAntes() ParaPageBreakBefore, ParaPageBreakBefore()	ActiveDocument.Paragraphs(1).PageBreakBefore = True x = ActiveDocument.Paragraphs(1).PageBreakBefore
Sangría Indent	ActiveDocument.Paragraphs(1).TabIndent
SangríaFrancesa HangingIndent	ActiveDocument.Paragraphs(1).TabHangingIndent
Seek NúmeroArchivo, Cuenta Seek filenumber, position Seek(NúmeroArchivo) Seek(filenumber)	Seek[#]filenumber,position Seek(filenumber)
Segundo(time) Second(time)	Second(time)
SelecAlineaciónActual SelectCurAlignment	Selection.SelectCurrentAlignment
Selección$() Selection$()	text = Selection.Text
SeleccionarColumna ColumnSelect	Selection.ColumnSelectMode = True
SelecciónNombreArchivo$() SelectionFileName$()	aFileName = Selection.Document.FullName
SelecColorActual SelectCurColor	Selection.SelectCurrentColor
SelecEspacioActual SelectCurSpacing	Selection.SelectCurrentSpacing
SelecFraseActual SelectCurSentence	Selection.Sentences(1).Select
SelecFuenteActual SelectCurFont	Selection.SelectCurrentFont
SelecPalabraActual SelectCurWord	Selection.Words(1).Select
SelecSangríaActual SelectCurIndent	Selection.SelectCurrentIndent
Select Case Select Case	Select Case
SelecTabsActuales SelectCurTabs	Selection.SelectCurrentTabs
SelecTamañoFuente FontSizeSelect	Application.Run MacroName:="FontSizeSelect"
SendKeys teclas, espera SendKeys keys, wait	SendKeys keys, wait
Sentencias y funciones de objetos de dibujo Drawing object statements and functions	Utilice las propiedades y los métodos de los objetos siguientes: Shape, Shapes y ShapeRange.
SeparadorDeCampo, SeparadorDeCampo$() FieldSeparator$	Application.DefaultTableSeparator
SerieFecha() DateSerial()	DateSerial
SerieHora() TimeSerial()	TimeSerial
Sgn()	Sgn()
Shell Shell	Shell
Sobrescribir, Sobrescribir() Overtype	Options.Overtype = True
Sombra, Sombra() Shadow, Shadow()	Selection.Font.Shadow = True x = Selection.Font.Shadow
Stop Stop	Stop
Str$(número) Str$(number)	Str(number) Str$(number)
String$(cuenta, CódigoCar) String$(count, character)	String(count, character) String$(count, character)
Sub...End Sub Sub...End Sub	Sub...End Sub
Subíndice, Subíndice() Subscript, Subscript()	Selection.Font.Subscript = True x = Selection.Font.Subscript
SubrayadoDoble, SubrayadoDoble() DoubleUnderline, DoubleUnderline()	Selection.Font.UnderLine = wdUnderlineDouble x = Selection.Font.UnderLine
SubrayadoPalabras, SubrayadoPalabras() WordUnderline, WordUnderline()	Selection.Range.Underline = wdUnderlineWords status = Selection.Range.Underline
SubrayadoPunteado, SubrayadoPunteado() DottedUnderline, DottedUnderline()	Selection.Font.UnderLine= wdUnderlineDotted x = Selection.Font.UnderLine
Subrayar, Subrayar() Underline, Underline()	ActiveDocument.Words(1).Underline = True status = Selection.Font.Underline
Superíndice, Superíndice() Superscript, Superscript()	Selection.Font.Superscript = True x = Selection.Font.Superscript
SustituciónDeFuentes FontSubstitution	Application.SubstituteFont


Equivalentes de Visual Basic para comandos de WordBasic T
Equivalentes de Visual Basic para comandos de WordBasic

T
TabAnterior() PrevTab()	x = ActiveDocument.Paragraphs(1).TabStops(1).Previous.Position
TablaActualizarAutoformato TableUpdateAutoFormat	Selection.Tables(1).UpdateAutoFormat
TablaAltoDeFila EstiloRegla, InterlineadoRegla, Interlineado, SangríaIzquierda, Alineación, PermitirDividirFila TableRowHeight RulerStyle, LineSpacingRule, LineSpacing, LeftIndent, Alignment, AllowRowSplit TablaAltoDeFila ColumnaSiguiente TableRowHeight NextColumn TablaAltoDeFila ColumnaAnterior TableRowHeight PrevColumn	With ActiveDocument.Tables(num).Rows(num)     .SetHeight RowHeight:= num, HeightRule:=WdRowHeightRule     .Alignment = WdRowAlignment     .SetLeftIndent LeftIndent:=num, RulerStyle:=WdRulerStyle     .AllowBreakAcrossPages = True End With Selection.Rows(1).Next.Select Selection.Rows(1).Previous.Select
TablaAnchoColumna AnchoDeColumna, EstiloRegla TableColumnWidth ColumnWidth, RulerStyle TablaAnchoColumna AutoAjuste TableColumnWidth AutoFit TablaAnchoColumna ColumnaSiguiente TableColumnWidth NextColumn TablaAnchoColumna ColumnaAnterior TableColumnWidth PrevColumn TablaAnchoColumna EspacioEntreColumnas TableColumnWidth SpaceBetweenCols	ActiveDocument.Tables(1).Columns.SetWidth ColumnWidth:=num, Rulerstyle:=wdRulerStyle ActiveDocument.Tables(1).Columns.AutoFit Selection.Columns(1).Next.Select Selection.Columns(1).Previous.Select ActiveDocument.Tables(1).Rows.SpaceBetweenColumns = num
TablaAutoformato TableAutoFormat	ActiveDocument.Tables(1).AutoFormat
TablaCuadrícula, TablaCuadrícula() TableGridlines, TableGridlines()	ActiveWindow.View.TableGridlines = True x = ActiveWindow.View.TableGridlines
TablaDividir TableSplit	Selection.Tables(1).Split
TablaDividirCeldas TableSplitCells	Selection.Tables(1).Cells(row, column).Split
TablaEliminarCelda MoverCeldas TableDeleteCells ShiftCells	ActiveDocument.Tables(1).Cell(row, column).Delete ShiftCells:=WdDeleteCells
TablaEliminarColumna TableDeleteColumn	ActiveDocument.Tables(1).Columns(num).Delete ' o ActiveDocument.Tables(1).Columns.Delete
TablaEliminarFila TableDeleteRow	ActiveDocument.Tables(1).Rows(num).Delete ' o ActiveDocument.Tables(1).Rows.Delete
TablaEnTexto TableToText	Selection.Tables(1).ConvertToText
TablaFórmula TableFormula	ActiveDocument.Tables(1).Cell(row, column).Formula
TablaInsertarCelda TableInsertCells	Selection.Tables(1).Columns(num).Cells.Add
TablaInsertarColumna TableInsertColumn	Selection.Tables(1).Columns.Add
TablaInsertarFila TableInsertRow	Selection.Tables(1).Rows.Add
TablaInsertarTabla NúmColumnas, NúmFilas TableInsertTable NumColumns, NumRows TablaInsertarTabla NúmColumnas, NúmFilas, Formato, Aplicar TableInsertTable NumColumns, NumRows, Format, Apply TablaInsertarTabla NúmColumnas, NúmFilas, ConvertirDe TableInsertTable NumColumns, NumRows, ConvertFrom	ActiveDocument.Tables.Add Range:=range, NumRows:=num, NumColumns:=num ActiveDocument.Tables.Add(Range:=range, NumRows:=num, NumColumns:=num).AutoFormat Selection.ConvertToTable Separator:=WdTableFieldSeparator, NumRows:=num, NumColumns:=num
TablaOrdenar TableSort	ActiveDocument.Tables(1).Sort
TablaOrdenarDeAAZ TableSortAToZ	ActiveDocument.Tables(1).SortAscending
TablaOrdenarDeZAA TableSortZToA	ActiveDocument.Tables(1).SortDescending
TablaSeleccionarColumna TableSelectColumn	Selection.Tables(1).Columns(num).Select
TablaSeleccionarFila TableSelectRow	Selection.Tables(1).Rows(num).Select
TablaSeleccionarTabla TableSelectTable	ActiveDocument.Tables(1).Select
TablaSumaAuto TableAutoSum	ActiveDocument.Tables(1).Cell(row, column).AutoSum
TablaTítulos, TablaTítulos() TableHeadings, TableHeadings()	Selection.Tables(1).Rows(num).HeadingFormat = True ' o Selection.Tables(1).Rows.HeadingFormat = True x = Selection.Tables(1).Rows.HeadingFormat
TablaUnirCeldas TableMergeCells	Selection.Cells.Merge
TabRelleno$(pos) TabLeader$(pos)	aType = Selection.Paragraphs(num).TabStops(pos).Leader
TabSiguiente() NextTab()	x = ActiveDocument.Paragraphs(1).TabStops(1).Next.Position
Tachado, Tachado() Strikethrough, Strikethrough()	Selection.Font.StrikeThrough = True
TamañoBarra name, ancho SizeToolbar name, width	CommandBars(name).Width = num
TamañoFuente, TamañoFuente() FontSize, FontSize()	Selection.Font.Size = num x = Selection.Font.Size
TeclaMacro$() KeyMacro$()	x = KeyBindings(1).Command
Text Text	Label control
TextBox TextBox	TextBox control
TextoDeMenú$() MenuText$()	x = CommandBars.ActiveMenuBar.Controls(num).Caption
TextoElementoMenú$() MenuItemText$()	x = CommandBars(name).Controls(num).Caption
TextoEnTabla TextToTable	Selection.ConvertToTable
Time$() Time$()	Time() ' o Time$()
TipoArchivo$() FileType$()	Sólo está disponible en la versión para Macintosh
TipoSelecc() SelType() TipoSelecc 1 SelType 1	aType = Selection.Type(Type) Selection.Collapse Direction:=wdCollapseStart
TipoTab() TabType()	x = Selection.ParagraphFormat.TabStops(1).Alignment
ToolsOptionsGrammar Opciones, RevisarOrtografía, MostrarEstadísticas ToolsOptionsGrammar Options, CheckSpelling, ShowStatistics	With Options     .CheckGrammarWithSpelling = True     .ShowReadabilityStatistics = True End With ActiveDocument.ActiveWritingStyle(language) = text


Equivalentes de Visual Basic para comandos de WordBasic U-V
Equivalentes de Visual Basic para comandos de WordBasic

U
UCase$(cadena) UCase$(string)	UCase(string) ' o UCase$(string)
UnirSubdocumento MergeSubdocument	ActiveDocument.Subdocuments.Merge
V
Val(text) Val(text)	Val(text)
ValorFecha() DateValue()	DateValue
ValorHora() TimeValue()	TimeValue
Ventana(núm) Window num	Window(num).Activate
VentanaAnterior PrevWindow	ActiveWindow.Previous.Activate
VentanaNuevaVentana WindowNewWindow	Windows.Add ' o ActiveWindow.NewWindow
VentanaOrganizarTodo WindowArrangeAll	Windows.Arrange ArrangeStyle:=wdTiled
VentanaSiguiente NextWindow	ActiveWindow.Next.Activate
VerAnotaciones, VerAnotaciones() ViewAnnotations	ActiveWindow.View.SplitSpecial = wdPaneComments
VerÁreaNotaFinal, VerÁreaNotaFinal() ViewEndnoteArea, ViewEndnoteArea()	ActiveWindow.View.SplitSpecial = wdPaneEndnotes x = ActiveWindow.View.SplitSpecial
VerÁreaNotaPie, VerÁreaNotaPie() ViewFootnoteArea, ViewFootnoteArea()	ActiveWindow.View.SplitSpecial = wdPaneFootnotes x = ActiveWindow.View.SplitSpecial
VerAvisoContNotaFinal ViewEndnoteContNotice	ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationNotice
VerAvisoContNotaPie ViewFootnoteContNotice	ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationNotice
VerBarraBordes ViewBorderToolbar	CommandBars("Borders").Visible = True
VerBarraDibujo ViewDrawingToolbar	CommandBars("Drawing").Visible = True
VerBarraEstado, VerBarraEstado() ViewStatusBar, ViewStatusBar()	Application.DisplayStatusBar = True x = Application.DisplayStatusBar
VerBarrasHerram BotonesAmpliados, Pistas, Restablecer, Eliminar, Mostrar ViewToolbars LargeButtons, ToolTips, ToolTipsKey, Reset, Delete, Show	With CommandBars     .LargeButtons = True     .DisplayToolTips = True     .DisplayKeysInToolTips = True End With CommandBars(name).Reset CommandBars(name).Delete CommandBars(name).Visible = True
VerBorrador, VerBorrador() ViewDraft, ViewDraft()	ActiveWindow.View.Draft = True x = ActiveWindow.View.Draft
VerCinta, VerCinta() ViewRibbon, ViewRibbon()	CommandBars("Formatting").Visible = True x = CommandBars("Formatting").Visible
VerCódigosDeCampo ViewFieldCodes	ActiveWindow.View.ShowFieldCodes = True
VerDocumentoMaestro, VerDocumentoMaestro() ViewMasterDocument, ViewMasterDocument()	ActiveWindow.View.Type = wdMasterView aView = ActiveWindow.View.Type
VerEncabezado, VerEncabezado() ViewHeader, ViewHeader()	ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader ' o With ActiveWindow.View     .Type = wdPageView     .SeekView = wdSeekCurrentPageHeader End With ' utilice la propiedad  StoryType para volver al panel activo aPane = Selection.StoryType
VerEsquema, VerEsquema() ViewOutline, ViewOutline()	Windows(1).View.Type =wdOutlineView x = Windows(1).View.Type
VerMenús() ViewMenus()	No disponible en Word 97
VerNormal, VerNormal() ViewNormal, ViewNormal()	ActiveWindow.View.Type =wdNormalView x = ActiveWindow.View.Type
VerNormalÁreaEncabezado Tipo, PrimeraPágina, PáginasParesEImpares, DistanciaEncabezado, DistanciaPieDePág NormalViewHeaderArea Type, FirstPage, OddAndEvenPages, HeaderDistance, FooterDistance	With ActiveDocument.PageSetup     .DifferentFirstPageHeaderFooter = True     .OddAndEvenPagesHeaderFooter = True     .HeaderDistance = num     .FooterDistance = num End With ActiveWindow.View.SeekView = WdSeekView
VerNotasAlPie, VerNotasAlPie() ViewFootnotes, ViewFootnotes()	If ActiveDocument.Footnotes.Count >= 1 Then     ActiveWindow.View.SplitSpecial = wdPaneFootnotes ElseIf ActiveDocument.Endnotes.Count >= 1 Then     ActiveWindow.View.SplitSpecial = wdPaneEndnotes End If ' Utilice la propiedad Information para determinar si la selección está en un panel de notas al pie o de notas al final x = Selection.Information(wdInFootnoteEndnotePane)
VerOcultarDocumentoMaestro ViewToggleMasterDocument	If ActiveWindow.View.Type = wdOutlineView Then     ActiveWindow.View.Type = wdMasterView ElseIf ActiveWindow.View.Type = wdMasterView Then     ActiveWindow.View.Type = wdOutlineView End If
VerPágina, VerPágina() ViewPage, ViewPage()	Windows(name).View.Type =wdPageView x = Windows(name).View.Type
VerPieDePágina, VerPieDePágina() ViewFooter, ViewFooter()	ActiveWindow.View.SplitSpecial = wdPaneCurrentPageFooter ' o With ActiveWindow.View     .Type = wdPageView     .SeekView = wdSeekCurrentPageFooter End With ' utilice la propiedad StoryType para volver al panel activo aPane = Selection.StoryType
VerRegla, VerRegla() ViewRuler, ViewRuler()	ActiveWindow.DisplayRulers = True x = ActiveWindow.DisplayRulers
Versales, Versales() SmallCaps, SmallCaps()	Selection.Font.SmallCaps = True
VerSeparadorContNotaFinal ViewEndnoteContSeparator	ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
VerSeparadorContNotaPie ViewFootnoteContSeparator	ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
VerSeparadorNotaFinal ViewEndnoteSeparator	ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
VerSeparadorNotaPie ViewFootnoteSeparator	ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
VerZoom Autoajuste ViewZoom AutoFit VerZoom DosPáginas ViewZoom TwoPages VerZoom TodaLaPágina ViewZoom FullPage VerZoom NúmColumnas, NúmFilas ViewZoom NumColumns, NumRows VerZoom PorcentajeZoom ViewZoom ZoomPercent	Windows(name).View.Zoom.PageFit = wdPageFitBestFit With ActiveWindow.View.Zoom     .PageColumns = 2     .PageRows = 1 End With ActiveWindow.View.Zoom.PageFit = wdPageFitFullPage With ActiveWindow.View.Zoom     .PageColumns = num     .PageRows = num End With ActiveWindow.View.Zoom.Percentage = num
VerZoom100 ViewZoom100	Windows(1).View.Zoom.Percentage = 100
VerZoom200 ViewZoom200	ActiveWindow.View.Zoom.Percentage = 200
VerZoom75 ViewZoom75	ActiveWindow.View.Zoom.Percentage = 75
VerZoomAnchoPágina ViewZoomPageWidth	Windows(name).View.Zoom.PageFit = wdPageFitBestFit
VerZoomTodaLaPágina ViewZoomWholePage	ActiveWindow.View.Zoom.PageFit = wdPageFitFullPage


Equivalentes de Visual Basic para comandos de WordBasic W-Y
Equivalentes de Visual Basic para comandos de WordBasic

W
Weekday(date)	Weekday(date)
While...Wend While...Wend	While...Wend
WinADOS$() WinToDOS$()	x = WordBasic.[WinToDOS$](StringToTranslate)
Write Write	Write


Listas de argumentos de cuadros de diálogo integrados

Muchos de los cuadros de diálogo integrados de Word tienen argumentos que puede utilizar para establecer u obtener valores desde un diálogo. Para obtener más información, consulte Mostrar cuadros de diálogo integrados de Word.

Constante WdWordDialog	Lista de argumentos
wdDialogConnect	Drive, Path, Password
wdDialogControlRun	Application
wdDialogConvertObject	IconNumber, ActivateAs, IconFileName, Caption, Class, DisplayIcon, Floating
wdDialogCopyFile	FileName, Directory
wdDialogDocumentStatistics	FileName, Directory, Template, Title, Created, LastSaved, LastSavedBy, Revision, Time, Printed, Pages, Words, Characters, Paragraphs, Lines, FileSize
wdDialogDrawAlign	Horizontal, Vertical, RelativeTo
wdDialogDrawSnapToGrid	SnapToGrid, XGrid, YGrid, XOrigin, YOrigin, SnapToShapes
wdDialogEditAutoText	Name, Context, InsertAs, Insert, Add, Define, InsertAsText, Delete, CompleteAT
wdDialogEditAutoText	Name, Context, InsertAs, Insert, Add, Define, InsertAsText, Delete, CompleteAT
wdDialogEditFind	Replace, Direction, MatchCase, WholeWord, PatternMatch, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, MatchByte, FuzzyFind, Destination
wdDialogEditGoTo	Destination
wdDialogEditGoTo	Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, MatchByte, FuzzyFind, Destination
wdDialogEditLinks	UpdateMode, Locked, SavePictureInDoc, UpdateNow, OpenSource, KillLink, Link, Application, Item, FileName
wdDialogEditObject	Verb
wdDialogEditPasteSpecial	IconNumber, Link, DisplayIcon, Class, DataType, IconFileName, Caption, Floating
wdDialogEditReplace	Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, MatchByte, FuzzyFind, Destination
wdDialogEditTOACategory	Category, CategoryName
wdDialogFileFind	SearchName, SearchPath, Name, SubDir, Title, Author, Keywords, Subject, Options, MatchCase, Text, PatternMatch, DateSavedFrom, DateSavedTo, SavedBy, DateCreatedFrom, DateCreatedTo, View, SortBy, ListBy, SelectedFile, Add, Delete, ShowFolders, MatchByte
wdDialogFileNew	Template, NewTemplate
wdDialogFileOpen	Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format
wdDialogFilePageSetup	Tab, PaperSize, TopMargin, BottomMargin, LeftMargin, RightMargin, Gutter, PageWidth, PageHeight, Orientation, FirstPage, OtherPages, VertAlign, ApplyPropsTo, Default, FacingPages, HeaderDistance, FooterDistance, SectionStart, OddAndEvenPages, DifferentFirstPage, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode, TwoOnOne, GutterPosition, CharsLine, LinesPage, LinePitch, CharPitch, DocFontName, DocFontSize, PageColumns, TextFlow, FirstPageOnLeft
wdDialogFilePrint	Background, AppendPrFile, Range, PrToFileName, From, To, Type, NumCopies, Pages, Order, PrintToFile, Collate, FileName, Printer, OutputPrinter, DuplexPrint
wdDialogFilePrintSetup	Printer, Options, Network, DoNotSetAsSysDefault
wdDialogFileRoutingSlip	Subject, Message, AllAtOnce, ReturnWhenDone, TrackStatus, Protect, AddSlip, RouteDocument, AddRecipient, OldRecipient, ResetSlip, ClearSlip, ClearRecipients, Address
wdDialogFileSaveAs	Name, Format, LockAnnot, Password, AddToMru, WritePassword, RecommendReadOnly, EmbedFonts, NativePictureFormat, FormsData, SaveAsAOCELetter, WriteVersion, VersionDesc
wdDialogFileSummaryInfo	Title, Subject, Author, Keywords, Comments, FileName, Directory, Template, CreateDate, LastSavedDate, LastSavedBy, RevisionNumber, EditTime, LastPrintedDate, NumPages, NumWords, NumChars, NumParas, NumLines, Update, FileSize
wdDialogFileVersions	AutoVersion, VersionDesc
wdDialogFontSubstitution	UnavailableFont, SubstituteFont
wdDialogFormatAddrFonts	Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid
wdDialogFormatBordersAndShading	ApplyTo, Shadow, TopBorder, LeftBorder, BottomBorder, RightBorder, HorizBorder, VertBorder, TopColor, LeftColor, BottomColor, RightColor, HorizColor, VertColor, FromText, Shading, Foreground, Background, Tab, FineShading, TopStyle, LeftStyle, BottomStyle, RightStyle, HorizStyle, VertStyle, TopWeight, LeftWeight, BottomWeight, RightWeight, HorizWeight, VertWeight, BorderObjectType, BorderArtWeight, BorderArt, FromTextTop, FromTextBottom, FromTextLeft, FromTextRight, OffsetFrom, WhichPages, InFront, SurroundHeader, SurroundFooter, JoinBorder
wdDialogFormatCallout	Type, Gap, Angle, Drop, Length, Border, AutoAttach, Accent
wdDialogFormatChangeCase	Type
wdDialogFormatColumns	Columns, ColumnNo, ColumnWidth, ColumnSpacing, EvenlySpaced, ApplyColsTo, ColLine, StartNewCol
wdDialogFormatDrawingObject Use the DefaultTab property to control which tab is displayed	Left, PositionHorzRel, Top, PositionVertRel, LockAnchor, FloatOverText, Wrap, WrapSide, TopDistanceFromText, BottomDistanceFromText, LeftDistanceFromText, RightDistanceFromText
wdDialogFormatDropCap	Position, Font, DropHeight, DistFromText
wdDialogFormatFont	Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid
wdDialogFormatFrame	Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame
wdDialogFormatPageNumber	ChapterNumber, NumRestart, NumFormat, StartingNum, Level, Separator
wdDialogFormatParagraph	LeftIndent, RightIndent, Before, After, LineSpacingRule, LineSpacing, Alignment, WidowControl, KeepWithNext, KeepTogether, PageBreak, NoLineNum, DontHyphen, Tab, FirstIndent, OutlineLevel
wdDialogFormatPicture	SetSize, CropLeft, CropRight, CropTop, CropBottom, ScaleX, ScaleY, SizeX, SizeY
wdDialogFormatRetAddrFonts	Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid
wdDialogFormatSectionLayout	SectionStart, VertAlign, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode
wdDialogFormatStyle	Name, Delete, Merge, NewName, BasedOn, NextStyle, Type, FileName, Source, AddToTemplate, Define, Rename, Apply, New
wdDialogFormatStyleGallery	Template, Preview
wdDialogFormatTabs	Position, DefTabs, Align, Leader, Set, Clear, ClearAll
wdDialogFormFieldOptions	Entry, Exit, Name, Enable, TextType, TextWidth, TextDefault, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText, Calculate
wdDialogHelpWordPerfectHelp	WPCommand, HelpText, DemoGuidance
wdDialogHelpWordPerfectHelpOptions	CommandKeyHelp, DocNavKeys, MouseSimulation, DemoGuidance, DemoSpeed, HelpType
wdDialogInsertAddCaption	Name
wdDialogInsertAutoCaption	Clear, ClearAll, Object, Label, Position
wdDialogInsertBookmark	Name, SortBy, Add, Delete, Goto, Hidden
wdDialogInsertBreak	Type
wdDialogInsertCaption	Label, TitleAutoText, Title, Delete, Position, AutoCaption
wdDialogInsertCaptionNumbering	Label, FormatNumber, ChapterNumber, Level, Separator
wdDialogInsertCrossReference	ReferenceType, ReferenceKind, ReferenceItem, InsertAsHyperLink, InsertPosition
wdDialogInsertDatabase	Format, Style, LinkToSource, Connection, SQLStatement, SQLStatement1, PasswordDoc, PasswordDot, DataSource, From, To, IncludeFields, WritePasswordDoc, WritePasswordDot
wdDialogInsertDateTime	DateTimePic, DbCharField, InsertAsField
wdDialogInsertField	Field
wdDialogInsertFile	Name, Range, ConfirmConversions, Link, Attachment
wdDialogInsertFootnote	Reference, NoteType, Symbol
wdDialogInsertFootnote	Reference, NoteType, Symbol
wdDialogInsertFormField	Entry, Exit, Name, Enable, TextType, TextWidth, TextDefault, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText, Calculate
wdDialogInsertIndex	Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader
wdDialogInsertIndexAndTables	Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader
wdDialogInsertMergeField	MergeField, WordField
wdDialogInsertObject	IconNumber, FileName, Link, DisplayIcon, Tab, Class, IconFileName, Caption, Floating
wdDialogInsertPageNumbers	Type, Position, FirstPage
wdDialogInsertPicture	Name, LinkToFile, New, FloatOverText
wdDialogInsertSubdocument	Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format
wdDialogInsertSymbol	Font, Tab, CharNum, Unicode
wdDialogInsertTableOfContents	Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader
wdDialogInsertTableOfContents	Source, From, To, Replace
wdDialogInsertTableOfFigures	Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader
wdDialogLetterWizard	DateFormat, IncludeHeaderFooter, LetterStyle, Letterhead, LetterheadLocation, LetterheadSize, RecipientName, RecipientAddress, Salutation, SalutationType, RecipientReference, MailingInstructions, AttentionLine, LetterSubject, CCList, SenderName, ReturnAddress, Closing, SenderJobTitle, SenderCompany, SenderInitials, EnclosureNumber, InfoBlock, RecipientCode, RecipientGender, ReturnAddressSF, SenderCity, SenderCode, SenderGender, SenderReference, PageDesign
wdDialogListCommands	ListType
wdDialogMailMerge	CheckErrors, Destination, MergeRecords, From, To, Suppression, MailMerge, QueryOptions, MailSubject, MailAsAttachment, MailAddress
wdDialogMailMergeCheck	CheckErrors
wdDialogMailMergeCreateDataSource	FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeCreateDataSource	FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeCreateHeaderSource	FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeCreateHeaderSource	FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeFindRecord	Find, Field
wdDialogMailMergeHelper	Merge, Options
wdDialogMailMergeInsertAsk	Name, Prompt, DefaultBookmarkText, AskOnce
wdDialogMailMergeInsertFillIn	Prompt, DefaultFillInText, AskOnce
wdDialogMailMergeOpenDataSource	Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format
wdDialogMailMergeOpenHeaderSource	Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format
wdDialogMailMergeQueryOptions	SQLStatement, SQLStatement1
wdDialogMailMergeUseAddressBook	AddressBookType
wdDialogMarkCitation	LongCitation, LongCitationAutoText, Category, ShortCitation, NextCitation, Mark, MarkAll
wdDialogMarkIndexEntry	MarkAll, Entry, Range, Bold, Italic, CrossReference, EntryAutoText, CrossReferenceAutoText
wdDialogMarkIndexEntry	Entry, EntryAutoText, TableId, Level
wdDialogNewToolbar	Name, Context
wdDialogNoteOptions	FootnotesAt, StartingNum, RestartNum, Separator, ContSeparator, ContNotice
wdDialogNoteOptions	FootnotesAt, FootNumberAs, FootStartingNum, FootRestartNum, EndnotesAt, EndNumberAs, EndStartingNum, EndRestartNum
wdDialogOrganizer	Copy, Delete, Rename, Source, Destination, Name, NewName, Tab
wdDialogTableAutoFormat	HideAutoFit, Preview, Format, Borders, Shading, Font, Color, AutoFit, HeadingRows, FirstColumn, LastRow, LastColumn
wdDialogTableDeleteCells	ShiftCells
wdDialogTableFormatCell	Category
wdDialogTableFormula	Formula, NumFormat
wdDialogTableInsertCells	ShiftCells
wdDialogTableInsertRows	NumRows
wdDialogTableInsertTable	ConvertFrom, NumColumns, NumRows, InitialColWidth, Wizard, Format, Apply
wdDialogTableSort	DontSortHdr, FieldNum, Type, Order, FieldNum2, Type2, Order2, FieldNum3, Type3, Order3, Separator, SortColumn, CaseSensitive, Language
wdDialogTableSplitCells	NumColumns, NumRows, MergeBeforeSplit
wdDialogTableToText	ConvertTo
wdDialogTextToTable	ConvertFrom, NumColumns, NumRows, InitialColWidth, Wizard, Format, Apply
wdDialogToolsAcceptRejectChanges	ShowMarks, HideMarks, Wrap, FindPrevious, FindNext, AcceptRevisions, RejectRevisions, AcceptAll, RejectAll
wdDialogToolsAdvancedSettings	Application, Option, Setting, Delete, Set
wdDialogToolsAutoCorrect	InitialCaps, SentenceCaps, Days, CapsLock, ReplaceText, Formatting, Replace, With, Add, Delete, SmartQuotes, ConvBrackets, ConvQuotes, ConvPunct
wdDialogToolsAutoCorrectExceptions	Tab, Name, AutoAdd, Add, Delete
wdDialogToolsAutoSummarize	TextSize, Show, Update
wdDialogToolsBulletsNumbers	Replace, Font, CharNum, Type, FormatOutline, AutoUpdate, FormatNumber, Punctuation, StartAt, Points, Hang, Indent, Remove
wdDialogToolsCompareDocuments	Name
wdDialogToolsCreateEnvelope	ExtractAddress, LabelListIndex, LabelIndex, LabelDotMatrix, LabelTray, LabelAcross, LabelDown, EnvAddress, EnvOmitReturn, EnvReturn, SingleLabel, LabelRow, LabelColumn, PrintEnvLabel, AddToDocument, EnvWidth, EnvHeight, EnvPaperSize, UseEnvFeeder, Tab, AddrAutoText, AddrText, AddrFromLeft, AddrFromTop, RetAddrFromLeft, RetAddrFromTop, LabelTopMargin, LabelSideMargin, LabelVertPitch, LabelHorPitch, LabelHeight, LabelWidth, CustomName, RetAddrText, EnvPaperName, DefaultFaceUp, DefaultOrientation, RetAddrAutoText
wdDialogToolsCreateLabels	ExtractAddress, LabelListIndex, LabelIndex, LabelDotMatrix, LabelTray, LabelAcross, LabelDown, EnvAddress, EnvOmitReturn, EnvReturn, SingleLabel, LabelRow, LabelColumn, PrintEnvLabel, AddToDocument, EnvWidth, EnvHeight, EnvPaperSize, UseEnvFeeder, Tab, AddrAutoText, AddrText, AddrFromLeft, AddrFromTop, RetAddrFromLeft, RetAddrFromTop, LabelTopMargin, LabelSideMargin, LabelVertPitch, LabelHorPitch, LabelHeight, LabelWidth, CustomName, RetAddrText, EnvPaperName, DefaultFaceUp, DefaultOrientation, RetAddrAutoText
wdDialogToolsCustomize	KeyCode, KeyCode2, MenuType, Position, AddAll, Category, Name, Menu, AddBelow, MenuText, Rename, Add, Remove, ResetAll, CommandValue, Context, Tab
wdDialogToolsCustomize	KeyCode, KeyCode2, MenuType, Position, AddAll, Category, Name, Menu, AddBelow, MenuText, Rename, Add, Remove, ResetAll, CommandValue, Context, Tab
wdDialogToolsCustomizeKeyboard	KeyCode, KeyCode2, MenuType, Position, AddAll, Category, Name, Menu, AddBelow, MenuText, Rename, Add, Remove, ResetAll, CommandValue, Context, Tab
wdDialogToolsCustomizeMenuBar	Context, Position, MenuType, MenuText, Menu, Add, Remove, Rename
wdDialogToolsCustomizeMenus	KeyCode, KeyCode2, MenuType, Position, AddAll, Category, Name, Menu, AddBelow, MenuText, Rename, Add, Remove, ResetAll, CommandValue, Context, Tab
wdDialogToolsEnvelopesAndLabels	ExtractAddress, LabelListIndex, LabelIndex, LabelDotMatrix, LabelTray, LabelAcross, LabelDown, EnvAddress, EnvOmitReturn, EnvReturn, SingleLabel, LabelRow, LabelColumn, PrintEnvLabel, AddToDocument, EnvWidth, EnvHeight, EnvPaperSize, UseEnvFeeder, Tab, AddrAutoText, AddrText, AddrFromLeft, AddrFromTop, RetAddrFromLeft, RetAddrFromTop, LabelTopMargin, LabelSideMargin, LabelVertPitch, LabelHorPitch, LabelHeight, LabelWidth, CustomName, RetAddrText, EnvPaperName, DefaultFaceUp, DefaultOrientation, RetAddrAutoText
wdDialogToolsHyphenation	AutoHyphenation, HyphenateCaps, HyphenationZone, LimitConsecutiveHyphens
wdDialogToolsHyphenation	HyphenateCaps, Confirm, HotZone
wdDialogToolsLanguage	Language, Default
wdDialogToolsMacro	Name, Run, Edit, Show, Delete, Rename, Description, NewName, SetDesc
wdDialogToolsManageFields	FieldName, Add, Remove, Rename, NewName
wdDialogToolsMergeDocuments	Name
wdDialogToolsOptionPrint	Draft, Reverse, UpdateFields, Summary, ShowCodes, Annotations, ShowHidden, EnvFeederInstalled, WidowControl, DfltTrueType, UpdateLinks, Background, DrawingObjects, FormsData, DefaultTray, PSOverText, MapPaperSize, FractionalWidths, PrOrder1, PrOrder2
wdDialogToolsOptions	Tab
wdDialogToolsOptions Use the DefaultTab property to control which tab is displayed	Tab
wdDialogToolsOptionsAutoFormat	ShowOptionsFor, ApplyStylesHeadings, ApplyBorders, ApplyStylesLists, ApplyBulletedLists, ApplyNumberedLists, ApplyStylesOtherParas, ReplaceQuotes, ReplaceOrdinals, ReplaceFractions, ReplaceSymbols, ReplaceBullets, AdjustParaMarks, AdjustTabsSpaces, AdjustEmptyParas, PreserveStyles
wdDialogToolsOptionsCompatibility	Product, Default, NoTabHangIndent, NoSpaceRaiseLower, PrintColBlack, WrapTrailSpaces, NoColumnBalance, ConvMailMergeEsc, SuppressSpBfAfterPgBrk, SuppressTopSpacing, OrigWordTableRules, TransparentMetafiles, ShowBreaksInFrames, SwapBordersFacingPages, LeaveBackslashAlone, ExpandShiftReturn, DontULTrailSpace, DontBalanceSbDbWidth, SuppressTopSpacingMac5, SpacingInWholePoints, PrintBodyTextBeforeHeader, NoLeading, NoSpaceForUL, MWSmallCaps, NoExtraLineSpacing, TruncateFontHeight, SubFontBySize, UsePrinterMetrics, WW6BorderRules, ExactOnTop, SuppressBottomSpacing, WPSpaceWidth, WPJustification, LineWrapLikeWord6
wdDialogToolsOptionsEdit	ReplaceSelection, DragAndDrop, AutoWordSelection, InsForPaste, Overtype, SmartCutPaste, AllowAccentedUppercase, PictureEditor, TabIndent
wdDialogToolsOptionsFileLocations	Path, Setting
wdDialogToolsOptionsGeneral	TipWizardActive, Pagination, WPHelp, WPDocNavKeys, BlueScreen, ErrorBeeps, Effects3d, UpdateLinks, SendMailAttach, RecentFiles, RecentFileCount, Units, ButtonFieldClicks, AnimatedCursors, ConfirmConversions, VirusProtection, ShortMenuNames, RTFInClipboard
wdDialogToolsOptionsPrint	Draft, Reverse, UpdateFields, Summary, ShowCodes, Annotations, ShowHidden, EnvFeederInstalled, WidowControl, DfltTrueType, UpdateLinks, Background, DrawingObjects, FormsData, DefaultTray, PSOverText, MapPaperSize, FractionalWidths, PrOrder1, PrOrder2
wdDialogToolsOptionsSave	CreateBackup, FastSaves, SummaryPrompt, GlobalDotPrompt, NativePictureFormat, EmbedFonts, FormsData, AutoSave, SaveInterval, Password, WritePassword, RecommendReadOnly, SubsetFonts, BackgroundSave, DefaultSaveFormat
wdDialogToolsOptionsSpellingAndGrammar	AlwaysSuggest, SuggestFromMainDictOnly, IgnoreAllCaps, IgnoreMixedDigits, ResetIgnoreAll, Type, CustomDict1, CustomDict2, CustomDict3, CustomDict4, CustomDict5, CustomDict6, CustomDict7, CustomDict8, CustomDict9, CustomDict10, AutomaticSpellChecking, FilenamesEmailAliases, UserDict1, AutomaticGrammarChecking, ForegroundGrammar, ShowStatistics, Options, RecheckDocument, IgnoreAuxFind, IgnoreMissDictSearch, HideGrammarErrors, CheckSpelling, GrLidUI, SpLidUI, DictLang1, DictLang2, DictLang3, DictLang4, DictLang5, DictLang6, DictLang7, DictLang8, DictLang9, DictLang10, HideSpellingErrors
wdDialogToolsOptionsTrackChanges	InsertedTextMark, InsertedTextColor, DeletedTextMark, DeletedTextColor, RevisedLinesMark, RevisedLinesColor, HighlightColor, RevisedPropertiesMark, RevisedPropertiesColor
wdDialogToolsOptionsUserInfo	Name, Initials, Address
wdDialogToolsOptionsView	DraftFont, WrapToWindow, PicturePlaceHolders, FieldCodes, BookMarks, FieldShading, StatusBar, HScroll, VScroll, StyleAreaWidth, Tabs, Spaces, Paras, Hyphens, Hidden, ShowAll, Drawings, Anchors, TextBoundaries, VRuler, Highlight, ShowAnimation, ScrnTp, EnlargeFontsLessThan, BrowseToWindow, OptionalBreak
wdDialogToolsProtectDocument	DocumentPassword, NoReset, Type
wdDialogToolsProtectSection	Protect, Section
wdDialogToolsRevisions	MarkRevisions, ViewRevisions, PrintRevisions, AcceptAll, RejectAll
wdDialogToolsSpellingAndGrammar	ForegroundGrammar, SuggestionListBox
wdDialogToolsSpellingAndGrammar	ForegroundGrammar, SuggestionListBox
wdDialogToolsTemplates	Store, Template, LinkStyles
wdDialogToolsUnprotectDocument	DocumentPassword
wdDialogToolsWordCount	CountFootnotes, Pages, Words, Characters, CharactersIncludingSpaces, Paragraphs, Lines
wdDialogViewZoom	CustomZoomPercent, ZoomPercent, AutoFit, FullPage
wdDialogViewZoom	AutoFit, TwoPages, FullPage, NumColumns, NumRows, ZoomPercent
With Dialogs(wdDialogFormatBulletsAndNumbering)     .DefaultTab = wdDialogFormatBulletsAndNumberingTabBulleted     .Show End With	Points, Color, Before, Type, After, StartAt, Include, Alignment, Indent, Space, Hang, RestartNum, Level, CharNum, Font, StrikeThrough, Bold, Italic, Underline, Remove
With Dialogs(wdDialogFormatBulletsAndNumbering)     .DefaultTab = wdDialogFormatBulletsAndNumberingTabNumbered     .Show End With	Points, Color, Before, Type, After, StartAt, Include, Alignment, Indent, Space, Hang, RestartNum, Level, CharNum, Font, StrikeThrough, Bold, Italic, Underline, Remove
wdDialogMailMergeInsertIf	MergeField, Comparison, CompareTo, TrueAutoText, TrueText, FalseAutoText, FalseText
wdDialogMailMergeNextIf	MergeField, Comparison, CompareTo
wdDialogMailMergeInsertSet	Name, ValueText, ValueAutoText
wdDialogMailMergeInsertSkipIf	MergeField, Comparison, CompareTo
With Dialogs(wdDialogFormatBulletsAndNumbering)     .DefaultTab = wdDialogFormatBulletsAndNumberingTabOutlineNumbered     .Show End With	Points, Color, Before, Type, After, StartAt, Include, Alignment, Indent, Space, Hang, RestartNum, Level, CharNum, Font, StrikeThrough, Bold, Italic, Underline, Remove
With Dialogs(wdDialogFormatDrawingObject)     .DefaultTab = wdDialogFormatDrawingObjectTabWrapping     .Show End With	Left, PositionHorzRel, Top, PositionVertRel, LockAnchor, FloatOverText, Wrap, WrapSide, TopDistanceFromText, BottomDistanceFromText, LeftDistanceFromText, RightDistanceFromText
With Dialogs(wdDialogToolsAutoManager)     .DefaultTab = wdDialogToolsAutoManagerTabAutoFormatAsYouType     .Show End With	ApplyStylesHeadings, ApplyBorders, ApplyBulletedLists, ApplyNumberedLists, ApplyTables, ReplaceQuotes, ReplaceOrdinals, ReplaceFractions, ReplaceSymbols, ReplacePlainTextEmphasis, ReplaceHyperlinks, FormatListItemBeginning, DefineStyles, ApplyFirstIndent, ApplyDates, ApplyClosings, MatchParentheses, ReplaceDbDashes, ReplaceAutoSpaces, InsertClosings, AutoLetterWizard, InsertOvers, ShowOptionsFor, ApplyStylesLists, ApplySkipList, ApplyStylesOtherParas, ReplaceBullets, AdjustParaMarks, AdjustTabsSpaces, AdjustEmptyParas, PreserveStyles
With Dialogs(wdDialogToolsAutoManager)     .DefaultTab = wdDialogToolsAutoManagerTabAutoFormat     .Show End With	ApplyStylesHeadings, ApplyStylesLists, ApplyBulletedLists, ApplyStylesOtherParas, ReplaceQuotes, ReplaceOrdinals, ReplaceFractions, ReplaceSymbols, ReplacePlainTextEmphasis, ReplaceHyperlinks, PreserveStyles, PlainTextWordMail, ApplyFirstIndent, MatchParentheses, ReplaceDbDashes, ReplaceAutoSpaces


Mostrar cuadros de diálogo integrados de Word

Puede mostrar un cuadro de diálogo integrado para obtener la entrada de usuario o para controlar Word con Visual Basic. El método Show del objeto Dialog muestra y ejecuta cualquier acción emprendida en un cuadro de diálogo integrado de Word. Para obtener acceso a un cuadro de diálogo en particular de Word, especifique una constante WdWordDialog con la propiedad Dialogs. Por ejemplo, la siguiente instrucción de macro muestra el cuadro de diálogo Abrir (wdDialogFileOpen).

Dialogs(wdDialogFileOpen).Show

Si se selecciona un archivo y se hace clic en Aceptar, se abrirá el archivo; es decir, se ejecuta la acción. En el siguiente ejemplo, se muestra el cuadro de diálogo Imprimir (wdDialogFilePrint).

Dialogs(wdDialogFilePrint).Show

Establece la propiedad DefaultTab para obtener acceso a una tabulación concreta de un cuadro de diálogo de Word. En el siguiente ejemplo, se muestra la ficha Borde de página del cuadro de diálogo Bordes y sombreado (menú Formato).

With Dialogs(wdDialogFormatBordersAndShading)

    .DefaultTab = wdDialogFormatBordersAndShadingTabPageBorder

    .Show

End With

El método Display muestra un cuadro de diálogo sin ejecutar las acciones emprendidas en el cuadro de diálogo. Puede ser de utilidad si desea consultar al usuario con un cuadro de diálogo integrado y devolver los valores. Por ejemplo, la siguiente instrucción de macro muestra la ficha Información del usuario del cuadro de diálogo Opciones y, a continuación, devuelve y muestra el nombre del usuario.

With Dialogs(wdDialogToolsOptionsUserInfo)

    .Display

    MsgBox .Name

End With

Si se cambia el nombre del usuario del ejemplo anterior, el cambio no se establece en el cuadro de diálogo. Utilice el método Execute para ejecutar los valores de un cuadro de diálogo sin mostrar dicho cuadro. En el siguiente ejemplo, se muestra el cuadro de diálogo Información del usuario y, si el nombre no es una cadena vacía, se establecen los valores del cuadro de diálogo con el método Execute.

With Dialogs(wdDialogToolsOptionsUserInfo)

    .Display

    If .Name <> "" Then .Execute

End With

Devolver y cambiar los valores de los cuadros de diálogo

Antes de devolver o cambiar un valor del cuadro de diálogo, deberá identificar el cuadro de diálogo individual. Hágalo utilizando la propiedad Dialogs con una constante WdWordDialog. En el siguiente ejemplo, se devuelve un objeto Dialog que hace referencia al cuadro de diálogo Párrafo (menú Formato).

Set miDiálogo = Dialogs(wdDialogFormatParagraph)

Después de tener un objeto Dialog, puede devolver o establecer las opciones del cuadro de diálogo. En el siguiente ejemplo, se muestra la sangría derecha desde el cuadro de diálogo Párrafos.

Set miDiálogo = Dialogs(wdDialogFormatParagraph)

Msgbox "Sangría derecha = " & miDiálogo.RightIndent

Muchos de los cuadros de diálogo integrados de Word tienen argumentos que puede utilizar para establecer u obtener valores desde un cuadro de diálogo; por ejemplo, Sangría derecha en el ejemplo anterior. Para determinar los argumentos que se pueden utilizar, consulte Lista de argumentos de cuadros de diálogo integrados.

De la misma forma que puede devolver los valores del cuadro de diálogo, también puede establecerlos. En el siguiente ejemplo, se marca la casilla de verificación Conservar con el siguiente del cuadro de diálogo Párrafo.

With Dialogs(wdDialogFormatParagraph)

    .KeepWithNext = 1

    .Execute

End With

Se activa la casilla de verificación Conservar con el siguiente y el método Execute establece el valor de los valores modificados del cuadro de diálogo. Las siguientes instrucciones de Visual Basic corresponden al equivalente de las cuatro instrucciones del ejemplo anterior.

Selection.Paragraphs(1).KeepWithNext = True

No es muy aconsejable el uso de un objeto Dialog para cambiar un valor que pueda establecer con una propiedad o con un método.

Nota   Utilice el método Update para asegurarse de que los valores del cuadro de diálogo reflejen los valores actuales. Puede que sea necesario el uso del método Update si define una variable de cuadro de diálogo al principio de la macro y después desea devolver o cambiar los valores actuales.

Preestablecer los valores de los cuadros de diálogo

Los ejemplos anteriores han devuelto y establecido los valores de cuadro de diálogo sin mostrar el cuadro de diálogo. También puede cambiar los valores de un cuadro de diálogo integrado de Word antes de utilizar el método Show. Por ejemplo, puede cambiar el texto de búsqueda antes de mostrar el cuadro de diálogo Buscar y Reemplazar (menú Edición). En el siguiente ejemplo, se muestra el cuadro de diálogo Buscar y reemplazar con la palabra "Azul" preestablecida en el cuadro de diálogo Buscar.

With  Dialogs(wdDialogEditFind)

    .Find = "Azul"

    .Show

End With

En el siguiente ejemplo, se muestra el cuadro de diálogo Abrir con todos los nombres de los artchivos.

With Dialogs(wdDialogFileOpen)

    .Name = "*.*"

    .Show

End With

Comprobar cómo se cerró un cuadro de diálogo

El valor devuelto por los métodos Show y Display indica en qué botón se ha hecho clic para cerrar el cuadro de diálogo. En el siguiente ejemplo, se muestra el cuadro de diálogo Interrumpir y, si se ha hecho clic en Aceptar, un mensaje en la barra de estado.

If Dialogs(wdDialogInsertBreak).Show = -1 Then

    StatusBar = "Break inserted"

End If

Valor devuelto	Descripción
-2	Botón Cerrar.
-1	Botón Aceptar.
0 (cero)	Botón Cancelar.
> 0 (cero)	Botón de comando: 1 corresponde al primer botón, 2 al segundo, etc.


Asignar rangos

Hay varias formas de asignar un objeto Range existente a una variable. Este tema explica los resultados de dos técnicas distintas. En los siguientes ejemplos, las variables Intervalo1 e Intervalo2 hacen referencia a objetos Range. Por ejemplo, las instrucciones siguientes asignan las palabras primera y segunda del documento activo a las variables Intervalo1 e Intervalo2.

Set Rango1 = ActiveDocument.Words(1)

Set Rango2 = ActiveDocument.Words(2)

Establecer una variable de objeto Range igual a otra variable de objeto Range

La siguiente instrucción asigna una variable de intervalo denominada Intervalo2 para representar la misma posición que Intervalo1.

Set Rango2 = Rango1

Ya hay dos variables que representan al mismo intervalo. Cuando manipula el punto inicial y final o el texto de Intervalo2, afectará a Intervalo1 y viceversa.

Tenga en cuenta que la siguiente instrucción es la misma que Intervalo2.Text = Intervalo1.Text. Esta instrucción asigna la propiedad predeterminada de Intervalo1, la propiedad Text, a la propiedad predeterminada de Intervalo2. No cambia a lo que hagan referencia los objetos.

Rango2 = Rango1

Los intervalos (Intervalo2 e Intervalo1) tiene el mismo contenido, pero pueden señalar a distintas posiciones del documento o incluso a distintos documentos.

Uso de la propiedad Duplicate

La siguiente instrucción crea un objeto Range duplicado, Intervalo2, que tiene los mismos puntos de inicio y final y el mismo texto que Intervalo1.

Set Rango2 = Rango1.Duplicate

Si cambia el punto inicial o final de Intervalo1, no afectará a Intervalo2 y viceversa. Puesto que estos dos intervalos señalan a la misma posición en el documento, cambiar el texto de un intervalo afectará al texto del otro.


Grabar una macro para generar código

Si no está seguro de qué método o propiedad de Visual Basic usar, puede activar la grabadora de macros y realizar la acción manualmente. La grabadora de macros traduce las acciones en código de Visual Basic. Después de haber grabado las acciones, puede modificar el código para que haga exactamente lo que desee. Por ejemplo, si no sabe qué método o propiedad utilizar para aplicar sangría a un párrafo, siga los siguientes pasos:

1	En el menú Herramientas, señale Macro y, a continuación, haga clic en Grabar nueva macro.

2	Cambie el nombre de la macro predeterminada si lo desea y haga clic en Aceptar para iniciar la grabadora.

3	En el menú Formato, elija Párrafo.

4	Cambie el valor de la sangría del párrafo izquierdo y haga clic en Aceptar.

5	Haga clic en el botón Detener grabación de la barra de herramientas Detener grabación.

6	En el menú Herramientas, señale Macros y, a continuación, haga clic en Macro.

7	Seleccione el nombre de la macro del Paso 2 y haga clic en el botón Modificar.

Vea el código de Visual Basic para determinar la propiedad que corresponde a la sangría de párrafo izquierda; es decir, la propiedad LeftIndent. Coloque el punto de inserción dentro de SangríaIzquierda y presione la tecla F1 o haga clic en el botón Ayuda. En el tema, puede ver ejemplos y revisar los objetos que admiten la propiedad LeftIndent (haga clic en Se aplica a).

Nota  Las macros grabadas utilizan la propiedad Selection para devolver el objeto Selection. Por ejemplo, la siguiente instrucción aplica sangría a los párrafos seleccionados 0,2 cm.

Selection.ParagraphFormat.LeftIndent = InchesToPoints(0.2)

Sin embargo, puede modificar la macro grabada para que funcione con objetos Range. Para obtener información, consulte Revisar macros de Visual Basic grabadas.

Para conocer todos los pasos de la grabación de macros, consulte Grabar una macro en Word.


Uso de eventos con el objeto Application

Para crear un controlador de eventos para un evento del objeto Application, deberá concluir los tres pasos siguientes:

1	Declarar una variable de objeto de un módulo de clase para que responda a los eventos.

2	Escribir los procedimientos del evento específicos.

3	Inicializar el objeto declarado desde otro módulo.

Declarar la variable del objeto

Antes de poder escribir procedimientos para los eventos del objeto Application, deberá crear un nuevo módulo de clase y declarar un objeto del tipo Application con eventos. Por ejemplo, supongamos que se crea un nuevo módulo de clase y que se denomina EventClassModule. El nuevo módulo de clase contendrá el siguiente código.

Public WithEvents App As Word.Application

Escribir los procedimientos del evento

Después de haberse declarado el nuevo objeto con eventos, aparecerá en el cuadro de lista desplegable Objeto del módulo de clase y podrá escribir procedimientos de eventos para el nuevo objeto. Cuando seleccione el nuevo objeto en el cuadro Objeto, aparecerán los eventos válidos para dicho objeto en el cuadro de lista desplegable Procedimiento. Seleccione un evento del cuadro de lista desplegable Procedimiento; se agregará un procedimiento vacío al módulo de clase.

Private Sub App_DocumentChange()

End Sub

Iniciar el objeto declarado

Antes de que se ejecute el procedimiento, deberá conectar el objeto declarado del módulo de clase, App en este ejemplo, con el objeto Application. Puede hacerlo así con el siguiente código de cualquier módulo.

Dim X As New EventClassModule

Sub Register_Event_Handler()

    Set X.App = Word.Application

End Sub

Ejecute el procedimiento Register_Event_Handler. Después de ejecutar el procedimiento, el objeto App del módulo de clase señarlará al objeto Application de Word y se ejecutarán los procedimientos de los eventos del módulo de clase cuando éstos se produzcan.


Uso de eventos con el objeto Document

El objeto Document admite los tres eventos siguientes: Close, New y Open. Escriba procedimientos para responder a estos eventos en el módulo de clase denominado "ThisDocument". Siga los siguientes pasos para crear un procedimiento de evento.

1	Debajo del proyecto o del proyecto de documento Normal de la ventana Explorador del proyecto, haga doble clic en ThisDocument. En la vista Carpeta, ThisDocument está situdado en la carpeta Objetos de Microsoft Word.

2	Seleccione Documento del cuadro de lista desplegable Objecto.

3	Seleccione un evento del cuadro de lista desplegable Procedimiento.

Se agregará una subrutina vacía al módulo de clase.

4	Agregue las instrucciones de Visual Basic que desee que se ejecuten cuando se produzca el evento.

En el siguiente ejemplo, se muestra un procedimiento de evento New en el proyecto Normal que se ejecutará cuando se cree un nuevo documento basado en la plantilla Normal.

Private Sub Document_New()

    MsgBox "Se ha creado un nuevo documento"

End Sub

En el siguiente ejemplo, se muestra un procedimiento de evento Close de un proyecto de documento que sólo se ejecutará cuando se cierre dicho documento.

Private Sub Document_Close()

    MsgBox "Cerrando el documento"

End Sub

A diferencia de las macros automáticas, los procedimientos de eventos de la plantilla Normal no tienen ámbito global. Por ejemplo, los procedimientos de eventos de la plantilla Normal sólo se producen si la plantilla adjunta es la plantilla Normal.

Si existe una macro automática o complemento en un documento y en la plantilla adjunta, sólo se ejecutará la macro automática o complemento guardada en el documento. Si existe un procedimiento de evento para un evento Documento en un documento y en su plantilla adjunta, se ejecutarán ambos procedimientos.

Nota   Para obtener información acerca de la creación de procedimientos de eventos del objeto Application, consulte Uso de eventos con el objeto Application.


Macros automáticas

Al asignar a la macro un nombre especial, podrá ejecutarla automáticamente cuando ejecute una operación como iniciar Word o abrir un documento. Word reconoce los siguientes nombres como macros automáticas o complementos.

Nombre de la macro	Se ejecuta
AutoExec	Cuando inicie Word o cargue una plantilla global
AutoNew	Cada vez que cree un nuevo documento
AutoOpen	Cada vez que abra un documento existente
AutoClose	Cada vez que cierre un documento
AutoExit	Cuando salga de Word o descargue una plantilla global
Se reconocen las macros automáticas o complementos de los módulos de código si es verdadera cualquiera de las siguientes condiciones.

•	Al módulo se le asigna el nombre según el de la macro automática o complemento, por ejemplo: AutoExec, y contiene un procedimiento denominado "Principal".

•	Se asigna el nombre de un procedimiento de cualquier módulo según el de la macro automática o complemento.

Al igual que el resto de las macros, las macros automáticas o complementos pueden guardarse en la plantilla Normal, en otra plantilla o en un documento. La única excepción es la macro AutoExec, que no se ejecutará automáticamente a menos que se guarde en la plantilla Normal o en una plantilla global guardada en la carpeta especificada como la carpeta Inicio.

En caso de que se produzca un conflicto de nombres; es decir, que haya varias macros automáticas o complementos con el mismo nombre, Word ejecutará la macro automática o complemento guardada en el contexto más cercano. Por ejemplo, si crea una macro AutoClose en un documento y en la plantilla adjunta, sólo se ejecutará la macro automática o complemento guardada en el documento. Si crea una macro AutoNew en la plantilla normal, se ejecutará si no existe ninguna macro denominada AutoNew ni en el documento ni en la plantilla adjunta.

Nota   Puede mantener presionada la tecla MAYÚS para evitar que se ejecuten macros automáticas o complementos. Por ejemplo, si crea un documento basado en una plantilla que contenga una macro AutoNew, puede evitar que se ejecute AutoNew manteniendo presionada la tecla MAYÚS cuando haga clic en el comando Aceptar del cuadro de diálogo Nuevo (menú Archivo) y continuando manteniéndola presionada hasta que aparezca el nuevo documento. En una macro que pueda disparar una macro automática o complemento, puede utilizar la siguiente instrucción para evitar que se ejecuten las macros automáticas o complementos.

WordBasic.DisableAutoMacros


Marcadores predefinidos

Word establece y actualiza automáticamente muchos marcadores reservados. Puede utilizar los como usa los que coloca en los documentos, salvo que no tiene que establecerlos y que no aparecen en la ficha Ir a del cuadro de diálogo Buscar y reemplazar (menú Edición).

Puede utilizar los marcadores predefinidos con la propiedad Bookmarks. En el siguiente ejemplo, se establece el marcador denominado ""parraact" en la posición marcada por el marcador predefinido denominado "\Parra".

ActiveDocument.Bookmarks("\Parra").Copy "parraact"

En la siguiente tabla se describen los marcadores predefinidos disponibles en Word.

Marcador	Descripción
\Sel	Selección actual o punto de inserción.
\SelPrev1	Selección más reciente cuando se produjo la modificación; ir a este marcador es equivalente a ejecutar el método GoBack una vez.
\SelPrev2	Segunda selección más reciente cuando se produjo la modificación; ir a este marcador es equivalente a ejecutar el método GoBack dos veces.
\InicioDeSel	Inicio de la selección actual.
\FinDeSel	Final de la selección actual.
\Línea	Línea actual o primera línea de la selección actual. Si el punto de inserción está al final de una línea que no sea la última del párrafo, el marcador incluirá la siguiente línea completa.
\Car	Carácter actual, el carácter a continuación del siguiente punto de inserción si no hay selección o el primero de la selección.
\Parra	Párrafo actual, el que contiene el punto de inserción o, si hay varios párrafos seleccionados, el primero de la selección. Observe que si el punto de inserción o la selección está en el último párrafo del documentoel marcador "\Parra" no incluirá la marca de párrafo.
\Sección	Sección actual, incluido el salto al final de la selección, si la hay. La sección actual contiene el punto de inserción o la selección. Si la selección contiene varias secciones, el marcador "\Sección" es la primera sección de la selección.
\Doc	Contenido completo del documento activo, con la excepción de la marca de fin de párrafo.
\Página	Página actual, incluido el salto al final de la página, si la hay. La página actual contiene el punto de inserción. Si la selección actual contiene varias páginas, el marcador "\Página" corresponde a la primera página de la selección. Observe que si el punto de inserción o la selección está en la última página del documento, el marcador "\Para" no incluirá la marca de fin de párrafo.
\InicioDeDoc	Principio del documento.
\FinDeDoc	Final del documento.
\Celda	Celda actual de una tabla, la que contiene el punto de inserción. Si se incluyen una o varias celdas de una tabla en la selección actual, el marcador "\Celda" estará en la primera celda de la selección.
\Tabla	Tabla actual, la tabla que contiene el punto de inserción o la selección. Si la selección incluye varias tablas, el marcador "\Tabla" corresponde a la primera tabla completa de la selección, aunque no esté seleccionada.
\NivelTítulo	Título que contiene el punto de inserción o la selección, más cualquier título y texto subordinados. Si la selección actual es texto principal, el marcador "\NivelTítulo" incluirá el título anterior, más cualquier título y texto subordinados a dicho título.


Uso de DAO de Microsoft Word

Puede utilizar las propiedades, los objetos y los métodos de Objetos de acceso a datos (DAO) de la misma forma que hace referencia y utiliza las propiedades, los objetos y los métodos de Word. Después de establecer una referencia a la biblioteca de objetos DAO, podrá abrir bases de datos, diseñar y ejecutar consultas para extraer un conjunto de registros y devolver los resultados a Word.

Referencia a DAO

Antes de que pueda utilizar la biblioteca DAO, deberá establecer una referencia a esta biblioteca de objetos. Siga los siguientes pasos para establecer una referencia a la biblioteca de objetos DAO.

1	Pase al Editor de Visual Basic.

2	En el menú Herramientas, haga clic en Referencias.

3	En el cuadro Referencias disponibles, haga clic en Biblioteca de objetos Microsoft DAO 3.5.

Si no ve Bibiloteca de objetos Microsoft DAO 3.5 en el cuadro Referencias disponibles, ejecute Instalación de Office Professional para instalar los Objetos de acceso a datos de Visual Basic. La Biblioteca de objetos Microsoft DAO 3.5 no se incluye con la versión independiente de Word ni con Microsoft Office edición Standard.

En el siguiente ejemplo, se abre la base de datos VientoNorte y se insertan los elementos de la tabla Organizaciones navieras en el documento activo.

Set Db = OpenDatabase(Name:="C:\MSOffice\Access\Ejemplos\VientoNorte.mdb")

Set Rs = Db.OpenRecordset(Name:="Organizaciones navieras")

For I = 0 To Rs.RecordCount - 1

    Selection.InsertAfter Text:=Rs.Fields(1).Value

    Rs.MoveNext

    Selection.Collapse Direction:=wdCollapseEnd

    Selection.InsertParagraphAfter

Next I

Rs.Close

Db.Close

Utilice el método OpenDatabase para conectar con una base de datos y abrirla. Después de abrir la base de datos, utilice el método OpenRecordset para obtener acceso a una tabla o consultar resultados. Para desplazarse por el conjunto de registros, utilice el método Move. Para buscar un registro determinado, utilice el método Seek. Si sólo necesita un subconjunto de registros en vez de todo el conjunto, utilice el método CreateQueryDef para diseñar una consulta personalizada y seleccionar los registros que satisfagan ciertos criterios. Cuando termine de trabajar con una base de datos, es aconsejable cerrarla con el método Close para ahorrar memoria.

Nota   Para obtener más información acerca de un objeto, método o propiedad DAO específico, consulte la Ayuda de Objetos de acceso a datos.


Modificar un comando de Word

Puede modificar la mayoría de los comandos de Word convirtiéndolos en macros. Por ejemplo, puede modificar el comando Abrir del menú Archivo para que en vez de mostrar una lista de archivos de documentos de Word (en Windows, se trata de los archivos terminados con la extensión de nombre de archivo .DOC), Word muestre todos los archivos de la carpeta actual.

Para mostrar la lista de los comandos integrados de Word del cuadro de diálogo Macro, seleccione el comando Comandos de Word del cuadro Macros en. Aparecerán todos los comandos de menú y todos los disponibles en una barra de herramientas o a través de las teclas de método abreviado. Los comandos de menú empiezan por el nombre del menú asociado al comando. Por ejemplo, el comando Guardar del menú Archivo aparece como ArchivoGuardar.

Puede reemplazar un comando de Word por una macro asignándole a la macro el mismo nombre que el comando de Word. Por ejemplo, si crea una macro denominada "ArchivoGuardar", Word ejecutará la macro cuando seleccione el comando Guardar del menú Archivo, haga clic en el botón de la barra de herramientas Guardar o presione la combinación de teclas del método abreviado ArchivoGuardar.

En este ejemplo, se muestran los pasos necesarios para modificar el comando ArchivoGuardar.

1	En el menú Herramientas, señale Macro y, a continuación, haga clic en Macro.

2	En el cuadro Macros en, seleccione Comandos de Word.

3	En el cuadro Nombre de la macro, seleccione ArchivoGuardar.

4	En el cuadro Macros en, seleccione la posición de una plantilla o de un documento para guardar la macro. Por ejemplo, seleccione Normal.dot (Plantilla Global) para crear una macro global (el comando ArchivoGuardar se modificará para todos los documentos).

5	Haga clic en el botón Crear.

La macro ArchivGuardar aparecerá como se muestra más adelante.

Sub FileSave()

'

' Macro ArchivoGuardar

' Guarda la plantilla o el documento activo

'

    ActiveDocument.Save

End Sub

Puede agregar instrucciones adicionales o quitar la instrucción ActiveDocument.Save existente. Desde ahora cada vez que ejecute el comando ArchivoGuardar, se ejecutará la macro ArchivoGuardar en vez del comando de Word. Para restaurar la funcionalidad ArchivoGuardar original, necesitará cambiar el nombre o eliminar su macro ArchivoGuardar.

Nota   También puede reemplazar un comando de Word creando un módulo de código denominado según el comando de Word (por ejemplo, ArchivoGuardar) con una subrutina denominada Principal.


Uso de eventos con controles ActiveX

Los documentos de Word pueden contener controles ActiveX. Utilice la barra de herramientas Control para insertar controles ActiveX como los botones de comandos, las casillas de verificación y los cuadros de lista. Siga los siguientes pasos para agregar un control de casilla de verificación ActiveX con un evento LostFocus.

1	Haga clic con el botón secundario del mouse (ratón) en una barra de herramientas de Word y haga clic en la caja de herramientas Control.

2	Haga clic en el control Casilla de verificación.

Se insertará un control de casilla de verificación en el documento activo.

3	Haga clic con el botón secundario del mouse en el control de la casilla de verificación y haga clic en Ver código.

Word pasará al Editor de Visual Basic y mostrará el módulo de clase ThisDocument con la casilla de verificación activada en el cuadro de lista desplegable Objeto.

4	Seleccione el evento LostFocus del cuadro de lista desplegable Procedimiento.

Se agregará un procedimiento vacío al módulo de clase.

5	Agregue las instrucciones de Visual Basic que desee que se ejecuten cuando se produzca el evento.

En el siguiente ejemplo, se muestra el procedimiento de evento LostFocus que se ejecuta cuando se quita el enfoque de CasillaVerificación1. La macro muestra el estado de CasillaVerificación1 con la propiedad Value (True para activada y False para desactivada).

Private Sub CheckBox1_LostFocus()

    MsgBox CheckBox1.Value

End Sub

Para ver la ejecución del procedimiento del evento, pase a Word de nuevo con el documento que incluya la casilla de verificación mostrada. Haga clic en el botón Salir del modo Diseño de la caja de herramientas Control. Active o desactive la casilla de verificación y, a continuación, haga clic en otro elemento del documento. El control de la casilla pierde el enfoque y se ejecuta el procedimiento LostFocus, aparecerá un cuadro de mensaje con el mensaje "True" o "False".

Word implantará los eventos LostFocus y GotFocus de los controles ActiveX en un documento de Word. El resto de los eventos del cuadro de lista desplegable Procedimiento se documentan en la Ayuda de formularios de Microsoft.


Objeto AddIn

Representa una sola macro automática o complemento, independientemente de si está instalada. El objeto AddIn es un miembro del conjunto AddIns. El conjunto AddIns contiene todas las macros disponibles de Word, con independencia de si están cargadas actualmente. El conjunto AddIns incluye las plantillas globales o las bibliotecas de macros automáticas o complementos de Word (WLL) mostradas en el cuadro de diálogo Plantillas y complementos (menú Herramientas).

Uso del objeto AddIn

Utilice AddIns(index), donde index corresponde al nombre de macro o al número de índice, para devolver un solo objeto AddIn. El nombre deberá coincidir exactamente con el que se muestra en el cuadro de diálogo Plantillas y complementos, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se carga la plantilla Carta.dot como plantilla global.

AddIns("Carta.dot").Installed = True

El número de índice representa la posición de la macro automática o complemento en la lista que aparece en el cuadro de diálogo Plantillas y complementos. La siguiente instrucción muestra la ruta de acceso de la primera macro disponible.

If Addins.Count >= 1 Then MsgBox Addins(1).Path

En el siguiente ejemplo, se crea una lista de macros al principio del documento activo. La lista contiene el nombre, la ruta de acceso y el estado instalado de las macros disponibles.

With ActiveDocument.Range(Start:=0, End:=0)

    .InsertAfter "Nombre" & vbTab & "Ruta de acceso" & vbTab & "Instalado"

    .InsertParagraphAfter

    For Each oAddIn In AddIns

        .InsertAfter oAddIn.Name & vbTab & oAddIn.Path & vbTab _

            & oAddIn.Installed

        .InsertParagraphAfter

    Next oAddIn

    .ConvertToTable

End With

Utilice el método Add para agregar una macro a la lista de macros disponibles y, opcionalmente, instalarla con el argumento Install.

AddIns.Add FileName:="C:\Plantillas\Otros\Carta.dot", Install:=True

Para instalar una macro de la lista de macros disponibles, utilice la propiedad Installed.

AddIns("Carta.dot").Installed = True

Nota   Utilice la propiedad Compiled para determinar si un objeto AddIn es una plantilla o una biblioteca WLL.


Objeto de conjunto AddIns

Conjunto de objetos AddIn que representa todas las macros disponibles de Word, con independencia de si están cargadas actualmente. El conjunto AddIns incluye las plantillas globales o las bibliotecas de macros automáticas o complementos de Word (WLL) mostradas en el cuadro de diálogo Plantillas y complementos (menú Herramientas).

Uso del conjunto AddIns

Utilice la propiedad AddIns para devolver el conjunto AddIns. En el siguiente ejemplo, se muestra el nombre y el estado instalado de las macros disponibles.

For Each ad In AddIns

    If ad.Installed = True Then

        MsgBox ad.Name & " está instalada"

    Else

        MsgBox ad.Name & " está disponible, pero no instalada"

    End If

Next ad

Utilice el método Add para agregar una macro a la lista de macros disponibles y, opcionalmente, instalarla con el argumento Install.

AddIns.Add FileName:="C:\Plantillas\Otros\Carta.dot", Install:=True

Para instalar una macro de la lista de macros disponibles, utilice la propiedad Installed.

AddIns("Carta.dot").Installed = True

Utilice AddIns(index), donde index corresponde al nombre de macro o al número de índice, para devolver un solo objeto AddIn. El nombre deberá coincidir exactamente con el que se muestra en el cuadro de diálogo Plantillas y complementos, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. Para instalar una macro de la lista de macros disponibles, utilice la propiedad Installed. En el siguiente ejemplo, se carga la plantilla Carta.dot como plantilla global.

AddIns("Carta.dot").Installed = True

Nota   Si la macro automática o complemento no está situada en la carpeta Plantillas del usuario, Ejemplos del grupo de trabajo o Inicio, deberá especificar la ruta de acceso completa y el nombre del archivo al indizar una macro automática o complemento por nombre.

Comentarios

Utilice la propiedad Compiled para determinar si un objeto AddIn es una plantilla o una biblioteca WLL.


Objeto Application

Representa la aplicación de Word. El objeto Application incluye las propiedades y los métodos que devuelven objetos de nivel superior. Por ejemplo, la propiedad ActiveDocument devuelve un objeto Document.

Uso del objeto Application

Utilice la propiedad Application para devolver un objeto Application. En el siguiente ejemplo, se muestra el nombre de usuario de Word.

MsgBox Application.UserName

Muchas propiedades y métodos que devuelven los objetos de interfaz de usuario más comunes, como el documento activo (propiedad ActiveDocument) pueden emplearse sin el calificador de objeto Application. Por ejemplo, en vez de escribir Application.ActiveDocument.PrintOut, puede escribir ActiveDocument.PrintOut. Las propiedades y los métodos que pueden usarse sin el calificador de objeto Application se consideran "globales". Para ver las propiedades y los métodos globales del Examinador de objetos, haga clic en <globales> al principio de la lista del cuadro Clases.

Comentarios

Para utilizar la Automatización (anteriormente Automatización OLE) a fin de controlar Word desde cualquier otra aplicación, use las funciones CreateObject o GetObject para devolver un objeto Application de Word. El siguiente ejemplo de Microsoft Excel inicia Word, en caso de que aún no se esté ejecutando, y abre un documento existente.

Set wrd = GetObject(, "Word.Application")

wrd.Visible = True

wrd.Documents.Open "C:\Mis documentos\Temp.doc"

Set wrd = Nothing


AddIns, Assistant, AutoCaptions, AutoCorrect, Browser, CaptionLabels, CommandBars, Dictionaries, Dialogs, Documents, FileConverters, FileSearch, FontNames, KeyBindings, KeysBoundTo, Languages, ListGalleries, MailingLabel, MailMessage, Options, RecentFiles, Selection, SpellingSuggestions, SynonymInfo, System, Tasks, Templates, VBE, Windows


Objeto AutoCaption

Representa un único título que puede agregarse automáticamente al insertar tablas, imágenes u objetos OLE en un documento. El objeto AutoCaption es un miembro del conjunto AutoCaptions. El conjunto AutoCaptions contiene todos los títulos que aparecen en el cuadro de diálogo Autotítulo (menú Insertar).

Uso del objeto AutoCaption

Utilice AutoCaptions(index), donde index corresponde al nombre de título o al número de índice, para devolver un solo objeto AutoCaption. Los nombres de los títulos corresponden a los elementos que aparecen en el cuadro de diálogo Autotítulo (menú Insertar). El nombre deberá coincidir exactamente con el que se muestra en el cuadro de diálogo Autotítulo, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se activan los autotítulos de las tablas de Word.

AutoCaptions("Tabla de Microsoft Word").AutoInsert = True

El número de índice representa la posición del objeto AutoCaption en la lista de elementos que aparece en el cuadro de diálogo Autotítulo. En el siguiente ejemplo, aparece el nombre del primer elemento del cuadro de diálogo Autotítulo.

MsgBox AutoCaptions(1).Name

Los objetos AutoCaption no pueden agregarse ni eliminarse mediante programación del conjunto AutoCaptions.


Objeto de conjunto AutoCaptions

Conjunto de objetos AutoCaption que representa los títulos que pueden agregarse automáticamente al insertar elementos como tablas, imágenes u objetos OLE en un documento.

Uso del conjunto AutoCaptions

Utilice la propiedad AutoCaptions para devolver el conjunto AutoCaptions. En el siguiente ejemplo, aparecen los nombres de los elementos seleccionados del cuadro de diálogo Autotítulo.

For Each autoCap In AutoCaptions

    If autoCap.AutoInsert = True Then

        MsgBox autoCap.Name & " está configurado para inserciones automáticas"

    End If

Next autoCap

El conjunto AutoCaptions contiene todos los títulos que aparecen en el cuadro de diálogo Autotítulo (menú Insertar). Los objetos AutoCaption no pueden agregarse ni eliminarse del conjunto AutoCaptions mediante programación.

Utilice AutoCaptions(index), donde index corresponde al nombre de título o al número de índice, para devolver un solo objeto AutoCaption. Los nombres de los títulos corresponden a los elementos que aparecen en el cuadro de diálogo Autotítulo (menú Insertar). El nombre deberá coincidir exactamente con el que se muestra en el cuadro de diálogo Autotítulo, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, aparece el texto del título "Tabla de Microsoft Word".

MsgBox AutoCaptions("Tabla de Microsoft Word").CaptionLabel.Name

El número de índice representa la posición del objeto AutoCaption en la lista de títulos que aparece en el cuadro de diálogo Autotítulo. En el siguiente ejemplo, aparece el nombre del primer elemento seleccionado del cuadro de diálogo Autotítulo.

MsgBox AutoCaptions(1).Name


Objeto AutoCorrect

Representa la funcionalidad de Autocorrección de Word.

Uso del objeto AutoCorrect

Utilice la propiedad AutoCorrect para devolver un objeto AutoCorrect. En el siguiente ejemplo, se activan las opciones de Autocorrección y se crea un elemento de Autocorrección.

With AutoCorrect

    .CorrectCapsLock = True

    .Entries.Add Name:="normamente", Value:="normalmente"

End With

La propiedad Entries devuelve el objeto AutoCorrectEntries que representa los elementos de Autocorrección del cuadro de diálogo Autocorrección (menú Herramientas).


AutoCorrectEntries, FirstLetterExceptions, TwoInitialCapsExceptions


Objeto de conjunto AutoCorrectEntries

Conjunto de objetos AutoCorrectEntry que representa todos los elementos de Autocorrección disponibles en Word. El conjunto AutoCorrectEntries incluye todos los elementos del cuadro de diálogo Autocorrección (menú Herramientas).

Uso del conjunto AutoCorrectEntries

Utilice la propiedad Entries para devolver el conjunto AutoCorrectEntries. En el siguiente ejemplo, aparece el número de objetos AutoCorrectEntry del conjunto AutoCorrectEntries.

MsgBox AutoCorrect.Entries.Count

Utilice los métodos Add o AddRichText para agregar un elemento de Autocorrección a la lista de elementos disponibles. En este ejemplo, se agrega un elemento de Autocorrección de texto normal del error ortográfico de la palabra "para".

AutoCorrect.Entries.Add Name:="apra", Value:="para"

En el siguiente ejemplo, se crea un elemento de Autocorrección denominado "PMO" basado en el texto y el formato de la selección.

AutoCorrect.Entries.AddRichText Name:="PMO", Range:=Selection.Range

Utilice Entries(index), donde index corresponde al elemento de Autocorrección o al número de índice, para devolver un solo objeto AutoCorrectEntry. El nombre deberá coincidir exactamente con el que se muestra debajo de Reemplazar en el cuadro de diálogo Autocorrección, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se establece el valor de un elemento de Autocorrección existente denominado "qeu".

AutoCorrect.Entries("qeu").Value = "que"

En el siguiente ejemplo, se muestra el nombre y el valor del primer elemento de Autocorrección.

MsgBox "Nombre = " & AutoCorrect.Entries(1).Name & vbCr & _

    "Valor " & AutoCorrect.Entries(1).Value


Objeto AutoCorrectEntry

Representa un solo elemento de Autocorrección. El objeto AutoCorrectEntry es un miembro del conjunto AutoCorrectEntries. El conjunto AutoCorrectEntries incluye los elementos del cuadro de diálogo Autocorrección (menú Herramientas).

Uso del objeto AutoCorrectEntry

Utilice Entries(index), donde index corresponde al elemento de Autocorrección o al número de índice, para devolver un solo objeto AutoCorrectEntry. El nombre deberá coincidir exactamente con el que se muestra debajo de Reemplazar en el cuadro de diálogo Autocorrección, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se establece el valor del elemento de Autocorrección denominado "qeu".

AutoCorrect.Entries("qeu").Value = "que"

Utilice el método Apply para insertar un elemento de Autocorrección en el intervalo especificado. En el siguiente ejemplo, se agrega un elemento de Autocorrección y, a continuación, se inserta en vez de la selección.

AutoCorrect.Entries.Add Name:="ohla", Value:="hola"

AutoCorrect.Entries("ohla").Apply Range:=Selection.Range

Utilice los métodos Add o AddRichText para agregar un elemento de Autocorrección a la lista de elementos disponibles. En este ejemplo, se agrega un elemento de Autocorrección de texto normal del error ortográfico de la palabra "luego".

AutoCorrect.Entries.Add Name:="leugo", Value:="luego"

En el siguiente ejemplo, se crea un elemento de Autocorrección denominado "PMO" basado en el texto y el formato de la selección.

AutoCorrect.Entries.AddRichText Name:="PMO", Range:=Selection.Range


Objeto de conjunto AutoTextEntries

Conjunto de objetos AutoTextEntry que representa los elementos de Autotexto de una plantilla. El conjunto AutoTextEntries incluye todos los elementos de la ficha Autotexto del cuadro de diálogo Autocorrección (menú Herramientas).

Uso del objeto AutoTextEntries

Utilice la propiedad AutoTextEntries para devolver el conjunto AutoTextEntries. En el siguiente ejemplo, se determina si un objeto AutoTextEntry denominado "prueba" está incluido en el conjunto AutoTextEntries.

For Each i In NormalTemplate.AutoTextEntries

    If LCase(i.Name) = "prueba" Then MsgBox "existe el elemento de Autotexto"

Next i

Utilice el método Add para agregar un elemento de Autotexto al conjunto AutoTextEntries. En el siguiente ejemplo, se agrega un elemento de Autotexto denominado "Azul" basado en el texto de la selección.

NormalTemplate.AutoTextEntries.Add Name:="Azul", _

    Range:=Selection.Range

Utilice AutoTextEntries(index), donde index corresponde al elemento de Autotexto o al número de índice, para devolver un solo objeto AutoTextEntry. El nombre deberá coincidir exactamente con el que se muestra en la ficha Autotexto del cuadro de diálogo Autocorrección, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se establece el valor de un elemento de Autotexto existente denominado "cNombre".

NormalTemplate.AutoTextEntries("cNombre").Value = "Organización Nicolás"

En el siguiente ejemplo, aparece el nombre y el valor del primer elemento de Autotexto de la plantilla adjunta al documento activo.

Set myTemplate = ActiveDocument.AttachedTemplate

MsgBox "Nombre = " & myTemplate.AutoTextEntries(1).Name & vbCr & _

    "Valor " & myTemplate.AutoTextEntries(1).Value


Objeto AutoTextEntry

Representa un solo elemento de Autotexto. El objeto AutoTextEntry es un miembro del conjunto AutoTextEntries. El conjunto AutoTextEntries contiene todos los elementos de Autotexto de la plantilla especificada. Los elementos aparecen en la ficha Autotexto del cuadro de diálogo Autocorrección (menú Herramientas).

Uso del objeto AutoTextEntry

Utilice AutoTextEntries(index), donde index corresponde al elemento de Autotexto o al número de índice, para devolver un solo objeto AutoTextEntry. El nombre deberá coincidir exactamente con el que se muestra en la ficha Autotexto del cuadro de diálogo Autocorrección, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se establece el valor de un elemento de Autotexto existente denominado "cNombre".

NormalTemplate.AutoTextEntries("cNombre").Value = "Organización Nicolás"

En el siguiente ejemplo, aparece el nombre y el valor del primer elemento de Autotexto de la plantilla adjunta al documento activo.

Set myTemplate = ActiveDocument.AttachedTemplate

MsgBox "Nombre = " & myTemplate.AutoTextEntries(1).Name & vbCr & _

    "Valor " & myTemplate.AutoTextEntries(1).Value

En el siguiente ejemplo, se inserta el elemento del Autotexto global denominado "Elmundo" en el punto de inserción.

Selection.Collapse Direction:=wdCollapseEnd

NormalTemplate.AutoTextEntries("Elmundo").Insert _

    Where:=Selection.Range

Utilice el método Add para agregar un objeto AutoTextEntry al conjunto AutoTextEntries. En el siguiente ejemplo, se agrega un elemento de Autotexto denominado "Azul" basado en el texto de la selección.

NormalTemplate.AutoTextEntries.Add Name:="Azul", _

    Range:=Selection.Range


Objeto Bookmark

Representa un solo marcador. El objeto Bookmark es un miembro del conjunto Bookmarks. El conjunto Bookmarks contiene todos los marcadores que aparecen en el cuadro de diálogo Marcador (menú Insertar).

Uso del objeto Bookmark

Utilice Bookmarks(index), donde index corresponde al nombre de marcador o al número de índice, para devolver un solo objeto Bookmark. El nombre del marcador deberá coincidir exactamente con la ortografía, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se selecciona el marcador denominado "temp" en el documento activo.

ActiveDocument.Bookmarks("temp").Select

El número de índice representa la posición del marcador en el objeto Selection o Range. Para el objeto Document, el número de índice representa la posición del marcador en la lista alfabética de marcadores del cuadro de diálogo Marcadores; haga clic en Nombre para ordenar esta lista alfabéticamente. En el siguiente ejemplo, aparece el nombre del segundo marcador del conjunto Bookmarks.

MsgBox ActiveDocument.Bookmarks(2).Name

Utilice el método Add para agregar un marcador al intervalo de un documento. En el siguiente ejemplo, se marca la selección agregando un marcador denominado "temp".

ActiveDocument.Bookmarks.Add Name:="temp", Range:=Selection.Range

Comentarios

Utilice la propiedad BookmarkID con un intervalo u objeto de selección para devolver el número de índice del objeto Bookmark del conjunto Bookmarks. En el siguiente ejemplo, aparece el número de índice del marcador denominado "temp" del documento activo.

MsgBox ActiveDocument.Bookmarks("temp").Range.BookmarkID

Puede utilizar los marcadores predefinidos con la propiedad Bookmarks. En el siguiente ejemplo, se establece el marcador denominado ""parract" en la posición marcada por el marcador predefinido denominado "\Parra".

ActiveDocument.Bookmarks("\Parra").Copy "parract"

Utilice el método Exists para determinar si ya existe un marcador en la selección, intervalo o documento. En el siguiente ejemplo, se asegura que existe el marcador denominado "temp" en el documento activo antes de seleccionar el marcador.

If ActiveDocument.Bookmarks.Exists("temp") = True Then

    ActiveDocument.Bookmarks("temp").Select

End If


Marcadores que Word establece automáticamente en cada documento. Por ejemplo, el marcador predefinido "\Sel" hace referencia a la selección actual o al punto de inserción.


Document, Range, Selection


Objeto de conjunto Bookmarks

Conjunto de objetos Bookmark que representan los marcadores de la selección, del intervalo o del documento especificados.

Uso del conjunto Bookmarks

Utilice la propiedad Bookmarks para devolver el conjunto Bookmarks. En el siguiente ejemplo, se asegura que existe el marcador denominado "temp" en el documento activo antes de seleccionar el marcador.

If ActiveDocument.Bookmarks.Exists("temp") = True Then

    ActiveDocument.Bookmarks("temp").Select

End If

Utilice el método Add para establecer un marcador para el intervalo de un documento. En el siguiente ejemplo, se marca la selección agregando un marcador denominado "temp".

ActiveDocument.Bookmarks.Add Name:="temp", Range:=Selection.Range

Utilice Bookmarks(index), donde index corresponde al nombre de marcador o al número de índice, para devolver un solo objeto Bookmark. El nombre del marcador deberá coincidir exactamente con la ortografía, aunque no es necesario que coincida en el uso de mayúsculas y minúsculas. En el siguiente ejemplo, se selecciona el marcador denominado "temp" en el documento activo.

ActiveDocument.Bookmarks("temp").Select

El número de índice representa la posición del marcador en el objeto Selection o Range. Para el objeto Document, el número de índice representa la posición del marcador en la lista alfabética de marcadores del cuadro de diálogo Marcadores; haga clic en Nombre para ordenar esta lista alfabéticamente. En el siguiente ejemplo, aparece el nombre del segundo marcador del conjunto Bookmarks.

MsgBox ActiveDocument.Bookmarks(2).Name

Comentarios

La propiedad ShowHidden afecta al número de elementos del conjunto Bookmarks. Si el valor de ShowHidden es True, los marcadores ocultos se incluyen en el conjunto Bookmarks.


Objeto Border

Representa el borde de un objeto. El objeto Border es un miembro del conjunto Borders.

Uso del objeto Border

Utilice Borders(index), donde index identifica el borde, para devolver un solo objeto Border. Index puede ser una de las siguientes constantes WdBorderType: wdBorderBottom, wdBorderHorizontal, wdBorderLeft, wdBorderRight, wdBorderTop o wdBorderVertical. Utilice la propiedad LineStyle para aplicar una línea de borde a un objeto Border. En el siguiente ejemplo, se aplica un borde de doble línea debajo del primer párrafo del documento activo.

With ActiveDocument.Paragraphs(1).Borders(wdBorderBottom)

    .LineStyle = wdLineStyleDouble

    .LineWidth = wdLineWidth025pt

End With

En el siguiente ejemplo, se aplica un borde de una sola línea alrededor del primer carácter de la selección.

With Selection.Characters(1)

    .Font.Size = 36

    .Borders.Enable = True

End With

En el siguiente ejemplo, se agrega un borde decorado alrededor de cada página de la primera sección.

For Each aBorder In ActiveDocument.Sections(1).Borders

    With aBorder

        .ArtStyle = wdArtSeattle

        .ArtWidth = 20

    End With

Next aBorder

Los objetos Border no pueden agregarse al conjunto Borders. El número de miembros del conjunto Borders es finito y varía en función del tipo de objeto. Por ejemplo, una tabla tiene seis elementos en el conjunto Borders, mientras que un párrafo tiene cuatro.


Cell, Cells, Column, Columns, Font, Frame, InlineShape, Paragraph, ParagraphFormat, Paragraphs, Range, Row, Rows, Section, Selection, Style, Table


Objeto de conjunto Borders

Conjunto de objetos Border que representa los bordes de un objeto.

Uso del conjunto Borders

Utilice la propiedad Borders para devolver el conjunto Borders. En el siguiente ejemplo, se aplica el borde predeterminado alrededor del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Borders.Enable = True

Los objetos Border no pueden agregarse al conjunto Borders. El número de miembros del conjunto Borders es finito y varía en función del tipo de objeto. Por ejemplo, una tabla tiene seis elementos en el conjunto Borders, mientras que un párrafo tiene cuatro.

Utilice Borders(index), donde index identifica el borde, para devolver un solo objeto Border. Index puede ser una de las siguientes constantes WdBorderType: wdBorderBottom, wdBorderHorizontal, wdBorderLeft, wdBorderRight, wdBorderTop o wdBorderVertical. Las constantes wdBorderDiagonalDown y wdBorderDiagonalUp no se usan en la versión en inglés americano del programa Word. Utilice la propiedad LineStyle para aplicar una línea de borde a un objeto Border. En el siguiente ejemplo, se aplica un borde de doble línea debajo del primer párrafo del documento activo.

With ActiveDocument.Paragraphs(1).Borders(wdBorderBottom)

    .LineStyle = wdLineStyleDouble

    .LineWidth = wdLineWidth025pt

End With

En el siguiente ejemplo, se aplica un borde de una sola línea alrededor del primer carácter de la selección.

With Selection.Characters(1)

    .Font.Size = 36

    .Borders.Enable = True

End With

En el siguiente ejemplo, se agrega un borde decorado alrededor de cada página de la primera sección.

For Each aBorder In ActiveDocument.Sections(1).Borders

    With aBorder

        .ArtStyle = wdArtSeattle

        .ArtWidth = 20

    End With

Next aBorder


Objeto Browser

Representa la herramienta del explorador utilizada para mover el punto de inserción hasta los objetos de un documento. Esta herramienta está formada por los tres botones situados en la parte inferior de la barra de desplazamiento vertical.

Uso del objeto Browser

Utilice la propiedad Browser para devolver un objeto Browser. En el siguiente ejemplo, se mueve el punto de inserción delante del siguiente campo del documento activo.

With Application.Browser

    .Target = wdBrowseField

    .Next

End With

En el siguiente ejemplo, se mueve el punto de inserción a la tabla anterior y la selecciona.

With Application.Browser

    .Target = wdBrowseTable

    .Previous

End With

If Selection.Information(wdWithInTable) = True Then

    Selection.Tables(1).Select

End If


Objeto CaptionLabel

Representa una sola etiqueta de título. El objeto CaptionLabel es un miembro del conjunto CaptionLabels. Los elementos del conjunto CaptionLabels aparecen en el cuadro Etiqueta del cuadro de diálogo Título (menú Insertar).

Uso del objeto CaptionLabel

Utilice CaptionLabels(index), donde index corresponde al nombre de la etiqueta de título o al número de índice, para devolver un solo objeto CaptionLabel. En el siguiente ejemplo, se establece el estilo de numeración de la etiqueta de título de la Figura.

CaptionLabels("Figura").NumberStyle = wdCaptionNumberStyleLowercaseLetter

El número de índice representa la posición de la etiqueta del título del conjunto CaptionLabels. En el siguiente ejemplo, aparece la primera etiqueta de título.

MsgBox CaptionLabels(1).Name

Utilice el método Add para agregar una etiqueta de título personalizada. En el ejemplo siguiente, se agrega una etiqueta de título denominada "Foto".

CaptionLabels.Add Name:="Foto"


Objeto de conjunto CaptionLabels

Conjunto de objetos CaptionLabel que representa las etiquetas de título disponibles. Los elementos del conjunto CaptionLabels aparecen en el cuadro Etiqueta del cuadro de diálogo Título (menú Insertar).

Uso del conjunto CaptionLabels

Utilice la propiedad CaptionLabels para devolver el conjunto CaptionLabels. Como valor predeterminado, el conjunto CaptionLabels incluye estas tres etiquetas de título integradas: Figura, Tabla y Ecuación.

Utilice el método Add para agregar una etiqueta de título personalizada. En el ejemplo siguiente, se agrega una etiqueta de título denominada "Foto".

CaptionLabels.Add Name:="Foto"

Utilice CaptionLabels(index), donde index corresponde al nombre de la etiqueta de título o al número de índice, para devolver un solo objeto CaptionLabel. En el siguiente ejemplo, se establece el estilo de numeración de la etiqueta de título de la Figura.

CaptionLabels("Figura").NumberStyle = wdCaptionNumberStyleLowercaseCLetter

El número de índice representa la posición de la etiqueta del título del conjunto CaptionLabels. En el siguiente ejemplo, aparece la primera etiqueta de título.

MsgBox CaptionLabels(1).Name


Objeto Cell

Representa una sola celda de tabla. El objeto Cell es un miembro del conjunto Cells. El conjunto Cells representa todas las celdas del objeto especificado.

Uso del objeto Cell

Utilice Cell(row, column), donde row es el número de fila y column es el de columna, para devolver el objeto Cell. En el siguiente ejemplo, se aplica sombreado a la segunda celda de la primera fila.

Set miCelda = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)

miCelda.Shading.Texture = wdTexture20Percent

Utilice el método Add para agregar un objeto Cell al conjunto Cells. También puede utilizar el método InsertCells del objeto Selection para insertar celdas nuevas. En el siguiente ejemplo, se agrega una celda delante de la primera celda de miTabla.

Set miTabla = ActiveDocument.Tables(1)

miTabla.Range.Cells.Add BeforeCell:=miTabla.Cell(1, 1)

En el siguiente ejemplo, se establece un intervalo (miIntervalo) que hace referencia a las dos primeras celdas de la primera tabla. Una vez establecido el intervalo, el método Merge combina las celdas.

Set miTabla = ActiveDocument.Tables(1)

Set miIntervalo = ActiveDocument.Range(miTabla.Cell(1, 1).Range.Start, _

    miTabla.Cell(1, 2).Range.End)

miIntervalo.Cells.Merge

Comentarios

Utilice el método Add con el conjunto Rows o Columns para agregar una fila o una columna de celdas.

Utilice la propiedad Information con un objeto Selection para devolver el número de fila y de columna actual. En el siguiente ejemplo, se cambia el ancho de la primera celda de la selección y, a continuación, se muestra el número de fila y de columna de la celda.

If Selection.Information(wdWithInTable) = True Then

    With Selection

        .Cells(1).Width = 22

        MsgBox "Celda " & .Information(wdStartOfRangeRowNumber) & "," _

            & .Information(wdStartOfRangeColumnNumber)

    End With

End If


Objeto de conjunto Cells

Conjunto de objetos Cell de la columna, la fila, la selección o el rango de una tabla.

Uso del objeto Cells

Utilice la propiedad Cells para devolver el conjunto Cells. En el siguiente ejemplo, se da formato a las celdas de la primera fila de la tabla uno del documento activo para que tenga 30 puntos de ancho.

ActiveDocument.Tables(1).Rows(1).Cells.Width = 30

En el siguiente ejemplo, se devuelve el número de celdas de la fila actual.

num = Selection.Rows(1).Cells.Count

Utilice el método Add para agregar un objeto Cell al conjunto Cells. También puede utilizar el método InsertCells del objeto Selection para insertar celdas nuevas. En el siguiente ejemplo, se agrega una celda delante de la primera celda de miTabla.

Set miTabla = ActiveDocument.Tables(1)

miTabla.Range.Cells.Add BeforeCell:=miTabla.Cell(1, 1)

Utilice Cell(row, column), donde row es el número de fila y column es el de columna, para devolver el objeto Cell. En el siguiente ejemplo, se aplica sombreado a la segunda celda de la primera fila de la tabla uno.

Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)

myCell.Shading.Texture = wdTexture20Percent

Comentarios

Utilice el método Add con el conjunto Rows o Columns para agregar una fila o una columna de celdas. En el siguiente ejemplo, se agrega una columna a la primera tabla del documento activo y, a continuación, se insertan números en la primera columna.

Set miTabla = ActiveDocument.Tables(1)

Set aColumn = miTabla.Columns.Add(BeforeColumn:=miTabla.Columns(1))

For Each aCell In aColumn.Cells

    aCell.Range.Delete

    aCell.Range.InsertAfter num + 1

    num = num + 1

Next aCell


Column, Range, Row, Selection


Borders, Column, Range, Row, Shading


Objeto de conjunto Characters

Conjunto de caracteres de una selección, intervalo o documento. No hay ningún objeto Character, en su lugar, cada elemento del conjunto Characters es un objeto Range que representa un carácter.

Uso del conjunto Characters

Utilice la propiedad Characters para devolver el conjunto Characters. En el siguiente ejemplo, se muestra el número de caracteres seleccionados.

MsgBox Selection.Characters.Count & " caracteres están seleccionados"

Utilice Characters(index), donde index es el número de índice, para devolver un objeto Range que representa un carácter. El número de índice representa la posición de un carácter del conjunto Characters. En el siguiente ejemplo, se aplica a la primera letra de la selección el formato de negrita de 24 puntos.

With Selection.Characters(1)

    .Bold = True

    .Font.Size = 24

End With

Comentarios

La propiedad Count de este conjunto de un documento devuelve el número de elementos sólo del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.

No hay ningún método Add disponible para el conjunto Characters. En su lugar, utilice el método InsertAfter o InsertBefore para agregar caracteres a un objeto Range. En el siguiente ejemplo, se inserta un nuevo párrafo detrás del primer párrafo del documento activo.

With ActiveDocument

    .Paragraphs(1).Range.InsertParagraphAfter

    .Paragraphs(2).Range.InsertBefore "Nuevo texto"

End With


Objeto CheckBox

Representa un solo campo de formulario de casilla de verificación.

Uso del objeto CheckBox

Utilice FormFields(index), donde index es el número de índice o el nombre del marcador asociado a la casilla de verificación, para devolver un solo objeto FormField. Utilice la propiedad CheckBox con el objeto FormField para devolver un objeto CheckBox. En el siguiente ejemplo, se selecciona el campo de formulario de casilla de verificación denominado "Verificación1" del documento activo.

ActiveDocument.FormFields("Verificación1").CheckBox.Value = True

El número de índice representa la posición del campo de formulario del conjunto FormFields. En el siguiente ejemplo, se verifica el tipo del primer campo de formulario, si se trata de una casilla de verificación, se activa dicha casilla.

If ActiveDocument.FormFields(1).Type = wdFieldFormCheckBox Then

    ActiveDocument.FormFields(1).CheckBox.Value = True

End If

En el siguiente ejemplo, se determina si el objeto ffield es válido antes de cambiar el tamaño de la casilla de verificación a 14 puntos.

Set ffield = ActiveDocument.FormFields(1).CheckBox

If ffield.Valid = True Then

    ffield.AutoSize = False

    ffield.Size = 14

Else

    MsgBox "El primer campo no es una casilla de verificación"

End If

Utilice el método Add con el objeto FormFields para agregar un campo de formulario de casilla de verificación. En el siguiente ejemplo, se agrega una casilla de verificación al principio del documento activo, se establece el valor del nombre en "Color" y, a continuación, se selecciona la casilla de verificación.

With ActiveDocument.FormFields.Add(Range:=ActiveDocument.Range _

    (Start:=0,End:=0), Type:=wdFieldFormCheckBox)

    .Name = "Color"

    .CheckBox.Value = True

End With


Objeto Column

Representa una sola columna de tabla. El objeto Column es un miembro del conjunto Columns. Este conjunto incluye todas las columnas de una tabla, selección o rango.

Uso del objeto Column

Utilice Columns(index), donde index corresponde al número de índice, para devolver un solo objeto Column. El número de índice representa la posición de la columna en el conjunto Columns, contando de izquierda a derecha.

En el siguiente ejemplo, se selecciona la columna uno de la tabla uno del documento activo.

ActiveDocument.Tables(1).Columns(1).Select

Utilice la propiedad Column con un objeto Cell para devolver un objeto Column. En el siguiente ejemplo, se elimina el texto de la celda uno, se inserta texto nuevo y, a continuación, se ordena toda la columna.

With ActiveDocument.Tables(1).Cell(1, 1)

    .Range.Delete

    .Range.InsertBefore "Ventas"

    .Column.Sort

End With

Utilice el método Add para agregar una columna a la tabla. En el siguiente ejemplo, se agrega una columna a la primera tabla del documento activo y, a continuación, se igualan los anchos de las columnas.

If ActiveDocument.Tables.Count >= 1 Then

    Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    miTabla.Columns.Add BeforeColumn:=miTabla.Columns(1)

    miTabla.Columns.DistributeWidth

End If

Comentarios

Utilice la propiedad Information con un objeto Selection para devolver el número de columna actual. En el siguiente ejemplo, se selecciona la columna actual y, a continuación, se muestra el número de columna en un cuadro de mensaje.

If Selection.Information(wdWithInTable) = True Then

    Selection.Columns(1).Select

    MsgBox "Columna " & Selection.Information(wdStartOfRangeColumnNumber)

End If


Objeto de conjunto Columns

Conjunto de objetos Column que representan las columnas de una tabla.

Uso del conjunto Columns

Utilice la propiedad Columns para devolver el conjunto Columns. En el siguiente ejemplo, se muestra el número de objetos Column del conjunto Columns de la primera tabla del documento activo.

MsgBox ActiveDocument.Tables(1).Columns.Count

En el siguiente ejemplo, se crea una tabla con seis columnas y tres filas y, a continuación, se da formato a cada columna con un porcentaje de sombreado mayor (más oscuro) progresivamente.

Set miTabla = ActiveDocument.Tables.Add(Range:=Selection.Range, _

    NumRows:=3, NumColumns:=6)

For Each col In miTabla.Columns

    col.Shading.Texture = 100 + i

    i = i + 100

Next col

Utilice el método Add para agregar una columna a la tabla. En el siguiente ejemplo, se agrega una columna a la primera tabla del documento activo y, a continuación, se igualan los anchos de las columnas.

If ActiveDocument.Tables.Count >= 1 Then

    Set miTabla = ActiveDocument.Tables(1)

    miTabla.Columns.Add BeforeColumn:=miTabla.Columns(1)

    miTabla.Columns.DistributeWidth

End If

Utilice Columns(index), donde index corresponde al número de índice, para devolver un solo objeto Column. El número de índice representa la posición de la columna en el conjunto Columns, contando de izquierda a derecha. En el siguiente ejemplo, se selecciona la primera columna de la primera tabla.

ActiveDocument.Tables(1).Columns(1).Select


Range, Selection, Table


Borders, Cells, Shading


Objeto Comment

Representa un solo comentario. El objeto Comment es un miembro del conjunto Comments. El conjunto Comments incluye comentarios en una selección, intervalo o documento.

Uso del objeto Comment

Utilice Comments(index), donde index corresponde al número de índice, para devolver un solo objeto Comment. El número de índice representa la posición del comentario en la selección, intervalo o documento especificado. En el siguiente ejemplo, aparece el autor del primer comentario del documento activo.

MsgBox ActiveDocument.Comments(1).Author

Utilice el método Add para agregar un comentario al intervalo especificado. En el siguiente ejemplo, se agrega un comentario inmediatamente después de la selección.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Comments.Add Range:=Selection.Range, Text:="revise esto"

Utilice la propiedad Reference para devolver la marca de referencia asociada al comentario especificado. Utilice la propiedad Range para devolver el texto asociado al comentario especificado. En el siguiente ejemplo, aparece el texto asociado al primer comentario del documento activo.

MsgBox ActiveDocument.Comments(1).Range.Text


Objeto de conjunto Comments

Conjunto de objetos Comment que representan los comentarios de la selección, el intervalo o el documento.

Uso del conjunto Comments

Utilice la propiedad Comments para devolver el conjunto Comments. En el siguiente ejemplo, aparecen los comentarios de Pablo Díaz en el documento activo.

ActiveWindow.View.SplitSpecial = wdPaneComments

ActiveDocument.Comments.ShowBy = "Pablo Díaz"

Utilice el método Add para agregar un comentario al intervalo especificado. En el siguiente ejemplo, se agrega un comentario inmediatamente después de la selección.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Comments.Add Range:=Selection.Range, Text:="revise esto"

Utilice Comments(index), donde index corresponde al número de índice, para devolver un solo objeto Comment. El número de índice representa la posición del comentario en la selección, intervalo o documento especificado. En el siguiente ejemplo, aparece el autor del primer comentario del documento activo.

MsgBox ActiveDocument.Comments(1).Author

En el siguiente ejemplo, aparecen las iniciales del autor del primer comentario de la selección.

If Selection.Comments.Count >= 1 Then MsgBox Selection.Comments(1).Initial


Objeto CustomLabel

Representa una etiqueta postal personalizada. El objeto CustomLabel es un miembro del conjunto CustomLabels. Este conjunto contiene todas las etiquetas postales personalizadas que aparecen en el cuadro de diálogo Opciones para etiquetas.

Uso del objeto CustomLabel

Utilice CustomLabels(index), donde index corresponde al nombre de la etiqueta de título o al número de índice personalizado, para devolver un solo objeto CustomLabel. En el siguiente ejemplo, se crea un nuevo documento con el diseño de etiqueta personalizado denominado "Mis etiquetas".

Set ML = Application.MailingLabel

If ML.CustomLabels("Mis etiquetas").Valid = True Then

    ML.CreateNewDocument Name:="Mis etiquetas"

Else

    MsgBox "La etiqueta personalizada Mis etiquetas no está disponible"

End If

El número de índice representa la posición de la etiqueta postal personalizada en el conjunto CustomLabels. En el siguiente ejemplo, se muestra el nombre de la primera etiqueta postal personalizada.

If Application.MailingLabel.CustomLabels.Count >= 1 Then

    MsgBox Application.MailingLabel.CustomLabels(1).Name

End If

Utilice el método Add para crear una etiqueta personalizada. En el siguiente ejemplo, se agrega una etiqueta postal personalizada denominada "Mi etiqueta" y se establece el tamaño de página.

Set ML = Application.MailingLabel.CustomLabels.Add(Name:="Mis etiquetas", _

    DotMatrix:=False)

ML.PageSize = wdCustomLabelA4


Objeto de conjunto CustomLabels

Conjunto de objetos CustomLabel disponibles en el cuadro de diálogo Opciones para etiquetas. Este conjunto incluye etiquetas personalizadas de todos los tipos de impresora; es decir, impresoras matriciales, láser y de chorro de tinta.

Uso del conjunto CustomLabels

Utilice la propiedad CustomLabels para devolver el conjunto CustomLabels. En el siguiente ejemplo, se muestra el número de etiquetas personalizadas disponible.

MsgBox Application.MailingLabel.CustomLabels.Count

Utilice el método Add para crear una etiqueta personalizada. En el siguiente ejemplo, se agrega una etiqueta postal personalizada denominada "Mi etiqueta" y se establece el tamaño de página.

Set ML = Application.MailingLabel.CustomLabels.Add(Name:="Mis etiquetas", _

    DotMatrix:=False)

ML.PageSize = wdCustomLabelA4

Utilice CustomLabels(index), donde index corresponde al nombre de la etiqueta de título o al número de índice personalizado, para devolver un solo objeto CustomLabel. En el siguiente ejemplo, se crea un nuevo documento con el diseño de etiqueta personalizado denominado "Mis etiquetas".

Set ML = Application.MailingLabel

If ML.CustomLabels("Mis etiquetas").Valid = True Then

    ML.CreateNewDocument Name:="Mis etiquetas"

Else

    MsgBox "La etiqueta personalizada Mis etiquetas no está disponible"

End If

El número de índice representa la posición de la etiqueta postal personalizada del conjunto CustomLabels. En el siguiente ejemplo, se muestra el nombre de la primera etiqueta postal personalizada.

If Application.MailingLabel.CustomLabels.Count >= 1 Then

    MsgBox Application.MailingLabel.CustomLabels(1).Name

End If


Objeto de conjunto Dialogs

Conjunto de objetos Dialog de Word. Cada objeto Dialog representa un cuadro de diálogo integrado de Word.

Uso del conjunto Dialogs

Utilice la propiedad Dialogs para devolver el conjunto Dialogs. En el siguiente ejemplo, se muestra el número de cuadros de diálogo personalizados, integrados y disponibles.

MsgBox Dialogs.Count

No puede crearse ningún cuadro de diálogo nuevo integrado ni agregarse ninguno al conjunto Dialogs. Utilice Dialogs(index), donde index corresponde a la constante WdWordDialog que identifica el cuadro de diálogo, para devolver un solo objeto Dialog. En el ejemplo siguiente, se ejecuta el cuadro de diálogo integrado Abrir.

dlgAnswer = Dialogs(wdDialogFileOpen).Show

Para obtener más información, consulte Mostrar cuadros de diálogo integrados de Word.


Objeto Document

Representa un documento. El objeto Document es un miembro del conjunto Documents. Este conjunto contiene todos los objetos Document actualmente abiertos en Word.

Uso del objeto Document

Utilice Documents(index), donde index corresponde al nombre de documento o al número de índice, para devolver un solo objeto Document. En el siguiente ejemplo, se cierra el documento denominado "Informe.doc" sin guardar los cambios.

Documents("Informe.doc").Close SaveChanges:=wdDoNotSaveChanges

El número de índice representa la posición del documento en el conjunto Documents. En el siguiente ejemplo, se activa el primer documento del conjunto Documents.

Documents(1).Activate

Uso de ActiveDocument

Puede utilizar la propiedad ActiveDocument para hacer referencia al documento seleccionado. En el siguiente ejemplo, se utiliza el método Activate para activar el documento denominado "Documento1". En este ejemplo también se establece la orientación de página en orientación horizontal y, a continuación, se imprime el documento.

Documents("Documento1").Activate

ActiveDocument.PageSetup.Orientation = wdOrientLandscape

ActiveDocument.PrintOut


Application, Pane, Selection, Window


Objeto de conjunto Documents

Conjunto de todos los objetos Document actualmente abiertos en Word.

Uso del conjunto Documents

Utilice la propiedad Documents para devolver el conjunto Documents. En el siguiente ejemplo, se muestran los nombres de los documentos abiertos.

For Each aDoc In Documents

    aName = aName & aDoc.Name & vbCr

Next aDoc

MsgBox aName

Utilice el método Add para crear un nuevo libro vacío y agregarlo al conjunto Documents. En el siguiente ejemplo, se crea un nuevo documento basado en la plantilla Normal.

Documents.Add

Utilice el método Open para abrir un archivo. En el siguiente ejemplo, se abre el documento denominado "Ventas.doc".

Documents.Open FileName:="C:\Mis documentos\Ventas.doc"

Utilice Documents(index), donde index corresponde al nombre de documento o al número de índice, para devolver un solo objeto Document. En la siguiente instrucción, se cierra el documento denominado "Informe.doc" sin guardar los cambios.

Documents("Informe.doc").Close SaveChanges:=wdDoNotSaveChanges

El número de índice representa la posición del documento en el conjunto Documents. En el siguiente ejemplo, se activa el primer documento del conjunto Documents.

Documents(1).Activate

Comentarios

En el siguiente ejemplo, se cita el conjunto Documents para determinar si está abierto el documento denominado "Informe.doc". Si el conjunto Documents lo contiene, se activará el documento; de lo contrario, se abrirá.

For Each doc In Documents

    If doc.Name = "Informe.doc" Then found = True

Next doc

If found <> True Then

    Documents.Open FileName:="C:\Documentos\Informe.doc"

Else

    Documents("Informe.doc").Activate

End If


Bookmarks, Characters, CommandBars, Comments, DocumentProperties, Endnotes, Envelope, Fields, Footnotes, FormFields, Frames, HyperLinks, Indexes, InlineShapes, LetterContent, ListParagraphs, Lists, ListTemplates, Mailer, MailMerge, PageSetup, Paragraphs, ProofreadingErrors, Range, ReadabilityStatistics, Revisions, RoutingSlip, Sections, Sentences, Shapes, StoryRanges, Styles, Subdocuments, Tables, TablesOfContents, TablesOfFigures, Template, Variables, VBProject, Versions, Windows, Words


Objeto DropCap

Representa una letra capital al principio de un párrafo. No hay conjunto DropCaps; cada objeto Paragraph contiene sólo un objeto DropCap.

Uso del objeto DropCap

Utilice la propiedad DropCap para devolver un objeto DropCap. En el siguiente ejemplo, se establece una letra capital para la primera letra del primer párrafo del documento activo.

With ActiveDocument.Paragraphs(1).DropCap

    .Enable

    .Position = wdDropNormal

End With


Objeto DropDown

Representa un campo de formulario desplegable que contiene una lista de los elementos del formulario.

Uso del objeto DropDown

Utilice FormFields(index), donde index corresponde al número de índice o el nombre del marcador asociado al campo de formulario desplegable, para devolver un solo objeto FormField. Utilice la propiedad DropDown con el objeto FormField para devolver un objeto DropDown. En el siguiente ejemplo, se selecciona el primer elemento del campo de formulario desplegable denominado "Desplegable" del documento activo.

ActiveDocument.FormFields("Desplegable1").DropDown.Value = 1

El número de índice representa la posición del campo de formulario en el conjunto FormFields. En el siguiente ejemplo, se verifica el tipo del primer campo de formulario del documento activo. Si es un campo de formulario desplegable, se seleccionará el segundo elemento.

If ActiveDocument.FormFields(1).Type = wdFieldFormDropDown Then

    ActiveDocument.FormFields(1).DropDown.Value = 2

End If

En el siguiente ejemplo, se determina si el campo de formulario representado por ffield es un campo de formulario desplegable válido antes de agregarle un elemento.

Set ffield = ActiveDocument.FormFields(1).DropDown

If ffield.Valid = True Then

    ffield.ListEntries.Add Name:="Hola"

Else

    MsgBox "El primer campo no es un campo desplegable"

End If

Utilice el método Add con el conjunto FormFields para agregar un campo de formulario desplegable. En el siguiente ejemplo, se agrega un campo de formulario desplegable al principio del documento activo y, a continuación, se agregan elementos al campo de formulario.

Set ffield = ActiveDocument.FormFields.Add( _

    Range:=ActiveDocument.Range(Start:=0, End:=0), Type:=wdFieldFormDropDown)

With ffield

    .Name = "Colores"

    With .DropDown.ListEntries

        .Add Name:="Azul"

        .Add Name:="Verde"

        .Add Name:="Rojo"

    End With

End With


Objeto Endnote

Representa una nota al final. El objeto Endnote es un miembro del conjunto Endnotes. Este conjunto representa las notas al final de una selección, intervalo o documento.

Uso del objeto Endnote

Utilice Endnotes(index), donde index corresponde al número de índice, para devolver un solo objeto Endnote. El número de índice representa la posición de la nota al pie en la selección, intervalo o documento. En el siguiente ejemplo, se aplica formato rojo a la primera nota al final de la selección.

If Selection.Endnotes.Count >= 1 Then

    Selection.Endnotes(1).Reference.Font.ColorIndex = wdRed

End If

Utilice el método Add para agregar una nota al final al conjunto Endnotes. En el siguiente ejemplo, se agrega una nota al final inmediatamente después de la selección.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Endnotes.Add Range:=Selection.Range , _

    Text:= "El sauce llorón, (Editorial Villaverde, 1996)."


Objeto de conjunto Endnotes

Conjunto de objetos Endnote que representa todas las notas al final de la selección, el intervalo o el documento.

Uso del conjunto Endnotes

Utilice la propiedad Endnotes para devolver el conjunto Endnotes. En el siguiente ejemplo, se establece la posición de las notas al final en el documento activo.

ActiveDocument.Endnotes.Location = wdEndOfSection

Utilice el método Add para agregar una nota al final al conjunto Endnotes. En el siguiente ejemplo, se agrega una nota al final inmediatamente después de la selección.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Endnotes.Add Range:=Selection.Range , _

    Text:= "El sauce llorón, (Editorial Villaverde, 1996)."

Utilice Endnotes(index), donde index corresponde al número de índice, para devolver un solo objeto Endnote. El número de índice representa la posición de la nota al final en la selección, intervalo o documento. En el siguiente ejemplo, se aplica formato rojo a la primera nota al final de la selección.

If Selection.Endnotes.Count >= 1 Then

    Selection.Endnotes(1).Reference.Font.ColorIndex = wdRed

End If


Objeto Envelope

Representa un sobre. No hay conjunto Envelopes; cada objeto Document contiene sólo un objeto Envelope.

Uso del objeto Envelope

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 0,9 cm.

Set myDoc = Documents.Add

addr = "Miguel Menéndez" & vbCr & "Goya,123" & vbCr & "28020 Madrid"

retaddr = "Carmen García" & vbCr & "Diego de león, 34" & vbCr & _

    "28006 Madrid"

With myDoc.Envelope

    .Insert Address:=addr, ReturnAddress:=retaddr

    .AddressFromTop = InchesToPoints(2.25)

End With

Comentarios

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

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

On Error GoTo ErrorHandler

MsgBox ActiveDocument.Envelope.Address

ErrorHandler:

If Err = 5852 Then MsgBox "El sobre no está en el documento especificado"

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


Range, Style


Objeto Field

Representa un campo. El objeto Field es un miembro del conjunto Fields. Este conjunto representa los campos de una selección, intervalo o documento.

Uso del objeto Field

Utilice Fields(index), donde index corresponde al número de índice, para devolver un solo objeto Field. El número de índice representa la posición del campo en la selección, intervalo o documento. En el siguiente ejemplo, aparece el código de campo y el resultado del primer campo en el documento activo.

If ActiveDocument.Fields.Count >= 1 Then

    MsgBox "Código =  " & ActiveDocument.Fields(1).Code & vbCr _

        & "Resultado =  " & ActiveDocument.Fields(1).Result & vbCr

End If

Utilice el método Add para agregar un campo al conjunto Fields. En el siguiente ejemplo, se inserta un campo FECHA al principio de la selección y, a continuación, se muestra el resultado.

Selection.Collapse Direction:=wdCollapseStart

Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _

    Type:=wdFieldDate)

MsgBox myField.Result

La constante wdFieldDate forma parte del grupo de constantes WdFieldType, que incluye todos los tipos de campos distintos.


Objeto de conjunto Fields

Conjunto de objetos Field que representan todos los campos de la selección, el intervalo o el documento.

Uso del conjunto Fields

Utilice la propiedad Fields para devolver el conjunto Fields. En el siguiente ejemplo, se actualizan todos los campos de la selección.

Selection.Fields.Update

Utilice el método Add para agregar un campo al conjunto Fields. En el siguiente ejemplo, se inserta un campo FECHA al principio de la selección y, a continuación, se muestra el resultado.

Selection.Collapse Direction:=wdCollapseStart

Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _

    Type:=wdFieldDate)

MsgBox myField.Result

Utilice Fields(index), donde index corresponde al número de índice, para devolver un solo objeto Field. El número de índice representa la posición del campo en la selección, intervalo o documento. En el siguiente ejemplo, aparece el código de campo y el resultado del primer campo del documento activo.

If ActiveDocument.Fields.Count >= 1 Then

    MsgBox "Código =  " & ActiveDocument.Fields(1).Code & vbCr _

        & "Resultado =  " & ActiveDocument.Fields(1).Result & vbCr

End If

Comentarios

Utilice la propiedad Fields con un objeto MailMerge para devolver el conjunto MailMergeFields.

La propiedad Count de este conjunto de un documento devuelve el número de elementos sólo del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.


InlineShape, LinkFormat, OLEFormat,Range


Objeto FileConverter

Representa un convertidor de archivos que se usa para abrir o guardar archivos. El objeto FileConverter es un miembro del conjunto FileConverters. Este conjunto contiene todos los convertidores de archivos instalados para abrir y guardar archivos.

Uso del objeto FileConverter

Utilice FileConverters(index), donde index corresponde al nombre de una clase o al número de índice, para devolver un solo objeto FileConverter. En el siguiente ejemplo, aparece la ruta de acceso del convertidor de hojas de cálculo de Microsoft Excel.

MsgBox FileConverters("MSBiff").Path

El número de índice representa la posición del convertidor de archivos del conjunto FileConverters. En el siguiente ejemplo, se muestra el nombre del formato del primer convertidor de archivos.

MsgBox FileConverters(1).FormatName

No puede crearse ningún convertidor de archivos nuevo ni agregarse ninguno al conjunto FileConverters. Se agregan objetos FileConverter durante la instalación de Microsoft Office o al instalar convertidores suplementarios. Utilice la propiedad CanSave o CanOpen para determinar si se puede usar un objeto FileConverter para abrir o guardar documentos.

Comentarios

En el cuadro de diálogo Guardar como aparecen los convertidores de archivos utilizados para guardar documentos. Los convertidores de archivos para abrir documentos aparecen en un cuadro de diálogo si está activada la casilla de verificación Confirmar conversiones al abrir en la ficha General del cuadro de diálogo Opciones (menú Herramientas).


Objeto de conjunto FileConverters

Conjunto de objetos FileConverter que representa todos los convertidores de archivos disponibles para abrir y guardar archivos.

Uso del conjunto FileConverters

Utilice la propiedad FileConverters para devolver el conjunto FileConverters. En el siguiente ejemplo, se determina si se dispone de un convertidor de WordPerfect 6.0.

For Each conv In FileConverters

    If conv.FormatName = "WordPerfect 6.x" Then

        MsgBox "Convertidor de WordPerfect 6.0 instalado"

    End if

Next conv

No hay ningún método Add disponible para el conjunto FileConverters. Los objetos FileConverter se agregan durante la instalación de Microsoft Office o al instalar convertidores suplementarios.

Utilice FileConverters(index), donde index corresponde al nombre de una clase o al número de índice, para devolver un solo objeto FileConverter. En el siguiente ejemplo, aparece la ruta de acceso del convertidor de hojas de cálculo de Microsoft Excel.

MsgBox FileConverters("MSBiff").Path

El número de índice representa la posición del convertidor de archivos del conjunto FileConverters. En el siguiente ejemplo, se muestra el nombre del formato del primer convertidor de archivos.

MsgBox FileConverters(1).FormatName

Comentarios

En el cuadro de diálogo Guardar como aparecen los convertidores de archivos utilizados para guardar documentos. Los convertidores de archivos para abrir documentos aparecen en un cuadro de diálogo si está activada la casilla de verificación Confirmar conversiones al abrir en la ficha General del cuadro de diálogo Opciones (menú Herramientas).


Objeto Font

Contiene los atributos de fuente como nombre, tamaño, color, etc., de un objeto.

Uso del objeto Font

Utilice la propiedad Font para devolver un objeto Font. La siguiente instrucción aplica formato de negrita a la selección.

Selection.Font.Bold = True

En el siguiente ejemplo, se da el formato de Arial de 24 puntos y negrita al primer párrafo del documento activo.

Set myRange = ActiveDocument.Paragraphs(1).Range

With myRange.Font

    .Bold = True

    .Name = "Arial"

    .Size = 24

End With

En el siguiente ejemplo, se cambia el formato del estilo Título 2 del documento activo a Arial y cursiva.

With ActiveDocument.Styles(wdStyleHeading2).Font

    .Name = "Arial"

    .Italic = True

End With

Comentarios

Puede utilizar la palabra clave New para crear un objeto Font nuevo e independiente. En el siguiente ejemplo, se crea un objeto Font, se establecen algunas propiedades de formato y, a continuación, se aplica el objeto Font al primer párrafo del documento activo.

Set myFont = New Font

myFont.Bold = True

myFont.Name = "Arial"

ActiveDocument.Paragraphs(1).Range.Font = myFont

También se puede duplicar un objeto Font mediante la propiedad Duplicate. En el siguiente ejemplo, se crea un nuevo estilo de carácter con el formato de carácter de la selección, así como con el formato de cursiva. No se cambia el formato de la selección.

Set aFont = Selection.Font.Duplicate

aFont.Italic = True

ActiveDocument.Styles.Add(Name:="Cursiva", Type:=wdStyleTypeCharacter).Font = aFont


Find, ListLevel, Range, Replacement, Selection, Style


Borders, Shading


Objeto FontNames

Representa una lista de los nombres de todas las fuentes disponibles.

Uso del objeto FontNames

Utilice la propiedad FontNames, LandscapeFontNames o PortraitFontNames para devolver el objeto FontNames. En el siguiente ejemplo, se muestra el número de fuentes verticales disponibles.

MsgBox PortraitFontNames.Count & " fuentes disponibles"

En este ejemplo, se muestran todos los nombres de fuentes del objeto FontNames al final del documento activo.

For Each aFont In FontNames

    ActiveDocument.Range.InsertAfter aFont & vbCr

Next aFont

Utilice FontNames(index), donde index corresponde al número de índice, para devolver el nombre de una fuente. En el siguiente ejemplo, se muestra el primer nombre de fuente del objeto FontNames.

MsgBox FontNames(1)

Comentarios

No puede agregar ni quitar nombres de la lista de nombres de fuentes disponibles.


Objeto Footnote

Representa una nota al pie situada en la parte inferior de la página o debajo de texto. El objeto Footnote es un miembro del conjunto Footnotes. Este conjunto representa las notas al pie de una selección, intervalo o documento.

Uso del objeto Footnote

Utilice Footnotes(index), donde index corresponde al número de índice, para devolver un solo objeto Footnote. El número de índice representa la posición de la nota al pie en la selección, intervalo o documento. En el siguiente ejemplo, se aplica formato rojo a la primera nota al pie de la selección.

If Selection.Footnotes.Count >= 1 Then

    Selection.Footnotes(1).Reference.Font.ColorIndex = wdRed

End If

Utilice el método Add para agregar una nota al pie al conjunto Footnotes. En el siguiente ejemplo, se inserta una nota al pie numerada automáticamente detrás de la selección.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Footnotes.Add Range:=Selection.Range , _

    Text:= "El sauce llorón, (Editorial Villaverde, 1996)."

Comentarios

Las notas al pie situadas al final de un documento o de una sección se consideran notas al final y se incluyen en el conjunto Endnotes.


Objeto de conjunto Footnotes

Conjunto de objetos Footnote que representan todas las notas al pie de la selección, el intervalo o el documento.

Uso del conjunto Footnotes

Utilice la propiedad Footnotes para devolver el conjunto Footnotes. En el siguiente ejemplo, se cambian todas las notas al pie del documento activo a notas al final.

ActiveDocument.Footnotes.SwapWithEndnotes

Utilice el método Add para agregar una nota al pie al conjunto Footnotes. En el siguiente ejemplo, se agrega una nota al pie inmediatamente después de la selección.

Selection.Collapse Direction:=wdCollapseEnd

ActiveDocument.Footnotes.Add Range:=Selection.Range , _

    Text:= "El sauce llorón, (Editorial Villaverde, 1996)."

Utilice Footnotes(index), donde index corresponde al número de índice, para devolver un solo objeto Footnote. El número de índice representa la posición de la nota al pie en la selección, intervalo o documento. En el siguiente ejemplo, se aplica formato rojo a la primera nota al pie de la selección.

If Selection.Footnotes.Count >= 1 Then

    Selection.Footnotes(1).Reference.Font.ColorIndex = wdRed

End If

Comentarios

Las notas al pie situadas al final de un documento o de una sección se consideran notas al final y se incluyen en el conjunto Endnotes.


Objeto FormField

Representa un solo campo de formulario. El objeto FormField es un miembro del conjunto FormFields.

Uso del objeto FormField

Utilice FormFields(index), donde index corresponde al nombre de un marcador o al número de índice, para devolver un solo objeto FormField. En el siguiente ejemplo, se establece el resultado del campo de formulario Texto1 en "Pablo Díaz".

ActiveDocument.FormFields("Texto1").Result = "Pablo Díaz"

El número de índice representa la posición del campo de formulario en la selección, intervalo o documento. En el siguiente ejemplo, aparece el nombre del primer campo de formulario de la selección.

If Selection.FormFields.Count >= 1 Then

    MsgBox Selection.FormFields(1).Name

End If

Utilice el método Add con el objeto FormFields para agregar un campo de formulario. En el siguiente ejemplo, se agrega una casilla de verificación al principio del documento activo y, a continuación, se selecciona la casilla de verificación.

Set ffield = ActiveDocument.FormFields.Add( _

    Range:=ActiveDocument.Range(Start:=0, End:=0), Type:=wdFieldFormCheckBox)

ffield.CheckBox.Value = True

Comentarios

Utilice las propiedades CheckBox, DropDown y TextInput con el objeto FormField para devolver los objetos CheckDown, DropDown y TextInput. En el siguiente ejemplo, se selecciona la casilla de verificación "Verificación1".

ActiveDocument.FormFields("Verificación1").CheckBox.Value = True


Objeto de conjunto FormFields

Conjunto de objetos FormField que representa todos los campos de formulario de la selección, el intervalo o el documento.

Uso del conjunto FormFields

Utilice la propiedad FormFields para devolver el conjunto FormFields. En el siguiente ejemplo, se cuenta el número de campos de formulario de cuadro de texto del documento activo.

For Each aField In ActiveDocument.FormFields

    If aField.Type = wdFieldFormTextInput Then count = count + 1

Next aField

MsgBox "Hay " & count & " cuadros de texto en este documento"

Utilice el método Add con el objeto FormFields para agregar un campo de formulario. En el siguiente ejemplo, se agrega una casilla de verificación al principio del documento activo y, a continuación, se selecciona la casilla de verificación.

Set ffield = ActiveDocument.FormFields.Add( _

    Range:=ActiveDocument.Range(Start:=0,End:=0), Type:=wdFieldFormCheckBox)

ffield.CheckBox.Value = True

Utilice FormFields(index), donde index corresponde al nombre de un marcador o al número de índice, para devolver un solo objeto FormField. En el siguiente ejemplo, se establece el resultado del campo de formulario Texto1 en "Pablo Díaz".

ActiveDocument.FormFields("Texto1").Result = "Pablo Díaz"

El número de índice representa la posición del campo de formulario en la selección, intervalo o documento. En el siguiente ejemplo, aparece el nombre del primer campo de formulario de la selección.

If Selection.FormFields.Count >= 1 Then

    MsgBox Selection.FormFields(1).Name

End If


CheckBox, DropDown, Range, TextInput


Objeto Frame

Representa un marco. El objeto Frame es un miembro del conjunto Frames. El conjunto Frames incluye todos los marcos en una selección, intervalo o documento.

Uso del objeto Frame

Utilice Frames(index), donde index corresponde al número de índice, para devolver un solo objeto Frame. El número de índice representa la posición del marco en la selección, intervalo o documento. En el siguiente ejemplo, se permite que el texto se ajuste alrededor del primer marco del documento activo.

ActiveDocument.Frames(1).TextWrap = True

Utilice el método Add para agregar un marco alrededor de un intervalo. En el siguiente ejemplo, se agrega un marco alrededor del primer párrafo del documento activo.

ActiveDocument.Frames.Add Range:=ActiveDocument.Paragraphs(1).Range

Comentarios

Puede ajustar texto alrededor de los objetos Shape o ShapeRange mediante la propiedad WrapFormat. Puede colocar un objeto Shape o ShapeRange utilizando las propiedades Top y Left.


Objeto de conjunto Frames

Conjunto de objetos Frame de la selección, intervalo o documento.

Uso del conjunto Frames

Utilice la propiedad Frames para devolver el conjunto Frames. En el siguiente ejemplo, se quitan los bordes de todos los marcos del documento activo.

For Each aFrame In ActiveDocument.Frames

    aFrame.Borders.Enable = False

Next aFrame

Utilice el método Add para agregar un marco alrededor de un intervalo. En el siguiente ejemplo, se agrega un marco alrededor del primer párrafo del documento activo.

ActiveDocument.Frames.Add Range:=ActiveDocument.Paragraphs(1).Range

Utilice Frames(index), donde index corresponde al número de índice, para devolver un solo objeto Frame. El número de índice representa la posición del marco en la selección, intervalo o documento. En el siguiente ejemplo, se provoca que el texto se ajuste alrededor del primer marco de la primera sección del documento activo.

ActiveDocument.Sections(1).Range.Frames(1).TextWrap = True

Comentarios

Puede ajustar texto alrededor de los objetos Shape o ShapeRange mediante la propiedad WrapFormat. Puede colocar un objeto Shape o ShapeRange utilizando las propiedades Top y Left.

La propiedad Count de este conjunto de un documento devuelve el número de elementos sólo del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.


Borders, Range, Shading


Objeto HeaderFooter

{

Representa un solo encabezado o pie de página. El objeto HeaderFooter es un miembro del conjunto HeadersFooters. El conjunto HeaderFooters incluye todos los encabezados y los pies de página de la sección del documento especificado.

Uso del objeto HeaderFooter

Utilice Headers(index) o Footers(index), donde index corresponde a una de las constantes WdHeaderFooterIndex (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage o wdHeaderFooterPrimary), para devolver un solo objeto HeaderFooter. En el siguiente ejemplo, se cambia el texto tanto del encabezado principal como del pie de página principal de la primera sección del documento activo.

With ActiveDocument.Sections(1)

    .Headers(wdHeaderFooterPrimary).Range.Text = "Texto del encabezado"

    .Footers(wdHeaderFooterPrimary).Range.Text = "Texto del pie de página"

End With

También puede devolver un solo objeto HeaderFooter mediante la propiedad HeaderFooter con un objeto Selection.

Nota   No puede agregar objetos HeaderFooter al conjunto HeaderFooters.

Comentarios

Utilice la propiedad DifferentFirstPageHeaderFooter con el objeto PageSetup para especificar una primera página distinta. En el siguiente ejemplo, se inserta texto en el primer pie de página del documento activo.

With ActiveDocument

    .PageSetup.DifferentFirstPageHeaderFooter = True

    .Sections(1).Footers(wdHeaderFooterFirstPage).Range.InsertBefore _

        "Escrito por Juan Saavedra"

End With

Utilice la propiedad OddAndEvenPagesHeaderFooter con el objeto PageSetup para especificar encabezados y pies de página pares e impares distintos. Si el valor de la propiedad OddAndEvenPagesHeaderFooter es True, puede devolver un encabezado o pie de página impar utilizando wdHeaderFooterPrimary y un encabezado o pie de página par mediante wdHeaderFooterEvenPages.

Utilice el método Add con el objeto PageNumbers para agregar un número de página a un encabezado o pie de página. En el siguiente ejemplo, se agregan números de página al pie de página principal de la primera sección del documento activo.

With ActiveDocument.Sections(1)

    .Footers(wdHeaderFooterPrimary).PageNumbers.Add

End With


Objeto de conjunto HeadersFooters

Conjunto de objetos HeaderFooter que representa los encabezados y los pies de página de la sección especificada de un documento.

Uso del conjunto HeaderFooters

Utilice la propiedad Headers o Footers para devolver el conjunto HeaderFooters. En el siguiente ejemplo, se muestra el texto del pie de página principal de la primera sección del documento activo.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

    If .Range.Text <> vbCr Then

        MsgBox .Range.Text

    Else

        MsgBox "El pie de página está vacío"

    End If

End With

Nota   No puede agregar objetos HeaderFooter al conjunto HeaderFooters.

Utilice Headers(index) o Footers(index), donde index corresponde a una de las constantes WdHeaderFooterIndex (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage o wdHeaderFooterPrimary), para devolver un solo objeto HeaderFooter. En el siguiente ejemplo, se cambia el texto tanto del encabezado principal como del pie de página principal de la primera sección del documento activo.

With ActiveDocument.Sections(1)

    .Headers(wdHeaderFooterPrimary).Range.Text = "Texto del encabezado"

    .Footers(wdHeaderFooterPrimary).Range.Text = "Texto del pie de página"

End With

También puede devolver un solo objeto HeaderFooter mediante la propiedad HeaderFooter con un objeto Selection.

Comentarios

Utilice la propiedad DifferentFirstPageHeaderFooter con el objeto PageSetup para especificar una primera página distinta. En el siguiente ejemplo, se inserta texto en el primer pie de página del documento activo.

With ActiveDocument

    .PageSetup.DifferentFirstPageHeaderFooter = True

    .Sections(1).Footers(wdHeaderFooterFirstPage).Range.InsertBefore _

        "Escrito por Carmen Díaz"

End With

Utilice la propiedad OddAndEvenPagesHeaderFooter con el objeto PageSetup para especificar encabezados y pies de página pares e impares distintos. Si el valor de la propiedad OddAndEvenPagesHeaderFooter es True, puede devolver un encabezado o pie de página impar utilizando wdHeaderFooterPrimary y un encabezado o pie de página par mediante wdHeaderFooterEvenPages.

Utilice el método Add con el objeto PageNumbers para agregar un número de página a un encabezado o pie de página. En el siguiente ejemplo, se agregan números de página al primer pie de página de la primera sección del documento activo.

With ActiveDocument.Sections(1)

    .PageSetup.DifferentFirstPageHeaderFooter = True

    .Footers(wdHeaderFooterFirstPage).PageNumbers.Add FirstPage:=True

End With


PageNumbers, Range, Shapes


Objeto HeadingStyle

Representa un estilo utilizado para generar una tabla de contenido o ilustraciones. El objeto HeadingStyle es un miembro del conjunto HeadingStyles.

Uso del objeto HeadingStyle

Utilice HeadingStyles(index), donde index corresponde al número de índice, para devolver un solo objeto HeadingStyle. El número de índice representa la posición del estilo en el conjunto HeadingStyles. En el siguiente ejemplo, se agrega, al principio del documento activo, una tabla de ilustraciones generada a partir del estilo de título y, a continuación, se muestra el nombre del primer estilo del conjunto HeadingStyles.

Set myTOF = ActiveDocument.TablesOfFigures.Add _

    (Range:=ActiveDocument.Range(0, 0), AddedStyles:="Título")

MsgBox myTOF.HeadingStyles(1).Style

Utilice el método Add para agregar un estilo al conjunto HeadingStyles. En el siguiente ejemplo, se agrega una tabla de contenido al principio del documento activo y, a continuación, se agrega el estilo de título a la lista de estilos utilizados para generar una tabla de contenido.

Set myToc = ActiveDocument.TablesOfContents.Add _

    (Range:=ActiveDocument.Range(0, 0), UseHeadingStyles:=True, _

     LowerHeadingLevel:=3, UpperHeadingLevel:=1)

myToc.HeadingStyles.Add Style:="Título", Level:=2


Objeto de conjunto HeadingStyles

Conjunto de objetos HeadingStyle que representa los estilos utilizados para compilar una tabla de ilustraciones o de contenido.

Uso del conjunto HeadingStyles

Utilice la propiedad HeadingStyles para devolver el conjunto HeadingStyles. En el siguiente ejemplo, se muestra el número de elementos del conjunto HeadingStyles de la primera tabla de contenido del documento activo.

MsgBox ActiveDocument.TablesOfContents(1).HeadingStyles.Count

Utilice el método Add para agregar un estilo al conjunto HeadingStyles. En el siguiente ejemplo, se agrega una tabla de contenido al principio del documento activo y, a continuación, se agrega el estilo de título a la lista de estilos utilizados para generar una tabla de contenido.

Set myToc = ActiveDocument.TablesOfContents.Add _

    (Range:=ActiveDocument.Range(0, 0), UseHeadingStyles:=True, _

     LowerHeadingLevel:=3, UpperHeadingLevel:=1)

myToc.HeadingStyles.Add Style:="Título", Level:=2

Utilice HeadingStyles(index), donde index corresponde al número de índice, para devolver un solo objeto HeadingStyle. El número de índice representa la posición del estilo en el conjunto HeadingStyles. En el siguiente ejemplo, se agrega, al principio del documento activo, una tabla de ilustraciones generada a partir del estilo de título y, a continuación, se muestra el nombre del primer estilo del conjunto HeadingStyles.

Set myTOF = ActiveDocument.TablesOfFigures.Add _

    (Range:=ActiveDocument.Range(0, 0), AddedStyles:="Título")

MsgBox myTOF.HeadingStyles(1).Style


TableOfContents, TableOfFigures


Objeto Index

Representa un solo índice. El objeto Index es un miembro del conjunto Indexes. El conjunto Indexes incluye todos los índices del documento especificado.

Uso del objeto Index

Utilice Indexes(index), donde index corresponde al número de índice, para devolver un solo objeto Index. El número de índice representa la posición del objeto Index del documento. En el siguiente ejemplo, se actualiza el primer índice del documento activo.

If ActiveDocument.Indexes.Count >= 1 Then

    ActiveDocument.Indexes(1).Update

End If

Utilice el método Add para crear un nuevo índice y agregarlo al conjunto Indexes. En el siguiente ejemplo, se crea un índice al final del documento activo.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseEnd

ActiveDocument.Indexes.Add Range:=myRange, Type:=wdIndexRunin


Objeto de conjunto Indexes

Conjunto de objetos Index que representan todos los índices del documento especificado.

Uso del conjunto Indexes

Utilice la propiedad Indexes para devolver el conjunto Indexes. En el siguiente ejemplo, se da formato a los índices del documento activo con el formato clásico.

ActiveDocument.Indexes.Format = wdIndexClassic

Utilice el método Add para crear un nuevo índice y agregarlo al conjunto Indexes. En el siguiente ejemplo, se crea un índice al final del documento activo.

Set myRange = ActiveDocument.Content

myRange.Collapse Direction:=wdCollapseEnd

ActiveDocument.Indexes.Add Range:=myRange, Type:=wdIndexRunin

Utilice Indexes(index), donde index corresponde al número de índice, para devolver un solo objeto Index. El número de índice representa la posición del objeto Index del documento. En el siguiente ejemplo, se actualiza el primer índice del documento activo.

If ActiveDocument.Indexes.Count >= 1 Then

    ActiveDocument.Indexes(1).Update

End If


Objeto MailingLabel

Representa una etiqueta postal.

Uso del objeto MailingLabel

Utilice la propiedad MailingLabel para devolver un objeto MailingLabel. En el siguiente ejemplo, se establecen las opciones de las etiquetas postales predeterminadas.

With Application.MailingLabel

    .DefaultLaserTray = wdPrinterLowerBin

End With

Utilice el método PrintOut para imprimir una etiqueta postal que aparezca en el cuadro Número de producto del cuadro de diálogo Establecer opciones para etiquetas. En el siguiente ejemplo, se imprime una página de etiquetas de direcciones estándar Avery 5162 utilizando las direcciones especificadas.

addr = "Claudia Menéndez" & vbCr & "Goya,123" & vbCr & "28020 Madrid"

Application.MailingLabel.PrintOut Name:="5095", Address:=addr

Comentarios

Utilice la propiedad CustomLabels para dar formato o imprimir una etiqueta postal personalizada. En el siguiente ejemplo, se establece el número de etiquetas horizontalmente y hacia debajo de la etiqueta personalizada denominada "MiEtiqueta".

With Application.MailingLabel.CustomLabels("MiEtiqueta")

    .NumberAcross = 2

    .NumberDown = 5

End With


Objeto LineNumbering

Representa los números de línea del margen izquierdo o a la izquierda de cada columna de estilo periodístico.

Uso del objeto LineNumbering

Utilice la propiedad LineNumbering para devolver un objeto LineNumbering. En el siguiente ejemplo, se aplica la numeración de líneas al texto de la primera sección del documento activo.

With ActiveDocument.Sections(1).PageSetup.LineNumbering

    .Active = True

    .CountBy = 5

    .RestartMode = wdRestartPage

End With

En el siguiente ejemplo, se aplica la numeración de líneas a las páginas de la sección actual.

Selection.PageSetup.LineNumbering.Active = True


Document, Range, Section, Sections, Selection


Objeto de conjunto ListEntries

Conjunto de objetos ListEntry que representan todos los elementos de un campo de formulario desplegable.

Uso del conjunto ListEntries

Utilice la propiedad ListEntries para devolver el conjunto ListEntries. En el siguiente ejemplo, se muestran los elementos que aparecen el campo de formulario denominado "Desp1".

For Each le In ActiveDocument.FormFields("Desp1").DropDown.ListEntries

    MsgBox le.Name

Next le

Utilice el método Add para agregar un elemento a un campo de formulario desplegable. En el siguiente ejemplo, se inserta un campo de formulario desplegable y, a continuación, se agregan "rojo", "azul" y "verde" al campo de formulario.

Set myField = ActiveDocument.FormFields.Add(Range:=Selection.Range, _

     Type:=wdFieldFormDropDown)

With myField.DropDown.ListEntries

    .Add Name:="Rojo"

    .Add Name:="Azul"

    .Add Name:="Verde"

End With

Utilice ListEntries(index), donde index corresponde al nombre de elemento o al número de índice, para devolver un solo objeto ListEntry. El número de índice representa la posición del elemento del campo de formulario desplegable, el primer elemento tiene el número de índice 1. En el siguiente ejemplo, se elimina el elemento "Azul" del campo de formulario desplegable denominado "Color".

ActiveDocument.FormFields("Color").DropDown.ListEntries("Azul").Delete

En el siguiente ejemplo, se muestra el primer elemento del campo de formulario desplegable denominado "Color".

MsgBox ActiveDocument.FormFields("Color").DropDown.ListEntries(1).Name


Objeto ListEntry

Representa un elemento de un campo de formulario desplegable. El objeto ListEntry es un miembro del conjunto ListEntries. El conjunto ListEntries incluye todos los elementos de un campo de formulario desplegable.

Uso del objeto ListEntry

Utilice ListEntries(index), donde index corresponde al nombre de elemento o al número de índice, para devolver un solo objeto ListEntry. El número de índice representa la posición del elemento del campo de formulario desplegable, el primer elemento tiene el número de índice 1. En el siguiente ejemplo, se elimina el elemento "Azul" del campo de formulario desplegable denominado "Color".

ActiveDocument.FormFields("Color").DropDown.ListEntries("Azul").Delete

En el siguiente ejemplo, se muestra el primer elemento del campo de formulario desplegable denominado "Color".

MsgBox ActiveDocument.FormFields("Color").DropDown.ListEntries(1).Name

Utilice el método Add para agregar un elemento a un campo de formulario desplegable. En el siguiente ejemplo, se inserta un campo de formulario desplegable y, a continuación, se agregan "rojo", "azul" y "verde" al campo de formulario.

Set myField = ActiveDocument.FormFields.Add(Range:=Selection.Range, _

     Type:=wdFieldFormDropDown)

With myField.DropDown.ListEntries

    .Add Name:="Rojo"

    .Add Name:="Azul"

    .Add Name:="Verde"

End With


Objeto MailMerge

Representa la funcionalidad de combinación de correspondencia de Word.

Uso del objeto MailMerge

Utilice la propiedad MailMerge para devolver un objeto MailMerge. El objeto MailMerge siempre está disponible independientemente de si ha empezado la operación de combinación de correspondencia. Utilice la propiedad State para determinar el estado de la operación de combinación de correspondencia. En el siguiente ejemplo, se ejecuta una combinación de correspondencia si el documento activo es un documento principal con un origen de datos adjunto.

If ActiveDocument.MailMerge.State = wdMainAndDataSource Then

    ActiveDocument.MailMerge.Execute

End If

En el siguiente ejemplo, se combina el documento principal con los tres primeros registros de datos del origen de datos adjunto y, a continuación, se envían los resultados a la impresora.

Set myMerge = ActiveDocument.MailMerge

If myMerge.State = wdMainAndSourceAndHeader Or _

    myMerge.State = wdMainAndDataSource Then

    With myMerge.DataSource

        .FirstRecord = 1

        .LastRecord = 3

    End With

End If

With myMerge

    .Destination = wdSendToPrinter

    .Execute

End With


MailMergeDataSource, MailMergeFields


Objeto MailMergeDataField

Representa un solo campo de combinación de correspondencia de un origen de datos. El objeto MailMergeDataField es un miembro del conjunto MailMergeDataFields. El conjunto MailMergeDataFields incluye todos los campos de datos de un origen de datos de combinación de correspondencia; por ejemplo, Nombre, Dirección y Ciudad.

Uso del objeto MailMergeDataField

Utilice DataFields(index), donde index corresponde al nombre del campo de datos o al número de índice, para devolver un solo objeto MailMergeDataField. El número de índice representa la posición del campo de datos en el origen de datos de combinación de correspondencia. En el siguiente ejemplo, se recupera el primer valor del campo Fnombre del origen de datos adjunto al documento activo.

first = ActiveDocument.MailMerge.DataSource.DataFields("FNombre").Value

En el siguiente ejemplo, se muestra el nombre del primer campo del origen de datos adjunto al documento activo.

MsgBox ActiveDocument.MailMerge.DataSource.DataFields(1).Name

No puede agregar campos al conjunto MailMergeDataFields. Todos los campos de datos de un origen de datos se incluyen automáticamente en el conjunto MailMergeDataFields.


Objeto de conjunto MailMergeDataFields

Conjunto de objetos MailMergeDataField que representan los campos de datos de un origen de datos de combinación de correspondencia.

Uso del conjunto MailMergeDataFields

Utilice la propiedad DataFields para devolver el conjunto MailMergeDataFields. En el siguiente ejemplo, se muestran los nombres de todos los campos del origen de datos adjunto.

For Each afield In ActiveDocument.MailMerge.DataSource.DataFields

    MsgBox afield.Name

Next afield

No puede agregar campos al conjunto MailMergeDataFields. Cuando se agrega un campo de datos a un origen de datos, el campo se incluye automáticamente en el conjunto MailMergeDataFields. Utilice el método EditDataSource para modificar el contenido de un origen de datos. En el siguiente ejemplo, se agrega un campo de datos denominado "Autor" a una tabla del origen de datos adjunto.

If ActiveDocument.MailMerge.DataSource.Type = wdMergeInfoFromWord

    ActiveDocument.MailMerge.EditDataSource

    With ActiveDocument.Tables(1)

        .Columns.Add

        .Cell(Row:=1, Column:=.Columns.Count).Range.Text = "Autor"

    End With

End If

Utilice DataFields(index), donde index corresponde al nombre del campo de datos o al número de índice, para devolver un solo objeto MailMergeDataField. El número de índice representa la posición del campo de datos en el origen de datos de combinación de correspondencia. En el siguiente ejemplo, se recupera el primer valor del campo Fnombre del origen de datos adjunto al documento activo.

first = ActiveDocument.MailMerge.DataSource.DataFields("FNombre").Value

En el siguiente ejemplo, se muestra el nombre del primer campo de datos del origen de datos adjunto al documento activo.

MsgBox ActiveDocument.MailMerge.DataSource.DataFields(1).Name


Objeto MailMergeFieldName

Representa el nombre del campo de combinación de correspondencia de un origen de datos. El objeto MailMergeFieldName es un miembro del conjunto MailMergeFieldNames. El conjunto MailMergeFieldNames incluye todos los nombres de los campos de datos en un origen de datos de combinación de correspondencia.

Uso del objeto MailMergeFieldName

Utilice FieldNames(index), donde index corresponde al número de índice, para devolver un solo objeto MailMergeFieldName. El número de índice representa la posición del campo en el origen de datos de combinación de correspondencia. En el siguiente ejemplo, se recupera el nombre del último campo del origen de datos adjunto al documento activo.

alast = ActiveDocument.MailMerge.DataSource.FieldNames.Count

afirst = ActiveDocument.MailMerge.DataSource.FieldNames(alast).Name

MsgBox afirst

No puede agregar campos al conjunto MailMergeFieldNames. Los nombres de los campos de un origen de datos se incluyen automáticamente en el conjunto MailMergeFieldNames.


Objeto de conjunto MailMergeFieldNames

Conjunto de objetos MailMergeFieldName que representan los nombres de campos de un origen de datos de combinación de correspondencia.

Uso del conjunto MailMergeFieldNames

Utilice la propiedad FieldNames para devolver el conjunto MailMergeFieldNames. En el siguiente ejemplo, se muestran los nombres de los campos del origen de datos adjunto al documento activo.

For Each afield In ActiveDocument.MailMerge.DataSource.FieldNames

    MsgBox afield.Name

Next afield

No puede agregar nombres al conjunto MailMergeFieldNames. Cuando se agrega un campo a un origen de datos, el nombre del campo se incluye automáticamente en el conjunto MailMergeFieldNames. Utilice el método EditDataSource para modificar el contenido de un origen de datos. En el siguiente ejemplo, se agrega un campo de datos denominado "Autor" a una tabla del origen de datos adjunto al documento activo.

If ActiveDocument.MailMerge.DataSource.Type = wdMergeInfoFromWord

    ActiveDocument.MailMerge.EditDataSource

    With ActiveDocument.Tables(1)

        .Columns.Add

        .Cell(Row:=1, Column:=.Columns.Count).Range.Text = "Autor"

    End With

End If


Objeto RecentFile

Representa un archivo utilizado recientemente. El objeto RecentFile es un miembro del conjunto RecentFiles. El conjunto RecentFiles incluye todos los archivos que se hayan utilizado recientemente. Los elementos del conjunto RecentFiles se muestran en la parte inferior del menú Archivo

Uso del objeto RecentFile

Utilice RecentFiles(index), donde index corresponde al número de índice, para devolver un solo objeto RecentFile. El número de índice representa la posición del archivo en el menú Archivo. En el siguiente ejemplo, se abre el primer documento del conjunto RecentFiles.

If RecentFiles.Count >= 1 Then RecentFiles(1).Open

Utilice el método Add para agregar un archivo al conjunto RecentFiles. En el siguiente ejemplo, se agrega el documento activo a la lista de archivos utilizados recientemente.

If ActiveDocument.Saved = True Then

    RecentFiles.Add Document:=ActiveDocument.FullName, ReadOnly:=True

End If

Comentarios

Los métodos SaveAs y Open incluyen un argumento AddToRecentFiles que controla si se agrega un archivo a la lista de archivos utilizados recientemente al abrir o guardar el archivo.


Objeto de conjunto RecentFiles

Conjunto de objetos RecentFile que representan los archivos que se han utilizado recientemente. Los elementos del conjunto RecentFiles se muestran en la parte inferior del menú Archivo

Uso del conjunto RecentFiles

Utilice la propiedad RecentFiles para devolver el conjunto RecentFiles. En el siguiente ejemplo, se establece el número cinco como número máximo de archivos que puede contener el conjunto RecentFiles.

RecentFiles.Maximum = 5

Utilice el método Add para agregar un archivo al conjunto RecentFiles. En el siguiente ejemplo, se agrega el documento activo a la lista de archivos utilizados recientemente.

If ActiveDocument.Saved = True Then

    RecentFiles.Add Document:=ActiveDocument.FullName, ReadOnly:=True

End If

Utilice RecentFiles(index), donde index corresponde al número de índice, para devolver un solo objeto RecentFile. El número de índice representa la posición del archivo en el menú Archivo. En el siguiente ejemplo, se abre el primer documento del conjunto RecentFiles.

If RecentFiles.Count >= 1 Then RecentFiles(1).Open

Comentarios

Los métodos SaveAs y Open incluyen un argumento AddToRecentFiles que controla si se agrega un archivo a la lista de archivos utilizados recientemente al abrir o guardar el archivo.


Objeto Shading

Contiene los atributos de sombreado de un objeto.

Uso del objeto Shading

Utilice la propiedad Shading para devolver un objeto Shading. En el siguiente ejemplo, se aplica un sombreado gris fino al primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Shading.Texture = wdTexture10Percent

En el siguiente ejemplo, se aplica a la selección sombreado con colores distintos en el primer plano y en el fondo.

With Selection.Shading

    .Texture = wdTexture20Percent

    .ForegroundPatternColorIndex = wdBlue

    .BackgroundPatternColorIndex = wdYellow

End With

En el siguiente ejemplo, se aplica una textura de línea vertical a la primera fila de la primera tabla del documento activo.

ActiveDocument.Tables(1).Rows(1).Shading.Texture = wdTextureVertical


Cell, Cells, Column, Columns, Font, Frame, Paragraph, ParagraphFormat, Paragraphs, Range,Row, Rows, Selection, Style, Table


Objeto Row

Representa la fila de una tabla. El objeto Row es un miembro del conjunto Rows. El conjunto Rows incluye todas las filas de la selección, tabla o rango especificado.

Uso del objeto Row

Utilice Rows(index), donde index corresponde al número de índice, para devolver un solo objeto Row. El número de índice representa la posición de la fila en la selección, intervalo o tabla. En el siguiente ejemplo, se elimina la primera fila de la primera tabla del documento activo.

ActiveDocument.Tables(1).Rows(1).Delete

Utilice el método Add para agregar una fila a la tabla. En el siguiente ejemplo, se inserta una fila delante de la primera fila de la selección.

If Selection.Information(wdWithInTable) = True Then

    Selection.Rows.Add BeforeRow:=Selection.Rows(1)

End If

Comentarios

Utilice la propiedad Cells para modificar las celdas individuales de un objeto Row. En el siguiente ejemplo, se agrega una tabla a la selección y, a continuación, se insertan números en todas las celdas de la segunda fila de la tabla.

Selection.Collapse Direction:=wdCollapseEnd

If Selection.Information(wdWithInTable) = False Then

    Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _

        NumRows:=3, NumColumns:=5)

    For Each aCell In myTable.Rows(2).Cells

        i = i + 1

        aCell.Range.Text = i

    Next aCell

End If


Objeto de conjunto Rows

Conjunto de objetos Row que representa las filas de la tabla de la selección, intervalo o documento especificado.

Uso del conjunto Rows

Utilice la propiedad Rows para devolver el conjunto Rows. En el siguiente ejemplo, se centran las filas de la primera tabla del documento activo entre los márgenes izquierdo y derecho.

ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter

Utilice el método Add para agregar una fila a la tabla. En el siguiente ejemplo, se inserta una fila delante de la primera fila de la selección.

If Selection.Information(wdWithInTable) = True Then

    Selection.Rows.Add BeforeRow:=Selection.Rows(1)

End If

Utilice Rows(index), donde index corresponde al número de índice, para devolver un solo objeto Row. El número de índice representa la posición de la fila en la selección, intervalo o tabla. En el siguiente ejemplo, se elimina la primera fila de la primera tabla del documento activo.

ActiveDocument.Tables(1).Rows(1).Delete


Borders, Cells, Range, Shading


Objeto de conjunto Sentences

Conjunto de objetos Range que representa todas las oraciones de la selección, intervalo o documento. No hay objeto Sentence.

Uso del conjunto Sentences

Utilice la propiedad Sentences para devolver el conjunto Sentences. En el siguiente ejemplo, se muestra el número de oraciones seleccionadas.

MsgBox Selection.Sentences.Count & " oraciones seleccionadas"

Utilice Sentences(index), donde index es el número de índice, para devolver un objeto Range que representa una oración. El número de índice representa la posición de una oración en el conjunto Sentences. En el siguiente ejemplo, se da formato a la primera oración del documento activo.

With ActiveDocument.Sentences(1)

    .Bold = True

    .Font.Size = 24

End With

Comentarios

La propiedad Count de este conjunto de un documento devuelve el número de elementos sólo del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.

No hay ningún método Add disponible para el conjunto Sentences. En su lugar, utilice el método InsertAfter o InsertBefore para agregar una oración a un objeto Range. En el siguiente ejemplo, se inserta una oración detrás del primer párrafo del documento activo.

With ActiveDocument

    MsgBox .Sentences.Count & " oraciones"

    .Paragraphs(1).Range.InsertParagraphAfter

    .Paragraphs(2).Range.InsertBefore "La casa es azul."

    MsgBox .Sentences.Count & " oraciones"

End With


Objeto FirstLetterException

Representa una abreviatura excluida de la corrección automática. El objeto FirstLetterException es un miembro del conjunto FirstLetterExceptions. Este conjunto incluye todas las abreviaturas excluidas.

Nota   El primer carácter después de un punto se pone automáticamente en mayúsculas cuando el valor de la propiedad CorrectSentenceCaps se establece en True. El carácter que escriba a continuación de un elemento del conjunto FirstLetterExceptions no se pone en mayúsculas.

Uso del objeto FirstLetterException

Utilice FirstLetterExceptions(index), donde index corresponde a la abreviatura o al número de índice, para devolver un solo objeto FirstLetterException. En el siguiente ejemplo, se elimina la abreviatura "apto." del conjunto FirstLetterExceptions.

AutoCorrect.FirstLetterExceptions("apto.").Delete

En el siguiente ejemplo, aparece el nombre del primer elemento del conjunto FirstLetterExceptions.

MsgBox AutoCorrect.FirstLetterExceptions(1).Name

Utilice el método Add para agregar una abreviatura a la lista de excepciones de primera letra. En el siguiente ejemplo, se agrega la abreviatura "dir." a la lista.

AutoCorrect.FirstLetterExceptions.Add Name:="dir."


Objeto de conjunto FirstLetterExceptions

Conjunto de objetos FirstLetterException que representan las abreviaturas excluidas de la corrección automática.

Nota   El primer carácter después de un punto se pone automáticamente en mayúsculas cuando el valor de la propiedad CorrectSentenceCaps se establece en True. El conjunto FirstLetterExceptions incluye las excepciones de este funcionamiento; por ejemplo, abreviaturas como "dir." y "apto.".

Uso del conjunto FirstLetterExceptions

Utilice la propiedad FirstLetterExceptions para devolver el conjunto FirstLetterExceptions. En el siguiente ejemplo, se elimina la abreviatura "dir." si está incluida en el conjunto FirstLetterExceptions.

For Each aExcept In AutoCorrect.FirstLetterExceptions

    If aExcept.Name = "dir." Then aExcept.Delete

Next aExcept

En el siguiente ejemplo, se crea un nuevo documento y se insertan todas las excepciones de primera letra de Autocorrección en él.

Documents.Add

For Each aExcept In AutoCorrect.FirstLetterExceptions

    With Selection

        .InsertAfter aExcept.Name

        .InsertParagraphAfter

        .Collapse Direction:=wdCollapseEnd

    End With

Next aExcept

Utilice el método Add para agregar una abreviatura a la lista de excepciones de primera letra. En el siguiente ejemplo, se agrega la abreviatura "dir." a la lista.

AutoCorrect.FirstLetterExceptions.Add Name:="dir."

Utilice FirstLetterExceptions(index), donde index corresponde a la abreviatura o al número de índice, para devolver un solo objeto FirstLetterException. En el siguiente ejemplo, se elimina la abreviatura "apto." del conjunto FirstLetterExceptions.

AutoCorrect.FirstLetterExceptions("apto.").Delete

En el siguiente ejemplo, aparece el nombre del primer elemento del conjunto FirstLetterExceptions.

MsgBox AutoCorrect.FirstLetterExceptions(1).Name


Objeto Language

Representa el idioma utilizado para revisar o dar formato en Word. El objeto Language es un miembro del conjunto Languages.

Uso del objeto Language

Utilice Languages(index), donde index corresponde a un nombre o a una de las constantes WdLanguageID, para devolver sólo un objeto Language.

La propiedad Name devuelve el nombre del idioma, mientras que la propiedad NameLocal devuelve el nombre del idioma en el idioma del usuario. En el siguiente ejemplo, se devuelve la cadena "Italiano" para Name e "Italian (estándar) " para NameLocal cuando se ejecuta en la versión de inglés americano de Word.

Msgbox Languages(wdItalian).Name

Msgbox Languages(wdItalian).NameLocal

Devolución de diccionarios de revisión activos

Por cada idioma para el que se hayan instalado las herramientas de revisión, podrá utilizar las propiedades ActiveGrammarDictionary, ActiveHyphenationDictionary, ActiveSpellingDictionary y ActiveThesaurusDictionary a fin de devolver los objetos Dictionary correspondientes. En el siguiente ejemplo, se devuelve la ruta de acceso completa para el diccionario ortográfico activo utilizado en la versión de inglés americano de Word.

Set myspell = Languages(wdEnglishUS).ActiveSpellingDictionary

MsgBox mySpell.Path & Application.PathSeparator & mySpell.Name

Configuración del Estilo de escritura

El estilo de escritura es el conjunto de reglas que utiliza el corrector gramatical. La propiedad WritingStyleList devuelve una matriz de cadenas que representa los estilos de escritura disponibles para el idioma especificado. En el siguiente ejemplo, se devuelve la lista de estilos de escritura del idioma inglés americano.

WrStyles = Languages(wdEnglishUS).WritingStyleList

For i = 1 To UBound(WrStyles)

    MsgBox WrStyles(i)

Next i

Utilice la propiedad DefaultWritingStyle para establecer el estilo de escritura predeterminado que desee usar en Word.

Languages(wdEnglishUS).DefaultWritingStyle = "Informal"

Puede suplantar el estilo de escritura predeterminado con la propiedad ActiveWritingStyle. Esta propiedad se aplica a un documento especificado para texto marcado en un idioma especificado. En el siguiente ejemplo, se establece el estilo de escritura que se vaya a usar para revisar los idiomas inglés americano, francés y alemán del documento activo.

With ActiveDocument

    .ActiveWritingStyle(wdEnglishUS) = "Técnico"

    .ActiveWritingStyle(wdFrench) = "Comercial"

    .ActiveWritingStyle(wdGerman) = "Técnico/comercial"

End With

Comentarios

Deberá tener instaladas las herramientas de revisión de los idiomas que vaya a revisar. Necesitará tanto un archivo .dll como un archivo .lex de los siguientes elementos: diccionario de sinónimos, corrector ortográfico, corrector gramatical y herramientas de división de palabras.

Si marca texto como wdNoProofing, Word se saltará el texto marcado al ejecutar una revisión ortográfica o gramatical. Para marcar el texto de un idioma especificado o de no revisión, utilice el comando Definir idioma (menú Herramientas, submenú Idioma).


Objeto de conjunto Languages

Conjunto de objetos Language que representan los idiomas utilizados para revisar o dar formato en Word.

Uso del conjunto Languages

Utilice la propiedad Languages para devolver el conjunto Languages. En el siguiente ejemplo, se muestra el nombre localizado de cada idioma.

For Each la In Languages

    Msgbox la.NameLocal

Next la

Utilice Languages(index), donde index corresponde a un nombre o a una de las constantes WdLanguageID, para devolver un objeto Language.

Comentarios

La propiedad Count devuelve el número de idiomas en los que puede marcar texto; es decir, los idiomas que disponen de herramientas de revisión. Para llevar a cabo una revisión, deberá instalar las herramientas adecuadas de todos los idiomas que vaya a revisar. Necesitará tanto un archivo .dll como un archivo .lex de los siguientes elementos: diccionario de sinónimos, corrector ortográfico, corrector gramatical y herramientas de división de palabras.

Si marca texto como wdNoProofing, Word se saltará el texto marcado al ejecutar una revisión ortográfica o gramatical. Para marcar el texto de un idioma especificado o de no revisión, utilice el comando Definir idioma (menú Herramientas, submenú Idioma).


Objeto SynonymInfo

Representa la información acerca de sinónimos, antónimos, palabras o expresiones relacionadas del intervalo especificado o de una cadena dada.

Uso del objeto SynonymInfo

Utilice la propiedad SynonymInfo para devolver un objeto SynonymInfo. El objeto SynonymInfo puede devolverse desde un intervalo o desde Word. Si lo devuelve Word, especifique la palabra o la oración de búsqueda y un ID de idioma de revisión; si lo devuelve un intervalo, Word utilizará el intervalo especificado como palabra de búsqueda. En el siguiente ejemplo, se devuelve un objeto SynonymInfo desde Word.

temp = SynonymInfo(Word:="significado", LanguageID:=wdSpanish).Found

En el siguiente ejemplo, se devuelve un objeto SynonymInfo desde un intervalo.

temp = Selection.Range.SynonymInfo.Found

La propiedad Found, utilizada en los ejemplos anteriores, devuelve el valor True si se encuentra información para el intervalo especificado o para Word en el diccionario de sinónimos. Tenga en cuenta, sin embargo, que esta propiedad devuelve el valor True no sólo si se encuentran los sinónimos sino también si se encuentran palabras, expresiones relacionadas o antónimos.

Muchas de las propiedades del objeto SynonymInfo devuelven una Variant que contiene una matriz de cadenas. Al trabajar con estas propiedades, puede asignar la matriz devuelta a una variable y, a continuación, indizarla para ver sus elementos. En el siguiente ejemplo, se asigna Slist a la lista de sinónimos para el primer significado de la palabra u oración seleccionada. La función UBound busca el límite superior de la matriz y, a continuación, se muestran todos los elementos en el cuadro de mensaje.

Slist = Selection.Range.SynonymInfo.SynonymList(1)

For i = 1 To UBound(Slist)

    Msgbox Slist(i)

Next i

Puede comprobar el valor de la propiedad MeaningCount para evitar errores potenciales de código. En el siguiente ejemplo, se devuelve una lista de sinónimos para el segundo significado de la palabra u oración de la selección y se muestran estos sinónimos en el panel Inmediato.

Set synInfo = Selection.Range.SynonymInfo

If synInfo.MeaningCount >= 2 Then

    synList = synInfo.SynonymList(2)

    For i = 1 To UBound(synList)

        Debug.Print synList(i)

    Next i

Else

    MsgBox "No hay ningún segundo significado para la selección."

End If


Application, Range


Objeto SpellingSuggestion

Representa una sola sugerencia ortográfica para el error correspondiente. El objeto SpellingSuggestion es un miembro del conjunto SpellingSuggestions. Este conjunto incluye todas las sugerencias para una palabra especificada o para la primera del intervalo especificado.

Uso del objeto SpellingSuggestion

Utilice GetSpellingSuggestions(index), donde index corresponde al número de índice, para devolver un solo objeto SpellingSuggestion. En el siguiente ejemplo, se realiza una revisión por si hubiera sugerencias ortográficas para la primera palabra del documento activo. Si las hay, se muestra la primera sugerencia en un cuadro de mensaje.

If ActiveDocument.Words(1).GetSpellingSuggestions.Count <> 0 Then

    MsgBox ActiveDocument.Words(1).GetSpellingSuggestions(1).Name

EndIf

Comentarios

La propiedad Count del objeto SpellingSuggestions devuelve el valor 0 (cero) si la ortografía de la palabra es correcta o si no hay sugerencias.


Objeto de conjunto SpellingSuggestions

Conjunto de objetos SpellingSuggestion que representan las sugerencias para una palabra especificada o para la primera del intervalo especificado.

Uso del conjunto SpellingSuggestions

Utilice el método GetSpellingSuggestions para devolver el conjunto SpellingSuggestions. Este método, cuando se aplica al objeto Application, debe especificar la palabra que va a revisarse. Cuando se aplica el método GetSpellingSuggestions a un intervalo, se revisa la primera palabra del intervalo. En el siguiente ejemplo, se realiza una revisión por si hubiera sugerencias ortográficas para cualquier palabra del documento activo. En este caso, las sugerencias aparecen en cuadros de mensajes.

For Each wd In ActiveDocument.Words

    Set sugg = wd.GetSpellingSuggestions

    If sugg.Count <> 0 Then

        For Each ss In sugg

            MsgBox ss.Name

        Next ss

    End If

Next wd

Comentarios

No puede agregar ni quitar sugerencias del conjunto de sugerencias ortográficas. Estas sugerencias se derivan de los archivos de los diccionarios principal y personalizado.


Objeto de conjunto Dictionaries

Conjunto de objetos Dictionary que incluye los diccionarios ortográficos personalizados activos.

Uso del conjunto Dictionaries

Utilice la propiedad CustomDictionaries para devolver el conjunto de diccionarios personalizados actualmente activos. En el siguiente ejemplo, se muestran los nombres de todos los diccionarios personalizados activos.

For Each d In CustomDictionaries

    Msgbox d.Name

Next d

Utilice el método Add para agregar un nuevo diccionario personalizado al conjunto de diccionarios personalizados activos. Si no hay ningún archivo con el nombre que especifique FileName, Word lo crea. En el siguiente ejemplo, se agrega "Personal.dic" al conjunto de diccionarios personalizados.

new = CustomDictionaries.Add(FileName:="Personal.dic")

Utilice el método ClearAll para descargar todos los diccionarios personalizados. Observe, sin embargo, que este método no elimina los archivos de diccionarios. Después de utilizar este método, el número de diccionarios personalizados del conjunto es 0 (cero). En el siguiente ejemplo, se borran los diccionarios personalizados y se crea un nuevo archivo de diccionarios personalizados. Se establece el nuevo diccionario como diccionario personalizado activo, al que Word agregará automáticamente las nuevas palabras que encuentre.

With CustomDictionaries

    .ClearAll

    .Add FileName:= "Personal.dic"

    .ActiveCustomDictionary = CustomDictionaries(1)

End With

Comentarios

Se establece el diccionario personalizado al que se agregarán las palabras nuevas con la propiedad ActiveCustomDictionary. Si trata de establecer el valor de esta propiedad en un diccionario que no sea personalizado, se producirá un error.

La propiedad Maximum devuelve el número máximo de diccionarios ortográficos personalizados simultáneos que puede admitir la aplicación. Para Word, el máximo es 10.


Objeto Dictionary

Representa un diccionario. Los objetos Dictionary que representan diccionarios personalizados son miembros del conjunto Dictionaries. Otros objetos de diccionarios los devuelven las propiedades del conjunto Languages, que incluye las propiedades ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary y ActiveHyphenationDictionary.

Uso del objeto Dictionary

Utilice CustomDictionaries(index), donde index corresponde a un número de índice o al nombre de la cadena del diccionario, para devolver un solo objeto Dictionary que represente un diccionario personalizado. En el siguiente ejemplo, se devuelve el primer diccionario del conjunto.

CustomDictionaries(1)

En el siguiente ejemplo, se devuelve el diccionario denominado "MiDiccionario".

CustomDictionaries("MiDiccionario")

Utilice la propiedad ActiveCustomDictionary para establecer el diccionario ortográfico personalizado del conjunto al que se agregarán las palabras nuevas. Si trata de establecer el valor de esta propiedad en un diccionario que no sea personalizado, se producirá un error.

Utilice el método Add para agregar un nuevo diccionario al conjunto de diccionarios personalizados activos. Si no hay ningún archivo con el nombre que especifique FileName, Word lo creará. En el siguiente ejemplo, se agrega "Personal.dic" al conjunto de diccionarios personalizados.

new = CustomDictionaries.Add FileName:="Personal.dic"

Comentarios

Utilice las propiedades Name y Path para localizar cualquiera de los diccionarios. En el siguiente ejemplo, se muestra un cuadro de mensaje que contiene la ruta completa de cada diccionario.

For Each d in CustomDictionaries

    Msgbox d.Path & Application.PathSeparator & d.Name

Next d

Utilice la propiedad LanguageSpecific para determinar si el diccionario personalizado especificado puede tener un idioma específico asignado a él con la propiedad LanguageID. Si el diccionario es específico del idioma, sólo verificará el texto con el formato del idioma especificado.

Por cada idioma para el que se hayan instalado las herramientas de revisión, podrá utilizar las propiedades ActiveGrammarDictionary, ActiveHyphenationDictionary, ActiveSpellingDictionary y ActiveThesaurusDictionary a fin de devolver los objetos Dictionary correspondientes. En el siguiente ejemplo, se devuelve la ruta de acceso completa para el diccionario ortográfico activo utilizado en la versión de inglés americano de Word.

myspell = Languages(wdSpanish).ActiveSpellingDictionary

MsgBox mySpell.Path & Application.PathSeparator & mySpell.Name

La propiedad ReadOnly devuelve el valor True para los archivos .lex, diccionarios de revisión integrados, y False para los archivos .dic, diccionarios ortográficos personalizados.


Application, Language


Objeto ReadabilityStatistic

Representa una de las estadísticas de legibilidad de un documento o intervalo. El objeto ReadabilityStatistic es miembro del conjunto ReadabilityStatistics.

Uso del objeto ReadabilityStatistic

Utilice ReadabilityStatistics(index), donde index corresponde al número de índice, para devolver un solo objeto ReadabilityStatistic. Las estadísticas se ordenan de la siguiente forma: palabras, caracteres, párrafos, oraciones, oraciones por párrafo, palabras por oraciones, caracteres por palabra, oraciones en pasiva, índice de lectura fácil y el nivel de grado Flesch-Kincaid. En el siguiente ejemplo, se devuelve el recuento de caracteres del documento activo.

Msgbox ActiveDocument.Content.ReadabilityStatistics(2).Value


Objeto de conjunto ReadabilityStatistics

Conjunto de objetos ReadabilityStatistic de un documento o intervalo.

Uso del conjunto ReadabilityStatistics

Utilice la propiedad ReadabilityStatistics para devolver el conjunto ReadabilityStatistics. En el siguiente ejemplo, aparecen las estadísticas de legibilidad para la selección y se muestra cada una en un cuadro de mensaje.

For each rs in Selection.Range.ReadabilityStatistics

    Msgbox rs.Name & " - " & rs.Value

Next rs

Utilice ReadabilityStatistics(index), donde index corresponde al número de índice, para devolver un solo objeto ReadabilityStatistic. Las estadísticas se ordenan de la siguiente forma: palabras, caracteres, párrafos, oraciones, oraciones por párrafo, palabras por oraciones, caracteres por palabra, oraciones en pasiva, índice de lectura fácil y el nivel de grado Flesch-Kincaid. En el siguiente ejemplo, se devuelve el recuento de palabras del documento activo.

Set myRange = ActiveDocument.Content

wordval = myRange.ReadabilityStatistics(1).Value

Msgbox wordval


Document, Range


Objeto de conjunto ProofreadingErrors

Conjunto de errores ortográficos y gramaticales del documento o intervalo especificado. No hay ningún objeto ProofreadingError. En su lugar, cada elemento del conjunto ProofreadingErrors es un objeto Range que representa un error ortográfico o gramatical.

Uso del conjunto ProofreadingErrors

Utilice la propiedad SpellingErrors o GrammaticalErrors para devolver el conjunto ProofreadingErrors. En el siguiente ejemplo, se cuentan los errores ortográficos o gramaticales de la selección y se muestran los resultados en un cuadro de mensaje.

Set pr1 = Selection.Range.SpellingErrors

   sc = pr1.Count

Set pr2 = Selection.Range.GrammaticalErrors

   gc = pr2.Count

Msgbox "Errores ortográficos: " & sc & vbCr & "Errores gramaticales: " & gc

Utilice SpellingErrors(index), donde index corresponde al número de índice, para devolver un solo error ortográfico (representado por un objeto Range). En el siguiente ejemplo, se encuentra el segundo error ortográfico de la selección y, a continuación, se selecciona.

Set myRange = Selection.Range.SpellingErrors(2)

myRange.Select

Utilice GrammarErrors(index), donde index corresponde al número de índice, para devolver un solo error gramatical (representado por un objeto Range). En el siguiente ejemplo, se devuelve la oración que contiene el primer error gramatical de la selección.

Set myRange = Selection.Range.GrammaticalErrors(1)

Msgbox myRange.Text

Comentarios

La propiedad Count de este conjunto de un documento devuelve el número de elementos sólo del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range. Si la ortografía y la gramática de todas las palabras del documento o intervalo son correctas, la propiedad Count del objeto ProofreadingErrors devuelve el valor 0 (cero) y las propiedades SpellingChecked y GrammarChecked devuelven el valor True.


Objeto Revision

Representa un cambio marcado con una marca de revisión. El objeto Revision es un miembro del conjunto Revisions. Este conjunto incluye todas las marcas de revisión de un intervalo o de un documento.

Uso del objeto Revision

Utilice Revisions(index), donde index corresponde al número de índice, para devolver un solo objeto Revision. El número de índice representa la posición de la revisión en el intervalo o en el documento. En el siguiente ejemplo, se muestra el nombre del autor de la primera revisión de la sección uno del documento activo.

MsgBox ActiveDocument.Sections(1).Range.Revisions(1).Author

No hay ningún método Add disponible para el conjunto Revisions. Los objetos Revision se agregan cuando está activado el control de cambios. Establezca el valor de la propiedad TrackRevisions en True para controlar las revisiones efectuadas en el texto del documento. En el siguiente ejemplo, se activa el control de revisiones y, a continuación, se inserta "Acción " delante de la selección.

ActiveDocument.TrackRevisions = True

Selection.InsertBefore "Acción "


Document, Range


Objeto de conjunto Revisions

Conjunto de objetos Revision que representa los cambios marcados con marcas de revisión de un intervalo o de un documento.

Uso del conjunto Revisions

Utilice la propiedad Revisions para devolver el conjunto Revisions. En el siguiente ejemplo, aparece el número de revisiones del contenido del texto principal.

MsgBox ActiveDocument.Revisions.Count

En el siguiente ejemplo, se aceptan todas las revisiones de la selección.

For Each miRev In Selection.Range.Revisions

    miRev.Accept

Next miRev

En el siguiente ejemplo, se aceptan todas las revisiones del primer párrafo de la selección.

Set miIntervalo = Selection.Paragraphs(1).Range

miIntervalo.Revisions.AcceptAll

No hay ningún método Add disponible para el conjunto Revisions. Los objetos Revision se agregan cuando está activado el control de cambios. Establezca el valor de la propiedad TrackRevisions en True para controlar las revisiones efectuadas en el texto del documento. En el siguiente ejemplo, se activa el control de revisiones del documento activo y, a continuación, se inserta "El " delante de la selección.

ActiveDocument.TrackRevisions = True

Selection.InsertBefore "El "

Utilice Revisions(index), donde index corresponde al número de índice, para devolver un solo objeto Revision. El número de índice representa la posición de la revisión en el intervalo o en el documento. En el siguiente ejemplo, se muestra el nombre del autor de la primera revisión de la primera sección.

MsgBox ActiveDocument.Sections(1).Range.Revisions(1).Author

Comentarios

La propiedad Count de este conjunto de un documento devuelve sólo el número de elementos del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.


Objeto MailMergeField

Representa un solo campo de combinación de correspondencia de un documento. El objeto MailMergeDataField es un miembro del conjunto MailMergeDataFields. El conjunto MailMergeDataFields incluye todos los campos de combinación de correspondencia relacionados del documento.

Uso del objeto MailMergeField

Utilice Fields(index), donde index corresponde al número de índice, para devolver un solo objeto MailMergeField. En el siguiente ejemplo, aparece el código de campo del primer campo de combinación de correspondencia del documento activo.

MsgBox ActiveDocument.MailMerge.Fields(1).Code

Utilice el método Add para agregar un campo de combinación al conjunto MailMergeFields. En el siguiente ejemplo, se sustituye la selección por un campo de combinación InicialMedio.

ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, _

    Name:="InicialMedio"

Comentarios

El conjunto MailMergeFields tiene métodos adicionales, como AddAsk y AddFillIn, para agregar campos relacionados con una operación de combinación de correspondencia.


Objeto de conjunto MailMergeFields

Conjunto de objetos MailMergeField que representa los campos de combinación de correspondencia relacionados de un documento.

Uso del conjunto MailMergeFields

Utilice la propiedad Fields para devolver el conjunto MailMergeFields. En el siguiente ejemplo, se agrega un campo PREGUNTAR al último campo de combinación de correspondencia del documento activo.

Set misCamposMM = ActiveDocument.MailMerge.Fields

misCamposMM(misCamposMM.Count).Select

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove

ActiveDocument.MailMerge.Fields.AddAsk Range:=Selection.Range, _

    Name:="Nombre", Prompt:="Escriba su nombre", AskOnce:=True

Utilice el método Add para agregar un campo de combinación al conjunto MailMergeFields. En el siguiente ejemplo, se sustituye la selección por un campo de combinación MiddleInitial.

ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, _

    Name:="InicialMedio"

Utilice Fields(index), donde index corresponde al número de índice, para devolver un solo objeto MailMergeField. En el siguiente ejemplo, aparece el código de campo del primer campo de combinación de correspondencia del documento activo.

MsgBox ActiveDocument.MailMerge.Fields(1).Code

Comentarios

El conjunto MailMergeFields tiene métodos adicionales, como AddAsk y AddFillIn, para agregar campos relacionados con una operación de combinación de correspondencia.


Objeto Options

Representa opciones de aplicación y de documento de Word. Muchas de las propiedades del objeto Options corresponden a elementos del cuadro de diálogo Opciones (menú Herramientas).

Uso del objeto Options

Utilice la propiedad Options para devolver un objeto Options. En el siguiente ejemplo, se establecen tres opciones de aplicación para Word.

With Options

    .AllowDragAndDrop = True

    .ConfirmConversions = False

    .MeasurementUnit = wdPoints

End With


Objeto PageNumber

Representa el número de la página del encabezado o pie de página. El objeto PageNumber es un miembro del conjunto PageNumbers. El objeto PageNumbers incluye todos los números de página de un solo encabezado o pie de página.

Uso del objeto PageNumber

Utilice PageNumbers(index), donde index corresponde al número de índice, para devolver un solo objeto PageNumber. En la mayoría de los casos, un encabezado o pie de página contendrá sólo un número de página, que corresponde al número de índice 1. En el siguiente ejemplo, se centra el primer número de página del encabezado principal de la sección uno del documento activo.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers(1) _

.Alignment = wdAlignPageNumberCenter

Utilice el método Add para agregar un número de página (campo PÁGINA) a un encabezado o pie de página. En el siguiente ejemplo, se agrega un número de página al pie de página principal de la primera sección. El número de página no aparecerá en la primera página.

With ActiveDocument.Sections(1)

    .Footers(wdHeaderFooterPrimary).PageNumbers.Add _

        PageNumberAlignment:=wdAlignPageNumberLeft, FirstPage:=False

End With


Objeto de conjunto PageNumbers

Conjunto de objetos PageNumber que representa los números de página de un solo encabezado o pie de página.

Uso del conjunto PageNumbers

Utilice la propiedad PageNumbers para devolver el conjunto PageNumbers. En el siguiente ejemplo, se inicia la numeración de páginas en el número 3 para la primera sección del documento activo.

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers _

    .StartingNumber = 3

Utilice el método Add para agregar números de página a un encabezado o pie de página. En el siguiente ejemplo, se agrega una número de página al pie de página principal de la primera sección.

With ActiveDocument.Sections(1)

    .Footers(wdHeaderFooterPrimary).PageNumbers.Add _

        PageNumberAlignment:=wdAlignPageNumberLeft, FirstPage:=False

End With

Para agregar o cambiar los números de página de un documento con varias secciones, modificar los números de página de cada sección o establecer el valor de la propiedad LinkToPrevious en True.

Utilice PageNumbers(index), donde index corresponde al número de índice, para devolver un solo objeto PageNumber. En la mayoría de los casos, un encabezado o pie de página contendrá sólo un número de página, que corresponde al número de índice 1. En el siguiente ejemplo, se centra el primer número de página del encabezado principal de la primera sección.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers(1) _

.Alignment = wdAlignPageNumberCenter


Objeto Pane

Representa un panel de ventana. El objeto Pane es un miembro del conjunto Panes. El conjunto Panes incluye todos los paneles de ventana de una sola ventana.

Uso del objeto Pane

Utilice Panes(index), donde index corresponde al número de índice, para devolver un solo objeto Pane. En el ejemplo siguiente, se cierra la ventana activa.

If ActiveWindow.Panes.Count >= 2 Then ActiveWindow.ActivePane.Close

Utilice el método Add o la propiedad Split para agregar un panel de ventana. En el siguiente ejemplo, se divide la ventana activa al 20 por ciento del tamaño de la ventana actual.

ActiveWindow.Panes.Add SplitVertical:=20

En el siguiente ejemplo, se divide la ventana activa por la mitad.

ActiveWindow.Split = True

Puede utilizar la propiedad SplitSpecial para mostrar comentarios, notas al pie o al final en un panel independiente.

Comentarios

La ventana tiene varios paneles si se divide o si la vista no es la vista Diseño de página y se muestra información como notas al pie o comentarios. En el siguiente ejemplo, se muestran el panel de comentarios en la vista Normal y, a continuación, se pide que se cierre el panel.

ActiveWindow.View.Type = wdNormalView

If ActiveDocument.Comments.Count >= 1 Then

    ActiveWindow.View.SplitSpecial = wdPaneComments

    response = MsgBox("¿Desea cerrar el panel de comentarios?", vbYesNo)

    If response = vbYes Then ActiveWindow.ActivePane.Close

End If


Selection, View, Zooms


Objeto de conjunto Panes

Conjunto de objetos Pane que representa los paneles de ventana de una sola ventana.

Uso del conjunto Panes

Utilice la propiedad Panes para devolver el conjunto Panes. En el siguiente ejemplo, se divide la ventana activa y se oculta la regla de cada panel.

ActiveWindow.Split = True

For Each aPane In ActiveWindow.Panes

    aPane.DisplayRulers = False

Next aPane

Utilice el método Add o la propiedad Split para agregar un panel de ventana. En el siguiente ejemplo, se divide la ventana activa al 20 por ciento del tamaño de la ventana actual.

ActiveWindow.Panes.Add SplitVertical:=20

En el siguiente ejemplo, se divide la ventana activa por la mitad.

ActiveWindow.Split = True

Puede utilizar la propiedad SplitSpecial para mostrar comentarios, notas al pie o al final en un panel independiente.

Comentarios

La ventana tiene varios paneles si se divide o si la vista no es la vista Diseño de página y se muestra información como notas al pie o comentarios. En el siguiente ejemplo, se muestran el panel de notas al pie en la vista Normal y, a continuación, se pide que se cierre el panel.

ActiveWindow.View.Type = wdNormalView

If ActiveDocument.Footnotes.Count >= 1 Then

    ActiveWindow.View.SplitSpecial = wdPaneFootnotes

    response = MsgBox("¿Desea cerrar el panel de notas al pie?", vbYesNo)

    If response = vbYes Then ActiveWindow.ActivePane.Close

End If


Objeto Paragraph

Representa un solo párrafo de una sección, un intervalo o un documento. El objeto Paragraph es un miembro del conjunto Paragraphs. El conjunto Paragraphs incluye todos los párrafos de una selección, de un intervalo o de un documento.

Uso del objeto Paragraph

Utilice Paragraphs(index), donde index corresponde al número de índice, para devolver un solo objeto Paragraph. En el siguiente ejemplo, se alinea a la derecha el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight

Utilice el método Add, InsertParagraph, InsertParagraphAfter o InsertParagraphBefore para agregar un nuevo párrafo en blanco al documento. En el siguiente ejemplo, se agrega una marca de párrafo delante del primer párrafo de la selección.

Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range

En el siguiente ejemplo, también se agrega una marca de párrafo delante del primer párrafo de la selección.

Selection.Paragraphs(1).Range.InsertParagraphBefore


Document, ListParagraphs, Range, Selection


Objeto de conjunto Paragraphs

Conjunto de objetos Paragraph de la selección, el intervalo o el documento.

Uso del conjunto Paragraphs

Utilice la propiedad Paragraphs para devolver el conjunto Paragraphs. En el siguiente ejemplo, se da formato a los párrafos seleccionados para que tengan doble espaciado y estén alineados a la derecha.

With Selection.Paragraphs

    .Alignment = wdAlignParagraphRight

    .LineSpacingRule = wdLineSpaceDouble

End With

Utilice el método Add, InsertParagraph, InsertParagraphAfter o InsertParagraphBefore para agregar un nuevo párrafo al documento. En el siguiente ejemplo, se agrega un nuevo párrafo delante del primer párrafo de la selección.

Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range

En el siguiente ejemplo, también se agrega un párrafo delante del primer párrafo de la selección.

Selection.Paragraphs(1).Range.InsertParagraphBefore

Utilice Paragraphs(index), donde index corresponde al número de índice, para devolver un solo objeto Paragraph. En el siguiente ejemplo, se alinea a la derecha el primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight

Comentarios

La propiedad Count de este conjunto de un documento devuelve sólo el número de elementos del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.


Borders, ParagraphFormat, Shading, TabStops


Objeto Section

Representa una sola sección de la selección, el intervalo o el documento. El objeto Section es un miembro del conjunto Sections. El conjunto Sections incluye todas las secciones de una selección, de un intervalo o de un documento.

Uso del objeto Section

Utilice Sections(index), donde index corresponde al número de índice, para devolver un solo objeto Section. En el siguiente ejemplo, se cambian los márgenes izquierdo y derecho de la página de la primera sección del documento activo.

With ActiveDocument.Sections(1).PageSetup

    .LeftMargin = InchesToPoints(0.5)

    .RightMargin = InchesToPoints(0.5)

End With

Utilice el método Add o la propiedad InsertBreak para agregar una nueva sección a un documento. En el siguiente ejemplo, se agrega una nueva sección al principio del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.Sections.Add Range:=miIntervalo

miIntervalo.InsertParagraphAfter

En el siguiente ejemplo, se agrega un salto de sección sobre el primer párrafo de la selección.

Selection.Paragraphs(1).Range.InsertBreak Type:=wdSectionBreakContinuous

Nota Las propiedades Headers y Footers del objeto Section especificado devuelven un objeto HeadersFooters.


Borders, HeadersFooters, PageSetup, Range


Objeto de conjunto Sections

Conjunto de objetos Section de la selección, el intervalo o el documento.

Uso del conjunto Sections

Utilice la propiedad Sections para devolver el conjunto Sections. En el siguiente ejemplo, se inserta texto al final de la última sección del documento activo.

With ActiveDocument.Sections.Last.Range

    .Collapse Direction:=wdCollapseEnd

    .InsertAfter "fin del documento"

End With

Utilice el método Add o la propiedad InsertBreak para agregar una nueva sección a un documento. En el siguiente ejemplo, se agrega una nueva sección al principio del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.Sections.Add Range:=miIntervalo

miIntervalo.InsertParagraphAfter

En el siguiente ejemplo, se muestra el número de secciones del documento activo, se agrega un salto de sección sobre el primer párrafo de la selección y, a continuación, vuelve a mostrarse el número de secciones.

MsgBox ActiveDocument.Sections.Count & " secciones"

Selection.Paragraphs(1).Range.InsertBreak Type:=wdSectionBreakContinuous

MsgBox ActiveDocument.Sections.Count & " secciones"

Utilice Sections(index), donde index corresponde al número de índice, para devolver un solo objeto Section. En el siguiente ejemplo, se cambian los márgenes izquierdo y derecho de la página de la primera sección del documento activo.

With ActiveDocument.Sections(1).PageSetup

    .LeftMargin = InchesToPoints(0.5)

    .RightMargin = InchesToPoints(0.5)

End With


PageSetup


Objeto Selection

Representa la selección del panel de una ventana. La selección puede abarcar un área del documento o contraerse en un punto de inserción.

Nota   Sólo puede haber un objeto Selection por panel de ventana de documento y puede estar activo un sólo objeto Selection.

Uso del objeto Selection

Utilice la propiedad Selection para devolver el objeto Selection. En el siguiente ejemplo, se contrae la selección, si es necesario, y se mueve el punto de inserción al final de la línea actual.

Selection.EndKey Unit:=wdLine, Extend:=wdMove

En el siguiente ejemplo, se actualizan los resultados de los campos de la selección.

If Selection.Fields.Count >= 1 Then Selection.Fields.Update

Utilice la propiedad Type para devolver el tipo de selección; por ejemplo, una selección de bloque o un punto de inserción. En el siguiente ejemplo, se selecciona el párrafo actual si la selección es un punto de inserción.

If Selection.Type = wdSelectionIP Then

    Selection.Paragraphs(1).Range.Select

End If

Utilice la propiedad Information para devolver información acerca de la selección. Si la selección está en una tabla, en el siguiente ejemplo se muestra el número de filas y columnas de la misma.

If Selection.Information(wdWithInTable) = True Then

    MsgBox "Columnas = " & Selection.Information(wdMaximumNumberOfColumns) _

        & vbCr & "Filas = " & Selection.Information(wdMaximumNumberOfRows)

End If

Utilice el método Select para seleccionar un elemento de un documento. En el siguiente ejemplo, se selecciona el primer marcador del documento activo y se le da formato para que aparezca en rojo.

If ActiveDocument.Bookmarks.Count >= 1 Then

    ActiveDocument.Bookmarks(1).Select

    Selection.Font.ColorIndex = wdRed

End If

El objeto Selection también incluye diversos métodos que puede utilizar para ampliar o mover una selección existente. Por ejemplo, el método MoveDown tiene un argumento Extend cuyo valor puede establecer en wdExtend. En el siguiente ejemplo, se seleccionan los tres párrafos siguientes de la ventana activa.

With Selection

    .StartOf Unit:=wdParagraph, Extend:=wdMove

    .MoveDown Unit:=wdParagraph, Count:=3, Extend:=wdExtend

End With

Comentarios

Utilice la propiedad Range para devolver un objeto Range desde el objeto Selection. En el siguiente ejemplo, se define la variable miIntervalo como el rango seleccionado.

Set miIntervalo = Selection.Range

Cuando grabe macros, la grabadora de macros a menudo grabará los cambios en el objeto Selection. La siguiente macro grabada aplica formato de negrita a las dos primeras palabras del documento y, a continuación, inserta un nuevo párrafo.

Selection.HomeKey Unit:=wdStory

Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Font.Bold = wdToggle

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeParagraph

En el siguiente ejemplo, se realiza la misma tarea del ejemplo anterior, pero sin utilizar el objeto Selection.

Set miIntervalo = ActiveDocument.Range(Start:=0, _

    End:=ActiveDocument.Words(2).End)

miIntervalo.Bold = True

miIntervalo.InsertParagraphAfter

Sólo puede haber un objeto Selection por panel de ventana; sin embargo, puede tener varios objetos Range definidos en un solo documento. El objeto Range representa un área del documento que puede seleccionarse o no. Al trabajar con objetos Range, puede manipular un documento con mínimas actualizaciones de pantalla. Para obtener más información, consulte Trabajar con objetos Range.


Application, Pane, Window


Bookmarks, Borders, Cells, Characters, Columns, Comments, Document, Endnotes, Fields, Find, Font, Footnotes, FormFields, Frames, HeaderFooter, Hyperlinks, InlineShapes, PageSetup, ParagraphFormat, Paragraphs, Revision, Range, Rows, Sections, Sentences, Shading, ShapeRange, Tables, Words


Objeto PageSetup

Representa la descripción de configuración de página. El objeto PageSetup contiene todos los atributos de configuración de página de un documento (margen izquierdo, margen inferior, tamaño de papel, etc.) como propiedades.

Uso del objeto PageSetup

Utilice la propiedad PageSetup para devolver un objeto PageSetup. En el siguiente ejemplo, se establece el valor de la primera sección del documento activo en la orientación horizontal y, a continuación, se imprime el documento.

ActiveDocument.Sections(1).PageSetup.Orientation = wdOrientLandscape

ActiveDocument.PrintOut

En el siguiente ejemplo, se establece el valor de todos los márgenes del documento denominado "Ventas.doc".

With Documents("Ventas.doc").PageSetup

    .LeftMargin = InchesToPoints(0.75)

    .RightMargin = InchesToPoints(0.75)

    .TopMargin = InchesToPoints(1.5)

    .BottomMargin = InchesToPoints(1)

End With


Document, Range, Section, Sections, Selection


LineNumbering, TextColumns


Objeto RoutingSlip

Representa la lista de distribución asociada a un documento. Utilice una lista de distribución para enviar un documento a través del sistema de correo electrónico.

Uso del objeto RoutingSlip

Utilice la propiedad RoutingSlip para devolver un objeto RoutingSlip. En el siguiente ejemplo, se distribuye el documento activo a los destinatarios especificados, de uno en uno.

ActiveDocument.HasRoutingSlip = True

With ActiveDocument.RoutingSlip

    .Subject = "Documentación del proyecto"

    .AddRecipient "Juan Camilo Pardo"

    .AddRecipient "Carmen Díaz"

    .Delivery = wdOneAfterAnother

End With

ActiveDocument.Route

Comentarios

El objeto RoutingSlip no puede utilizarse, no existe, a menos que se establezca el valor de la propiedad HasRoutingSlip en True.


Objeto TabStop

Representa una sola tabulación. El objeto TabStop es un miembro del conjunto TabStops. Este conjunto representa todas las tabulaciones personalizadas y predeterminadas de un párrafo o de un grupo de párrafos.

Uso del objeto TabStop

Utilice TabStops(index), donde index corresponde a la posición de la tabulación, en puntos, o al número de índice, para devolver un solo objeto TabStop. Las tabulaciones se indizan numéricamente de izquierda a derecha a lo largo de la regla. En el siguiente ejemplo, se quita la primera tabulación personalizada de los párrafos seleccionados.

Selection.Paragraphs.TabStops(1).Clear

En el siguiente ejemplo, se agrega una tabulación alineada a la derecha situada a 0,8 cm de los párrafos seleccionados.

Selection.Paragraphs.TabStops(InchesToPoints(2)).Alignment = wdAlignTabRight

Utilice el método Add para agregar una tabulación. En el siguiente ejemplo, se aplican dos tabulaciones a los párrafos seleccionados. La primera tabulación está alineada a la izquierda con puntos como carácter de relleno situados a 0,4 cm (72 puntos). La segunda está centrada y situada a 0,8 cm.

With Selection.Paragraphs.TabStops

    .Add Position:=InchesToPoints(1), Leader:=wdTabLeaderDots, Alignment:=wdAlignTabLeft

    .Add Position:=InchesToPoints(2), Alignment:=wdAlignTabCenter

End With

También puede agregar una tabulación especificando una posición con la propiedad TabStops. En el siguiente ejemplo, se agrega una tabulación alineada a la derecha situada a 0,8 cm de los párrafos seleccionados.

Selection.Paragraphs.TabStops(InchesToPoints(2)).Alignment = wdAlignTabRight

Nota   Establece el valor de la propiedad DefaultTabStop para ajustar el espaciado de las tabulaciones predeterminadas.


Paragraph, ParagraphFormat, Paragraphs


Objeto de conjunto TabStops

Conjunto de objetos TabStop que representa las tabulaciones personalizadas y predeterminadas de un párrafo o grupo de párrafos.

Uso del conjunto TabStops

Utilice la propiedad TabStops para devolver el conjunto TabStops. En el siguiente ejemplo, se borran todas las tabulaciones personalizadas del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabStops.ClearAll

En el siguiente ejemplo, se agrega una tabulación situada a 0,9 cm de los párrafos seleccionados y, a continuación, se muestra la posición de cada elemento del conjunto TabStops.

Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5)

For Each aTab In Selection.Paragraphs.TabStops

    MsgBox "Posición = " & PointsToInches(aTab.Position) & " cm"

Next aTab

Utilice el método Add para agregar una tabulación. En el siguiente ejemplo, se aplican dos tabulaciones a los párrafos seleccionados. La primera tabulación está alineada a la izquierda con puntos como carácter de relleno situados a 0,4 cm (72 puntos). La segunda está centrada y situada a 0,8 cm.

With Selection.Paragraphs.TabStops

    .Add Position:=InchesToPoints(1), Leader:=wdTabLeaderDots, Alignment:=wdAlignTabLeft

    .Add Position:=InchesToPoints(2), Alignment:=wdAlignTabCenter

End With

También puede agregar una tabulación especificando una posición con la propiedad TabStops. En el siguiente ejemplo, se agrega una tabulación alineada a la derecha situada a 0,8 cm de los párrafos seleccionados.

Selection.Paragraphs.TabStops(InchesToPoints(2)).Alignment = wdAlignTabRight

Utilice TabStops(index), donde index corresponde a la posición de la tabulación, en puntos, o al número de índice, para devolver un solo objeto TabStop. Las tabulaciones se indizan numéricamente de izquierda a derecha a lo largo de la regla. En el siguiente ejemplo, se quita la primera tabulación personalizada del primer párrafo del documento activo.

ActiveDocument.Paragraphs(1).TabStops(1).Clear

En el siguiente ejemplo, se agrega una tabulación alineada a la derecha situada a 0,8 cm de los párrafos seleccionados.

Selection.Paragraphs.TabStops(InchesToPoints(2)).Alignment = wdAlignTabRight

Comentarios

Al trabajar con el conjunto Paragraphs, o un intervalo con varios párrafos, deberá modificar cada párrafo del conjunto individualmente si las tabulaciones no son idénticas en todos los párrafos. En el siguiente ejemplo, se quita la tabulación situada a 0,4 cm de cada párrafo del documento activo.

For Each para In ActiveDocument.Content.Paragraphs

    para.TabStops(InchesToPoints(1)).Clear

Next para


Objeto Task

Representa una sola tarea en ejecución en el sistema. El objeto Task es un miembro del conjunto Tasks. Este conjunto incluye todas las aplicaciones en ejecución actualmente en el sistema.

Uso del objeto Task

Utilice Tasks(index), donde index corresponde al nombre de la aplicación o al número de índice, para devolver un solo objeto Task. En el siguiente ejemplo, se pasa a y se cambia el tamaño de la ventana de aplicación de la primera tarea visible del conjunto Tasks.

With Tasks(1)

    If .Visible = True Then

        .Activate

        .Width = 400

        .Height = 200

    End If

End With

En el siguiente ejemplo, se restaura la ventana de la aplicación Calculadora si ésta está en el conjunto Tasks.

If Tasks.Exists("Calculadora") = True Then

    Tasks("Calculadora").WindowState = wdWindowStateNormal

End If

Utilice la función Shell para ejecutar un programa ejecutable y agregarlo al conjunto Tasks.


Objeto de conjunto Tasks

Conjunto de objetos Task que representa todas las tareas en ejecución actualmente en el sistema.

Uso del conjunto Tasks

Utilice la propiedad Tasks para devolver el conjunto Tasks. En el siguiente ejemplo, se determina si se está ejecutando Microsoft Excel. En cuyo caso, en este ejemplo se pasa a dicho programa y se maximiza; de lo contrario, el ejemplo lo inicia.

If Tasks.Exists("Microsoft Excel") = True Then

    Tasks("Microsoft Excel").Activate

    Tasks("Microsoft Excel").WindowState = wdWindowStateMaximize

Else

    Shell "C:\MSOffice\excel\Excel.exe"

End If

Utilice la función Shell para ejecutar un programa ejecutable y agregar el programa al conjunto Tasks.

Utilice Tasks(index), donde index corresponde al nombre de la aplicación o al número de índice, para devolver un solo objeto Task. En el siguiente ejemplo, se abre y se cambia el tamaño de la ventana de aplicación de la primera tarea visible del conjunto Tasks.

With Tasks(1)

    If .Visible = True Then

        .Activate

        .Width = 400

        .Height = 200

    End If

End With

En el siguiente ejemplo, se restaura la ventana de la aplicación Calculadora si la aplicación está en el conjunto Tasks.

If Tasks.Exists("Calculadora") = True Then

    Tasks("Calculadora").WindowState = wdWindowStateNormal

End If


Objeto Template

Representa la plantilla de un documento. El objeto Template es un miembro del conjunto Templates. Este conjunto incluye todos los objetos Template disponibles.

Uso del objeto Template

Utilice Templates(index), donde index corresponde al nombre de la plantilla o al número de índice, para devolver un solo objeto Template. En el siguiente ejemplo, se guarda la plantilla Memo2.dot si no está en el conjunto Templates.

For Each aTemp In Templates

    If LCase(aTemp.Name) = "memo2.dot" Then aTemp.Save

Next aTemp

El número de índice representa la posición de la plantilla en el conjunto Templates. En el siguiente ejemplo, se abre la primera plantilla del conjunto Templates.

Templates(1).OpenAsDocument

No hay ningún método Add disponible para el conjunto Templates. En su lugar, puede agregar una plantilla al conjunto Templates realizando cualquiera de las siguientes acciones:

•	Utilizar el método Open con el conjunto Documents para abrir un documento basado en una plantilla o abrir una plantilla

•	Utilizar el método Add con el conjunto Documents para abrir un nuevo documento basado en una plantilla

•	Utilizar el método Add con el conjunto Addins para cargar una plantilla global

•	Utilizar la propiedad AttachedTemplate con el objeto Document para adjuntar una plantilla a un documento

Comentarios

Utilice la propiedad NormalTemplate para devolver un objeto plantilla que haga referencia a la plantilla Normal. Utilice la propiedad AttachedTemplate para devolver la plantilla adjunta al documento especificado.

Utilice la propiedad DefaultFilePath para devolver o establecer la posición de las plantillas de usuario o de grupo de trabajo; es decir, la carpeta donde desee guardar estas plantillas. En el siguiente ejemplo, se muestra la carpeta de plantillas de usuario desde la ficha Ubicación de archivo del cuadro de diálogo Opciones (menú Herramientas).

MsgBox Options.DefaultFilePath(wdUserTemplatesPath)


Application, Document


AutoTextEntries, Document, DocumentProperties, ListTemplates, VBProject


Objeto de conjunto Templates

Conjunto de objetos Template que representa todas las plantillas actualmente disponibles. Este conjunto incluye plantillas abiertas, plantillas adjuntas a documentos abiertos y plantillas globales cargadas en el cuadro de diálogo Plantillas y complementos (menú Herramientas).

Uso del conjunto Templates

Utilice la propiedad Templates para devolver el conjunto Templates. En el siguiente ejemplo, se muestran la ruta de acceso y el nombre de archivo de todas las plantillas del conjunto Templates.

For Each aTemp In Templates

    MsgBox aTemp.FullName

Next aTemp

No hay ningún método Add disponible para el conjunto Templates. En su lugar, puede agregar una plantilla al conjunto Templates realizando cualquiera de las siguientes acciones:

•	Utilizar el método Open con el conjunto Documents para abrir un documento basado en una plantilla o abrir una plantilla

•	Utilizar el método Add con el conjunto Documents para abrir un nuevo documento basado en una plantilla

•	Utilizar el método Add con el conjunto Addins para cargar una plantilla global

•	Utilizar la propiedad AttachedTemplate con el objeto Document para adjuntar una plantilla a un documento

Utilice Templates(index), donde index corresponde al nombre de la plantilla o al número de índice, para devolver un solo objeto Template. En el siguiente ejemplo, se guarda la plantilla Dot1.dot.

Templates("C:\MSOffice\WinWord\Plantillas\Dot1.dot").Save

El número de índice representa la posición de la plantilla en el conjunto Templates. En el siguiente ejemplo, se muestran el nombre de archivo de la primera plantilla del conjunto Templates.

MsgBox Templates(1).FullName

Comentarios

Utilice la propiedad NormalTemplate para devolver un objeto plantilla que haga referencia a la plantilla Normal. Utilice la propiedad AttachedTemplate para devolver la plantilla adjunta al documento especificado.

Utilice la propiedad DefaultFilePath para determinar la posición de las plantillas de usuario o de grupo de trabajo; es decir, la carpeta donde desee guardar estas plantillas. En el siguiente ejemplo, se muestra la carpeta de plantillas de usuario desde la ficha Ubicación de archivo del cuadro de diálogo Opciones (menú Herramientas).

MsgBox Options.DefaultFilePath(wdUserTemplatePath)


Objeto TextColumn

Representa una sola columna de texto. El objeto TextColumn es un miembro del conjunto TextColumns. Este conjunto incluye todas las columnas de un documento o de la sección de un documento.

Uso del objeto TextColumn

Utilice TextColumns(index), donde index corresponde al número de índice, para devolver un solo objeto TextColumn. El número de índice representa la posición de la columna en el conjunto TextColumns, contando de izquierda a derecha.

En el siguiente ejemplo, se establece el valor del espacio detrás de la primera columna de texto del documento activo en 0,4 cm.

ActiveDocument.PageSetup.TextColumns(1).SpaceAfter = InchesToPoints(0.5)

Utilice el método Add para agregar una columna al conjunto de columnas. Como valor predeterminado, hay una columna de texto en el conjunto TextColumns. En el siguiente ejemplo, se agrega una columna de 1 cm de ancho al documento activo.

ActiveDocument.PageSetup.TextColumns.Add Width:=InchesToPoints(2.5), _

    Spacing:=InchesToPoints(0.5), EvenlySpaced:=False

Comentarios

Utilice el método SetCount para organizar el texto en columnas. En el siguiente ejemplo, se organiza el texto del documento activo en tres columnas.

ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=3


Objeto de conjunto TextColumns

Conjunto de objetos TextColumn que representa todas las columnas de texto de un documento o la sección de un documento.

Uso del conjunto TextColumns

Utilice la propiedad TextColumns para devolver el conjunto TextColumns. En el siguiente ejemplo, se da formato a las columnas de la primera sección del documento activo para que el espaciado sea uniforme, con una línea entre las columnas.

With ActiveDocument.Sections(1).PageSetup.TextColumns

    .EvenlySpaced = True

    .LineBetween = True

End With

Utilice el método Add para agregar una columna al conjunto de columnas. Como valor predeterminado, hay una columna de texto en el conjunto TextColumns. En el siguiente ejemplo, se agrega una columna de 1 cm de ancho al documento activo.

ActiveDocument.PageSetup.TextColumns.Add Width:=InchesToPoints(2.5), _

    Spacing:=InchesToPoints(0.5), EvenlySpaced:=False

Comentarios

Utilice el método SetCount para organizar el texto en columnas. En el siguiente ejemplo, se organiza el texto del documento activo en tres columnas.

ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=3


Objeto TextInput

Representa un solo campo de formulario de texto.

Uso del objeto TextInput

Utilice FormFields(index), donde index corresponde el nombre del marcador asociado al campo de formulario de texto o al número de índice, para devolver un objeto FormField. Utilice la propiedad TextInput con el objeto FormField para devolver un objeto TextInput. En el siguiente ejemplo, se elimina el contenido del primer campo de formulario de texto denominado "Texto1" del documento activo.

ActiveDocument.FormFields("Texto1").TextInput.Clear

El número de índice representa la posición del campo de formulario del conjunto FormFields. En el siguiente ejemplo, se verifica el tipo del primer campo de formulario del documento activo. Si el campo de formulario es un campo de formulario de texto, en el ejemplo se establece "Misión crítica" como valor del campo.

If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then

    ActiveDocument.FormFields(1).Result = "Misión crítica"

End If

En el siguiente ejemplo, se determina si la variable ccampo representa un campo de formulario de texto válido del documento activo antes de establecerse el texto predeterminado.

Set ccampo = ActiveDocument.FormFields(1).TextInput

If ccampo.Valid = True Then

    ccampo.Default = "Escriba su nombre aquí"

Else

    MsgBox "El primer campo no es un cuadro de texto"

End If

Utilice el método Add con el objeto FormFields para agregar un campo de formulario. En el siguiente ejemplo, se agrega un campo de formulario de texto al principio del documento activo y, a continuación, se establece el valor del nombre del campo de formulario en "Nombre".

Set ccampo = ActiveDocument.FormFields.Add( _

    Range:=ActiveDocument.Range(Start:=0, End:=0), Type:=wdFieldFormTextInput)

ccampo.Name = "Nombre"


Objeto Variable

Representa una variable guardada como parte de un documento. Las variables del documento se utilizan para conservar los valores de las macros entre sesiones de macros. El objeto Variable es un miembro del conjunto Variables. Este conjunto incluye todas las variables de un documento o de una plantilla.

Uso del objeto Variable

Utilice Variables(index), donde index corresponde al nombre de la variable del documento o al número de índice, para devolver un solo objeto Variable. En el siguiente ejemplo, se muestra el valor de la variable de documento Temp del documento activo.

MsgBox ActiveDocument.Variables("Temp").Value

El número de índice representa la posición de la variable del documento en el conjunto Variables. La última variable agregada al conjunto Variables es el número de índice 1; la penúltima es el número de índice 2, etc. En el siguiente ejemplo, se muestra el nombre de la primera variable del documento del documento activo.

MsgBox ActiveDocument.Variables(1).Name

Utilice el método Add para agregar una variable al documento. En el siguiente ejemplo, se agrega una variable de documento denominada "Temp" con un valor de 12 al documento activo.

ActiveDocument.Variables.Add Name:="Temp", Value:="12"

Si intenta agregar una variable de documento con un nombre que ya exista en el conjunto Variables, se producirá un error. Para evitar este error, puede mostrar el conjunto antes de agregar variables nuevas. Si ya existe la variable de documento Azul en el documento activo, en el siguiente ejemplo se establece su valor en 6; pero si aún no existe, se agrega al documento y su valor se establece en 6.

For Each aVar In ActiveDocument.Variables

    If aVar.Name = "Azul" Then num = aVar.Index

Next aVar

If num = 0 Then

    ActiveDocument.Variables.Add Name:="Azul", Value:=6

Else

    ActiveDocument.Variables(num).Value = 6

End If

Comentarios

El usuario no ve las variables del documento si no se inserta un campo VARIABLEDOC con el nombre de variable correspondiente. En el siguiente ejemplo, se agrega una variable de documento denominada "Temp" al documento activo y, a continuación, se inserta un campo VARIABLEDOC para que se muestre el valor de la variable.

With ActiveDocument

    .Variables.Add Name:="Temp", Value:="12"

    .Fields.Add Range:=Selection.Range, Type:=wdFieldDocVariable, Text:="Temp"

End With

ActiveWindow.View.ShowFieldCodes = False

Para agregar una variable de documento a una plantilla, abra la plantilla como documento utilizando el método OpenAsDocument. En el siguiente ejemplo, se guarda el nombre de usuario (del cuadro de diálogo Opciones) en la plantilla adjunta al documento activo.

ScreenUpdating = False

With ActiveDocument.AttachedTemplate.OpenAsDocument

    .Variables.Add Name:="NombreUsuario", Value:=Application.UserName

    .Close SaveChanges:=wdSaveChanges

End With


Objeto de conjunto Variables

Conjunto de objetos Variable que representa las variables agregadas a un documento o a una plantilla. Las variables del documento se utilizan para conservar los valores de las macros entre sesiones de macros.

Uso del conjunto Variables

Utilice la propiedad Variables para devolver el conjunto Variables. En el siguiente ejemplo, se muestra el número de variables del documento activo denominado "Ventas.doc".

MsgBox Documents("Ventas.doc").Variables.Count & " variables"

Utilice el método Add para agregar una variable a un documento. En el siguiente ejemplo, se agrega una variable de documento denominada "Temp" con un valor de 12 al documento activo.

ActiveDocument.Variables.Add Name:="Temp", Value:="12"

Si intenta agregar una variable de documento con un nombre que ya exista en el conjunto Variables, se producirá un error. Para evitar este error, puede mostrar el conjunto antes de agregar variables nuevas. Si ya existe la variable de documento Azul en el documento activo, en el siguiente ejemplo se establece su valor en 6; pero si aún no existe, se agrega al documento y su valor se establece en 6.

For Each aVar In ActiveDocument.Variables

    If aVar.Name = "Azul" Then num = aVar.Index

Next aVar

If num = 0 Then

    ActiveDocument.Variables.Add Name:="Azul", Value:=6

Else

    ActiveDocument.Variables(num).Value = 6

End If

Utilice Variables(index), donde index corresponde al nombre de la variable del documento o al número de índice, para devolver un solo objeto Variable. En el siguiente ejemplo, se muestra el valor de la variable de documento Temp del documento activo.

MsgBox ActiveDocument.Variables("Temp").Value

El número de índice representa la posición de la variable del documento en el conjunto Variables. La última variable agregada al conjunto Variables es el número de índice 1; la penúltima es el número de índice 2, etc. En el siguiente ejemplo, se muestra el nombre de la primera variable del documento del documento activo.

MsgBox ActiveDocument.Variables(1).Name

Para agregar una variable a una plantilla, abra la plantilla como documento utilizando el método OpenAsDocument. En el siguiente ejemplo, se guarda el nombre de usuario (del cuadro de diálogo Opciones) en la plantilla adjunta al documento activo.

ScreenUpdating = False

With ActiveDocument.AttachedTemplate.OpenAsDocument

    .Variables.Add Name:="NombreUsuario", Value:= Application.UserName

    .Close SaveChanges:=wdSaveChanges

End With


Objeto Window

Representa una ventana. Muchas características del documento, como las barras de desplazamiento y las reglas, son realmente propiedades de la ventana. El objeto Window es un miembro del conjunto Windows. El conjunto Windows del objeto Application contiene todas las ventanas de la aplicación, mientras que el conjunto Windows del objeto Document contiene sólo las ventanas del documento especificado.

Uso del objeto Window

Utilice Windows(index), donde index corresponde al nombre de la ventana o al número de índice, para devolver un solo objeto Window. En el ejemplo siguiente, se maximiza la ventana Documento1.

Windows("Documento1").WindowState = wdWindowStateMaximize

El número de índice es el número a la izquierda del nombre de la ventana en el menú Ventana. En el siguiente ejemplo, aparece el título de la primera ventana del conjunto Windows.

MsgBox Windows(1).Caption

Utilice el método Add o el método NewWindow para agregar una nueva ventana al conjunto Windows. Cada una de las siguientes instrucciones crea una nueva ventana para el documento en la ventana activa.

ActiveWindow.NewWindow

NewWindow

Windows.Add

Comentarios

Aparecen dos puntos (:) y un número en el título de la ventana cuando haya varias ventanas abiertas para un documento.

Cuando pasa a la Vista preliminar, se crea una nueva ventana. Esta ventana se quita del conjunto Windows al cerrar la Vista preliminar.


Objeto de conjunto Windows

Conjunto de objetos Window que representa las ventanas disponibles. El conjunto Windows del objeto Application contiene todas las ventanas de la aplicación, mientras que el conjunto Windows del objeto Document contiene sólo las ventanas del documento especificado.

Uso del conjunto Windows

Utilice la propiedad Windows para devolver el conjunto Windows. En el siguiente ejemplo, se organizan en mosaico todas las ventanas para que no se solapen entre sí.

Windows.Arrange ArrangeStyle:=wdTiled

Utilice el método Add o el método NewWindow para agregar una nueva ventana al conjunto Windows. Cada una de las siguientes instrucciones crea una nueva ventana para el documento en la ventana activa.

ActiveWindow.NewWindow

NewWindow

Windows.Add

Utilice Windows(index), donde index corresponde al nombre de la ventana o al número de índice, para devolver un solo objeto Window. En el ejemplo siguiente, se maximiza la ventana Documento1.

Windows("Documento1").WindowState = wdWindowStateMaximize

El número de índice es el número a la izquierda del nombre de la ventana en el menú Ventana. En el siguiente ejemplo, aparece el título de la primera ventana del conjunto Windows.

MsgBox Windows(1).Caption

Comentarios

Aparecen dos puntos (:) y un número en el título de la ventana cuando haya varias ventanas abiertas para un documento.

Cuando pasa a la Vista preliminar, se crea una nueva ventana. Esta ventana se quita del conjunto Windows al cerrar la Vista preliminar.


Document, Panes, Selection, View


Objeto de conjunto Words

Conjunto de palabras de una selección, intervalo o documento. Cada elemento del conjunto Words es un objeto Range que representa una palabra. No hay objeto Word.

Uso del conjunto Words

Utilice la propiedad Words para devolver un objeto Words. En el siguiente ejemplo, se muestra el número de palabras actualmente seleccionadas.

MsgBox Selection.Words.Count & " están seleccionadas las ventanas"

Utilice Words(index), donde index es el número de índice, para devolver un objeto Range que representa una palabra. El número de índice representa la posición de la palabra en el conjunto Words. En el siguiente ejemplo, se aplica a la primera palabra de la selección el formato de cursiva de 24 puntos.

With Selection.Words(1)

    .Italic = True

    .Font.Size = 24

End With

El elemento del conjunto Words incluye tanto la palabra como los espacios detrás de la misma. Para quitar los espacios de la derecha, utilice la función RTrim; por ejemplo, RTrim(ActiveDocument.Words(1). En el siguiente ejemplo, se selecciona la primera palabra, y sus espacios a la derecha, del documento activo.

ActiveDocument.Words(1).Select

Comentarios

La propiedad Count de este conjunto de un documento devuelve sólo el número de elementos del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.

No hay ningún método Add disponible para el conjunto Words. En su lugar, utilice el método InsertAfter o el método InsertBefore para agregar texto a un objeto Range. En el siguiente ejemplo, se inserta texto detrás de la primera palabra del documento activo.

ActiveDocument.Words(1).InsertAfter "Texto nuevo "


Objeto TwoInitialCapsException

Representa la excepción de Autocorrección de una sola mayúscula inicial. El objeto TwoInitialCapsException es un miembro del conjunto TwoInitialCapsExceptions. Este conjunto incluye todos los elementos que aparecen en el cuadro No corregir de la ficha MAyúscula INicial del cuadro de diálogo Excepciones de Autocorrección.

Uso del objeto TwoInitialCapsException

Utilice TwoInitialCapsExceptions(index), donde index corresponde al nombre de la excepción de mayúscula inicial o al número de índice, para devolver un solo objeto TwoInitialCapsException. En el siguiente ejemplo, se elimina la excepción de mayúscula inicial denominada "KMenú".

AutoCorrect.TwoInitialCapsExceptions("KMenú").Delete

El número de índice representa la posición de la excepción de mayúscula inicial del conjunto TwoInitialCapsExceptions. La última excepción agregada a este conjunto es el número de índice 1. En el siguiente ejemplo, se muestra el nombre del primer elemento del conjunto TwoInitialCapsExceptions.

MsgBox AutoCorrect.TwoInitialCapsExceptions(1).Name

Si el valor de la propiedad TwoInitialCapsAutoAdd es True, las palabras se agregan automáticamente a la lista de excepciones de mayúscula inicial. Utilice el método Add para agregar un elemento al conjunto TwoInitialCapsExceptions. En el siguiente ejemplo, se agrega "Industria" a las excepciones de mayúscula inicial.

AutoCorrect.TwoInitialCapsExceptions.Add Name:="INdustria"


Objeto de conjunto TwoInitialCapsExceptions

Conjunto de objetos TwoInitialCapsException que representa todos los elementos que aparecen en el cuadro No corregir de la ficha MAyúscula INicial del cuadro de diálogo Excepciones de Autocorrección.

Uso del conjunto TwoInitialCapsExceptions

Utilice la propiedad TwoInitialCapsExceptions para devolver el conjunto TwoInitialCapsExceptions. En el siguiente ejemplo, se muestran los elementos de este conjunto.

For Each aCap In AutoCorrect.TwoInitialCapsExceptions

    MsgBox aCap.Name

Next aCap

Si el valor de la propiedad TwoInitialCapsAutoAdd es True, las palabras se agregan automáticamente a la lista de excepciones de mayúscula inicial. Utilice el método Add para agregar un elemento al conjunto TwoInitialCapsExceptions. En el siguiente ejemplo, se agrega "Industria" a las excepciones de mayúscula inicial.

AutoCorrect.TwoInitialCapsExceptions.Add Name:="INdustria"

Utilice TwoInitialCapsExceptions(index), donde index corresponde al nombre de la mayúscula inicial o al número de índice, para devolver un solo objeto TwoInitialCapsException. En el siguiente ejemplo, se elimina el elemento de mayúscula inicial denominado "KMenú".

AutoCorrect.TwoInitialCapsExceptions("KMenú").Delete

El número de índice representa la posición de la excepción de mayúscula inicial del conjunto TwoInitialCapsExceptions. La última excepción agregada a este conjunto es el número de índice 1. En el siguiente ejemplo, se muestra el nombre del primer elemento del conjunto TwoInitialCapsExceptions.

MsgBox AutoCorrect.TwoInitialCapsExceptions(1).Name


Objeto Version

Representa una sola versión de un documento. El objeto Version es un miembro del conjunto Versions. El conjunto Versions incluye todas las versiones del documento especificado.

Uso del objeto Version

Utilice Versions(index), donde index corresponde al número de índice, para devolver un solo objeto Version. El número de índice representa la posición de la versión en el conjunto Versions. La primera versión agregada al conjunto Versions es el número de índice 1. En el siguiente ejemplo, se muestra el comentario, el autor y la fecha de la primera versión del documento activo.

If ActiveDocument.Versions.Count >= 1 Then

    With ActiveDocument.Versions(1)

        MsgBox "Comentario = " & .Comment & vbCr & "Autor = " & _

            .SavedBy & vbCr & "Fecha = " & .Date

    End With

End If

Utilice el método Save para agregar un elemento al conjunto Versions. En el siguiente ejemplo, se agrega una versión del documento activo con el comentario especificado.

ActiveDocument.Versions.Save Comment:="se han integrado las revisiones de Susana"


Objeto de conjunto Versions

Conjunto de objetos Version que representa todas las versiones de un documento. Corresponde a los elementos que aparecen en el cuadro de diálogo Versiones (menú Archivo).

Uso del conjunto Versions

Utilice la propiedad Versions para devolver el conjunto Versions. En el siguiente ejemplo, se desactiva la opción que crea automáticamente nuevas versiones del documento.

ActiveDocument.Versions.AutoVersion = wdAutoVersionOff

Utilice el método Save para agregar un elemento al conjunto Versions. En el siguiente ejemplo, se agrega una versión con el comentario especificado.

ActiveDocument.Versions.Save Comment:="se han integrado las revisiones de Susana"

Utilice Versions(index), donde index corresponde al número de índice, para devolver un solo objeto Version. El número de índice representa la posición de la versión en el conjunto Versions. La primera versión agregada al conjunto Versions es el número de índice 1. En el siguiente ejemplo, se muestra el comentario, el autor y la fecha de la primera versión del documento activo.

If ActiveDocument.Versions.Count >= 1 Then

    With ActiveDocument.Versions(1)

        MsgBox "Comentario = " & .Comment & vbCr & "Autor = " & _

            .SavedBy & vbCr & "Fecha = " & .Date

    End With

End If


Objeto View

Contiene los atributos de vista, mostrar todos, sombreado de campo, cuadrículas de tabla, etc., de una ventana o de un panel.

Uso del objeto View

Utilice la propiedad View para devolver un objeto View. En el siguiente ejemplo, se establecen las opciones de vista de la ventana activa.

With ActiveWindow.View

    .ShowAll = True

    .TableGridlines = True

    .WrapToWindow = False

End With

Comentarios

Utilice la propiedad Type para pasar a otra vista. En el siguiente ejemplo, se pasa la ventana activa a vista Normal.

ActiveWindow.View.Type = wdNormalView

Use la propiedad Percentage para cambiar el tamaño del texto en pantalla. En el siguiente ejemplo, se amplía el texto en pantalla al 120 por cien.

ActiveWindow.View.Zoom.Percentage = 120

Utilice la propiedad SeekView para ver comentarios, notas al final, notas al pie, o bien el encabezado o el pie de página del documento. En el siguiente ejemplo, se muestra el pie de página actual de la ventana activa de la vista Diseño de página.

With ActiveWindow.View

    .Type = wdPageView

    .SeekView = wdSeekCurrentPageFooter

End With


Pane, Window


Objeto Zoom

Contiene opciones de ampliación; por ejemplo, el porcentaje de ampliación, de una ventana o de un panel. El objeto Zoom es un miembro del conjunto Zooms.

Uso del objeto Zoom

Utilice la propiedad Zoom del objeto View para devolver un solo objeto Zoom. En el siguiente ejemplo, se establece el porcentaje de ampliación de la ventana activa en el 110 por cien.

ActiveWindow.View.Zoom.Percentage = 110

Utilice Zooms(index), donde index identifica el tipo de vista, para devolver un solo objeto Zoom. El tipo de vista especificado por index puede ser una de las siguientes constantes WdViewType: wdMasterView, wdNormalView, wdOnlineView, wdOutlineView, wdPageView o wdPrintPreview. En el siguiente ejemplo, se establece la ampliación de diseño de página de la ventana activa para que se vea toda la página.

ActiveWindow.ActivePane.Zooms(wdPageView).PageFit = wdPageFitFullPage

No hay ningún método Add disponible para el conjunto Zooms. El conjunto Zooms incluye un solo objeto Zoom para cada uno de los diversos tipos de vista: Esquema, Normal, Diseño de página, etc.


Pane, View


Objeto de conjunto Zooms

Conjunto de objetos Zoom que representa las opciones de ampliación para cada vista: Esquema, Normal, Diseño de página, etc.

Uso del conjunto Zooms

Utilice la propiedad Zooms para devolver el conjunto Zooms. En el siguiente ejemplo, se establece el porcentaje de ampliación de la ventana activa en el 100 por cien en la vista Normal.

ActiveWindow.ActivePane.Zooms(wdNormalView).Percentage = 100

No hay ningún método Add disponible para el conjunto Zooms. El conjunto Zooms incluye un solo objeto Zoom para cada uno de los diversos tipos de vista: Esquema, Normal, Diseño de página, etc. No puede enumerar el conjunto Zooms mediante el bucle For Each...Next.

Utilice Zooms(index), donde index identifica el tipo de vista, para devolver un solo objeto Zoom. El tipo de vista especificado por index puede ser una de las siguientes constantes WdViewType: wdMasterView, wdNormalView, wdOnlineView, wdOutlineView, wdPageView o wdPrintPreview. En el siguiente ejemplo, se establece la ampliación de diseño de página de la ventana activa para que se vea una página completa.

ActiveWindow.ActivePane.Zooms(wdPageView).PageFit = wdPageFitFullPage

También puede utilizar la propiedad Zoom del objeto View para devolver un solo objeto Zoom. En el siguiente ejemplo, se establece el porcentaje de ampliación de la ventana activa en el 110 por cien.

ActiveWindow.View.Zoom.Percentage = 110


Objeto de conjunto ListGalleries

Conjunto de objetos ListGallery que representa las tres fichas del cuadro de diálogo Numeración y viñetas.

Uso del conjunto ListGalleries

Use la propiedad ListGalleries para devolver el conjunto ListGalleries. En el siguiente ejemplo aparece el conjunto de galerías de lista y se devuelve cada una de las siete plantillas de lista (formatos) al formato de plantilla de lista integrado de Word.

For Each gl In ListGalleries

    For x = 1 To 7

        gl.Reset(x)

    Next x

Next gl

Use ListGalleries(index), donde index corresponde a wdBulletGallery, wdNumberGallery o wdOutlineNumberGallery, para devolver un solo objeto ListGallery.

En el siguiente ejemplo se devuelve el tercer formato de lista (excluido Ninguno) de la ficha Viñetas del cuadro de diálogo Numeración y viñetas y, a continuación, se aplica a la selección.

Set plant3 = ListGalleries(wdBulletGallery).ListTemplates(3)

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:= plant3

Restablecer una plantilla de lista de la galería

Para ver si la plantilla de lista especificada contiene el formato integrado de Word, utilice la propiedad Modified con el objeto ListGallery. Para que el formato vuelva a ser el formato de lista original, utilice el método Reset para el objeto ListGallery.


Objeto ListGallery

Representa una sola galería de formatos de lista. El objeto ListGallery es un miembro del conjunto ListGalleries. Cada objeto ListGallery representa una de las tres fichas del cuadro de diálogo Numeración y viñetas.

Uso del objeto ListGallery

Use ListGalleries(index), donde index corresponde a wdBulletGallery, wdNumberGallery o wdOutlineNumberGallery, para devolver un solo objeto ListGallery.

En el siguiente ejemplo se devuelve el tercer formato de lista (excluido Ninguno) de la ficha Viñetas del cuadro de diálogo Numeración y viñetas y, a continuación, se aplica a la selección.

Set plant3 = ListGalleries(wdBulletGallery).ListTemplates(3)

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:= plant3

Restablecer una plantilla de lista de la galería

Para ver si la plantilla de lista especificada contiene el formato integrado de Word, utilice la propiedad Modified para el objeto ListGallery. Para que el formato vuelva a ser el formato de lista original, utilice el método Reset para el objeto ListGallery.


Objeto ListLevel

Representa un solo nivel de lista, ya sea el único nivel de lista con viñetas o numerada, o bien uno de los nueve niveles de una lista numerada de un esquema. El objeto ListLevel es un miembro del conjunto ListLevels.

Uso del objeto ListLevel

Use ListLevels(index), donde index corresponde a un número comprendido entre 1 y 9, para devolver un solo objeto ListLevel. En el siguiente ejemplo se establece el nivel de lista uno de la plantilla de lista uno del documento activo para que empiece en 4.

ActiveDocument.ListTemplates(1).ListLevels(1).StartAt = 4

Comentarios

El objeto ListLevel proporciona el acceso a todas las propiedades de formato para el nivel de lista especificado, como las propiedades Alignment, Font, NumberFormat, NumberPosition, NumberStyle y TrailingCharacter.

Para aplicar un nivel de lista, en primer lugar identifique el intervalo o la lista y, a continuación, utilice el método ApplyListTemplate. Cada ficha al principio del párrafo se traduce a un nivel de lista. Por ejemplo, un párrafo que empieza con tres tabulaciones se convertirá en un párrafo de lista de nivel tres después de utilizarse el método ApplyListTemplate.


Objeto de conjunto ListLevels

Conjunto de objetos ListLevel que representa todos los niveles de lista de una plantilla de lista, ya sea el único nivel de una lista con viñetas o numerada, o bien uno de los nueve niveles de una lista numerada de un esquema.

Uso del conjunto ListLevels

Use la propiedad ListLevels para devolver el conjunto ListLevels. En el siguiente ejemplo se establece el valor de la variable miplantilla en la primera plantilla del documento activo y, a continuación, se modifica cada nivel para que utilice minúsculas para el estilo de número.

Set miplantilla = ActiveDocument.ListTemplates(1)

For Each nivel In miplantilla.ListLevels

    nivel.NumberStyle = wdListNumberStyleLowercaseLetter

Next nivel

Use ListLevels(index), donde index corresponde a un número comprendido entre 1 y 9, para devolver un solo objeto ListLevel. En el siguiente ejemplo se establece el nivel de lista uno de la plantilla de lista uno del documento activo para que empiece en 4.

ActiveDocument.ListTemplates(1).ListLevels(1).StartAt = 4

Nota   No es posible agregar nuevos niveles a una plantilla de lista.

Comentarios

Para aplicar un nivel de lista, en primer lugar identifique el intervalo o la lista y, a continuación, utilice el método ApplyListTemplate. Cada ficha al principio del párrafo se traduce a un nivel de lista. Por ejemplo, un párrafo que empieza con tres tabulaciones se convertirá en un párrafo de lista de nivel tres después de utilizarse el método ApplyListTemplate.


Objeto de conjunto Lists

Conjunto de objetos List que representa todas las listas del documento especificado.

Uso del conjunto Lists

Use la propiedad Lists para devolver el conjunto Lists. En el siguiente ejemplo aparece el número de elementos de cada lista del documento activo.

For Each li In ActiveDocument.Lists

    MsgBox li.CountNumberedItems

Next li

Use Lists(index), donde index corresponde al número de índice, para devolver un solo objeto List. En el siguiente ejemplo se aplica el primer formato de lista (excluido Ninguno) de la ficha Números del cuadro de diálogo Numeración y viñetas a la segunda lista del documento activo.

Set plant1 = ListGalleries(wdNumberGallery).ListTemplates(1)

ActiveDocument.Lists(2).ApplyListTemplate ListTemplate:=plant1

Comentarios

Cuando utilice un bucle For Each...Next para enumerar el conjunto Lists, las listas del documento se devuelven en orden inverso. En el siguiente ejemplo se cuentan los elementos de cada lista del documento activo, desde la parte inferior del documento hacia arriba.

For Each li In ActiveDocument.Lists

   MsgBox li.CountNumberedItems

Next li

Para agregar una nueva lista a un documento, utilice el método ApplyListTemplate con el objeto ListFormat para un intervalo especificado.

Puede manipular los objetos List individuales de un documento. Si desea obtener un control más preciso, utilice el objeto ListFormat.


Objeto List

Representa un solo formato de lista aplicado a párrafos específicos de un documento. El objeto List es un miembro del conjunto Lists.

Uso del objeto List

Use Lists(index), donde index corresponde al número de índice, para devolver un solo objeto List. En el siguiente ejemplo se muestra el número de elementos de la lista uno del documento activo.

mycount = ActiveDocument.Lists(1).CountNumberedItems

Para devolver todos los párrafos con formato de lista, utilice la propiedad ListParagraphs. Para devolverlos como intervalo, use Range.

Comentarios

Para aplicar un formato de lista distinto a una lista existente, utilice el método ApplyListTemplate con el objeto List. Para agregar una nueva lista a un documento, utilice el método ApplyListTemplate con el objeto ListFormat para un intervalo especificado.

Use el método CanContinuePreviousList para determinar si puede continuar dando formato a la lista desde una lista que se haya aplicado previamente al documento.

Use el método CountNumberedItems para devolver el número de elementos de una lista numerada o con viñetas, incluidos los campos NÚMEROLISTA.

Para determinar si una lista contiene varias plantillas de lista, utilice la propiedad SingleListTemplate.

Puede manipular los objetos List individuales de un documento. Si desea obtener un control más preciso, utilice el objeto ListFormat.


ListParagraphs, Range


ListFormat, Document


Objeto ListTemplate

Representa una sola plantilla de lista que incluye todo el formato que define una lista. El objeto ListTemplate es un miembro del conjunto ListTemplates. Cada uno de los siete formatos (excluido Ninguno) encontrado en cada una de las tres fichas del cuadro de diálogo Numeración y viñetas corresponde a un objeto de una plantilla de lista. Se puede obtener acceso a estas plantillas de lista predefinidas desde los tres objetos ListGallery del conjunto ListGalleries. Los documentos y las plantillas también pueden contener conjuntos de plantillas de lista.

Uso del objeto ListTemplate

Use ListTemplates(index), donde index corresponde a un número comprendido entre 1 y 7, para devolver una sola plantilla de lista desde una galería de listas. En el siguiente ejemplo se devuelve el tercer formato de lista (excluido Ninguno) de la ficha Números del cuadro de diálogo Numeración y viñetas.

Set plant3 = ListGalleries(2).ListTemplates(3)

Nota   Algunas propiedades y métodos, como por ejemplo Convert y Add, no funcionarán con las plantillas de lista a las que se obtiene acceso desde una galería de lista. Puede modificar estas plantillas, pero no puede cambiar el tipo de galería de lista (wdBulletGallery, wdNumberGallery o wdOutlineNumberGallery).

En el siguiente ejemplo se establece una variable de objeto igual a la plantilla de lista utilizada en la tercera lista del documento activo y, a continuación, se aplica dicha plantilla de lista a la selección.

Set miPlantlista = ActiveDocument.ListTemplates(3)

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=miPlantlista

Use el método Add para agregar una plantilla de lista al conjunto de plantillas de lista de un documento o plantilla.

Restablecer una plantilla de lista de la galería

Para ver si la plantilla de lista especificada contiene el formato integrado de Word, utilice la propiedad Modified con el objeto ListGallery. Para que el formato vuelva a ser el formato de lista original, utilice el método Reset para el objeto ListGallery.

Comentarios

Después de haber devuelto un objeto ListTemplate, utilice ListLevels(index), donde index corresponde a un número comprendido entre 1 y 9, para devolver un solo objeto ListLevel. Con un objeto ListLevel, obtiene acceso a todas las propiedades de formato para el nivel de lista especificado, como las propiedades Alignment, Font, NumberFormat, NumberPosition, NumberStyle y TrailingCharacter.

Use el método Convert para convertir una plantilla de lista de varios niveles en una plantilla de un solo nivel.


Objeto de conjunto ListTemplates

Conjunto de objetos ListTemplate que representa los siete formatos de lista predefinidos de cada ficha del cuadro de diálogo Numeración y viñetas.

Uso del conjunto ListTemplates

Use la propiedad ListTemplates para devolver el conjunto ListTemplates. En el siguiente ejemplo se muestra un mensaje con el estado del nivel, de uno o varios niveles, de cada plantilla de lista del documento activo.

For Each plantlista In ActiveDocument.ListTemplates

    MsgBox "Se trata de una plantilla de lista multinivel - " & lt.OutlineNumbered

Next PlantLista

Use el método Add para agregar una plantilla de lista al conjunto de plantillas de lista del documento o plantilla especificado. En el siguiente ejemplo se agrega una nueva plantilla de lista al documento activo y se aplica a la selección.

Set miPlantLista = ActiveDocument.ListTemplates.Add

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:= miPlantLista

Use ListTemplates(index), donde index corresponde a un número comprendido entre 1 y 7, para devolver una sola plantilla de lista desde una galería de listas. En el siguiente ejemplo se establece una variable de objeto igual a la plantilla de lista utilizada en la tercera lista del documento activo y, a continuación, se aplica dicha plantilla a la selección.

Set miplantlista = ActiveDocument.ListTemplates(3)

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=miplantlista

Nota   Algunas propiedades y métodos, como por ejemplo Convert y Add, no funcionarán con las plantillas de lista a las que se obtiene acceso desde una galería de lista. Puede modificar estas plantillas, pero no puede cambiar el tipo de galería de lista (wdBulletGallery, wdNumberGallery o wdOutlineNumberGallery).

Restablecer una plantilla de lista de la galería

Para ver si la plantilla de lista especificada contiene el formato integrado de Word, utilice la propiedad Modified con el objeto ListGallery. Para que el formato vuelva a ser el formato de lista original, utilice el método Reset para el objeto ListGallery.

Comentarios

Después de haber devuelto un objeto ListTemplate, utilice ListLevels(index), donde index corresponde a un número comprendido entre 1 y 9, para devolver un solo objeto ListLevel. Con un objeto ListLevel, obtiene acceso a todas las propiedades de formato para el nivel de lista especificado, como las propiedades Alignment, Font, NumberFormat, NumberPosition, NumberStyle y TrailingCharacter.

Use el método Convert para convertir una plantilla de lista de varios niveles en una plantilla de un solo nivel.


Document, ListFormat, ListGallery, Style, Template


Objeto de conjunto ListParagraphs

Conjunto de objetos Paragraph que representa los párrafos del documento, lista o intervalo especificado que tengan aplicado el formato de lista.

Uso del conjunto ListParagraphs

Use la propiedad ListParagraphs para devolver el conjunto ListParagraphs. En el siguiente ejemplo se aplica un resaltado al conjunto de párrafos con formato de lista del documento activo.

For Each párrafo in ActiveDocument.ListParagraphs

    párrafo.Range.HighlightColorIndex = wdTurquoise

Next párrafo

Use ListParagraphs(index), donde index corresponde al número de índice, para devolver un solo objeto Paragraph con formato de lista.

Comentarios

Los párrafos pueden tener dos tipos de formato de lista. El primer tipo incluye un número o viñeta agregado automáticamente al principio de cada párrafo de la lista. El segundo incluye campos NÚMEROLISTA, que pueden colocarse en cualquier lugar dentro de un párrafo. Puede haber varios campos NÚMEROLISTA por párrafo.

Para agregar formato de lista a los párrafos, puede utilizar el método ApplyListTemplate, ApplyBulletDefault, ApplyNumberDefault o ApplyOutlineNumberDefault. Puede obtener acceso a estos métodos desde el objeto ListFormat de un intervalo especificado.

La propiedad Count de este conjunto de un documento devuelve el número de elementos sólo del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.


Document, List, Range


Borders, DropCap, ParagraphFormat, Range, Shading, TabStops


List, ListTemplate


Objeto ListFormat

Representa los atributos de formato de lista que puedan aplicarse a los párrafos de un intervalo.

Uso del objeto ListFormat

Use la propiedad ListFormat para devolver el objeto ListFormat para un intervalo. En el siguiente ejemplo se aplica el formato de lista con viñetas predeterminado a la selección.

Selection.Range.ListFormat.ApplyBulletDefault

Aplicar una plantilla de lista

Una forma sencilla de aplicar el formato de lista es utilizar los métodos ApplyBulletDefault, ApplyNumberDefault y ApplyOutlineNumberDefault, que corresponden, respectivamente, al primer formato de lista (excluido Ninguno) de cada ficha del cuadro de diálogo Numeración y viñetas.

Para aplicar un formato que no sea el predeterminado, utilice el método ApplyListTemplate, que permite especificar el formato de lista (plantilla de lista) que desee aplicar.

Devolver la alista o la plantilla de lista

Use la propiedad List o ListTemplate para devolver la lista o la plantilla de lista desde el primer párrafo del intervalo especificado.

Comentarios

Use la propiedad ListFormat con un objeto Range para obtener acceso a las propiedades y los métodos de formato de lista disponibles para el intervalo especificado. En el siguiente ejemplo se aplica la viñeta predeterminada al segundo párrafo del documento activo.

ActiveDocument.Paragraphs(2).Range.ListFormat.ApplyBulletDefault

Sin embargo, si ya hay una lista definida en el documento, puede obtener acceso a un objeto List con la propiedad Lists. En el siguiente ejemplo se cambia el formato de la lista creada en el ejemplo anterior al primer formato de número de la ficha Números del cuadro de diálogo Numeración y viñetas.

ActiveDocument.Lists(1).ApplyListTemplate ListTemplate:=ListGalleries(2).ListTemplates(1)


Objeto LetterContent

Representa los elementos de una carta creada por el Asistente para cartas.

Uso del objeto LetterContent

Utilice el método GetLetterContent o el método CreateLetterContent para devolver un objeto LetterContent. En el siguiente ejemplo, se recupera y se muestra el nombre del destinatario de la carta desde el documento activo.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

MsgBox ContenidoMiCarta.RecipientName

En el siguiente ejemplo, se utiliza el método CreateLetterContent para crear un nuevo objeto LetterContent, que se usa a continuación con el método RunLetterWizard.

Set miCarta = ActiveDocument.CreateLetterContent(DateFormat:="11 de julio de 1996", _

    IncludeHeaderFooter:=False, _

    PageDesign:="C:\MSOffice\Plantillas\Cartas y faxes\Carta contemporánea.dot", _

    LetterStyle:=wdFullBlock, Letterhead:=True, LetterheadLocation:=wdLetterTop, _

    LetterheadSize:=InchesToPoints(1.5), RecipientName:="Enrique Ballina", _

    RecipientAddress:="Av. Benavides 4858 Dept. 201" & vbCr & "Lima 31, Perú", _

    Salutation:="Estimado Enrique:", SalutationType:=wdSalutationInformal, _

    RecipientReference:="", MailingInstructions:="", AttentionLine:="", _

    Subject:="Fin del mensaje anual", CCList:="", ReturnAddress:="", _

    SenderName:="", Closing:="Atentamente", SenderCompany:="", _

    SenderJobTitle:="", SenderInitials:="", EnclosureNumber:=0)

ActiveDocument.RunLetterWizard LetterContent:=miCarta, WizardMode:=True

Comentarios

El método CreateLetterContent crea un objeto LetterContent; sin embargo, hay muchos argumentos necesarios. Si desea establecer sólo una pocas propiedades, utilice la palabra clave New para crear un nuevo objeto LetterContent autónomo. En el siguiente ejemplo, se crea un objeto LetterContent, se establecen algunas de las propiedades y, a continuación, se utiliza el objeto LetterContent con el método RunLetterWizard para ejecutar el Asistente para cartas, usando los valores preestablecidos como valores predeterminados.

Set miCarta = New LetterContent

With miCarta

    .AttentionLine = "Lea esto"

    .EnclosureNumber = 1

    .Letterhead = True

    .LetterheadLocation = wdLetterTop

    .LetterheadSize = InchesToPoints(2)

End With

Documents.Add.RunLetterWizard LetterContent:=miCarta, WizardMode:=True

También puede duplicar un objeto LetterContent mediante la propiedad Duplicate. En el siguiente ejemplo, se recuperan los elementos de la carta del documento activo y se hace una copia duplicada. En el ejemplo, se asigna la copia duplicada a aCarta y se restablecen el nombre y la dirección del destinatario a cadenas vacías. Se utiliza el método RunLetterWizard para ejecutar el Asistente para cartas, con los valores del objeto LetterContent (aCarta) revisado como valores predeterminados.

Set aCarta = ActiveDocument.GetLetterContent.Duplicate

With aCarta

    .RecipientName = ""

    .RecipientAddress = ""

Documents.Add.RunLetterWizard LetterContent:=aCarta, WizardMode:=True

El método SetLetterContent inserta el contenido del objeto LetterContent especificado en un documento. En el siguiente ejemplo, se recuperan los elementos de la carta desde el documento activo, se cambia la línea de atención y, a continuación, se usa el método SetLetterContent para actualizar el documento activo a fin de que refleje el cambio.

Set ContenidoMiCarta = ActiveDocument.GetLetterContent

ContenidoMiCarta.AttentionLine = "Saludos"

ActiveDocument.SetLetterContent LetterContent:=ContenidomiCarta


Objeto TextRetrievalMode

Representa las opciones que controlan el proceso de recuperación del texto desde un objeto Range.

Uso del objeto TextRetrievalMode

Utilice la propiedad TextRetrievalMode para devolver un objeto TextRetrievalMode. En el siguiente ejemplo, se muestra el texto de la primera oración del documento activo, excluyendo los códigos de campo y el texto oculto.

With ActiveDocument.Sentences(1).TextRetrievalMode

    .IncludeHiddenText = False

    .IncludeFieldCodes = False

    MsgBox .Parent.Text

End With

Comentarios

Al cambiar la propiedad ViewType, IncludeHiddenText o IncludeFieldCodes del objeto TextRetrievalMode no se cambia la presentación en pantalla. En su lugar, al cambiar una de estas propiedades se determinará el texto que va a recuperarse desde un objeto Range cuando se utilice la propiedad Text.


Objeto Hyperlink

Representa un hipervínculo. El objeto Hyperlink es un miembro del conjunto Hyperlinks.

Uso del objeto Hyperlink

Utilice la propiedad Hyperlink para devolver un objeto Hyperlink asociado a una forma, una forma puede tener sólo un hipervínculo. En el siguiente ejemplo, se activa el hipervínculo asociado a la primera forma del documento activo.

ActiveDocument.Shapes(1).Hyperlink.Follow

Utilice Hyperlinks(index), donde index corresponde al número de índice, para devolver un solo objeto Hyperlink desde un documento, un intervalo o una selección. En el siguiente ejemplo, se activa el primer hipervínculo de la selección.

If Selection.HyperLinks.Count >= 1 Then

    Selection.HyperLinks(1).Follow

End If


Document, InlineShape, Range, Selection, Shape, ShapeRange


Objeto de conjunto Hyperlinks

Representa el conjunto de objetos Hyperlink de un documento, intervalo o selección.

Uso del conjunto Hyperlinks

Utilice la propiedad Hyperlinks para devolver el conjunto Hyperlinks. En el siguiente ejemplo, se comprueban todos los hipervínculos del documento uno por si tienen un vínculo que contenga la palabra "Microsoft" en la dirección. Si se encuentra un hipervínculo, se activa con el método Follow.

For Each hLink In Documents(1).Hyperlinks

    If InStr(hLink.Address, "Microsoft") <> 0 Then

        hLink.Follow

        Exit For

    End If

Next hLink

Utilice el método Add para crear un hipervínculo y agregarlo al conjunto Hyperlinks. En el siguiente ejemplo, se crea un nuevo hipervínculo al sitio Web MSN.

ActiveDocument.Hyperlinks.Add Address:="http://www.msn.com/", _

    Anchor:=Selection.Range

Utilice Hyperlinks(index), donde index corresponde al número de índice, para devolver un solo objeto Hyperlink de un documento, un intervalo o una selección. En el siguiente ejemplo, se activa el primer hipervínculo de la selección.

If Selection.HyperLinks.Count >= 1 Then

    Selection.HyperLinks(1).Follow

End If

Comentarios

La propiedad Count de este conjunto del documento devuelve sólo el número de elementos del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.


Range, Shape


Objeto KeyBinding

Representa la asignación de una tecla personalizada del contexto actual. El objeto KeyBinding es un miembro del conjunto KeyBindings. Las asignaciones de teclas personalizadas se realizan en el cuadro de diálogo Personalizar teclado.

Uso del objeto KeyBinding

Utilice KeyBindings(index), donde index corresponde al número de índice, para devolver un solo objeto KeyBinding. En el siguiente ejemplo, se muestra el comando asociado al primer objeto KeyBinding del conjunto KeyBindings.

MsgBox KeyBindings(1).Command

También puede utilizar la propiedad FindKey y el método Key para devolver un objeto KeyBinding.


Application, KeysBoundTo


Objeto de conjunto KeyBindings

Conjunto de objetos KeyBinding que representa las asignaciones de teclas personalizadas en el contexto actual. Las asignaciones de teclas personalizadas se realizan en el cuadro de diálogo Personalizar teclado.

Uso del conjunto Keybindings

Utilice la propiedad KeyBindings para devolver el conjunto KeyBindings. En el siguiente ejemplo, se insertan el nombre del comando y la combinación de teclas de cada elemento del conjunto KeyBindings detrás de la selección.

CustomizationContext = NormalTemplate

For Each aKey In KeyBindings

    Selection.InsertAfter aKey.Command & vbTab & aKey.KeyString & vbCr

    Selection.Collapse Direction:=wdCollapseEnd

Next aKey

Utilice el método Add para agregar un objeto KeyBinding al conjunto KeyBindings. En el siguiente ejemplo, se agrega la combinación de teclas CTRL+ALT+H al estilo Título 1 del documento activo.

CustomizationContext = ActiveDocument

KeyBindings.Add KeyCategory:=wdKeyCategoryStyle, Command:="Título 1", _

    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyH)

Utilice KeyBindings(index), donde index corresponde al número de índice, para devolver un solo objeto KeyBinding. En el siguiente ejemplo, se muestra el comando asociado al primer objeto KeyBinding del conjunto KeyBindings.

MsgBox KeyBindings(1).Command


Objeto de conjunto KeysBoundTo

Conjunto de objetos KeyBinding asignado a un comando, un estilo, una macro u otro elemento del contexto actual.

Uso del conjunto KeysBoundTo

Utilice la propiedad KeysBoundTo para devolver el conjunto KeysBoundTo. En el siguiente ejemplo, se muestran las combinaciones de teclas asignadas al comando FileNew de la plantilla Normal.

CustomizationContext = NormalTemplate

For Each myKey In KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, Command:="ArchivoNuevo")

    myStr = myStr & myKey.KeyString & vbCr

Next myKey

MsgBox myStr

En el siguiente ejemplo, se muestra el nombre del documento o de la plantilla donde se guardan las teclas de la macro denominada "Macro1".

Set kb = KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, Command:="Macro1")

MsgBox kb.Context.Name


Objeto MailMergeDataSource

Representa el origen de datos de combinación de correspondencia de una operación de combinación de correspondencia.

Uso del objeto MailMergeDataSource

Utilice la propiedad DataSource para devolver un objeto MailMergeDataSource. En el siguiente ejemplo, se muestra el nombre del origen de datos asociado al documento activo.

If ActiveDocument.MailMerge.DataSource.Name <> "" Then _

    MsgBox ActiveDocument.MailMerge.DataSource.Name

En el siguiente ejemplo, se muestran los nombres de campos del origen de datos asociado al documento activo.

For Each aField In ActiveDocument.MailMerge.DataSource.FieldNames

    MsgBox aField.Name

Next aField

En el siguiente ejemplo, se abre el origen de datos asociado al Formulario carta.doc y se determina si el campo Nombre incluye el nombre "Cristina".

With Documents("Formulario carta.doc").MailMerge

    .EditDataSource

    If .DataSource.FindRecord(FindText:="Cristina", Field:="Nombre") = True Then

        MsgBox "Se han encontrado los datos"

    End If

End With


MailMergeDataFields, MailMergeFieldNames


Objeto Range

Representa un área contigua en el documento. Se define cada objeto Range mediante una posición de carácter inicial y final. De forma similar al uso de los marcadores en un documento, se utilizan los objetos Range en los procedimientos de Visual Basic para identificar partes específicas del documento. Sin embargo, a diferencia de los marcadores, sólo existe un objeto Range en tanto que se ejecute el procedimiento que lo define.

Nota   Los objetos Range son independientes de la selección. Es decir, puede definir y manipular un intervalo sin cambiar la selección. También puede definir varios intervalos de un documento, mientras sólo puede haber una selección por panel.

Uso del objeto Range

Utilice el método Range para devolver un objeto Range definido mediante las posiciones de los caracteres inicial y final. En el siguiente ejemplo, se devuelve un objeto Range que hace referencia a los 10 primeros caracteres del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=10)

Utilice la propiedad Range para devolver un objeto Range definido mediante el principio y el final de otro objeto. La propiedad Range se aplica a muchos objetos, como Paragraph, Bookmark y Cell. En el siguiente ejemplo, se devuelve un objeto Range que hace referencia al primer párrafo del documento activo.

Set unIntervalo = ActiveDocument.Paragraphs(1).Range

En el siguiente ejemplo, se devuelve un objeto Range que hace referencia a los cuatro párrafos intermedios del documento activo.

Set unIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _

    End:=ActiveDocument.Paragraphs(4).Range.End)

Para obtener más información acerca del trabajo con objetos Range, consulte Trabajar con objetos Range.


Bookmark, Cell, Characters, Comment, Document, Endnote, Footnote, FormField, Frame, HeaderFooter, HyperLink, Index, InlineShape, List, Paragraph, ProofreadingErrors, Revision, Row, Section, Selection, Sentences, Subdocument, Table, TableOfContents, TableOfFigures, TextFrame, Words


Bookmarks, Borders, Cells, Characters, Columns, Comments, Endnotes, Fields, Find, Font, Footnotes, FormFields, Frames, HyperLinks, InlineShapes, ListFormat, ListParagraphs, PageSetup, ParagraphFormat, Paragraphs, ProofreadingErrors, ReadabilityStatistics, Revisions, Rows, Sections, Sentences, Shading, ShapeRange, Subdocuments, SynonymInfo, Tables, TextRetrievalMode, Words


Objeto Dialog

Representa un cuadro de diálogo integrado. El objeto Dialog es un miembro del conjunto Dialogs. Este conjunto contiene todos los cuadros de diálogo integrados de Word. No puede crearse ningún cuadro de diálogo nuevo integrado ni agregarse ninguno al conjunto Dialogs.

Uso del objeto Dialog

Utilice Dialogs(index), donde index corresponde a la constante WdWordDialog que identifica el cuadro de diálogo, para devolver un solo objeto Dialog. En el siguiente ejemplo, se muestran y se llevan a cabo las acciones del cuadro de diálogo Abrir integrado (menú Archivo).

dlgAnswer = Dialogs(wdDialogFileOpen).Show

Las constantes WdWordDialog se forman a partir del prefijo "wdDialog" seguido del nombre del menú y del cuadro de diálogo. Por ejemplo, la constante del cuadro de diálogo Configurar página es wdDialogFilePageSetup y la del cuadro de diálogo Nuevo es wdDialogFileNew. Para obtener información acerca de trabajar con cuadros de diálogo integrados de Word, consulte Mostrar cuadros de diálogo integrados de Word.


Objeto Find

Representa los criterios de una operación de búsqueda. Las propiedades y los métodos del objeto Find corresponden a las opciones del cuadro de diálogo Buscar y reemplazar.

Uso del objeto Find

Utilice la propiedad Find para devolver un objeto Find. En el siguiente ejemplo, se busca y se selecciona la siguiente aparición de la palabra "buenas".

With Selection.Find

    .ClearFormatting

    .Text = "buenas"

    .Execute Forward:=True

End With

En el siguiente ejemplo, se buscan todas las apariciones de la palabra "buenas" del documento activo y se sustituye la palabra por "hola".

Set miIntervalo = ActiveDocument.Content

miIntervalo.Find.Execute FindText:="buenas", ReplaceWith:="hola", _

    Replace:=wdReplaceAll

Comentarios

Si ha llegado al objeto Find del objeto Selection, se cambiará la selección cuando se encuentre texto que coincida con el criterio de búsqueda. En el siguiente ejemplo, se selecciona la siguiente aparición de la palabra "azul".

Selection.Find.Execute FindText:="azul", Forward:=True

Si ha llegado al objeto Find del objeto Range, no se cambiará la selección cuando se encuentre texto que coincida con el criterio de búsqueda, sino que vuelve a definirse el objeto Range. En el siguiente ejemplo, se localiza la primera aparición de la palabra "azul" del documento activo. Si se encuentra "azul" en el documento, vuelve a definirse miIntervalo y se aplica formato de negrita a "azul".

Set miIntervalo = ActiveDocument.Content

miIntervalo.Find.Execute FindText:="azul", Forward:=True

If miIntervalo.Find.Found = True Then miIntervalo.Bold = True


Range, Selection


Font, Frame, ParagraphFormat, Replacement


Objeto Mailer

Representa el formulario de PowerTalk de un documento. Este objeto sólo está disponible en Macintosh con la ampliación del sistema PowerTalk instalada.

Uso del objeto Mailer

Utilice la propiedad Mailer para devolver un objeto Mailer. El ejemplo siguiente establece la propiedad Subject para el formulario adjunto al documento activo.

With ActiveDocument

    .HasMailer = True

    .Mailer.Subject = "Aquí está el documento."

End With


Objeto Replacement

Representa los criterios de sustitución de una operación de búsqueda y sustitución. Las propiedades y los métodos del objeto Replacement corresponden a las opciones del cuadro de diálogo Buscar y reemplazar.

Uso del objeto Replacement

Utilice la propiedad Replacement para devolver un objeto Replacement. En el siguiente ejemplo, se sustituyen todas las apariciones de la palabra "buenas" por la palabra "hola".

With Selection.Find

    .Text = "buenas"

    .ClearFormatting

    .Replacement.Text = "hola"

    .Replacement.ClearFormatting

    .Execute Replace:=wdReplaceOne, Forward:=True

End With

Para buscar y sustituir formato, establezca los valores de buscar texto y reemplazar texto en cadenas vacías ("") y establezca el valor del argumento Format del método Execute en True. En el siguiente ejemplo, se quita todo el formato de negrita del documento activo. El valor de la propiedad Bold es True para el objeto Find y False para Replacement.

With ActiveDocument.Content.Find

    .ClearFormatting

    .Font.Bold = True

    .Text = ""

    With .Replacement

        .ClearFormatting

        .Font.Bold = False

        .Text = ""

    End With

    .Execute Format:=True, Replace:=wdReplaceAll

End With


Font, Frame, ParagraphFormat


Find, Range, Replacement, Selection, Style


Borders, ParagraphFormat, Shading, TabStops


Objeto ParagraphFormat

Representa todo el formato de un párrafo.

Uso del objeto ParagraphFormat

Utilice la propiedad Format para devolver el objeto ParagraphFormat de un párrafo o párrafos. La propiedad ParagraphFormat devuelve el objeto ParagraphFormat de una selección, un intervalo, un estilo, un objeto Find o un objeto Replacement. En el siguiente ejemplo, se centra el tercer párrafo del documento activo.

ActiveDocument.Paragraphs(3).Format.Alignment = wdAlignParagraphCenter

En el siguiente ejemplo, se busca el siguiente párrafo con doble espaciado a continuación de la selección.

With Selection.Find

    .ClearFormatting

    .ParagraphFormat.LineSpacingRule = wdLineSpaceDouble

    .Text = ""

    .Forward = True

    .Wrap = wdFindContinue

End With

Selection.Find.Execute

Comentarios

Puede utilizar la palabra clave New para crear un objeto ParagraphFormat nuevo y autónomo. En el siguiente ejemplo, se crea un objeto ParagraphFormat, se establecen algunas propiedades de formato y, a continuación, se aplican todas sus propiedades al primer párrafo del documento activo.

Dim miParraF As New ParagraphFormat

miParraF.Alignment = wdAlignParagraphCenter

miParraF.Borders.Enable = True

ActiveDocument.Paragraphs(1).Format = miParraF

También puede utilizar una copia autónoma de un objeto ParagraphFormat existente usando la propiedad Duplicate. En el siguiente ejemplo, se duplica el formato de párrafo del primer párrafo del documento activo y se guarda el formato de miDup. En el ejemplo, se cambia la sangría izquierda de miDup a 0,4 cm, se crea un documento nuevo, se inserta texto en el documento y se aplica el formato de párrafo de miDup al texto.

Set miDup = ActiveDocument.Paragraphs(1).Format.Duplicate

miDup.LeftIndent = InchesToPoints(1)

Documents.Add

Selection.InsertAfter "Este es un nuevo párrafo."

Selection.Paragraphs.Format = miDup


AddIns, Application, Assistant, AutoCaptions, AutoCorrect, CaptionLabels, CommandBars, Dictionaries, Dialogs, Documents, FileConverters, FontNames, KeyBindings, KeysBoundTo, Languages, ListGalleries, Options, RecentFiles, Selection, SynonymInfo, System, Tasks, Templates, VBE, Windows


Objeto Global

Contiene propiedades y métodos de nivel superior que no necesitan ir precedidos por la propiedad Application. Por ejemplo, las dos instrucciones siguientes tienen el mismo resultado.

Documents(1).Content.Bold = True

Application.Documents(1).Content.Bold = True


Objeto de conjunto StoryRanges

Conjunto de objetos Range que representa todos los contenidos de un documento.

Uso del conjunto StoryRanges

Utilice la propiedad StoryRanges para devolver el conjunto StoryRanges. En el siguiente ejemplo, se quita el formato de carácter manual del texto de todos los contenidos que no son el del texto principal del documento activo.

For Each aStory In ActiveDocument.StoryRanges

    If aStory.StoryType <> wdMainTextStory Then aStory.Font.Reset

Next aStory

No hay ningún método Add disponible para el conjunto StoryRanges. El número de contenidos del conjunto StoryRanges es finito.

Utilice StoryRanges(index), donde index corresponde a una constante wdStoryType, para devolver un solo contenido como objeto Range. En el siguiente ejemplo, se agrega texto al primer contenido de encabezado y, a continuación, se muestra el texto.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range _

    .Text = "Texto del encabezado"

MsgBox ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text

En el siguiente ejemplo, se copia el texto de las notas al pie desde el documento activo al nuevo documento.

If ActiveDocument.Footnotes.Count >= 1 Then

    ActiveDocument.StoryRanges(wdFootnotesStory).Copy

    Documents.Add.Content.Paste

End If

Comentarios

Si trata de devolver un contenido que no esté disponible en el documento especificado, se producirá un error. En el siguiente ejemplo, se determina si está disponible una nota al pie en el documento activo.

On Error GoTo errhandler

Set MiIntervalo = ActiveDocument.StoryRanges(wdFootnotesStory)

errhandler:

If Err = 5941 Then MsgBox "No está disponible el contenido de las notas al pie."

Utilice la propiedad NextStoryRange para repetir todos los contenidos del documento. En el siguiente ejemplo, se busca en cada contenido del documento activo el texto "Microsoft Word". Cuando se encuentra el texto, se le aplica el formato de cursiva.

For Each myStoryRange In ActiveDocument.StoryRanges

    myStoryRange.Find.Execute FindText:="Microsoft Word", Forward:=True

    While myStoryRange.Find.Found

        myStoryRange.Italic = True

        myStoryRange.Find.Execute FindText:="Microsoft Word", Forward:=True

    Wend

    While Not (myStoryRange.NextStoryRange Is Nothing)

        Set myStoryRange = myStoryRange.NextStoryRange

        myStoryRange.Find.Execute FindText:="Microsoft Word", Forward:=True

        While myStoryRange.Find.Found

            myStoryRange.Italic = True

            myStoryRange.Find.Execute FindText:="Microsoft Word", Forward:=True

        Wend

    Wend

Next myStoryRange


Objeto Style

Representa un solo estilo integrado o definido por el usuario. El objeto Style incluye los atributos de estilo (fuente, estilo, espacio entre párrafos, etc.) como propiedades del objeto Style. El objeto Style es un miembro del conjunto Styles. Este conjunto incluye todos los estilos del documento especificado.

Uso del objeto Style

Utilice Styles(index), donde index corresponde al nombre del estilo, una constante WdBuiltinStyle o el número de índice, para devolver un solo objeto Style. Debe hacer coincidir exactamente la ortografía y el espaciado del nombre del estilo, pero no necesariamente el uso de mayúsculas. En el siguiente ejemplo, se modifica el nombre de la fuente del estilo definido por el usuario denominado "Color" del documento activo.

ActiveDocument.Styles("Color").Font.Name = "Arial"

En el siguiente ejemplo, se establece el estilo del Título 1 integrado para que no sea negrita.

ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

El número de índice del estilo representa la posición del estilo en la lista de nombres de estilo ordenada alfabéticamente. Observe que Styles(1) es el primer estilo de la lista alfabética. En el siguiente ejemplo, se muestra el estilo base y el nombre de estilo del primer estilo del conjunto Styles.

MsgBox "Estilo base= " & ActiveDocument.Styles(1).BaseStyle & vbCr & _

    "Nombre del estilo= " & ActiveDocument.Styles(1).NameLocal

Para aplicar un estilo a un intervalo, a un párrafo o a varios párrafos, establezca el valor de la propiedad Style en un nombre de estilo integrado o definido por el usuario. En el siguiente ejemplo, se aplica el estilo Normal a los cuatro primeros párrafos del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, _

    End:=ActiveDocument.Paragraphs(4).Range.End)

miIntervalo.Style = wdStyleNormal

En el siguiente ejemplo, se aplica el estilo Título 1 al primer párrafo de la selección.

Selection.Paragraphs(1).Style = wdStyleHeading1

En el siguiente ejemplo, se crea un estilo de carácter denominado "Negrita" y se aplica a la selección.

Set miEstilo = ActiveDocument.Styles.Add(Name:="Negrita", _

    Type:=wdStyleTypeCharacter)

miEstilo.Font.Bold = True

Selection.Range.Style = "Negrita"

Comentarios

Utilice el método OrganizerCopy para copiar estilos entre documentos y plantillas. Use el método UpdateStyles para actualizar los estilos del documento activo a fin de que coincidan las definiciones de estilo de la plantilla adjunta. Utilice el método OpenAsDocument para abrir una plantilla como documento a fin de poder modificar los estilos de la misma.


Document, Envelope


Borders, Font, Frame, ListTemplate, ParagraphFormat, Shading


Objeto de conjunto Styles

Conjunto de objetos Style que representa los estilos integrado y definido por el usuario de un documento.

Uso del conjunto Styles

Utilice la propiedad Styles para devolver el conjunto Styles. En el siguiente ejemplo, se eliminan todos los estilos definidos por el usuario del documento activo.

For Each sty In ActiveDocument.Styles

    If sty.BuiltIn = False Then sty.Delete

Next sty

Utilice el método Add para crear un nuevo estilo definido por el usuario y agregarlo al conjunto Styles. En el siguiente ejemplo, se agrega un nuevo estilo de caracteres denominado "Introducción" y se convierte en Arial de 12 puntos, con formato de negrilla y cursiva. A continuación, se aplica el nuevo estilo de caracteres a la selección.

Set myStyle = ActiveDocument.Styles.Add(Name:="Introducción", _

    Type:=wdStyleTypeCharacter)

With myStyle.Font

    .Bold = True

    .Italic = True

    .Name = "Arial"

    .Size = 12

End With

Selection.Range.Style = "Introducción"

Utilice Styles(index), donde index corresponde al nombre del estilo, una constante WdBuiltinStyle o el número de índice, para devolver un solo objeto Style. Debe hacer coincidir exactamente la ortografía y el espaciado del nombre del estilo, pero no necesariamente el uso de mayúsculas. En el siguiente ejemplo, se modifica la fuente del estilo definido por el usuario denominado "Color" del documento activo.

ActiveDocument.Styles("Color").Font.Name = "Arial"

En el siguiente ejemplo, se establece el estilo del Título 1 integrado para que no sea negrita.

ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

El número de índice del estilo representa la posición del estilo en la lista de nombres de estilo ordenada alfabéticamente. Observe que Estilos(1) es el primer estilo de la lista alfabética. En el siguiente ejemplo, se muestra el estilo base y el nombre de estilo del primer estilo del conjunto Styles.

MsgBox "Estilo base= " & ActiveDocument.Styles(1).BaseStyle & vbCr & _

    "Nombre del estilo= " & ActiveDocument.Styles(1).NameLocal

Comentarios

El objeto Styles no está disponible a partir del objeto Template. No obstante, puede utilizar el método OpenAsDocument para abrir una plantilla como documento a fin de poder modificar los estilos de la misma. En el siguiente ejemplo, se cambia el formato del estilo Título 1 de la plantilla adjunta al documento activo.

Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument

With aDoc

    .Styles(wdStyleHeading1).Font.Name = "Arial"

    .Close SaveChanges:=wdSaveChanges

End With

Utilice el método OrganizerCopy para copiar estilos entre documentos y plantillas. Utilice el método UpdateStyles para actualizar los estilos del documento activo a fin de que coincidan las definiciones de estilo de la plantilla adjunta.


Objeto Subdocument

Representa un subdocumento dentro de un documento o intervalo. El objeto Subdocument es un miembro del conjunto Subdocuments. Este conjunto incluye todos los subdocumentos de un intervalo o de un documento.

Uso del objeto Subdocument

Utilice Subdocuments(index), donde index corresponde al número de índice, para devolver un solo objeto Subdocument. En el siguiente ejemplo, se muestra la ruta de acceso y el nombre del archivo del primer subdocumento del documento activo.

If ActiveDocument.Subdocuments(1).HasFile = True Then

    MsgBox ActiveDocument.Subdocuments(1).Path & _

        Application.PathSeparator & ActiveDocument.Subdocuments(1).Name

End If

Utilice el método AddFromFile o AddFromRange para agregar un subdocumento al documento. En el siguiente ejemplo, se agrega un subdocumento denominado "Configuración.doc" al final del documento activo.

ActiveDocument.Subdocuments.Expanded = True

Selection.EndKey Unit:=wdStory

Selection.InsertParagraphBefore

ActiveDocument.Subdocuments.AddFromFile Name:="C:\Temp\Configuración.doc"

En el siguiente ejemplo, se aplica el estilo Título 1 al primer párrafo de la selección y, a continuación, se crea un subdocumento para el contenido de la selección.

Selection.Paragraphs(1).Style = wdStyleHeading1

With ActiveDocument.Subdocuments

    .Expanded = True

    .AddFromRange Range:=Selection.Range

End With


Objeto de conjunto Subdocuments

Conjunto de objetos Subdocument que representa los subdocumentos del intervalo o del documento.

Uso del conjunto Subdocuments

Utilice la propiedad Subdocuments para devolver el conjunto Subdocuments. En el siguiente ejemplo, se amplían todos los subdocumentos del documento activo.

ActiveDocument.Subdocuments.Expanded = True

Utilice el método AddFromFile o AddFromRange para agregar un subdocumento al documento. En el siguiente ejemplo, se agrega un subdocumento denominado "Configuración.doc" al final del documento activo.

ActiveDocument.Subdocuments.Expanded = True

Selection.EndKey Unit:=wdStory

Selection.InsertParagraphBefore

ActiveDocument.Subdocuments.AddFromFile Name:="C:\Temp\Configuración.doc"

En el siguiente ejemplo, se aplica el estilo Título 1 al primer párrafo de la selección y, a continuación, se crea un subdocumento para el contenido de la misma.

Selection.Paragraphs(1).Style = wdStyleHeading1

With ActiveDocument.Subdocuments

    .Expanded = True

    .AddFromRange Range:=Selection.Range

End With

Utilice Subdocuments(index), donde index corresponde al número de índice, para devolver un solo objeto Subdocument. En el siguiente ejemplo, se muestra la ruta de acceso y el nombre del archivo del primer subdocumento del documento activo.

If ActiveDocument.Subdocuments(1).HasFile = True Then

    MsgBox ActiveDocument.Subdocuments(1).Path & _

        Application.PathSeparator & ActiveDocument.Subdocuments(1).Name

End If


Objeto System

Contiene información acerca del sistema del equipo.

Uso del objeto System

Utilice la propiedad System para devolver un objeto System. Si el sistema operativo es Windows, en el ejemplo siguiente se realiza una conexión de red a \\Proyecto\Info.

If System.OperatingSystem = "Windows" Then

    System.Connect Path:="\\Proyecto\Info"

End If

En el siguiente ejemplo, se muestra la resolución de pantalla actual; por ejemplo, "1024 x 768".

horz = System.HorizontalResolution

vert = System.VerticalResolution

MsgBox "Resolución = " & horz & " x " & vert


Objeto Table

Representa una sola tabla. El objeto Table es un miembro del conjunto Tables. Este conjunto incluye todas las tablas de la selección, del intervalo o del documento especificado.

Uso del objeto Table

Utilice Tables(index), donde index corresponde al número de índice, para devolver un solo objeto Table. El número de índice representa la posición de la tabla en la selección, el intervalo o el documento. En el siguiente ejemplo, se convierte la primera tabla del documento activo a texto.

ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs

Utilice el método Add para agregar una tabla al intervalo especificado. En el siguiente ejemplo, se agrega una tabla de 3 x 4 al principio del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.Tables.Add Range:=miIntervalo, NumRows:=3, NumColumns:=4


Borders, Cell, Columns, Range, Rows, Shading


Objeto de conjunto Tables

Conjunto de objetos Table que representa todas las tablas de la selección, del intervalo o del documento.

Uso del conjunto Tables

Utilice la propiedad Tables para devolver el conjunto Tables. En el siguiente ejemplo, se aplica un borde alrededor de las tablas del documento activo.

For Each aTable In ActiveDocument.Tables

    aTable.Borders.OutsideLineStyle = wdLineStyleSingle

    aTable.Borders.OutsideLineWidth = wdLineWidth025pt

    aTable.Borders.InsideLineStyle = wdLineStyleNone

Next aTable

Utilice el método Add para agregar una tabla al intervalo especificado. En el siguiente ejemplo, se agrega una tabla de 3 x 4 al principio del documento activo.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.Tables.Add Range:=miIntervalo, NumRows:=3, NumColumns:=4

Utilice Tables(index), donde index corresponde al número de índice, para devolver un solo objeto Table. El número de índice representa la posición de la tabla en la selección, el intervalo o el documento. En el siguiente ejemplo, se convierte la primera tabla del documento activo a texto.

ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs

Comentarios

La propiedad Count de este conjunto del documento devuelve sólo el número de elementos del contenido principal. Para contar los elementos de otros contenidos utilice el conjunto con el objeto Range.


Objeto de conjunto TablesOfContents

Conjunto de objetos TableOfContents que representa las tablas de contenido de un documento.

Uso del conjunto TablesOfContents

Utilice la propiedad TablesOfContents para devolver el conjunto TablesOfContents. En el siguiente ejemplo, se inserta un elemento de tabla de contenido que hace referencia al texto seleccionado del documento activo.

ActiveDocument.TablesOfContents.MarkEntry Range:=Selection.Range, _

    Level:=2, Entry:="Introducción"

Utilice el método Add para agregar una tabla de contenido al documento. En el siguiente ejemplo, se inserta una tabla de contenido al principio del documento activo. En el ejemplo, se genera la tabla de contenido de todos los párrafos cuyo estilo sea Título 1, Título 2 o Título 3.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.TablesOfContents.Add Range:=miIntervalo, _

    UseFields:=False, UseHeadingStyles:=True, LowerHeadingLevel:=3, _

    UpperHeadingLevel:=1

Utilice TablesOfContents(index), donde index corresponde al número de índice, para devolver un solo objeto TableOfContents. El número de índice representa la posición de la tabla de contenido del documento. En el siguiente ejemplo, se actualizan los números de páginas de la primera tabla de ilustraciones del documento activo.

ActiveDocument.TablesOfContents(1).UpdatePageNumbers


HeadingStyles, Range


Objeto TableOfContents

Representa una sola tabla de contenido de un documento. El objeto TableOfContents es un miembro del conjunto TablesOfContents. El conjunto TablesOfContents incluye todas las tablas de contenido de un documento.

Uso del objeto TableOfCContents

Utilice TablesOfContents(index), donde index corresponde al número de índice, para devolver un solo objeto TableOfContents. El número de índice representa la posición de la tabla de contenido del documento. En el siguiente ejemplo, se actualizan los números de páginas de la primera tabla de ilustraciones del documento activo.

ActiveDocument.TablesOfContents(1).UpdatePageNumbers

Utilice el método Add para agregar una tabla de contenido al documento. En el siguiente ejemplo, se inserta una tabla de contenido al principio del documento activo. En el ejemplo, se genera la tabla de contenido de todos los párrafos cuyo estilo sea Título 1, Título 2 o Título 3.

Set miIntervalo = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.TablesOfContents.Add Range:=miIntervalo, _

    UseFields:=False, UseHeadingStyles:=True, LowerHeadingLevel:=3, _

    UpperHeadingLevel:=1


Objeto TableOfFigures

Representa una sola tabla de ilustraciones de un documento. El objeto TableOfFigures es un miembro del conjunto TablesOfFigures. El conjunto TablesOfFigures incluye todas las tablas de ilustraciones de un documento.

Uso del objeto TableOfFigures

Utilice TablesOfFigures(index), donde index corresponde al número de índice, para devolver un solo objeto TableOfFigures. El número de índice representa la posición de la tabla de ilustraciones del documento. En el siguiente ejemplo, se actualizan los números de páginas de la primera tabla de ilustraciones del documento activo.

ActiveDocument.TablesOfFigures(1).UpdatePageNumbers

Utilice el método Add para agregar una tabla de ilustraciones al documento. La tabla de ilustraciones muestra los títulos de las ilustraciones en el orden en el que aparecerán en el documento. En el siguiente ejemplo, se reemplaza la selección del documento activo por una tabla de ilustraciones que incluye etiquetas de título y números de página.

ActiveDocument.TablesOfFigures.Add Range:=Selection.Range, _

    IncludeLabel:=True, IncludePageNumbers:=True


Objeto de conjunto TablesOfFigures

Conjunto de objetos TableOfFigures que representa las tablas de ilustraciones de un documento.

Uso del conjunto TablesOfFigures

Utilice la propiedad TablesOfFigures para devolver el conjunto TablesOfFigures. En el siguiente ejemplo, se aplica el formato Clásico a todas las tablas de ilustraciones del documento activo.

ActiveDocument.TablesOfFigures.Format = wdTOFClassic

Utilice el método Add para agregar una tabla de ilustraciones al documento. La tabla de ilustraciones muestra los títulos de las ilustraciones en el orden en el que aparecerán en el documento. En el siguiente ejemplo, se reemplaza la selección del documento activo por una tabla de ilustraciones que incluye etiquetas de título y números de página.

ActiveDocument.TablesOfFigures.Add Range:=Selection.Range, _

    IncludeLabel:=True, IncludePageNumbers:=True

Utilice TablesOfFigures(index), donde index corresponde al número de índice, para devolver un solo objeto TableOfFigures. El número de índice representa la posición de la tabla de ilustraciones del documento. En el siguiente ejemplo, se actualizan los números de páginas de la primera tabla de ilustraciones del documento activo.

ActiveDocument.TablesOfFigures(1).UpdatePageNumbers


Objetos de Microsoft Word


Objetos de Microsoft Word (Documentos)


Objetos de Microsoft Word (Intervalo)


Objetos de Microsoft Word (Selección)


Objetos de Microsoft Word (Autocorrección)


Objetos de Microsoft Word (Ventanas)


Objetos de Microsoft Word (Plantilla)


Objetos de Microsoft Word (Estilos)


Objetos de Microsoft Word (Celdas)


Objetos de Microsoft Word (Buscar)


Objetos de Microsoft Word (CamposFormulario)


Objetos de Microsoft Word (Filas)


Objetos de Microsoft Word (Párrafos)


Objetos de Microsoft Word (Tablas)


Identificadores Programáticos OLE (Microsoft Word)

Los identificadores programáticos OLE, a veces denominados ProgID, se utilizan para crear un objeto Automation. Para crear un objeto Application de Microsoft Word, utilice "Word.Application.8." Para crear un objeto Document de Microsoft Word, utilice "Word.Document.8." Al utilizar "Word.Application" o "Word.Document" sin número de versión, se crea un objeto en la versión más reciente de Microsoft Word disponible en el equipo donde se ejecute la macro.


Tema de ayuda no disponible

No se puede mostrar el tema de Ayuda porque no se ha encontrado o no se ha instalado la Ayuda de Visual Basic para aplicaciones.

Para instalar la Ayuda de Visual Basic para aplicaciones

1.	Ejecute el programa de instalación de Microsoft Office 97 y haga clic en Agregar o quitar.

2.	Haga clic en Microsoft Word y, a continuación, en Modificar opción.

3.	Haga clic en Ayuda y, a continuación, en Modificar opción.

4.	Asegúrese de que la casilla de verificación Ayuda para Visual Basic está activada.

5.	Continúe con la instalación.


Tema de ayuda no disponible

No se puede mostrar el tema de Ayuda porque no se ha encontrado o no se ha instalado la Ayuda de Visual Basic para Microsoft Office.

Para instalar la Ayuda de Microsoft Office Visual Basic

1.	Ejecute el programa de instalación de Microsoft Office 97 y haga clic en Agregar o quitar.

2.	Haga clic en Microsoft Word y, a continuación, en Modificar opción.

3.	Haga clic en Ayuda y, a continuación, en Modificar opción.

4.	Asegúrese de que la casilla de verificación Ayuda para Visual Basic está activada.

5.	Continúe con la instalación.


Tema de ayuda no disponible

No se puede mostrar el tema de Ayuda porque no se ha encontrado o no se ha instalado la Ayuda de Microsoft Word.

Para instalar la Ayuda de Microsoft Word

1.	Ejecute el programa de instalación de Microsoft Office 97 y haga clic en Agregar o quitar.

2.	Haga clic en Microsoft Word y, a continuación, en Modificar opción.

3.	Haga clic en Ayuda y, a continuación, en Modificar opción.

4.	Asegúrese de que la casilla de verificación Ayuda para Microsoft Word está activada.

5.	Continúe con la instalación.


Método ConvertToFrame

Convierte la forma especificada en un marco. Devuelve un objeto Frame que representa el nuevo marco.

Sintaxis

expresión.ConvertToFrame

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Comentarios

Las formas que no admiten texto adjunto no pueden convertirse en marcos. Para imágenes, objetos OLE y controles ActiveX utilice el método ConvertToInlineShape.

Si utiliza este método en un objeto ShapeRange que contenga más de una forma, se producirá un error.

En Word 97 las marcos se han sustituido por cuadros de texto.


Ejemplo del método ConvertToFrame

En este ejemplo, se crea un cuadro de texto utilizando el texto seleccionado y, a continuación, se convierte el cuadro de texto en un marco.

If Selection.Type = wdSelectionNormal Then

    Selection.CreateTextbox

    Selection.ShapeRange.ConvertToFrame

End If


Método ConvertToInlineShape

Convierte la forma especificada del estrato de dibujo de un documento en una forma entre líneas en el estrato de texto. Sólo puede convertir formas que representen imágenes, objetos OLE o controles ActiveX. Este método devuelve un objeto InlineShape que representa la imagen o el objeto OLE.

Sintaxis

expresión.ConvertToInlineShape

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Comentarios

Las formas que admiten texto adjunto no pueden convertirse en formas entre líneas. Para estas formas, utilice el método ConvertToFrame.

Si utiliza este método en un objeto ShapeRange que contenga más de una forma, se producirá un error.


Ejemplo del método ConvertToInlineShape

En este ejemplo, se convierte cada imagen de MiDoc.doc en una forma entre líneas.

For Each s In Documents("MiDoc.doc").Shapes

    If s.Type = msoPicture Then

        s.ConvertToInlineShape

    End If

Next s


Método SetShapesDefaultProperties

Aplica el formato de la forma especificada a la forma predeterminada de ese documento. Las nuevas formas heredan muchos de sus atributos de la forma predeterminada.

Sintaxis

expresión.SetShapesDefaultProperties

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Comentarios

El uso este método equivale al del comando Valores predeterminados de Autoforma del menú Dibujo de la barra de herramientas Dibujo.


Ejemplo del método SetShapesDefaultProperties

En este ejemplo, se agrega un rectángulo a miDocumento, se da formato al relleno del mismo, se aplica el formato del rectángulo a la forma predeterminada y, a continuación, se agrega otro rectángulo más pequeño al documento. El segundo rectángulo tiene el mismo relleno que el primero.

Set midocumento = ActiveDocument

With midocumento.Shapes

    With .AddShape(msoShapeRectangle, 5, 5, 80, 60)

        With .Fill

            .ForeColor.RGB = RGB(0, 0, 255)

            .BackColor.RGB = RGB(0, 204, 255)

            .Patterned msoPatternHorizontalBrick

        End With

        .SetShapesDefaultProperties     ' Establece el formato de las formas predeterminadas

    End With

    .AddShape msoShapeRectangle, 90, 90, 40, 30  ' La nueva forma tiene el formato predeterminado

End With


Propiedad WrapFormat

Devuelve un objeto WrapFormat que contiene las propiedades de ajuste de texto de la forma o del intervalo de formas especificado. Es de sólo lectura.


Ejemplo de la propiedad WrapFormat

En este ejemplo, se agrega una elipse al documento activo y se especifica que el texto del documento se ajuste a los lados izquierdo y derecho del cuadrado que circunscribe la elipse. En este ejemplo, se establece un margen de 0,04 cm entre el texto del documento y los lados superior, inferior, izquierdo y derecho del cuadrado.

Set miElipse = ActiveDocument.Shapes.AddShape(msoShapeOval, 36, 36, 90, 50)

With miElipse.WrapFormat

    .Type = wdWrapSquare

    .Side = wdWrapBoth

    .DistanceTop = InchesToPoints(0.1)

    .DistanceBottom = InchesToPoints(0.1)

    .DistanceLeft = InchesToPoints(0.1)

    .DistanceRight = InchesToPoints(0.1)

End With


Propiedad Anchor

Devuelve un objeto Range que representa el intervalo de marcadores de la forma o del intervalo de formas especificado. Es de sólo lectura.

Comentarios

Todos los objetos Shape están fijados a un intervalo de texto, pero pueden situarse en cualquier parte de la página que contenga el marcador. Si especifica el intervalo de fijación al crear la forma, el marcador se sitúa al comienzo del primer párrafo que contenga el intervalo de fijación. Si no especifica el rango de fijación, éste se selecciona automáticamente y la forma se sitúa en relación con los bordes superior e inferior de la página.

La forma siempre permanecerá en la misma página que su marcador. Si el valor de la propiedad LockAnchor es True, no podrá arrastrar el marcador de su posición en la página.

Si utiliza esta propiedad en un objeto ShapeRange que contenga más de una forma, se producirá un error.


Ejemplo de la propiedad Anchor

En este ejemplo, se selecciona el párrafo al que está fijada la primera forma del documento activo.

ActiveDocument.Shapes(1).Anchor.Paragraphs(1).Range.Select


Método BreakForwardLink

Rompe el vínculo hacia delante del marco de texto especificado, si existe.

Sintaxis

expresión.BreakForwardLink

expresión   Requerida. Expresión que devuelve un objeto TextFrame.

Comentarios

Al aplicar este método a una forma situada en la mitad de una cadena de formas con marcos de texto vinculados se romperá la cadena, quedando dos conjuntos de formas vinculadas. Sin embargo, todo el texto permanecerá en la primera serie de formas vinculadas.


Ejemplo del método BreakForwardLink

En este ejemplo, se crea un nuevo documento, se agrega una cadena de tres cuadros de texto vinculados y, a continuación, se rompe el vínculo después del segundo cuadro de texto.

Documents.Add

Set miCT = ActiveDocument.Shapes.AddTextbox _

    (Orientation:=msoTextOrientationHorizontal, _

    Left:=InchesToPoints(1.5), _

    Top:=InchesToPoints(0.5), _

    Width:=InchesToPoints(1), _

    Height:=InchesToPoints(0.5))

miCT.TextFrame.TextRange = "Texto. Más texto. Aún más texto."

Set miCT2 = ActiveDocument.Shapes.AddTextbox _

    (Orientation:=msoTextOrientationHorizontal, _

    Left:=InchesToPoints(1.5), _

    Top:=InchesToPoints(1.5), _

    Width:=InchesToPoints(1), _

    Height:=InchesToPoints(0.5))

Set miCT3 = ActiveDocument.Shapes.AddTextbox _

    (Orientation:=msoTextOrientationHorizontal, _

    Left:=InchesToPoints(1.5), _

    Top:=InchesToPoints(2.5), _

    Width:=InchesToPoints(1), _

    Height:=InchesToPoints(0.5))

miCT.TextFrame.Next = miCT2.TextFrame

miCT2.TextFrame.Next = miCT3.TextFrame

MsgBox "Los cuadros de texto 1, 2 y 3 están vinculados."

miCT2.TextFrame.BreakForwardLink


Propiedad ContainingRange

Devuelve un objeto Range que representa todo el artículo, en una serie de formas con marcos de texto vinculados, al que pertenece el marco de texto especificado. Es de sólo lectura.


Ejemplo de la propiedad ContainingRange

En este ejemplo, se revisa la ortografía de CuadroTexto 1 y de cualquier otro marco de texto vinculado a CuadroTexto 1.

Set miArtículo = ActiveDocument.Shapes("CuadroTexto 1").TextFrame.ContainingRange

miArtículo.CheckSpelling


Propiedad Overflowing

True si el texto del marco de texto especificado no se ajusta completamente al marco. Boolean de sólo lectura.


Ejemplo de la propiedad Overflowing

En este ejemplo, se comprueba si el texto de MiCuadroTexto desborda su marco. Si es así, el ejemplo agrega otro cuadro de texto y vincula los dos para que el texto fluya de un cuadro a otro.

Set miCTexto = ActiveDocument.Shapes("MiCuadroTexto")

If miCTexto.TextFrame.Overflowing = True Then

    Set siguienteCTexto = ActiveDocument.Shapes. _

        AddTextbox(msoTextOrientationHorizontal, 72, 72, 100, 200)

    miCTexto.TextFrame.Next = siguienteCTexto.TextFrame

End If


Método ValidLinkTarget

Determina si el marco de texto de una forma puede vincularse al marco de texto de otra forma. Devuelve True si TargetTextFrame es un objetivo válido. Devuelve False si TargetTextFrame ya contiene texto, si ya está vinculado o si la forma no admite texto adjunto.

Sintaxis

expresión.ValidLinkTarget(TargetTextFrame)

expresión   Requerida. Expresión que devuelve un objeto TextFrame.

TargetTextFrame   Objeto TextFrame requerido. Marco de texto objetivo al que desee vincular el marco de texto devuelto por expresión.


Ejemplo del método ValidLinkTarget

En este ejemplo, se comprueba si los marcos de texto de las formas primera y segunda del documento activo pueden vincularse entre sí. Si es así, el ejemplo vincula los dos marcos de texto.

Set miMarco1 = ActiveDocument.Shapes(1).TextFrame

Set miMarco2 = ActiveDocument.Shapes(2).TextFrame

If miMarco1.ValidLinkTarget(miMarco2) = True Then

    miMarco1.Next = miMarco2

End If


Propiedad ScaleWidth

Ajusta el ancho de la forma entre líneas especificada, con relación a su tamaño original. Single de Lectura/Escritura.


Ejemplo de la propiedad ScaleWidth

En este ejemplo, se establece el alto y el ancho de la primera forma entre líneas del documento activo en el 150% del alto y ancho originales de la forma.

With ActiveDocument.InlineShapes(1)

    .ScaleHeight = 150

    .ScaleWidth = 150

End With


Propiedad ScaleHeight

Ajusta el alto de la forma entre líneas especificada, con relación a su tamaño original. Single de Lectura/Escritura.


Ejemplo de la propiedad ScaleHeight

En este ejemplo, se establece el alto y ancho de la primera forma entre líneas del documento activo en el 150% del alto y ancho originales de la forma.

With ActiveDocument.InlineShapes(1)

    .ScaleHeight = 150

    .ScaleWidth = 150

End With


Método Arrange

Organiza todas las ventanas del documento abierto en el espacio de trabajo de la aplicación.

Sintaxis

expresión.Arrange(ArrangeStyle)

expresión   Expresión que devuelve un objeto Windows.

ArrangeStyle   Variant opcional. Organización de la ventana. Puede ser una de las siguientes constantes WdArrangeStyle: wdIcons o wdTiled.


Ejemplo del método Arrange

En este ejemplo se organizan todas las ventanas abiertas de forma que no se superpongan.

Windows.Arrange ArrangeStyle:=wdTiled

En este ejemplo se minimizan todas las ventanas abiertas y luego se organizan las ventanas minimizadas.

For Each unaVentana In Windows

    unaVentana.Activate

    unaVentana.WindowState = wdWindowStateMinimize

Next unaVentana

Windows.Arrange ArrangeStyle:=wdIcons


Método Close

Sintaxis 1: Cierra el documento o los documentos especificados.

Sintaxis 2: Cierra la ventana especificada.

Sintaxis 3: Cierra el panel o tarea especificada.

Sintaxis 1

expresión.Close(SaveChanges, OriginalFormat, RouteDocument)

Sintaxis 2

expresión.Close(SaveChanges, RouteDocument)

Sintaxis 3

expresión.Close

expresión   Sintaxis 1: Requerida. Expresión que devuelve un objeto Document o Documents.

Sintaxis 2: Requerida. Expresión que devuelve un objeto Window.

Sintaxis 3: Requerida. Expresión que devuelve un objeto Pane o Task.

SaveChanges    Variant opcional. Especifica la acción de guardar el documento. Puede ser una de las siguientes constantes WdSaveOptions: wdDotNotSaveChanges, wdPromptToSaveChanges o wdSaveChanges.

OriginalFormat   Variant opcional. Especifica el formato en que se guarda el documento. Puede ser una de las siguientes constantes WdOriginalFormat: wdOriginalDocumentFormat, wdPromptUser o wdWordDocument.

RouteDocument   Variant opcional. True para distribuir el documento al siguiente destinatario. Si el documento no tiene ninguna lista de distribución adjunta, se ignorará este argumento.


Ejemplo del método Close

En este ejemplo se cierra la ventana activa y se guarda el documento que se muestra en ella.

ActiveWindow.Close SaveChanges:=wdSaveChanges

En este ejemplo se pide al usuario que guarde el documento antes de cerrarlo. Si el usuario hace clic en Cancelar, se identifica el error 4198 (error de comando) y se muestra un mensaje.

On Error GoTo errorHandler

ActiveDocument.Close SaveChanges:=wdPromptToSaveChanges, OriginalFormat:=wdPromptUser

errorHandler:

If Err = 4198 Then MsgBox "No se cerró el documento"

En este ejemplo se activa Microsoft Excel y luego se cierra.

For Each miTarea In Tasks

    If InStr(miTarea.Name, "Microsoft Excel") > 0 Then

        miTarea.Activate

        miTarea.Close

    End If

Next miTarea

En este ejemplo se cierra el panel activo si la ventana activa está dividida.

If ActiveWindow.Panes.Count >= 2 Then ActiveWindow.ActivePane.Close


Propiedad DisplayHorizontalScrollBar

True si una barra de desplazamiento horizontal se muestra en la ventana especificada. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DisplayHorizontalScrollBar

En este ejemplo se muestran las barras de desplazamiento vertical y horizontal de la ventana activa.

With ActiveWindow

    .DisplayHorizontalScrollBar = True

    .DisplayVerticalScrollBar = True

End With

En este ejemplo se muestra o se oculta la barra de desplazamiento horizontal de la ventana del Document1.

Set unaVent = Windows("Documento1")

unaVent.DisplayHorizontalScrollBar = Not unaVent.DisplayHorizontalScrollBar


Propiedad DisplayRulers

True si se muestran las reglas de la ventana o panel especificado. Equivalente al comando Regla del menú Ver. Boolean de Lectura/Escritura.

Nota   Si DisplayRulers es False, las reglas horizontal y vertical no se muestran, independientemente del estado de la propiedad DisplayVerticalRuler.


Ejemplo de la propiedad DisplayRulers

En este ejemplo se activa y se desactiva la presentación de la regla de la ventana activa.

ActiveWindow.DisplayRulers = Not ActiveWindow.DisplayRulers

En este ejemplo la ventana pasa a vista Diseño de página y se muestran las reglas horizontal y vertical.

With ActiveWindow

    .View.Type = wdPageView

    .DisplayVerticalRuler = True

    .DisplayRulers = True

End With


Propiedad DisplayVerticalRuler

True si se muestra una regla vertical para la ventana o panel especificado. Boolean de Lectura/Escritura.

Nota   Aparece una regla vertical solamente en vista Diseño de página y solamente si la propiedad DisplayRulers se define como True.


Ejemplo de la propiedad DisplayVerticalRuler

En este ejemplo se pasa cada una de las ventanas del conjunto Windows a vista Diseño de página y se muestran las reglas horizontal y vertical.

For Each miVentana In Windows

    With miVentana

        .View.Type = wdPageView

        .DisplayRulers = True

        .DisplayVerticalRuler = True

    End With

Next miVentana

En este ejemplo se ocultan las reglas horizontal y vertical de la ventana activa.

With ActiveWindow

    .DisplayVerticalRuler = False

    .DisplayRulers = False

End With


Propiedad DisplayVerticalScrollBar

True si una barra de desplazamiento vertical se muestra en la ventana especificada. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DisplayVerticalScrollBar

En este ejemplo se muestran las barras de desplazamiento vertical y horizontal de cada ventana del conjunto Windows.

For Each miVentana In Windows

    miVentana.DisplayVerticalScrollBar = True

    miVentana.DisplayHorizontalScrollBar = True

Next miVentana

En este ejemplo se activa y se desactiva la barra de desplazamiento vertical de la ventana activa.

Set unaVentana = ActiveWindow

unaVentana.DisplayVerticalScrollBar = Not unaVentana.DisplayVerticalScrollBar


Método LargeScroll

Desplaza una ventana o panel según el número de pantallas especificado. Este método es equivalente a hacer clic inmediatamente antes o después de los cuadros de desplazamiento de las barras de desplazamiento horizontal y vertical.

Sintaxis

expresión.LargeScroll(Down, Up, ToRight, ToLeft)

expresión   Requerida. Expresión que devuelve un objeto Pane o Window.

Down   Variant opcional. Número de pantallas que se desplaza la ventana hacia abajo.

Up   Variant opcional. Número de pantallas que se desplaza la ventana hacia arriba.

ToRighr   Variant opcional. Número de pantallas que se desplaza la ventana hacia la derecha.

ToLeft   Variant opcional. Número de pantallas que se desplaza la ventana hacia la izquierda.

Comentarios

Si se especifican ambos, Down y Up, la ventana se desplaza en una cantidad definida por la diferencia entre los dos argumentos. Por ejemplo, si Down es 2 y Up es 4, la ventana se desplaza hacia arriba dos pantallas. Igualmente, si se especifican ambos, ToLeft y ToRight, la ventana se desplaza en una cantidad definida por la diferencia entre los dos argumentos.

Cualquiera de estos argumentos puede ser un número negativo. Si no se especifican argumentos, la ventana se desplaza una pantalla hacia abajo.


Ejemplo del método LargeScroll

En este ejemplo la ventana activa se desplaza hacia abajo una pantalla.

ActiveWindow.LargeScroll Down:=1

En este ejemplo se divide la ventana activa y, a continuación, se desplaza hacia arriba dos pantallas y a la derecha una pantalla.

With ActiveWindow

    .Split = True

    .LargeScroll Up:=2, ToRight:=1

End With


Método NewWindow

Abre una nueva ventana con el mismo documento como la ventana especificada. Devuelve un objeto Window.

Nota   Dos puntos (:) y un número aparecen en el título de la ventana cuando hay más de una ventana abierta para un documento.

Sintaxis

expresión.NewWindow

expresión   Requerida. Expresión que devuelve un objeto Application o Window.

Comentarios

Si se utiliza el método NewWindow con el objeto Application, se abre una nueva ventana de la ventana activa. Las dos instrucciones siguientes son equivalentes desde el punto de vista funcional:

Set miVentana = ActiveWindow.NewWindow

Set miVentana = NewWindow


Ejemplo del método NewWindow

En este ejemplo se envía un mensaje que indica el número de ventanas que existen antes y después de que se abra una nueva ventana para el Documento1.

MsgBox Windows.Count & " ventanas abiertas"

Windows("Documento1").NewWindow

MsgBox Windows.Count & " ventanas abiertas"

En este ejemplo se abre una nueva ventana, se organizan todas las ventanas abiertas, se cierra la ventana nueva y, a continuación, se reorganizan las ventanas abiertas.

Set miVentana = NewWindow

Windows.Arrange ArrangeStyle:=wdTiled

miVentana.Close

Windows.Arrange ArrangeStyle:=wdTiled


Propiedad Panes

Devuelve un conjunto Panes que representa todos los paneles de ventana de la ventana especificada. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Panes

En este ejemplo la ventana activa se divide por la mitad.

If ActiveWindow.Panes.Count = 1 Then ActiveWindow.Panes.Add

Este ejemplo activa el primer panel de la ventana del Documento2.

Windows("Documento2").Panes(1).Activate


Método SmallScroll

Desplaza una ventana o panel un número de líneas especificado. Este método es equivalente a hacer clic en las flechas de desplazamiento de las barras de desplazamiento horizontal y vertical.

Sintaxis

expresión.SmallScroll(Down, Up, ToRight, ToLeft)

expresión   Requerida. Expresión que devuelve un objeto Pane o Window.

Down   Variant opcional. Número de líneas que se desplaza la ventana hacia abajo. Una "línea" es la distancia de desplazamiento recorrida al hacer clic una vez en la flecha de desplazamiento hacia abajo de la barra de desplazamiento vertical.

Up   Variant opcional. Número de líneas que se desplaza la ventana hacia arriba. Una "línea" es la distancia de desplazamiento recorrida al hacer clic una vez en la flecha de desplazamiento hacia arriba de la barra de desplazamiento vertical.

ToRighr   Variant opcional. Número de líneas que se desplaza la ventana hacia la derecha. Una "línea" es la distancia de desplazamiento recorrida al hacer clic una vez en la flecha de desplazamiento derecha de la barra de desplazamiento horizontal.

ToLeft   Variant opcional. Número de líneas que se desplaza la ventana hacia la izquierda. Una "línea" es la distancia de desplazamiento recorrida al hacer clic una vez en la flecha de desplazamiento izquierda de la barra de desplazamiento horizontal.

Comentarios

Si se especifican ambos, Down y Up, la ventana se desplaza en una cantidad definida por la diferencia entre los dos argumentos. Por ejemplo, si Down es 3 y Up es 6, la ventana se desplaza hacia arriba tres líneas. Igualmente, si se especifican ambos, ToLeft y ToRight, la ventana se desplaza en una cantidad definida por la diferencia entre los dos argumentos.

Cualquiera de estos argumentos puede ser un número negativo. Si no se especifican argumentos, la ventana se desplaza una línea hacia abajo.


Ejemplo del método SmallScroll

En este ejemplo la ventana activa se desplaza hacia abajo una línea.

ActiveWindow.SmallScroll Down:=1

En este ejemplo se divide la ventana activa y, a continuación, se desplaza hacia arriba y hacia la izquierda.

With ActiveWindow

    .Split = True

    .SmallScroll Up:=5, ToLeft:=5

End With


Propiedad SplitVertical

Devuelve o establece el porcentaje de división vertical para la ventana especificada. Long de Lectura/Escritura.

Nota   Para quitar la división, se establece esta propiedad como cero (0) o se establece la propiedad Split como False.


Ejemplo de la propiedad SplitVertical

En este ejemplo se divide la ventana activa de forma que el panel superior ocupe el 70 por ciento de la ventana.

ActiveWindow.SplitVertical = 70

En este ejemplo se divide verticalmente a la mitad la ventana del Documento1.

Windows("Documento1").SplitVertical = 50


Propiedad View

Devuelve un objeto View que representa la vista de la ventana o panel especificado. Es de sólo lectura.


Ejemplo de la propiedad View

En este ejemplo se pasa la ventana activa a vista de pantalla completa.

ActiveWindow.View.FullScreen = True

En este ejemplo se muestran todos los caracteres no imprimibles de los paneles asociados con la primera ventana del conjunto Windows.

For Each miPanel In Windows(1).Panes

    miPanel.View.ShowAll = True

Next miPanel

En este ejemplo se muestran opciones de vista para cada ventana del conjunto Windows.

For Each miVentana In Windows

    With miVentana.View

        .ShowTabs = True

        .ShowParagraphs = True

        .Type = wdNormalView

    End With

Next miVentana


Propiedad Windows

Objeto Application: Devuelve un conjunto Windows que representa todas las ventanas del documento. El conjunto se corresponde con los nombres de ventana que aparecen en la parte inferior del menú Ventana. Es de sólo lectura.

Objeto Document: Devuelve un conjunto Windows que representa todas las ventanas del documento especificado, por ejemplo Ventas.doc:1 y Ventas.doc:2. Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Windows

En este ejemplo se muestra el número de ventanas del documento activo, tanto antes como después de que se haya ejecutado el método NewWindow.

MsgBox Prompt:= ActiveDocument.Windows.Count & " ventana(s)", _

    Title:= ActiveDocument.Name

ActiveWindow.NewWindow

MsgBox Prompt:= ActiveDocument.Windows.Count & " ventanas", _

    Title:= ActiveDocument.Name

En este ejemplo se organizan todas las ventanas abiertas de forma que no se superpongan.

Windows.Arrange ArrangeStyle:=wdTiled


Propiedad WindowState

Devuelve o establece el estado de la ventana del documento o la ventana de tareas especificadas. Puede ser una de las siguientes constantes WdWindowState: wdWindowStateMaximize, wdWindowStateMinimize o wdWindowStateNormal. Long de Lectura/Escritura.

Comentarios

La constante wdWindowStateNormal indica una ventana que no está maximizada ni minimizada. No se puede establecer el estado de una ventana inactiva. Utilice el método Activate para activar una ventana antes de establecer su estado.


Ejemplo de la propiedad WindowState

En este ejemplo se maximiza la ventana activa si no estaba ni maximizada ni minimizada.

If ActiveWindow.WindowState = wdWindowStateNormal Then _

    ActiveWindow.WindowState = wdWindowStateMaximize

En este ejemplo se minimiza la ventana de aplicación de Microsoft Excel.

For Each miTarea In Tasks

    If InStr(miTarea.Name, "Microsoft Excel") > 0 Then

        miTarea.Activate

        miTarea.WindowState = wdWindowStateMinimize

    End If

Next miTarea


Propiedad Zoom

Devuelve un objeto Zoom que representa la ampliación de la vista especificada. Es de sólo lectura.


Ejemplo de la propiedad Zoom

En este ejemplo se cambia el porcentaje de ampliación para cada una de las ventanas abiertas a un 100%.

For Each miVentana In Windows

    miVentana.View.Zoom.Percentage = 100

Next miVentana

En este ejemplo se cambia el porcentaje de ampliación de la ventana activa de forma que se haga visible el ancho del texto en su totalidad.

ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit


Propiedad WrapToWindow

True si las líneas se ajustan al borde derecho de la ventana del documento en lugar de al margen derecho o al borde derecho de columna. Boolean de Lectura/Escritura.

Nota   Esta propiedad no tiene efecto en vista Diseño de página o Diseño en pantalla.


Ejemplo de la propiedad WrapToWindow

En este ejemplo se ajusta el texto para que encaje dentro de la ventana activa.

With ActiveWindow.View

    .Type = wdNormalView

    .WrapToWindow = True

End With


Propiedad StyleAreaWidth

Devuelve o establece el ancho del área de estilo, en puntos. Single de Lectura/Escritura.

Nota   Cuando la propiedad StyleAreaWidth es mayor de 0 (cero), los nombres de estilos se muestran a la izquierda del texto. El área de estilo no es visible en vista Diseño de página o en vista Diseño en pantalla.


Ejemplo de la propiedad StyleAreaWidth

En este ejemplo se pasa la ventana activa a vista Normal y establece el ancho del área de estilo en 2,54 cm.

With ActiveWindow

    .View.Type = wdNormalView

    .StyleAreaWidth = InchesToPoints(1)

End With


Propiedad Draft

True si todo el texto de la ventana se muestra en la misma fuente sans serif con un formato mínimo para acelerar la presentación. Boolean de Lectura/Escritura.


Ejemplo de la propiedad Draft

En este ejemplo se muestra el contenido de la ventana del Documento1 en la fuente de borrador.

Windows("Documento1").View.Draft = True

En este ejemplo se activa y se desactiva la opción de fuente de borrador para la ventana activa.

ActiveWindow.View.Draft = Not ActiveWindow.View.Draft


Propiedad ShowFieldCodes

True si se muestran los códigos de campo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowFieldCodes

Este ejemplo se ocultan los códigos de campo de la ventana del Documento1.

Windows("Documento1").View.ShowFieldCodes = False

Este ejemplo se muestran los códigos de campo de la primera ventana.

Windows(1).View.ShowFieldCodes = True

En este ejemplo se activan y se desactivan los códigos de campo de la ventana activa.

ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes


Propiedad FieldShading

Devuelve o establece el sombreado en pantalla de los campos de formulario. Puede ser una de las siguientes constantes WdFieldShading: wdFieldShadingAlways, wdFieldShadingNever o wdFieldShadingWhenSelected. Long de Lectura/Escritura.


Ejemplo de la propiedad FieldShading

En este ejemplo se habilita el sombreado de campo para todos los campos de formulario de la ventana activa.

ActiveWindow.View.FieldShading = wdFieldShadingAlways


Propiedad FullScreen

True si la ventana está en vista de pantalla completa. Boolean de Lectura/Escritura.


Ejemplo de la propiedad FullScreen

En este ejemplo se pasa la ventana activa a vista de pantalla completa.

ActiveWindow.View.FullScreen = True

En este ejemplo se activa la ventana de Ventas.doc y se abandona la vista de pantalla completa.

With Windows("Ventas.doc")

    .Activate

    .View.FullScreen = False

End With


Propiedad HorizontalPercentScrolled

Devuelve o establece la posición de desplazamiento horizontal como un porcentaje del ancho del documento. Long de Lectura/Escritura.


Ejemplo de la propiedad HorizontalPercentScrolled

En este ejemplo se muestra el porcentaje de desplazamiento horizontal de la ventana activa.

MsgBox ActiveWindow.HorizontalPercentScrolled & "%"

En este ejemplo se desplaza verticalmente el panel activo de la ventana del Documento1, todo lo que sea posible, a la izquierda.

With Windows("Documento1")

    .Activate

    .ActivePane.HorizontalPercentScrolled = 0

End With


Propiedad Magnifier

True si el puntero se muestra como una lupa en Vista preliminar, indicando que el usuario puede hacer clic para reducir un área en particular de la página o para aumentar y ver una página entera o varias páginas. Boolean de Lectura/Escritura.

Nota   Esta propiedad genera un error si la vista no es Vista preliminar.


Ejemplo de la propiedad Magnifier

En este ejemplo se pasa a Vista preliminar y se cambia el puntero a un punto de inserción.

PrintPreview = True

ActiveWindow.View.Magnifier = False


Método NextHeaderFooter

Si se ha seleccionado un encabezado, este método se desplaza al siguiente encabezado de la sección actual, por ejemplo de un encabezado impar a un encabezado par, o bien al primer encabezado de la sección siguiente. Si la selección es un pie de página, este método se desplaza al siguiente pie.

Nota   Si la selección se sitúa en el último encabezado o pie de página de la última sección del documento o si no hay ningún encabezado o pie de página, se produce un error.

Sintaxis

expresión.NextHeaderFooter

expresión   Requerida. Expresión que devuelve un objeto View.


Ejemplo del método NextHeaderFooter

En este ejemplo se muestra el encabezado de la primera página del documento activo y, a continuación, se pasa al siguiente encabezado. El documento debe tener, al menos, una longitud de dos páginas.

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

With ActiveWindow.View

    .Type = wdPageView

    .SeekView =wdSeekFirstPageHeader

    .NextHeaderFooter

End With


Método PreviousHeaderFooter

Si se ha seleccionado un encabezado, este método se desplaza al encabezado anterior de la sección actual, por ejemplo de un encabezado par a un encabezado impar, o bien al último encabezado de la sección anterior. Si la selección es un pie de página, este método se desplaza al pie de página anterior.

Nota   Si la selección se sitúa en el primer encabezado o pie de página de la primera sección del documento o si no hay ningún encabezado o pie de página, se produce un error.

Sintaxis

expresión.PreviousHeaderFooter

expresión   Requerida. Expresión que devuelve un objeto View.


Ejemplo del método PreviousHeaderFooter

En este ejemplo se inserta un salto de sección par, se pasa la ventana activa a vista Diseño de página, se muestra el encabezado actual y, a continuación, se pasa al encabezado anterior.

Selection.Collapse Direction:=wdCollapseStart

Selection.InsertBreak Type:=wdSectionBreakEvenPage

With ActiveWindow.View

    .Type = wdPageView

    .SeekView = wdSeekCurrentPageHeader

    .PreviousHeaderFooter

End With


Propiedad SeekView

Devuelve o establece el elemento del documento en vista Diseño de página. Puede ser una de las siguientes constantes WdSeekView: wdSeekCurrentPageFooter, wdSeekCurrentPageHeader, wdSeekEndnotes, wdSeekEvenPagesFooter, wdSeekEvenPagesHeader, wdSeekFirstPageFooter, wdSeekFirstPageHeader, wdSeekFootnotes, wdSeekMainDocument, wdSeekPrimaryFooter o wdSeekPrimaryHeader. Long de Lectura/Escritura.

Nota   Esta propiedad genera un error si la vista no es vista Diseño de página.


Ejemplo de la propiedad SeekView

Si el documento activo tiene notas al pie, en este ejemplo se muestran las notas al pie en vista Diseño de página.

If ActiveWindow.Footnotes.Count >= 1 Then

    With ActiveWindow.View

        .Type = wdPageView

        .SeekView = wdSeekFootnotes

    End With

End If

En este ejemplo se muestra el pie de página en la primera página de la sección actual.

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

With ActiveWindow.View

    .Type = wdPageView

    .SeekView = wdSeekFirstPageFooter

End With

En este ejemplo se pasa al documento principal, si la selección es un área de notas al pie o de notas al final en vista Diseño de página.

Set miVista = ActiveWindow.View

If miVista.SeekView = wdSeekFootnotes Or _

    miVista.SeekView = wdSeekEndnotes Then

    miVista.SeekView = wdSeekMainDocument

End If


Propiedad ShowAll

True si se muestran todos los caracteres no imprimibles, tales como texto oculto, marcas de tabulación, marcas de espacios y marcas de párrafos. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowAll

En este ejemplo se muestran todos los caracteres no imprimibles de la ventana activa.

ActiveWindow.View.ShowAll = True

En este ejemplo se activa y se desactiva la presentación de los caracteres no imprimibles de la primera ventana.

Windows(1).View.ShowAll = Not Windows(1).View.ShowAll


Método ShowAllHeadings

Se alterna entre la presentación de todo el texto (títulos y texto independiente) y sólo los títulos.

Nota   Este método genera un error si la vista no es vista Esquema o de documento maestro.

Sintaxis

expresión.ShowAllHeadings

expresión   Requerida. Expresión que devuelve un objeto View.


Ejemplo del método ShowAllHeadings

En este ejemplo se utiliza el método ShowHeading para mostrar todos los títulos (sin texto independiente) y, a continuación, se activa y se desactiva la presentación para mostrar todo el texto (títulos y texto independiente) en vista Esquema.

With ActiveWindow.View

    .Type = wdOutlineView

    .ShowHeading 9

    .ShowAllHeadings

End With


Propiedad ShowAnimation

True si se muestra animación de texto. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowAnimation

En este ejemplo se activa la animación de texto de la ventana activa y luego se aplica animación de texto chispeante a la selección.

ActiveWindow.View.ShowAnimation = True

Selection.Font.Animation = wdAnimationSparkleText

En este ejemplo se desactiva la animación de fuente en todas las ventanas abiertas.

For Each VentanaAbierta In Windows

    VentanaAbierta.View.ShowAnimation = False

Next VentanaAbierta


Propiedad ShowBookmarks

True si se muestran corchetes al principio y al final de cada marcador. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowBookmarks

En este ejemplo se muestran entre corchetes todos los marcadores de todas las ventanas.

For Each Ventana In Windows

    Ventana.View.ShowBookmarks = True

Next Ventana

En este ejemplo se marca la selección con un marcador, se muestra cada uno de los marcadores del documento activo entre corchetes y, a continuación, se contrae la selección.

ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="temp"

ActiveWindow.View.ShowBookmarks = True

Selection.Collapse Direction:=wdCollapseStart


Propiedad ShowDrawings

True si los objetos creados con las herramientas de dibujo se presentan en vista Diseño de página. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowDrawings

En este ejemplo se pasa la ventana activa a vista Diseño de página y se muestran los objetos creados con las herramientas de dibujo.

With ActiveWindow.View

    .Type = wdPageView

    .ShowDrawings = True

End With


Propiedad ShowFirstLineOnly

True si sólo la primera línea de texto independiente se muestra en vista Esquema. Boolean de Lectura/Escritura.

Nota   Esta propiedad genera un error si la vista no es vista Esquema o de documento maestro.


Ejemplo de la propiedad ShowFirstLineOnly

En este ejemplo se pasa la ventana activa a vista Esquema y se oculta todo a excepción de la primera línea de texto independiente.

With ActiveWindow.View

    .Type = wdOutlineView

    .ShowFirstLineOnly = True

End With


Propiedad ShowFormat

True si el formato de carácter está visible en vista Esquema. Boolean de Lectura/Escritura.

Nota   Esta propiedad genera un error si la vista no es vista Esquema o de documento maestro.


Ejemplo de la propiedad ShowFormat

En este ejemplo se pasa la ventana activa a vista Esquema y se muestra el formato de carácter.

With ActiveWindow.View

    .Type = wdOutlineView

    .ShowFormat = True

End With


Método ShowHeading

Muestra todos los títulos hasta el nivel especificado y oculta los títulos subordinados y el texto independiente.

Nota   Este método genera un error si la vista no es vista Esquema o de documento maestro.

Sintaxis

expresión.ShowHeading(Level)

expresión   Requerida. Expresión que devuelve un objeto View.

Level   Long requerido. El nivel del título del esquema (un número del 1 al 9).


Ejemplo del método ShowHeading

En este ejemplo se pasa la ventana activa a vista Esquema y se muestra todo el texto al que se ha dado formato con el estilo de Título 1. El texto independiente y todos los otros tipos de títulos están ocultos.

With ActiveWindow.View

    .Type = wdOutlineView

    .ShowHeading 1

End With

En este ejemplo se pasa la ventana del Documento1 a vista Esquema y se muestra todo el texto al que se ha dado formato con el estilo de Título 1, Título 2 o Título 3.

With Windows("Documento1").View

    .Type = wdOutlineView

    .ShowHeading 3

End With


Propiedad ShowHiddenText

True si se muestra el texto al que se ha dado formato como texto oculto. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowHiddenText

En este ejemplo, en cada ventana se oculta el texto al que se ha dado formato como texto oculto.

For Each miVentana In Windows

    miVentana.View.ShowHiddenText = False

Next miVentana

En este ejemplo se activa y se desactiva la presentación de texto oculto.

ActiveWindow.View.ShowHiddenText = Not ActiveWindow.View.ShowHiddenText


Propiedad ShowHighlight

True si el formato de resaltado se muestra y se imprime con un documento. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowHighlight

En este ejemplo se activa y se desactiva la presentación del resaltado del documento activo.

ActiveWindow.View.ShowHighlight = Not ActiveWindow.View.ShowHighlight

En este ejemplo se imprime el documento activo sin formato de resaltado.

With ActiveDocument

    .ActiveWindow.View.ShowHighlight = False

    .PrintOut

End With


Propiedad ShowHyphens

True si se muestran guiones opcionales. Un guión opcional indica dónde dividir una palabra cuando se encuentra al final de una línea. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowHyphens

En este ejemplo se inserta un guión opcional antes de la selección y luego se muestran guiones opcionales en la ventana activa.

Selection.InsertBefore Chr(31)

ActiveWindow.View.ShowHyphens = True


Propiedad ShowObjectAnchors

True si los marcadores de objeto se muestran al lado de elementos cuya posición se puede cambiar en vista Diseño de página. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowObjectAnchors

En este ejemplo se agrega un marco alrededor de la selección, se pasa la ventana activa a vista Diseño de página y se muestran marcadores de objeto para objetos dentro de marcos.

Selection.Frames.Add(Range:=Selection.Range).LockAnchor = True

With ActiveWindow.View

    .Type = wdPageView

    .ShowObjectAnchors = True

End With


Propiedad ShowParagraphs

True si se muestran las marcas de párrafo. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowParagraphs

En este ejemplo se ocultan las marcas de párrafo de la ventana activa.

ActiveWindow.View.ShowParagraphs = False


Propiedad ShowPicturePlaceHolders

True si se presentan cuadros vacíos como marcadores de posición para imágenes. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowPicturePlaceHolders

En este ejemplo se inserta una imagen en el documento activo y se muestran marcadores de imagen en la ventana activa.

Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.InlineShapes.AddPicture Range:=Selection.Range, _

    FileName:="C:\Windows\Bubbles.bmp"

ActiveWindow.View.ShowPicturePlaceHolders = True


Propiedad ShowSpaces

True si se muestran los caracteres de espacio. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowSpaces

En este ejemplo se insertan espacios antes de la selección y se muestran los caracteres de espacio en la ventana activa.

Selection.InsertBefore "    "

ActiveWindow.View.ShowSpaces = True


Propiedad ShowTabs

True si se muestran las tabulaciones. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowTabs

En este ejemplo se inserta una tabulación y se muestran las tabulaciones en la ventana del Documento2.

With Windows("Documento2")

    .Activate

    .View.ShowTabs = True

End With

Selection.InsertBefore vbTab

Selection.Collapse Direction:=wdCollapseEnd

En este ejemplo se divide la ventana activa, se muestran las tabulaciones en el primer panel y se ocultan en el segundo panel.

With ActiveWindow

    .Split = True

    .Panes(1).View.ShowTabs = True

    .Panes(2).View.ShowTabs = False

End With


Propiedad ShowTextBoundaries

True si se muestran líneas de puntos alrededor de los márgenes de página, las columnas de texto y los marcos en vista Diseño de página. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowTextBoundaries

En este ejemplo se pasa la ventana activa a vista Diseño de página y se muestran las líneas de bordes del texto.

With ActiveWindow.View

    .Type = wdPageView

    .ShowTextBoundaries = True

End With


Propiedad SplitSpecial

Devuelve o establece el panel de la ventana activa. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes WdSpecialPane:

wdPaneComments wdCurrentPageFooter wdPaneCurrentPageHeader wdPaneEndnoteContinuationNotice wdPaneEndnoteContinuationSeparator wdPaneEndnotes wdPaneEndnoteSeparator wdPaneEvenPagesFooter wdPaneEvenPagesHeader	wdPaneFirstPageFooter wdPaneFirstPageHeader wdPaneFootnoteContinuationNotice wdPaneFootnoteContinuationSeparator wdPaneFootnotes wdPaneFootnoteSeparator wdPaneNone wdPanePrimaryFooter wdPanePrimaryHeader


Ejemplo de la propiedad SplitSpecial

En este ejemplo se muestra el pie de página principal en un panel independiente de la ventana activa.

ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter

En este ejemplo se agrega una nota al pie al documento activo y se muestran todas las notas al pie en un panel independiente de la ventana activa.

ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:="Texto de la nota al pie"

With ActiveWindow.View

    .Type = wdNormalView

    .SplitSpecial = wdPaneFootnotes

End With


Propiedad VerticalPercentScrolled

Devuelve o establece la posición de desplazamiento vertical como porcentaje del largo del documento. Long de Lectura/Escritura.


Ejemplo de la propiedad VerticalPercentScrolled

En este ejemplo se muestra el porcentaje que la ventana activa se ha desplazado verticalmente.

MsgBox ActiveWindow.VerticalPercentScrolled & "%"

En este ejemplo, la ventana activa se desplaza verticalmente un 10 por ciento.

Set VentanaActiva = ActiveWindow

VentanaActiva.VerticalPercentScrolled = VentanaActiva.VerticalPercentScrolled + 10

En este ejemplo se desplaza verticalmente el panel activo de la ventana del Documento1 hasta el final.

With Windows("Documento1")

    .Activate

    .ActivePane.VerticalPercentScrolled = 100

End With


Propiedad WindowNumber

Devuelve el número de ventana del documento que se muestra en la ventana especificada. Por ejemplo, si el título de la ventana es "Ventas.doc:2", esta propiedad devuelve el número 2. Long de sólo lectura.

Nota   Use la propiedad Index para devolver el número de la ventana especificada del conjunto Windows.


Ejemplo de la propiedad WindowNumber

En este ejemplo se recupera el número de ventana de la ventana activa, se abre una nueva ventana y, a continuación, se activa la ventana original.

windowNum = ActiveDocument.ActiveWindow.WindowNumber

NewWindow

ActiveDocument.Windows(windowNum).Activate


Propiedad DocumentMap

True si el mapa de documentos está visible. Boolean de Lectura/Escritura.


Ejemplo de la propiedad DocumentMap

En este ejemplo se activa y se desactiva el mapa de documentos de la ventana activa.

ActiveWindow.DocumentMap = Not ActiveWindow.DocumentMap

En este ejemplo se muestra el mapa de documentos en la ventana de Ventas.doc.

Set miDoc = Documents.Open(FileName:="C:\Documentos\Ventas.doc")

miDoc.ActiveWindow.DocumentMap = True


Propiedad TableGridlines

True si se muestran cuadrículas de tabla. Boolean de Lectura/Escritura.


Ejemplo de la propiedad TableGridlines

En este ejemplo se muestran las cuadrículas de tabla de la ventana activa.

ActiveWindow.View.TableGridlines = True

En este ejemplo se muestran las cuadrículas de tabla de los paneles asociados con la ventana uno del conjunto Windows.

For Each miPanel In Windows(1).Panes

    miPanel.View.TableGridlines = True

Next miPanel


Método CollapseOutline

Contrae un nivel de título el texto de la selección o del intervalo especificado.

Nota   Si el documento no está en la vista Esquema o Documento maestro, se producirá un error.

Sintaxis

expresión.CollapseOutline(Range)

expresión   Requerida. Expresión que devuelve un objeto View.

Range   Objeto Range opcional. Intervalo de párrafos a contraer. Si se omite este argumento, se contraerá toda la selección.


Ejemplo del método CollapseOutline

En este ejemplo, se aplica el estilo Título 2 al segundo párrafo del documento activo, se pasa a la ventana activa a la vista Esquema y se contrae el texto del segundo párrafo del documento.

ActiveDocument.Paragraphs(2).Style = wdStyleHeading2

With ActiveWindow.View

    .Type = wdOutlineView

    .CollapseOutline Range:=ActiveDocument.Paragraphs(2).Range

End With

En este ejemplo, se contrae un nivel todos los encabezados del documento.

With ActiveWindow.View

    .Type = wdOutlineView

    .CollapseOutline Range:=ActiveDocument.Content

End With


Método ExpandOutline

Expande un nivel de título el texto de la selección o intervalo especificado.

Nota   Si el documento no está en la vista Esquema o Documento maestro, se producirá un error.

Sintaxis

expresión.ExpandOutline(Range)

expresión   Requerida. Expresión que devuelve un objeto View.

Range   Objeto Range opcional. Intervalo de párrafos que va a expandirse. Si se omite este argumento, se expandirá toda la selección.


Ejemplo del método ExpandOutline

En este ejemplo, se expande un nivel todos los encabezados del documento.

With ActiveWindow.View

    .Type = wdOutlineView

    .ExpandOutline Range:=ActiveDocument.Content

End With

En este ejemplo, se expande el párrafo activo de la ventana Documento2.

With Windows("Documento2")

    .Activate

    .View.Type = wdOutlineView

    .View.ExpandOutline

End With


Método AutoScroll

Se desplaza automáticamente por el panel especificado.

Nota   Este método se ejecuta hasta que lo detenga manualmente, presionando una tecla o haciendo clic con el mouse (ratón).

Sintaxis

expresión.AutoScroll(Velocity)

expresión   Requerida. Expresión que devuelve un objeto Pane.

Velocity   Long requerido. Velocidad del desplazamiento. Puede ser un número comprendido entre –100 y 100. Utilice –100 para desplazarse hacia atrás y 100 para desplazarse hacia adelante a toda velocidad.


Ejemplo del método AutoScroll

En este ejemplo, se desplaza hacia atrás lentamente el panel de la ventana activa.

ActiveWindow.ActivePane.AutoScroll Velocity:=-20

En este ejemplo, el panel de la ventana activa se desplaza hacia delante a toda velocidad.

ActiveWindow.ActivePane.AutoScroll Velocity:=100


Propiedad BrowseToWindow

Objeto Pane. True si las líneas se ajustan al borde derecho del panel en vez de al margen derecho de la página. Boolean de Lectura/Escritura.

Objeto View: True si las líneas se ajustan al borde derecho de la ventana en vez de al margen derecho de la página. Su valor puede ser True, False o wdUndefined. Long de Lectura/Escritura.

Nota   Esta propiedad sólo funciona en la vista Diseño en pantalla.


Ejemplo de la propiedad BrowseToWindow

En este ejemplo, se ajusta el texto para que encaje dentro de la ventana activa.

With ActiveWindow.View

    .Type = wdOnlineView

    .BrowseToWindow = True

End With

En este ejemplo, se ajusta el texto para que encaje dentro del panel de la ventana activa.

With ActiveWindow

    .View.Type = wdOnlineView

    .ActivePane.BrowseToWindow = True

End With


Propiedad BrowseWidth

Devuelve el ancho, en puntos, del área donde se ajusta el texto en el panel especificado. Long de sólo lectura.

Nota   Esta propiedad sólo funciona en la vista Diseño en pantalla.


Ejemplo de la propiedad BrowseWidth

En este ejemplo, se ajusta el texto para que encaje el panel activo y, a continuación, se muestra un cuadro de mensaje indicando el ancho del texto ajustado.

With ActiveWindow

    .View.Type = wdOnlineView

    .ActivePane.BrowseToWindow = True

End With

MsgBox PointsToCentimeters _

    (ActiveWindow.ActivePane.BrowseWidth) & "centímetros"


Propiedad DocumentMapPercentWidth

Devuelve o establece el ancho del mapa del documento como porcentaje del ancho de la ventana especificada. Long de Lectura/Escritura.


Ejemplo de la propiedad DocumentMapPercentWidth

En este ejemplo, se muestra el mapa del documento de la ventana activa y se establece el ancho del mismo en un 25% del ancho de la ventana.

With ActiveWindow

    .DocumentMap = True

    .DocumentMapPercentWidth = 25

End With


Propiedad MinimumFontSize

Devuelve o establece el tamaño de fuente mínimo, en puntos, del panel especificado. Long de Lectura/Escritura.

Nota   Esta propiedad sólo afecta al texto como se muestra en la vista Diseño en pantalla. Los tamaños de punto que se muestran en la barra de comandos Formato y que se usan para la impresión, no se cambian.


Ejemplo de la propiedad MinimumFontSize

En este ejemplo, se cambia la vista de la ventana activa a Esquema y, a continuación, se establece el tamaño de fuente del panel activo en 12 puntos.

With ActiveWindow

    .View.Type = wdOnlineView

    .ActivePane.MinimumFontSize = 12

End With

En este ejemplo, se devuelve el tamaño de fuente mínimo para el panel activo.

Msgbox ActiveWindow.ActivePane.MinimumFontSize


Método PageScroll

Desplaza el panel o la ventana especificados página a página.

Sintaxis

expresión.PageScroll(Down, Up)

expresión   Requerida. Expresión que devuelve un objeto Window o Pane.

Down   Variant opcional. Número de páginas que se desplazará hacia abajo. Si se omite este argumento, se tomará el valor 1.

Up   Variant opcional. Número de páginas que se desplazará hacia arriba.

Comentarios

El método PageScoll está disponible sólo si está en la vista Diseño de página o Diseño en pantalla. Este método no afecta a la posición del punto de inserción.

Si se especifican Down y Up, el desplazamiento de la ventana corresponde a la diferencia de los argumentos. Por ejemplo, si el valor de Down es 2 y el de Up es 4, la ventana se desplaza dos páginas hacia arriba.


Ejemplo del método PageScroll

En este ejemplo, se desplaza la ventana activa tres páginas hacia abajo.

ActiveWindow.View.Type = wdPageView

ActiveWindow.PageScroll Down:=3

En este ejemplo, se desplaza la ventana activa una página hacia arriba.

ActiveWindow.View.Type = wdPageView

ActiveWindow.ActivePane.PageScroll Up:=1

En este ejemplo, se desplaza la ventana activa una página hacia abajo.

ActiveWindow.View.Type = wdPageView

ActiveWindow.PageScroll


Propiedad ShowMainTextLayer

True si el texto del documento especificado está visible cuando se muestran las áreas de encabezados y pies de página. Esta propiedad equivale al botón Ver/ocultar texto del documento de la barra de herramientas Encabezado y pie de página. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowMainTextLayer

En este ejemplo, se muestra el encabezado del documento de la ventana activa y se oculta el texto del documento.

With ActiveWindow.View

    .Type = wdPageView

    .SeekView = wdSeekCurrentPageHeader

    .ShowMainTextLayer = False

End With


Propiedad PageColumns

Devuelve o establece el número de páginas que se van a presentar una al lado de la otra en la pantalla al mismo tiempo, en vista Diseño de página o en Vista preliminar. Long de Lectura/Escritura.


Ejemplo de la propiedad PageColumns

En este ejemplo se pasa la ventana activa a vista Diseño de página y se muestran dos páginas una al lado de la otra.

With ActiveWindow.View

    .Type = wdPageView

    .Zoom.PageColumns = 2

    .Zoom.PageRows = 1

End With

En este ejemplo se pasa la ventana del documento de Hola.doc a vista Diseño de página y se muestra una página completa.

With Windows("Hola.doc").View

    .Type = wdPageView

    With .Zoom

        .PageColumns = 1

        .PageRows = 1

        .PageFit = wdPageFitFullPage

    End With

End With


Propiedad PageFit

Devuelve o establece la ampliación de la ventana de forma que se hace visible la página entera o se hace visible el ancho completo de la página. Puede ser una de las siguientes constantes WdPageFit: wdPageFitBestFit, wdPageFitFullPage o wdPageFitNone. Long de Lectura/Escritura.

Comentarios

La constante wdPageFitFullPage no tiene efecto si el documento no está en vista Diseño de página.

Cuando la propiedad PageFit se define como wdPageFitBestFit, el porcentaje de zoom se vuelve a calcular automáticamente cada vez que el tamaño de la ventana del documento cambia. Al establecer esta propiedad como wdPageFitNone se impide que el porcentaje de zoom se vuelva a calcular cada vez que la ventana del documento cambie.


Ejemplo de la propiedad PageFit

En este ejemplo se cambia el porcentaje de ampliación de la ventana para Carta.doc de forma que se haga visible el ancho entero del texto.

With Windows("Carta.doc").View

    .Type = wdNormalView

    .Zoom.PageFit = wdPageFitBestFit

End With

En este ejemplo se pasa la ventana activa a vista Diseño de página y se cambia la ampliación de forma que se haga visible la página entera.

With ActiveWindow.View

    .Type = wdPageView

    .Zoom.PageFit = wdPageFitFullPage

End With


Propiedad PageRows

Devuelve o establece el número de páginas que se van a presentar superpuesta en la pantalla al mismo tiempo, en vista Diseño de página o en Vista preliminar. Long de Lectura/Escritura.


Ejemplo de la propiedad PageRows

En este ejemplo se pasa la ventana activa a Vista preliminar y se muestran dos páginas superpuestas.

PrintPreview = True

With ActiveWindow.View.Zoom

    .PageColumns = 1

    .PageRows = 2

End With


Propiedad Percentage

Devuelve o establece la ampliación de una ventana en términos de porcentajes. Long de Lectura/Escritura.


Ejemplo de la propiedad Percentage

En este ejemplo se pasa la ventana activa a vista Normal y se establece la ampliación en un 80 por ciento.

With ActiveWindow.View

    .Type = wdNormalView

    .Zoom.Percentage = 80

End With

En este ejemplo se aumenta la ampliación de la ventana activa en un 10%.

Set miZoom = ActiveWindow.View.Zoom

miZoom.Percentage = miZoom.Percentage + 10


Propiedad Zooms

Devuelve un conjunto Zooms que representa las opciones de ampliación para cada vista (vista Normal, Esquema, Diseño de página y otras). Es de sólo lectura.

Para obtener información acerca de la devolución de un solo miembro de un conjunto, consulte Devolver un objeto de un conjunto.


Ejemplo de la propiedad Zooms

En este ejemplo se establece la ampliación para vista Normal en un 100% para todas las ventanas abiertas.

For Each miVentana In Windows

    miVentana.ActivePane.Zooms(wdNormalView).Percentage = 100

Next miVentana

En este ejemplo se establece la ampliación para vista Diseño de página de forma que se haga visible la página entera.

ActiveWindow.Panes(1).Zooms(wdPageView).PageFit = wdPageFitFullPage


Propiedad ShowSummary

True si se muestra un resumen automático del documento especificado. Boolean de Lectura/Escritura.


Ejemplo de la propiedad ShowSummary

En este ejemplo, se oculta todo en el documento activo con la excepción del texto del resumen.

With ActiveDocument

    .SummaryViewMode = wdSummaryModeHideAllButSummary

    .SummaryLength = 30

    .ShowSummary = True

End With


Método AutoSummarize

Crea un resumen automático del documento especificado y devuelve un objeto Range. Corresponde a las opciones del comando AutoSummarize (menú Herramientas).

Sintaxis

expresión.AutoSummarize(Length, Mode, UpdateProperties)

expresión   Requerida. Expresión que devuelve un objeto Document.

Length   Variant opcional. Longitud del resumen como porcentaje de la longitud total del documento; cuanto mayor sea el número, más detalles se incluirán en el resumen.

Mode   Variant opcional. Especifica la presentación del resumen. Puede ser una de las siguientes constantes WdSummaryMode.

Constante	Descripción
wdSummaryModeHighlight	Resalta los puntos principales del documento especificado y muestra la barra de herramientas Autorresumen.
wdSummaryModeInsert	Inserta un resumen al comienzo del documento especificado.
wdSummaryModeCreateNew	Crea un nuevo documento e inserta el resumen.
wdSummaryModeHideAllButSummary	Oculta todo a excepción del resumen y muestra la barra de herramientas Autorresumen.
UpdateProperties   Variant opcional. True para actualizar la palabra clave y el texto de comentario del cuadro de diálogo Propiedades (menú Archivo) para que reflejen el contenido del resumen del documento especificado.


Ejemplo del método AutoSummarize

En este ejemplo, se crea un resumen automático del documento activo resaltando sus puntos clave.

ActiveDocument.AutoSummarize Length:=30, Mode:=wdSummaryModeHighlight, _

    UpdateProperties:=True


Método ClosePrintPreview

Pasa de la vista preliminar a la vista previa en el documento especificado. Si dicho documento no está en la vista previa, se producirá un error.

Sintaxis

expresión.ClosePrintPreview

expresión   Requerida. Expresión que devuelve un objeto Document.


Ejemplo del método ClosePrintPreview

En este ejemplo, se pasa de la vista preliminar a la normal en la ventana activa.

If PrintPreview = True Then ActiveDocument.ClosePrintPreview

ActiveWindow.View.Type = wdNormalView


Propiedad Exists

True si existe el objeto HeaderFooter especificado. Boolean de Lectura/Escritura.

Nota   Como valor predeterminado existen el encabezado y el pie de página principales en todos los documentos. Utilice este método para determinar si existe un encabezado o un pie de página de primera página o de página impar. También puede utilizar la propiedad DifferentFirstPageHeaderFooter u OddAndEvenPagesHeaderFooter para devolver o establecer el número de los encabezados y pies de página de la sección o del documento especificado.


Ejemplo de la propiedad Exists

Si existe un encabezado de primera página en la sección uno, en este ejemplo se establece el texto del encabezado.

Set unaSección = ActiveDocument.Sections(1)

If unaSección.Headers(wdHeaderFooterFirstPage).Exists = True Then

    unaSección.Headers(wdHeaderFooterFirstPage).Range.Text = "Primera página"

End If


Propiedad OpenFormat

Devuelve el formato de archivo del convertidor de archivos especificado. Puede ser una de las siguientes constantes WdOpenFormat: wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText o wdOpenFormatUnicodeText; o bien puede ser un número exclusivo que represente un convertidor de archivos externo. Long de sólo lectura.


Ejemplo de la propiedad OpenFormat

En este ejemplo, se muestran el valor y el nombre de formato exclusivos de los convertidores que puede utilizar para abrir documentos.

For Each fc In FileConverters

    If fc.CanOpen = True Then MsgBox fc.OpenFormat & vbCr & fc.FormatName

Next fc

En este ejemplo, se abre el archivo denominado "Datos.wp" con el convertidor de archivos WordPerfect 6x.

Documents.Open FileName:="C:\Datos.wp", Format:=FileConverters("WordPerfect6x").OpenFormat