Clase Range (Word VBA)

La clase Range representa un área contigua en un documento.

Los principales procedimientos de la clase Range son Copy, Delete y Select

Set

Para usar una variable de clase Range, primero debe ser instanciado, por ejemplo

Dim rng as Range
Set rng = ActiveDocument.Range()

Los siguientes procedimientos se pueden usar para establecer variables de clase Range : Document.Characters, Characters, Selection.Characters, Document.GrammaticalErrors, Document.SpellingErrors, GrammaticalErrors, SpellingErrors, AutoTextEntry.Insert, Bookmark.Range, Break.Range, BuildingBlock.Insert, Cell.Range, Characters.Item, Characters.First, Characters.Last, CoAuthLock.Range, CoAuthUpdate.Range, Comment.Range, Comment.Reference, Comment.Scope, Conflict.Range, ContentControl.Range, Document.Range, Document.Content, Document.GoTo, Editor.Range, Editor.NextRange, Endnote.Range, Endnote.Reference, Endnotes.Separator, Endnotes.ContinuationNotice, Endnotes.ContinuationSeparator, Envelope.Address, Envelope.ReturnAddress, Field.Code, Field.Result, Footnote.Range, Footnote.Reference, Footnotes.Separator, Footnotes.ContinuationNotice, Footnotes.ContinuationSeparator, FormField.Range, Frame.Range, HeaderFooter.Range, HTMLDivision.Range, Hyperlink.Range, Index.Range, InlineShape.Range, Line.Range, List.Range, MailMergeField.Code, OMath.Range, OMathBreak.Range, OMathFunction.Range, OMaths.Add, Paragraph.Range, ProofreadingErrors.Item, Next, Previous, GoTo, Duplicate, GoToNext, GoToPrevious, FormattedText, GoToEditableRange, NextStoryRange, Rectangle.Range, RepeatingSectionItem.Range, Revision.Range, Revision.MovedRange, Row.Range, Row.ConvertToText, Rows.ConvertToText, Section.Range, Selection.Range, Selection.Next, Selection.Previous, Selection.GoTo, Selection.GoToNext, Selection.GoToPrevious, Selection.FormattedText, Selection.GoToEditableRange, Sentences.Item, Sentences.First, Sentences.Last, Series.Values, Series.XValues, Shape.Anchor, ShapeRange.Anchor, StoryRanges.Item, Subdocument.Range, Table.Range, Table.ConvertToText, TableOfAuthorities.Range, TableOfContents.Range, TableOfFigures.Range, TextFrame.ContainingRange, TextFrame.TextRange, Window.RangeFromPoint, Words.Item, Words.First, Words.Last, XMLNode.Range, Document.Sentences, Sentences, Selection.Sentences, Document.StoryRanges, Document.Words, Words y Selection.Words

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Range en una colección.

Dim rngCharacter As Range
Dim iFontSize As Integer: iFontSize = 8
For Each rngCharacter In ActiveDocument.Words(1).Characters
    rngCharacter.Font.Size = iFontSize
    iFontSize = iFontSize + 2
Next rngCharacter

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Format with its procedures AutoFormat, Borders, CharacterStyle, CharacterWidth, FitTextWidth, Font, FormattedText, HighlightColorIndex, Information, ListFormat, ListStyle, PageSetup, ParagraphFormat, ParagraphStyle, PasteAndFormat, Style, TableStyle y TextVisibleOnScreen
Import/Export with its procedures ExportAsFixedFormat, ExportAsFixedFormat2, ExportFragment y ImportFragment

Métodos

Los principales métodos de la clase Range son

Copy - Copia el intervalo especificado en el Portapapeles.

ActiveDocument.Range.Copy

Delete - Elimina el número de caracteres o palabras especificado.

Dim lngDelete As Long
lngDelete = ActiveDocument.Range.Delete()

Select - Selecciona el intervalo especificado.

ActiveDocument.Range.Select

Otros Métodos

CheckSpelling - Inicia una revisión ortográfica del documento o intervalo especificado.

ActiveDocument.Range.CheckSpelling

Collapse - Contrae un intervalo o una selección a la posición inicial o final.

ActiveDocument.Range.Collapse

ConvertHangulAndHanja - Convierte el intervalo especificado de hangul en hanja o viceversa.

ActiveDocument.Range.ConvertHangulAndHanja

ConvertToTable - Convierte texto dentro de un intervalo en una tabla.

Dim tblConvertToTable As Table
Set tblConvertToTable = ActiveDocument.Range.ConvertToTable()

EndOf - Mueve o extiende la posición del carácter final de un intervalo al final de la unidad de texto más próxima.

Dim lngEndOf As Long
lngEndOf = ActiveDocument.Range.EndOf()

GetSpellingSuggestions - Devuelve una colección SpellingSuggestions que representa las palabras sugeridas como términos de reemplazo de la primera palabra del intervalo especificado.

Dim sssGetSpellingSuggestions As SpellingSuggestions
Set sssGetSpellingSuggestions = ActiveDocument.Range.GetSpellingSuggestions()

GoTo - Devuelve un objeto Range que representa la posición inicial del elemento especificado, como una página, un marcador o un campo.

Dim rngGoTo As Range
Set rngGoTo = ActiveDocument.Range.GoTo()

InsertAlignmentTab - Inserta una tabulación absoluta que siempre se coloca en el mismo punto, que es relativo ya sea respecto a los márgenes o a las sangrías.

Dim lngAlignment As Long: lngAlignment =  
ActiveDocument.Range.InsertAlignmentTab Alignment:=lngAlignment

InsertCrossReference - Inserta una referencia cruzada en un título, un marcador, una 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.

Dim strReferenceItem As String: strReferenceItem =  
ActiveDocument.Range.InsertCrossReference ReferenceType:=wdRefTypeBookmark, ReferenceKind:=wdContentText, ReferenceItem:=strReferenceItem

InsertDatabase - Recupera los datos de un origen de datos (por ejemplo, un documento de Microsoft Word diferente, una hoja de cálculo de Microsoft Excel o una base de datos de Microsoft Access) e inserta los datos como una tabla en lugar del intervalo especificado.

ActiveDocument.Range.InsertDatabase

InsertDateTime - Inserta la fecha o la hora actual, o ambas, como texto o como campo TIME.

ActiveDocument.Range.InsertDateTime

InsertFile - Inserta todo o parte del archivo especificado.

Dim strFileName As String: strFileName =  
ActiveDocument.Range.InsertFile FileName:=strFileName

InsertSymbol - Inserta un símbolo en lugar del intervalo especificado.

Dim lngCharacterNumber As Long: lngCharacterNumber =  
ActiveDocument.Range.InsertSymbol CharacterNumber:=lngCharacterNumber

InsertXML - Este método inserta el XML especificado en el documento en el intervalo especificado, reemplazando cualquier texto que contenga el intervalo.

Dim strXML As String: strXML =  
ActiveDocument.Range.InsertXML XML:=strXML

ModifyEnclosure - Agrega, modifica o quita una forma del carácter o de los caracteres especificados.

ActiveDocument.Range.ModifyEnclosure Style:=

Move - Contrae el intervalo especificado hasta la posición inicial o final y, a continuación, mueve el objeto contraído el número de unidades especificadas.

Dim lngMove As Long
lngMove = ActiveDocument.Range.Move()

MoveEnd - Mueve la posición del carácter final de un intervalo.

Dim lngMoveEnd As Long
lngMoveEnd = ActiveDocument.Range.MoveEnd()

MoveEndUntil - Mueve la posición final del intervalo especificado hasta que se encuentre en el documento alguno de los caracteres especificados.

Dim lngMoveEndUntil As Long
lngMoveEndUntil = ActiveDocument.Range.MoveEndUntil(Cset:=)

MoveEndWhile - Mueve la posición de carácter final de un intervalo mientras se encuentre en el documento alguno de los caracteres especificados.

Dim strCset As String: strCset =  
Dim lngMoveEndWhile As Long
lngMoveEndWhile = ActiveDocument.Range.MoveEndWhile(Cset:=strCset)

MoveStart - Mueve la posición inicial del intervalo especificado.

Dim lngMoveStart As Long
lngMoveStart = ActiveDocument.Range.MoveStart()

MoveStartUntil - Mueve la posición inicial del intervalo especificado hasta que se encuentre en el documento alguno de los caracteres especificados.

Dim strCset As String: strCset =  
Dim lngMoveStartUntil As Long
lngMoveStartUntil = ActiveDocument.Range.MoveStartUntil(Cset:=strCset)

MoveStartWhile - Mueve la posición inicial del intervalo especificado mientras se encuentre en el documento alguno de los caracteres especificados.

Dim strCset As String: strCset =  
Dim lngMoveStartWhile As Long
lngMoveStartWhile = ActiveDocument.Range.MoveStartWhile(Cset:=strCset)

MoveUntil - Mueve el intervalo especificado hasta que se encuentre en el documento uno de los caracteres especificados.

Dim strCset As String: strCset =  
Dim lngMoveUntil As Long
lngMoveUntil = ActiveDocument.Range.MoveUntil(Cset:=strCset)

MoveWhile - Mueve el intervalo especificado mientras se encuentre en el documento alguno de los caracteres especificados.

Dim strCset As String: strCset =  
Dim lngMoveWhile As Long
lngMoveWhile = ActiveDocument.Range.MoveWhile(Cset:=strCset)

Next - Devuelve un objeto Range que representa la unidad especificada con respecto al rango especificado.

Dim rngNext As Range
Set rngNext = ActiveDocument.Range.Next()

PasteExcelTable - Pega y da formato a una tabla de Microsoft Excel.

ActiveDocument.Range.PasteExcelTable LinkedToExcel:=True, WordFormatting:=True, RTF:=True

PasteSpecial - Inserta el contenido del Portapapeles.

ActiveDocument.Range.PasteSpecial

PhoneticGuide - Agrega guías fonéticas al intervalo especificado.

Dim strText As String: strText =  
ActiveDocument.Range.PhoneticGuide Text:=strText

Previous - Devuelve el intervalo anterior con relación al intervalo especificado.

Dim rngPrevious As Range
Set rngPrevious = ActiveDocument.Range.Previous()

SetRange - Establece las posiciones de carácter inicial y final de un intervalo existente.

Dim lngStart As Long: lngStart = 
Dim lngEnd As Long: lngEnd =  
ActiveDocument.Range.SetRange Start:=lngStart, End:=lngEnd

StartOf - Mueve o extiende la posición inicial del intervalo especificado o la selección al principio de la unidad de texto más cercano.

Dim lngStartOf As Long
lngStartOf = ActiveDocument.Range.StartOf()

TCSCConverter - Convierte el intervalo especificado de chino tradicional en chino simplificado o viceversa.

ActiveDocument.Range.TCSCConverter

Propiedades

Characters.Count Devuelve el número de caracteres en la colección Characters.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Characters.Count

Characters.First Devuelve un objeto Range que representa el primer carácter de la colección.

Dim rngFirst As Range
Set rngFirst = ActiveDocument.Range.Characters.First

Characters.Last Devuelve un objeto Range que representa el último carácter de la colección.

Dim rngLast As Range
Set rngLast = ActiveDocument.Range.Characters.Last

Characters.Parent Devuelve un objeto Object que representa el objeto primario del objeto Characters especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Characters.Parent

ProofreadingErrors.Count Devuelve un Long que representa el número de errores de revisión en la colección.

Dim lngCount As Long
lngCount = ActiveDocument.SpellingErrors.Count

ProofreadingErrors.Parent Devuelve un objeto Object que representa el objeto primario del objeto ProofreadingErrors especificado.

Dim objParent As Object
Set objParent = ActiveDocument.SpellingErrors.Parent

ProofreadingErrors.Type Devuelve el tipo de error de revisión.

Dim wpeType As WdProofreadingErrorType
wpeType = ActiveDocument.SpellingErrors.Type

Bold True si el intervalo tiene formato de negrita.

ActiveDocument.Range.Bold =

BoldBi True si la fuente o el intervalo tiene formato de negrita.

ActiveDocument.Range.BoldBi =

BookmarkID Devuelve el número del marcador que incluye el principio del intervalo especificado; Devuelve 0 (cero) si no hay ningún marcador correspondiente.

Dim lngBookmarkID As Long
lngBookmarkID = ActiveDocument.Range.BookmarkID

Bookmarks Devuelve una colección bookmarks que representa todos los marcadores de un documento, intervalo o selección.

Dim bkmsBookmarks As Bookmarks
Set bkmsBookmarks = ActiveDocument.Range.Bookmarks

Case Devuelve o establece una constante WdCharacterCase que representa los mayúsculas y minúsculas del texto en el intervalo especificado.

ActiveDocument.Range.Case = wdFullWidth

Cells Devuelve una colección Cells que representa las celdas de tabla en un rango.

Dim cllsCells As Cells
Set cllsCells = ActiveDocument.Range.Cells

Characters Devuelve una colección Characters que representa los caracteres de un intervalo.

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveDocument.Range.Characters

Columns Devuelve una colección Columns que representa todas las columnas de tabla del rango.

Dim clmsColumns As Columns
Set clmsColumns = ActiveDocument.Range.Columns

CombineCharacters True si el rango especificado contiene caracteres combinados.

ActiveDocument.Range.CombineCharacters = True

Comments Devuelve una colección Comments que representa todos los comentarios en el documento, la selección o el intervalo que se ha especificado.

Dim cmmsComments As Comments
Set cmmsComments = ActiveDocument.Range.Comments

Conflicts Devuelve un objeto de la colección Conflictos que contiene todos los objetos de conflicto en el rango.

Dim cnfsConflicts As Conflicts
Set cnfsConflicts = ActiveDocument.Range.Conflicts

ContentControls Devuelve una colección ContentControls que representa los controles de contenido contenidos en un intervalo.

Dim ccsContentControls As ContentControls
Set ccsContentControls = ActiveDocument.Range.ContentControls

DisableCharacterSpaceGrid True si Microsoft Word omite el número de caracteres por línea del objeto Range correspondiente.

ActiveDocument.Range.DisableCharacterSpaceGrid = True

Document Devuelve un objeto Document asociado con el rango especificado.

Dim docDocument As Document
Set docDocument = ActiveDocument.Range.Document

Duplicate Devuelve un objeto Range de sólo lectura que representa todas las propiedades del intervalo especificado.

Dim rngDuplicate As Range
Set rngDuplicate = ActiveDocument.Range.Duplicate

Editors Devuelve un objeto Editors que representa a todos los usuarios autorizados para modificar una selección o un intervalo de un documento.

Dim edtsEditors As Editors
Set edtsEditors = ActiveDocument.Range.Editors

EmphasisMark Devuelve o establece la marca de énfasis de un carácter o cadena de caracteres designada.

ActiveDocument.Range.EmphasisMark = wdEmphasisMarkNone

End Devuelve o establece la posición del carácter final de un intervalo.

ActiveDocument.Range.End =

EndnoteOptions Devuelve un objeto EndnoteOptions que representa las notas al final de un intervalo.

Dim eosEndnoteOptions As EndnoteOptions
Set eosEndnoteOptions = ActiveDocument.Range.EndnoteOptions

Endnotes Devuelve una colección Endnotes que representa todas las notas al final de un intervalo.

Dim endsEndnotes As Endnotes
Set endsEndnotes = ActiveDocument.Range.Endnotes

EnhMetaFileBits Devuelve un valor Variant que representa una representación gráfica de cómo aparece un intervalo de texto.

Dim varEnhMetaFileBits As Variant
varEnhMetaFileBits = ActiveDocument.Range.EnhMetaFileBits

Fields Devuelve una colección Fields que representa todos los campos del intervalo.

Dim fldsFields As Fields
Set fldsFields = ActiveDocument.Range.Fields

Find Devuelve un objeto Find que contiene los criterios para una operación de búsqueda.

Dim fndFind As Find
Set fndFind = ActiveDocument.Range.Find

FootnoteOptions Devuelve un objeto FootnoteOptions que representa las notas al pie en una selección o un intervalo.

Dim fosFootnoteOptions As FootnoteOptions
Set fosFootnoteOptions = ActiveDocument.Range.FootnoteOptions

Footnotes Devuelve una colección Footnotes que representa todas las notas al pie en un intervalo.

Dim ftnsFootnotes As Footnotes
Set ftnsFootnotes = ActiveDocument.Range.Footnotes

FormFields Devuelve una colección FormFields que representa todos los campos de formulario del intervalo.

Dim ffsFormFields As FormFields
Set ffsFormFields = ActiveDocument.Range.FormFields

Frames Devuelve una colección Frames que representa todos los marcos de un intervalo.

Dim frmsFrames As Frames
Set frmsFrames = ActiveDocument.Range.Frames

GrammarChecked True si se ha ejecutado una revisión gramatical en el documento o intervalo especificado.

ActiveDocument.Range.GrammarChecked = True

GrammaticalErrors Devuelve una colección ProofreadingErrors que representa las oraciones que no superaron la revisión gramatical del documento o intervalo especificado.

Dim pesGrammaticalErrors As ProofreadingErrors
Set pesGrammaticalErrors = ActiveDocument.Range.GrammaticalErrors

HorizontalInVertical Devuelve o establece el formato de texto horizontal colocado dentro de texto vertical.

ActiveDocument.Range.HorizontalInVertical = wdHorizontalInVerticalFitInLine

HTMLDivisions Devuelve un objeto HTMLDivisions que representa una división HTML en un documento Web.

Dim htmsHTMLDivisions As HTMLDivisions
Set htmsHTMLDivisions = ActiveDocument.Range.HTMLDivisions

Hyperlinks Devuelve una colección Hyperlinks que representa todos los hipervínculos del intervalo especificado.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveDocument.Range.Hyperlinks

ID Devuelve o establece el nombre de identificación para el rango especificado.

ActiveDocument.Range.ID =

InlineShapes Devuelve una colección InlineShapes que representa todos los objetos InlineShape de un intervalo.

Dim issInlineShapes As InlineShapes
Set issInlineShapes = ActiveDocument.Range.InlineShapes

IsEndOfRowMark True si el intervalo especificado está contraído y se encuentra en la marca de final de fila en una tabla.

Dim booIsEndOfRowMark As Boolean
booIsEndOfRowMark = ActiveDocument.Range.IsEndOfRowMark

Italic True si la fuente o el intervalo tiene formato de cursiva.

ActiveDocument.Range.Italic =

ItalicBi True si la fuente o el intervalo tiene formato de cursiva.

ActiveDocument.Range.ItalicBi =

Kana Devuelve o establece si el intervalo especificado del texto en japonés es hiragana o katakana.

ActiveDocument.Range.Kana = wdKanaHiragana

LanguageDetected Devuelve o establece un valor que especifica si Microsoft Word ha detectado el idioma del texto especificado.

ActiveDocument.Range.LanguageDetected = True

LanguageID Devuelve o establece una constante WdLanguageID que representa el idioma del intervalo especificado.

ActiveDocument.Range.LanguageID = wdAfrikaans

LanguageIDFarEast Devuelve o establece un idioma del este asiático para el objeto especificado.

ActiveDocument.Range.LanguageIDFarEast = wdAfrikaans

LanguageIDOther Devuelve o establece el idioma para el rango especificado.

ActiveDocument.Range.LanguageIDOther = wdAfrikaans

ListParagraphs Devuelve una colección ListParagraphs que representa todos los párrafos numerados del intervalo.

Dim lpsListParagraphs As ListParagraphs
Set lpsListParagraphs = ActiveDocument.Range.ListParagraphs

Locks Devuelve un objeto de colección CoAuthLocks que representa todos los bloqueos del intervalo.

Dim calsLocks As CoAuthLocks
Set calsLocks = ActiveDocument.Range.Locks

NextStoryRange Devuelve un objeto Range que hace referencia al siguiente artículo.

Dim rngNextStoryRange As Range
Set rngNextStoryRange = ActiveDocument.Range.NextStoryRange

NoProofing True si el corrector ortográfico y gramatical omite el texto especificado.

ActiveDocument.Range.NoProofing =

OMaths Devuelve una colección OMaths que representa los objetos OMath del intervalo especificado.

Dim omsOMaths As OMaths
Set omsOMaths = ActiveDocument.Range.OMaths

Orientation Devuelve o establece la orientación del texto en un intervalo cuando se habilita la característica dirección del texto.

ActiveDocument.Range.Orientation = wdTextOrientationDownward

Paragraphs Devuelve una colección Paragraphs que representa todos los párrafos del intervalo especificado.

Dim prgsParagraphs As Paragraphs
Set prgsParagraphs = ActiveDocument.Range.Paragraphs

Parent Devuelve un objeto Object que representa el objeto primario del objeto Range especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Parent

ParentContentControl Devuelve un objeto ContentControl que representa el control de contenido primario del intervalo especificado.

Dim cclParentContentControl As ContentControl
Set cclParentContentControl = ActiveDocument.Range.ParentContentControl

PreviousBookmarkID Devuelve el número del último marcador que comienza antes o en el mismo lugar que el intervalo especificado.

Dim lngPreviousBookmarkID As Long
lngPreviousBookmarkID = ActiveDocument.Range.PreviousBookmarkID

ReadabilityStatistics Devuelve una colección ReadabilityStatistics que representa las estadísticas de legibilidad del documento o intervalo especificado.

Dim rssReadabilityStatistics As ReadabilityStatistics
Set rssReadabilityStatistics = ActiveDocument.Range.ReadabilityStatistics

Revisions Devuelve una colección Revisions que representa los cambios realizados en el intervalo.

Dim rvsRevisions As Revisions
Set rvsRevisions = ActiveDocument.Range.Revisions

Rows Devuelve una colección Rows que representa todas las filas de tabla de un intervalo.

Dim rwsRows As Rows
Set rwsRows = ActiveDocument.Range.Rows

Scripts Devuelve una colección scripts que representa la colección de secuencias de comandos HTML del objeto especificado.

Dim scrsScripts As Office.Scripts
scrsScripts = ActiveDocument.Range.Scripts

Sections Devuelve una colección Sections que representa las secciones del intervalo especificado.

Dim sctsSections As Sections
Set sctsSections = ActiveDocument.Range.Sections

Sentences Devuelve una colección Sentences que representa todas las oraciones del intervalo.

Dim sntsSentences As Sentences
Set sntsSentences = ActiveDocument.Range.Sentences

Shading Devuelve un objeto shading que hace referencia al formato de sombreado del objeto especificado.

Dim shdShading As Shading
Set shdShading = ActiveDocument.Range.Shading

ShapeRange Devuelve una colección ShapeRange que representa todos los objetos Shape del intervalo especificado.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = ActiveDocument.Range.ShapeRange

ShowAll True si se muestran todos los caracteres no imprimibles (como texto oculto, marcas de tabulación, marcas de espacios y marcas de párrafo).

ActiveDocument.Range.ShowAll = True

SpellingChecked True si la ortografía se ha revisado en el intervalo o documento especificado.

ActiveDocument.Range.SpellingChecked = True

SpellingErrors Devuelve una colección ProofreadingErrors que representa las palabras identificadas como errores ortográficos en el intervalo especificado.

Dim pesSpellingErrors As ProofreadingErrors
Set pesSpellingErrors = ActiveDocument.Range.SpellingErrors

Start Devuelve o establece la posición del carácter inicial de un intervalo.

ActiveDocument.Range.Start =

StoryLength Devuelve el número de caracteres del artículo que contiene el rango especificado.

Dim lngStoryLength As Long
lngStoryLength = ActiveDocument.Range.StoryLength

StoryType Devuelve el tipo de artículo del intervalo, la selección o el marcador especificado.

Dim wstStoryType As WdStoryType
wstStoryType = ActiveDocument.Range.StoryType

Subdocuments Devuelve una colección Subdocuments que representa todos los subdocumentos del intervalo o documento especificado.

Dim sbdsSubdocuments As Subdocuments
Set sbdsSubdocuments = ActiveDocument.Range.Subdocuments

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 del contenido de un intervalo.

Dim sioSynonymInfo As SynonymInfo
Set sioSynonymInfo = ActiveDocument.Range.SynonymInfo

Tables Devuelve una colección tables que representa todas las tablas del intervalo especificado.

Dim tblsTables As Tables
Set tblsTables = ActiveDocument.Range.Tables

Text Devuelve o establece el texto de la selección o intervalo especificado.

ActiveDocument.Range.Text =

TextRetrievalMode Devuelve un objeto TextRetrievalMode que controla el modo en que se recupera el texto del rangoespecificado.

ActiveDocument.Range.TextRetrievalMode =

TopLevelTables Devuelve una colección tables que representa las tablas del nivel de anidamiento más exterior en el intervalo actual.

Dim tblsTopLevelTables As Tables
Set tblsTopLevelTables = ActiveDocument.Range.TopLevelTables

TwoLinesInOne Devuelve o establece si Microsoft Word establece dos líneas de texto en una y especifica los caracteres que rodean el texto, si hay alguno.

ActiveDocument.Range.TwoLinesInOne = wdTwoLinesInOneAngleBrackets

Underline Devuelve o establece el tipo de subrayado aplicado a un intervalo.

ActiveDocument.Range.Underline = wdUnderlineDash

Updates Devuelve un objeto de colección CoAuthUpdates que representa todas las actualizaciones que se han combinado en el rango especificado en la última vez que guardó explícita.

Dim causUpdates As CoAuthUpdates
Set causUpdates = ActiveDocument.Range.Updates

WordOpenXML Devuelve una cadena que representa el XML incluido dentro del intervalo en el formato XML abierto de Microsoft Word.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.Range.WordOpenXML

Words Devuelve una colección Words que representa todas las palabras de un intervalo.

Dim wrdsWords As Words
Set wrdsWords = ActiveDocument.Range.Words

XML Devuelve una cadena que representa el texto XML en el objeto especificado.

Dim strXML As String
strXML = ActiveDocument.Range.XML

Sentences.Count Devuelve un Long que representa el número de oraciones de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Sentences.Count

Sentences.First Devuelve un objeto Range que representa la primera oración de una colección de oraciones dentro de un documento, intervalo o selección.

Dim rngFirst As Range
Set rngFirst = ActiveDocument.Sentences.First

Sentences.Last Devuelve un objeto Range que representa la última oración de un documento, selección o intervalo.

Dim rngLast As Range
Set rngLast = ActiveDocument.Sentences.Last

Sentences.Parent Devuelve un objeto Object que representa el objeto primario del objeto Sentences especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Sentences.Parent

StoryRanges.Count Devuelve un Long que representa el número de intervalos de artículos de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.StoryRanges.Count

StoryRanges.Parent Devuelve un objeto Object que representa el objeto primario del objeto StoryRanges especificado.

Dim objParent As Object
Set objParent = ActiveDocument.StoryRanges.Parent

Words.Count Devuelve un Long que representa el número de palabras de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Words.Count

Words.First Devuelve un objeto Range que representa la primera palabra de una colección de palabras.

Dim rngFirst As Range
Set rngFirst = ActiveDocument.Words.First

Words.Last Devuelve un objeto Range que representa la última palabra de una colección de palabras.

Dim rngLast As Range
Set rngLast = ActiveDocument.Words.Last

Words.Parent Devuelve un objeto Object que representa el objeto primario del objeto Words especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Words.Parent