Clase Document (Word VBA)

La clase Document representa un documento.

Los principales procedimientos de la clase Document son Activate, AddToFavorites, Close, Select, Documents.Add, Documents.Close, Documents.Open y Documents.OpenNoRepairDialog

Set

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

Dim doc as Document
Set doc = ActiveDocument

Los siguientes procedimientos se pueden usar para establecer variables de clase Document : Application.ActiveDocument, Application.CompareDocuments, Application.CustomizationContext, Application.MacroContainer, Application.MergeDocuments, Documents.Add, Documents.Item, Documents.Open, Documents.AddBlogDocument, Documents.OpenNoRepairDialog, KeyBinding.Context, KeyBindings.Context, KeysBoundTo.Context, MailingLabel.CreateNewDocument, MailingLabel.CreateNewDocumentByID, Pane.Document, ProtectedViewWindow.Edit, ProtectedViewWindow.Document, Range.Document, RecentFile.Open, Selection.Document, Subdocument.Open, Template.OpenAsDocument, Version.Open, Window.Document, XMLNode.OwnerDocument y Application.Documents

For Each

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

For Each doc In Documents 
     doc.UpdateStyles 
     doc.Close SaveChanges:=wdSaveChanges 
Next doc

Temas

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

Review with its procedures AcceptAllRevisions, AcceptAllRevisionsShown, CheckConsistency, CheckGrammar, CheckSpelling, Comments, Compare, DeleteAllComments, DeleteAllCommentsShown, EndReview, Final, GrammarChecked, GrammaticalErrors, RejectAllRevisions, RejectAllRevisionsShown, Revisions, SendForReview, ShowGrammaticalErrors, ShowSpellingErrors, SpellingChecked, SpellingErrors y TrackRevisions
Format with its procedures ActiveTheme, ActiveWritingStyle, ApplyQuickStyleSet2, ApplyTheme, AutoFormat, AutoFormatOverride, ClickAndTypeParagraphStyle, CopyStylesFromTemplate, DefaultTableStyle, DefaultTabStop, DocumentTheme, DoNotEmbedSystemFonts, EmbedTrueTypeFonts, EnforceStyle, FormattingShowClear, FormattingShowFont, FormattingShowNextLevel, FormattingShowNumbering, FormattingShowParagraph, FreezeLayout, GridOriginFromMargin, LockQuickStyleSet, LockTheme, OMathLeftMargin, OMathRightMargin, PageSetup, ReadingLayoutSizeX, ReadingLayoutSizeY, ReadingModeLayoutFrozen, RemoveDocumentInformation, RemoveLockedStyles, RemovePersonalInformation, RemoveTheme, SaveAsQuickStyleSet, SaveFormat, SaveSubsetFonts, SetDefaultTableStyle, Styles, StyleSheets, StyleSortMethod, TrackFormatting, UpdateStyles y UpdateStylesOnOpen
Name with its procedures ActiveThemeDisplayName, FormattingShowUserStyleName, FullName, Name, OMathFontName, OriginalDocumentTitle, RevisedDocumentTitle y SelectContentControlsByTitle
Save with its procedures AutoSaveOn, CanCheckin, CheckIn, CheckInWithVersion, IsInAutosave, Save, SaveAs2, Saved, SaveEncoding y Documents.Save
Close with its procedures Close, ClosePrintPreview y Documents.Close
Code with its procedures CodeName, VBASigned, VBProject y ViewCode
Open with its procedures CompatibilityMode, OpenEncoding, ReadOnly, ReadOnlyRecommended, SetCompatibilityMode, Documents.CanCheckOut, Documents.CheckOut, Documents.Open y Documents.OpenNoRepairDialog
Export with its procedures ExportAsFixedFormat y ExportAsFixedFormat2
Print with its procedures FitToPages, PrintFormsData, PrintOut, PrintPostScriptOverText, PrintPreview y PrintRevisions
Password with its procedures HasPassword, Password, PasswordEncryptionAlgorithm, PasswordEncryptionFileProperties, PasswordEncryptionKeyLength, PasswordEncryptionProvider, ProtectionType, SetPasswordEncryptionOptions y WritePassword

Métodos

Los principales métodos de la clase Document son

Activate - Activa el documento especificado de forma que se convierte en el documento activo.

ActiveDocument.Activate

AddToFavorites - Crea un acceso directo al documento o un hipervínculo y lo agrega a la carpeta Favoritos.

ActiveDocument.AddToFavorites

Select - Selecciona el contenido del documento especificado.

ActiveDocument.Select

Documents.Add - Devuelve un objeto Document que representa un documento nuevo y vacío agregado a la colección de documentos abiertos.

Dim doc As Document
Set doc = Documents.Add()

Otros Métodos

ComputeStatistics - Devuelve una estadística en base al contenido del documento especificado.

Dim lngComputeStatistics As Long
lngComputeStatistics = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticCharacters)

ConvertNumbersToText - Cambia a texto los números de lista y los campos LISTNUM del documento especificado.

ActiveDocument.ConvertNumbersToText

CountNumberedItems - Devuelve el número de elementos con viñetas o números y campos LISTNUM del objeto Document especificado.

Dim lngCountNumberedItems As Long
lngCountNumberedItems = ActiveDocument.CountNumberedItems()

CreateLetterContent - Crea y devuelve un objeto LetterContent basado en los elementos de la carta especificada.

Dim strDateFormat As String: strDateFormat = 
Dim strPageDesign As String: strPageDesign = 
Dim strRecipientName As String: strRecipientName = 
Dim strRecipientAddress As String: strRecipientAddress = 
Dim strSalutation As String: strSalutation = 
Dim strRecipientReference As String: strRecipientReference = 
Dim strMailingInstructions As String: strMailingInstructions = 
Dim strAttentionLine As String: strAttentionLine = 
Dim strSubject As String: strSubject = 
Dim strCCList As String: strCCList = 
Dim strReturnAddress As String: strReturnAddress = 
Dim strSenderName As String: strSenderName = 
Dim strClosing As String: strClosing = 
Dim strSenderCompany As String: strSenderCompany = 
Dim strSenderJobTitle As String: strSenderJobTitle = 
Dim strSenderInitials As String: strSenderInitials = 
Dim lngEnclosureNumber As Long: lngEnclosureNumber =  
Dim lctCreateLetterContent As LetterContent
Set lctCreateLetterContent = ActiveDocument.CreateLetterContent(DateFormat:=strDateFormat, IncludeHeaderFooter:=True, PageDesign:=strPageDesign, LetterStyle:=wdFullBlock, Letterhead:=True, LetterheadLocation:=wdLetterBottom, LetterheadSize:=, RecipientName:=strRecipientName, RecipientAddress:=strRecipientAddress, Salutation:=strSalutation, SalutationType:=wdSalutationBusiness, RecipientReference:=strRecipientReference, MailingInstructions:=strMailingInstructions, AttentionLine:=strAttentionLine, Subject:=strSubject, CCList:=strCCList, ReturnAddress:=strReturnAddress, SenderName:=strSenderName, Closing:=strClosing, SenderCompany:=strSenderCompany, SenderJobTitle:=strSenderJobTitle, SenderInitials:=strSenderInitials, EnclosureNumber:=lngEnclosureNumber)

FollowHyperlink - Muestra un documento almacenado en memoria caché, si ya se ha descargado.

ActiveDocument.FollowHyperlink

GetCrossReferenceItems - Devuelve una matriz de elementos a los que pueden aplicarse referencias cruzadas en función del tipo de referencia cruzada especificada.

Dim arrGetCrossReferenceItems() As Variant
arrGetCrossReferenceItems() = ActiveDocument.GetCrossReferenceItems(ReferenceType:=wdRefTypeBookmark)

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.GoTo()

Merge - Combina los cambios marcados con marcas de revisión de un documento en otro documento.

Dim strFileName As String: strFileName =  
ActiveDocument.Merge FileName:=strFileName

Range - Devuelve un objeto Range utilizando las posiciones de los caracteres inicial y final especificadas.

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

RemoveNumbers - Quita los números o viñetas del documento especificado.

ActiveDocument.RemoveNumbers

RunLetterWizard - Ejecuta el Asistente para cartas en el documento especificado.

ActiveDocument.RunLetterWizard

SelectNodes - Devuelve una colección XMLNodes que representa todos los nodos que coinciden con el parámetro XPath en el orden en el que aparecen en el documento o intervalo.

Dim strXPath As String: strXPath =  
Dim xmlsSelectNodes As XMLNodes
Set xmlsSelectNodes = ActiveDocument.SelectNodes(XPath:=strXPath)

SelectSingleNode - Devuelve un objeto XmlNode que representa el primer nodo que coincide con el parámetro XPath en el documento especificado.

Dim strXPath As String: strXPath =  
Dim xmlSelectSingleNode As XMLNode
Set xmlSelectSingleNode = ActiveDocument.SelectSingleNode(XPath:=strXPath)

SendFax - Envía el documento especificado como un fax, sin intervención del usuario.

Dim strAddress As String: strAddress =  
ActiveDocument.SendFax Address:=strAddress

SendFaxOverInternet - Envía un documento a un proveedor de servicios de fax, que envía el documento a uno o más destinatarios especificados.

ActiveDocument.SendFaxOverInternet

TransformDocument - Aplica el archivo XSLT (Extensible Stylesheet Language Transformation) especificado al documento indicado y reemplaza el documento con los resultados.

Dim strPath As String: strPath =  
ActiveDocument.TransformDocument Path:=strPath

Propiedades

ActiveWindow Devuelve un objeto Window que representa la ventana activa (la ventana con el foco).

Dim wndActiveWindow As Window
Set wndActiveWindow = ActiveDocument.ActiveWindow

AttachedTemplate Devuelve un objeto Template que representa la plantilla adjunta al documento especificado.

ActiveDocument.AttachedTemplate =

AutoHyphenation True si se activa la división automática de palabras para el documento especificado.

ActiveDocument.AutoHyphenation = True

Background Devuelve un objeto Shape que representa la imagen de fondo para el documento especificado.

ActiveDocument.Background =

Bibliography Devuelve un objeto Bibliography que representa las referencias bibliográficas contenidas en un documento.

Dim bblBibliography As Bibliography
Set bblBibliography = ActiveDocument.Bibliography

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

Dim bkmsBookmarks As Bookmarks
Set bkmsBookmarks = ActiveDocument.Bookmarks

Broadcast Devuelve un objeto Broadcast que representa una sesión de difusión, en la que los moderadores pueden presentar documentos de Word a los participantes remotos a través de la web sin que los participantes tengan instalados clientes enriquecidos.

Dim brdBroadcast As Broadcast
Set brdBroadcast = ActiveDocument.Broadcast

BuiltInDocumentProperties Devuelve una colección DocumentProperties que representa todas las propiedades integradas del documento para el documento especificado.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = ActiveDocument.BuiltInDocumentProperties

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

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveDocument.Characters

ChartDataPointTrack Devuelve o establece un valor de tipo Boolean que especifica si los gráficos del documento activo usan el seguimiento de punto de datos de referencia de celda.

ActiveDocument.ChartDataPointTrack = True

CoAuthoring Devuelve un objeto coauthoring que proporciona el punto de entrada en el modelo de objetos de autor Co.

Dim cagCoAuthoring As CoAuthoring
Set cagCoAuthoring = ActiveDocument.CoAuthoring

CommandBars Devuelve una colección CommandBars que representa la barra de menús y todas las barras de herramientas de Microsoft Word.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = ActiveDocument.CommandBars

Compatibility True si la opción de compatibilidad especificada por el argumento Type está habilitada.

ActiveDocument.Compatibility(Type:=wdAlignTablesRowByRow) = True

ConsecutiveHyphensLimit Devuelve o establece el número máximo de líneas consecutivas que pueden acabar con guiones.

ActiveDocument.ConsecutiveHyphensLimit =

Container Devuelve el objeto que representa la aplicación contenedora del documento especificado.

Dim objContainer As Object
Set objContainer = ActiveDocument.Container

Content Devuelve un objeto Range que representa el artículo principal del documento.

Dim rngContent As Range
Set rngContent = ActiveDocument.Content

ContentControls Devuelve una colección ContentControls que representa todos los controles de contenido de un documento.

Dim ccsContentControls As ContentControls
Set ccsContentControls = ActiveDocument.ContentControls

ContentTypeProperties Devuelve una colección MetaProperties que representa los metadatos almacenados en un documento, como el nombre del autor, asunto y compañía.

Dim mpsContentTypeProperties As Office.MetaProperties
Set mpsContentTypeProperties = ActiveDocument.ContentTypeProperties

CurrentRsid Devuelve un Long que representa un número aleatorio que Word asigna a los cambios en un documento.

Dim lngCurrentRsid As Long
lngCurrentRsid = ActiveDocument.CurrentRsid

CustomDocumentProperties Devuelve una colección DocumentProperties que representa todas las propiedades de documento personalizadas para el documento especificado.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = ActiveDocument.CustomDocumentProperties

CustomXMLParts Devuelve una colección CustomXMLParts que representa el código XML personalizado en el almacén de datos XML.

Dim cxmsCustomXMLParts As Office.CustomXMLParts
Set cxmsCustomXMLParts = ActiveDocument.CustomXMLParts

DefaultTargetFrame Devuelve o establece una cadena que indica el marco del explorador en el que se va a mostrar una página web a la que se ha alcanzado a través de un hipervínculo.

ActiveDocument.DefaultTargetFrame =

DisableFeatures True deshabilita todas las características incorporadas después de la versión especificada en la propiedad DisableFeaturesIntroducedAfter.

ActiveDocument.DisableFeatures = True

DisableFeaturesIntroducedAfter Deshabilita todas las características incorporadas después de una versión especificada de Microsoft Word sólo en el documento.

ActiveDocument.DisableFeaturesIntroducedAfter = wd70

DocumentInspectors Devuelve una colección DocumentInspectors que permite buscar información personal oculta, como el nombre del autor, el nombre de la compañía y la fecha de revisión.

Dim disDocumentInspectors As Office.DocumentInspectors
Set disDocumentInspectors = ActiveDocument.DocumentInspectors

DocumentLibraryVersions Devuelve una colección DocumentLibraryVersions que representa la colección de versiones de un documento compartido que tiene habilitado el control de versiones y está almacenado en una biblioteca de documentos en un servidor.

Dim dlvsDocumentLibraryVersions As Office.DocumentLibraryVersions
Set dlvsDocumentLibraryVersions = ActiveDocument.DocumentLibraryVersions

Email Devuelve un objeto email que contiene todas las propiedades relacionadas con el correo electrónico del documento actual.

Dim emlEmail As Email
Set emlEmail = ActiveDocument.Email

EmbedLinguisticData True para que Microsoft Word para que incruste la voz y escritura a mano para que los datos pueden convertirse a voz o escritura a mano.

ActiveDocument.EmbedLinguisticData = True

EncryptionProvider Devuelve una cadena que especifica el nombre del proveedor del algoritmo de cifrado que Microsoft Word utiliza para cifrar los documentos.

ActiveDocument.EncryptionProvider =

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

Dim endsEndnotes As Endnotes
Set endsEndnotes = ActiveDocument.Endnotes

Envelope Devuelve un objeto Envelope que representa un sobre y las características de sobre de un documento.

Dim envEnvelope As Envelope
Set envEnvelope = ActiveDocument.Envelope

FarEastLineBreakLanguage Devuelve o establece un WdFarEastLineBreakLanguageID que representa el idioma del este asiático que se va a usar al dividir líneas de texto del documento o plantilla especificados.

ActiveDocument.FarEastLineBreakLanguage = wdLineBreakJapanese

FarEastLineBreakLevel Devuelve o establece un WdFarEastLineBreakLevel que representa el nivel de control de salto de línea para el documento especificado.

ActiveDocument.FarEastLineBreakLevel = wdFarEastLineBreakLevelCustom

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

Dim fldsFields As Fields
Set fldsFields = ActiveDocument.Fields

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

Dim ftnsFootnotes As Footnotes
Set ftnsFootnotes = ActiveDocument.Footnotes

FormattingShowFilter Establece o devuelve una constante WdShowFilter que representa los estilos y formatos que se muestran en el panel de tareas estilos y formato .

ActiveDocument.FormattingShowFilter = wdShowFilterFormattingAvailable

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

Dim ffsFormFields As FormFields
Set ffsFormFields = ActiveDocument.FormFields

FormsDesign True si el documento especificado está en modo de diseño de formularios.

Dim booFormsDesign As Boolean
booFormsDesign = ActiveDocument.FormsDesign

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

Dim frmsFrames As Frames
Set frmsFrames = ActiveDocument.Frames

Frameset Devuelve un objeto FRAMESET que representa una página de Marcos completa o un solo marco de una página de Marcos.

Dim frmFrameset As Frameset
Set frmFrameset = ActiveDocument.Frameset

GridDistanceHorizontal Devuelve o establece un valor Single que representa la cantidad de espacio horizontal entre las líneas de la cuadrícula invisible que utiliza Microsoft Word cuando dibuja, mueve o cambia el tamaño de las Autoformas o los caracteres del este asiático del documento especificado.

ActiveDocument.GridDistanceHorizontal =

GridDistanceVertical Devuelve o establece un valor Single que representa la cantidad de espacio vertical entre las líneas de la cuadrícula invisible que utiliza Microsoft Word cuando dibuja, mueve o cambia el tamaño de las Autoformas o los caracteres del este asiático del documento especificado.

ActiveDocument.GridDistanceVertical =

GridOriginHorizontal Devuelve o establece un valor Single que representa el punto, en relación con el borde izquierdo de la página, donde desea que comience la cuadrícula invisible para dibujar, mover y cambiar el tamaño de las Autoformas o los caracteres del este asiático del documento especificado.

ActiveDocument.GridOriginHorizontal =

GridOriginVertical Devuelve o establece un valor Single que representa el punto, relativo a la parte superior de la página, donde desea que comience la cuadrícula invisible para dibujar, mover y cambiar el tamaño de las Autoformas o los caracteres del este asiático del documento especificado.

ActiveDocument.GridOriginVertical =

GridSpaceBetweenHorizontalLines Devuelve o establece el intervalo en el que Microsoft Word muestra las cuadrículas de caracteres horizontales en la vista Diseño de impresión.

ActiveDocument.GridSpaceBetweenHorizontalLines =

GridSpaceBetweenVerticalLines Devuelve o establece el intervalo en el que Microsoft Word muestra las cuadrículas de caracteres verticales en la vista Diseño de impresión.

ActiveDocument.GridSpaceBetweenVerticalLines =

HasVBProject Devuelve un valor Boolean que representa si un documento tiene adjunto un proyecto de Microsoft Visual Basic para aplicaciones.

Dim booHasVBProject As Boolean
booHasVBProject = ActiveDocument.HasVBProject

HTMLDivisions Devuelve una colección HTMLDivisions que representa los elementos div de HTML en un documento Web.

Dim htmsHTMLDivisions As HTMLDivisions
Set htmsHTMLDivisions = ActiveDocument.HTMLDivisions

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

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveDocument.Hyperlinks

HyphenateCaps True si se pueden dividir las palabras en mayúsculas.

ActiveDocument.HyphenateCaps = True

HyphenationZone Devuelve o establece el ancho de la zona de división, en puntos.

ActiveDocument.HyphenationZone =

Indexes Devuelve una colección Indexes que representa todos los índices del documento especificado.

Dim idxsIndexes As Indexes
Set idxsIndexes = ActiveDocument.Indexes

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

Dim issInlineShapes As InlineShapes
Set issInlineShapes = ActiveDocument.InlineShapes

IsMasterDocument True si el documento especificado es un documento maestro.

Dim booIsMasterDocument As Boolean
booIsMasterDocument = ActiveDocument.IsMasterDocument

IsSubdocument True si el documento especificado es un subdocumento de un documento maestro.

Dim booIsSubdocument As Boolean
booIsSubdocument = ActiveDocument.IsSubdocument

JustificationMode Devuelve o establece el ajuste del espaciado entre caracteres en el documento especificado.

ActiveDocument.JustificationMode = wdJustificationModeCompress

KerningByAlgorithm True si Microsoft Word ajusta los caracteres latinos de un byte y las marcas de puntuación del documento especificado.

ActiveDocument.KerningByAlgorithm = True

Kind Devuelve o establece el tipo de formato que Microsoft Word usa cuando se da formato automáticamente al documento especificado.

ActiveDocument.Kind = wdDocumentEmail

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

ActiveDocument.LanguageDetected = True

ListParagraphs Devuelve un objeto ListParagraphs que representa todos los párrafos numerados de un documento.

Dim lpsListParagraphs As ListParagraphs
Set lpsListParagraphs = ActiveDocument.ListParagraphs

Lists Devuelve una colección lists que contiene todas las listas con formato del documento especificado.

Dim lstsLists As Lists
Set lstsLists = ActiveDocument.Lists

ListTemplates Devuelve una colección ListTemplates que representa todos los formatos de lista del documento especificado.

Dim ltsListTemplates As ListTemplates
Set ltsListTemplates = ActiveDocument.ListTemplates

MailEnvelope Devuelve un objeto MsoEnvelope que representa el encabezado del mensaje de correo electrónico de un documento.

Dim meeMailEnvelope As Office.MsoEnvelope
Set meeMailEnvelope = ActiveDocument.MailEnvelope

MailMerge Devuelve un objeto MailMerge que representa la funcionalidad de combinación de correspondencia para el documento especificado.

Dim mmeMailMerge As MailMerge
Set mmeMailMerge = ActiveDocument.MailMerge

NoLineBreakAfter Devuelve o establece los caracteres kinsoku después de que Microsoft Word no dividirá una línea.

ActiveDocument.NoLineBreakAfter =

NoLineBreakBefore Devuelve o establece los caracteres kinsoku delante de los cuales Microsoft Word no dividirá una línea.

ActiveDocument.NoLineBreakBefore =

OMathBreakBin Devuelve o establece una constante WdOMathBreakBin que representa la posición en la que Microsoft Word coloca los operadores binarios cuando las ecuaciones ocupan dos o más líneas.

ActiveDocument.OMathBreakBin = wdOMathBreakBinAfter

OMathBreakSub Devuelve o establece una constante WdOMathBreakSub que indica cómo trata Microsoft Word un operador de resta que está delante de un salto de línea.

ActiveDocument.OMathBreakSub = wdOMathBreakSubMinusMinus

OMathIntSubSupLim Devuelve o establece un valor Boolean que representa la ubicación predeterminada de los límites de los integrales.

ActiveDocument.OMathIntSubSupLim = True

OMathJc Devuelve o establece una constante WdOMathJc que representa la justificación predeterminada (izquierda, derecha, centrado o centrado como grupo) de un grupo de ecuaciones.

ActiveDocument.OMathJc = wdOMathJcCenter

OMathNarySupSubLim Devuelve o establece un valor Boolean que representa la ubicación predeterminada de los límites de los objetos n que no sean integrales.

ActiveDocument.OMathNarySupSubLim = True

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

Dim omsOMaths As OMaths
Set omsOMaths = ActiveDocument.OMaths

OMathSmallFrac Devuelve o establece un valor Boolean que representa si se va a usar fracciones en las ecuaciones contenidas en el documento.

ActiveDocument.OMathSmallFrac = True

OMathWrap Devuelve o establece un valor Single que representa la posición de la segunda línea de una ecuación que se ajusta a una nueva línea.

ActiveDocument.OMathWrap =

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

Dim prgsParagraphs As Paragraphs
Set prgsParagraphs = ActiveDocument.Paragraphs

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

Dim objParent As Object
Set objParent = ActiveDocument.Parent

Path Devuelve el disco o la ruta de acceso Web al documento.

Dim strPath As String
strPath = ActiveDocument.Path

Permission Devuelve un objeto Permission que representa la configuración de permisos en el documento especificado.

Dim prmPermission As Office.Permission
Set prmPermission = ActiveDocument.Permission

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.ReadabilityStatistics

RemoveDateAndTime Establece o devuelve un valor Boolean que indica si un documento almacena los metadatos de fecha y hora de las marcas de revisión.

ActiveDocument.RemoveDateAndTime = True

Research Devuelve un objeto Research que representa el servicio de referencia de un documento.

Dim rsrResearch As Research
Set rsrResearch = ActiveDocument.Research

SaveFormsData True si Microsoft Word guarda los datos introducidos en un formulario como un registro delimitado por tabulaciones para su uso en una base de datos.

ActiveDocument.SaveFormsData = True

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.Scripts

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

Dim sctsSections As Sections
Set sctsSections = ActiveDocument.Sections

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

Dim sntsSentences As Sentences
Set sntsSentences = ActiveDocument.Sentences

ServerPolicy Devuelve un objeto ServerPolicy que representa una directiva especificada para un documento almacenado en un servidor que ejecuta Microsoft Office SharePoint Server 2007.

Dim spyServerPolicy As Office.ServerPolicy
Set spyServerPolicy = ActiveDocument.ServerPolicy

Shapes Devuelve una colección Shapes que representa todos los objetos Shape del documento especificado.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveDocument.Shapes

Signatures Devuelve una colección SignatureSet que representa las firmas digitales de un documento.

Dim sstSignatures As Office.SignatureSet
Set sstSignatures = ActiveDocument.Signatures

SmartDocument Devuelve un objeto SmartDocument que representa la configuración de una solución de documento inteligente.

Dim sdtSmartDocument As Office.SmartDocument
Set sdtSmartDocument = ActiveDocument.SmartDocument

SnapToGrid True si se alinean automáticamente las autoformas o caracteres del este asiático con una cuadrícula invisible cuando se dibujan, mueven o cambian de tamaño en el documento especificado.

ActiveDocument.SnapToGrid = True

SnapToShapes True si Microsoft Word alinea automáticamente las autoformas o los caracteres del este asiático con líneas de la cuadrícula invisible que atraviesan los bordes verticales y horizontal de otras Autoformas o caracteres del este asiático del documento especificado.

ActiveDocument.SnapToShapes = True

StoryRanges Devuelve una colección StoryRanges que representa todos los artículos del documento especificado.

Dim srsStoryRanges As StoryRanges
Set srsStoryRanges = ActiveDocument.StoryRanges

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

Dim sbdsSubdocuments As Subdocuments
Set sbdsSubdocuments = ActiveDocument.Subdocuments

Sync

Dim synSync As Office.Sync
Set synSync = ActiveDocument.Sync

Tables Devuelve una colección TABLE que representa todas las tablas del documento especificado.

Dim tblsTables As Tables
Set tblsTables = ActiveDocument.Tables

TablesOfAuthorities Devuelve una colección TableOfAuthorities que representa las tablas de autoridades del documento especificado.

Dim toasTablesOfAuthorities As TablesOfAuthorities
Set toasTablesOfAuthorities = ActiveDocument.TablesOfAuthorities

TablesOfAuthoritiesCategories Devuelve una colección TablesOfAuthoritiesCategories que representa las categorías de tabla de autoridades disponibles para el documento especificado.

Dim toasTablesOfAuthoritiesCategories As TablesOfAuthoritiesCategories
Set toasTablesOfAuthoritiesCategories = ActiveDocument.TablesOfAuthoritiesCategories

TablesOfContents Devuelve una colección TablesOfContents que representa las tablas de contenido del documento especificado.

Dim tocsTablesOfContents As TablesOfContents
Set tocsTablesOfContents = ActiveDocument.TablesOfContents

TablesOfFigures Devuelve una colección TablesOfFigures que representa las tablas de ilustraciones del documento especificado.

Dim tofsTablesOfFigures As TablesOfFigures
Set tofsTablesOfFigures = ActiveDocument.TablesOfFigures

TextEncoding Devuelve o establece la página de códigos o juego de caracteres que Microsoft Word utiliza para un documento guardado como archivo de texto codificado.

ActiveDocument.TextEncoding =

TextLineEnding Devuelve o establece una constante WdLineEndingType que indica cómo Microsoft Word marca la línea y los saltos de párrafo en los documentos guardados como archivos de texto.

ActiveDocument.TextLineEnding = wdCRLF

TrackMoves Devuelve o establece un valor Boolean que indica si se debe marcar el texto movido cuando está activado el control de cambios.

ActiveDocument.TrackMoves = True

Type Devuelve el tipo de documento (plantilla o documento).

Dim wdtType As WdDocumentType
wdtType = ActiveDocument.Type

UseMathDefaults Devuelve o establece un valor Boolean que representa si se va a usar la configuración matemática predeterminada al crear nuevas ecuaciones.

ActiveDocument.UseMathDefaults = True

UserControl True si el documento se ha creado o abierto por el usuario.

ActiveDocument.UserControl = True

Variables Devuelve una colección variables que representa las variables almacenadas en el documento especificado.

Dim vrbsVariables As Variables
Set vrbsVariables = ActiveDocument.Variables

WebOptions Devuelve el objeto WebOptions , que contiene los atributos de nivel de documento que utiliza Microsoft Word cuando se guarda un documento como una página web o se abre una página web.

Dim wosWebOptions As WebOptions
Set wosWebOptions = ActiveDocument.WebOptions

Windows Devuelve una colección Windows que representa todas las ventanas del documento especificado.

Dim wndsWindows As Windows
Set wndsWindows = ActiveDocument.Windows

WordOpenXML Devuelve una cadena que representa el formato XML plano para el contenido XML abierto de Word del documento.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.WordOpenXML

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

Dim wrdsWords As Words
Set wrdsWords = ActiveDocument.Words

WorkIdentity

ActiveDocument.WorkIdentity =

WriteReserved True si el documento especificado está protegido con una contraseña de escritura.

Dim booWriteReserved As Boolean
booWriteReserved = ActiveDocument.WriteReserved

XMLSaveThroughXSLT Establece o devuelve un valor de tipo String que especifica la ruta de acceso y el nombre de archivo de la transformación XSL (Extensible Stylesheet Language Transformation) que se va a aplicar cuando un usuario guarda un documento.

ActiveDocument.XMLSaveThroughXSLT =

XMLSchemaReferences Devuelve una colección XMLSchemaReferences que representa los esquemas adjuntos a un documento.

Dim xmlsXMLSchemaReferences As XMLSchemaReferences
Set xmlsXMLSchemaReferences = ActiveDocument.XMLSchemaReferences

XMLShowAdvancedErrors Devuelve o establece un valor Boolean que indica si el texto del mensaje de error se genera a partir de los mensajes de error integrados de Microsoft Word o del componente Microsoft XML Core Services (MSXML) 5,0 incluido con Office.

ActiveDocument.XMLShowAdvancedErrors = True

XMLUseXSLTWhenSaving Devuelve un valor Boolean que representa si se debe guardar un documento a través de una transformación XSL (Extensible Stylesheet Language Transformation).

ActiveDocument.XMLUseXSLTWhenSaving = True

Documents.Count Devuelve un Long que representa el número de documentos de la colección.

Dim lngCount As Long
lngCount = Documents.Count

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

Dim objParent As Object
Set objParent = Documents.Parent