Clase Style (Word VBA)

La clase Style representa un solo estilo integrado o definido por el usuario.

Los principales procedimientos de la clase Style son Delete y Styles.Add

Set

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

Dim sty as Style
Set sty = Application.ActiveDocument.Range.Paragraphs

Los siguientes procedimientos se pueden usar para establecer variables de clase Style : EmailAuthor.Style, EmailOptions.ComposeStyle, EmailOptions.PlainTextStyle, EmailOptions.ReplyStyle, Envelope.AddressStyle, Envelope.ReturnAddressStyle, Find.Style, HeadingStyle.Style, Paragraph.Style, ParagraphFormat.Style, Paragraphs.Style, Range.Style, Replacement.Style, Revision.Style, Selection.Style, Styles.Add, Styles.Item, Table.Style y Document.Styles

For Each

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

Dim strMessage As String 
Dim sty As Style  
strMessage = "Styles in use:" & vbCr 
 For Each sty In ActiveDocument.Styles 
 If sty.InUse = True Then 
 With docActive 
 .Content.Find 
 .ClearFormatting 
 .Text = "" 
 .Style = sty 
 .Execute Format:=True 
 If .Found = True Then 
 strMessage = strMessage & sty.Name & vbCr 
 End If 
 End With 
 End If 
Next sty  
MsgBox strMessage

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Format with its procedures BaseStyle, Borders, Font, LinkStyle, NextParagraphStyle, NoSpaceBetweenParagraphsOfSameStyle, ParagraphFormat y QuickStyle

Métodos

Los principales métodos de la clase Style son

Delete - Elimina el estilo especificado.

ActiveDocument.Range.Paragraphs.Style.Delete

Styles.Add - Crea un nuevo estilo definido por el usuario y lo agrega a la colección de estilos .

Dim strName As String: strName =  
Dim sty As Style
Set sty = ActiveDocument.Styles.Add(Name:=strName)

Otros Métodos

LinkToListTemplate - Vincula el estilo especificado a una plantilla de lista para que el formato del estilo pueda aplicarse a las listas.

ActiveDocument.Range.Paragraphs.Style.LinkToListTemplate ListTemplate:=

Propiedades

AutomaticallyUpdate True si se vuelve a definir automáticamente el estilo basado en la selección.

ActiveDocument.Range.Paragraphs.Style.AutomaticallyUpdate = True

BuiltIn True si el objeto especificado es uno de los estilos integrados o etiquetas de título en Word.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveDocument.Range.Paragraphs.Style.BuiltIn

Description Devuelve la descripción del estilo especificado.

Dim strDescription As String
strDescription = ActiveDocument.Range.Paragraphs.Style.Description

Frame Devuelve un objeto Frame que representa el formato del marco para el estilo especificado.

Dim frmFrame As Frame
Set frmFrame = ActiveDocument.Range.Paragraphs.Style.Frame

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

Dim booInUse As Boolean
booInUse = ActiveDocument.Range.Paragraphs.Style.InUse

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

ActiveDocument.Range.Paragraphs.Style.LanguageID = wdAfrikaans

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

ActiveDocument.Range.Paragraphs.Style.LanguageIDFarEast = wdAfrikaans

Linked Devuelve un valor Boolean que indica si un estilo es un estilo vinculado que se puede usar para el formato de párrafo y de carácter.

Dim booLinked As Boolean
booLinked = ActiveDocument.Range.Paragraphs.Style.Linked

ListLevelNumber Devuelve el nivel de lista para el estilo especificado.

Dim lngListLevelNumber As Long
lngListLevelNumber = ActiveDocument.Range.Paragraphs.Style.ListLevelNumber

ListTemplate Devuelve un objeto ListTemplate que representa el formato de lista del objeto Style especificado.

Dim lteListTemplate As ListTemplate
Set lteListTemplate = ActiveDocument.Range.Paragraphs.Style.ListTemplate

Locked True si no se puede cambiar o modificar un estilo.

ActiveDocument.Range.Paragraphs.Style.Locked = True

NameLocal Devuelve el nombre del estilo integrado en el idioma del usuario.

ActiveDocument.Range.Paragraphs.Style.NameLocal =

NoProofing True si el corrector ortográfico y gramatical omite el texto que tiene asignado este estilo.

ActiveDocument.Range.Paragraphs.Style.NoProofing =

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

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

Priority Devuelve o establece un Long que representa la prioridad para ordenar los estilos en el panel de tareas estilos .

ActiveDocument.Range.Paragraphs.Style.Priority =

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

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

Table Devuelve un objeto TableStyle que representa las propiedades que se pueden aplicar a una tabla mediante un estilo de tabla.

Dim tblstyTable As TableStyle
Set tblstyTable = ActiveDocument.Range.Paragraphs.Style.Table

Type Devuelve el tipo de estilo.

Dim wstType As WdStyleType
wstType = ActiveDocument.Range.Paragraphs.Style.Type

UnhideWhenUsed True si el estilo especificado se hace visible como un estilo recomendado en los estilos y en el panel de tareas estilos en Word después de que se usa en el documento.

ActiveDocument.Range.Paragraphs.Style.UnhideWhenUsed = True

Visibility True si el estilo especificado está visible como un estilo recomendado en la Galería de estilos y en el panel de tareas estilos.

ActiveDocument.Range.Paragraphs.Style.Visibility = True

Styles.Count Devuelve un Long que representa el número de estilos de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Styles.Count

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

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