Clase Paragraph (Word VBA)

La clase Paragraph representa un solo párrafo de una selección, intervalo o documento.

Los principales procedimientos de la clase Paragraph son OpenOrCloseUp, OpenUp, Paragraphs.Add, Paragraphs.OpenOrCloseUp y Paragraphs.OpenUp

Set

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

Dim prg as Paragraph
Set prg = ActiveDocument.Paragraphs(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Paragraph : Document.ListParagraphs, List.ListParagraphs, Range.ListParagraphs, ListParagraphs.Item, Next, Previous, Paragraphs.Add, Paragraphs.Item, Paragraphs.First, Paragraphs.Last, Document.Paragraphs, Range.Paragraphs y Selection.Paragraphs

For Each

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

 Dim pgh As Paragraph 
 For Each pgh In ActiveDocument.Paragraphs 
 If pgh.IsStyleSeparator = True Then 
     pgh.Range.Select 
     Selection.Style = "Normal" 
 End If 
 Next pgh

Temas

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

Format with its procedures AddSpaceBetweenFarEastAndAlpha, AddSpaceBetweenFarEastAndDigit, Borders, DisableLineHeightGrid, Format, HalfWidthPunctuationOnTopOfLine, IndentCharWidth, IndentFirstLineCharWidth, IsStyleSeparator, LineSpacing, LineSpacingRule, Style, Paragraphs.AddSpaceBetweenFarEastAndAlpha, Paragraphs.AddSpaceBetweenFarEastAndDigit, Paragraphs.Borders, Paragraphs.DecreaseSpacing, Paragraphs.DisableLineHeightGrid, Paragraphs.Format, Paragraphs.HalfWidthPunctuationOnTopOfLine, Paragraphs.IncreaseSpacing, Paragraphs.IndentCharWidth, Paragraphs.IndentFirstLineCharWidth, Paragraphs.LineSpacing, Paragraphs.LineSpacingRule y Paragraphs.Style

Métodos

Los principales métodos de la clase Paragraph son

OpenOrCloseUp - Activa o desactiva el espaciado que precede a un párrafo.

ActiveDocument.Lists(1).ListParagraphs(1).OpenOrCloseUp

OpenUp - Establece un espaciado de 12 puntos delante de los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).OpenUp

Paragraphs.Add - Devuelve un objeto Paragraph que representa un nuevo párrafo en blanco agregado a un documento.

Dim prg As Paragraph
Set prg = ActiveDocument.Range.Paragraphs.Add()

Paragraphs.OpenOrCloseUp - Activa o desactiva el espaciado que precede a los párrafos.

ActiveDocument.Range.Paragraphs.OpenOrCloseUp

Paragraphs.OpenUp - Establece un espaciado de 12 puntos delante de los párrafos especificados.

ActiveDocument.Range.Paragraphs.OpenUp

Otros Métodos

ListAdvanceTo - Establece los niveles de lista de un párrafo de una lista.

ActiveDocument.Lists(1).ListParagraphs(1).ListAdvanceTo

Propiedades

ListParagraphs.Count Devuelve un Long que representa el número de párrafos de la lista de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Lists(1).ListParagraphs.Count

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

Dim objParent As Object
Set objParent = ActiveDocument.Lists(1).ListParagraphs.Parent

Alignment Devuelve o establece una constante WdParagraphAlignment que representa la alineación de los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).Alignment = wdAlignParagraphCenter

AutoAdjustRightIndent True si Microsoft Word se configura automáticamente ajustar la sangría derecha de los párrafos especificados si se ha especificado un número de conjunto de caracteres por línea.

ActiveDocument.Lists(1).ListParagraphs(1).AutoAdjustRightIndent =

BaseLineAlignment Devuelve o establece una constante WdBaselineAlignment que representa la posición vertical de las fuentes en una línea.

ActiveDocument.Lists(1).ListParagraphs(1).BaseLineAlignment = wdBaselineAlignAuto

CharacterUnitFirstLineIndent Devuelve o establece el valor (en caracteres) de una sangría de primera línea o francesa.

ActiveDocument.Lists(1).ListParagraphs(1).CharacterUnitFirstLineIndent =

CharacterUnitLeftIndent Devuelve o establece el valor de la sangría izquierda (en caracteres) para los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).CharacterUnitLeftIndent =

CharacterUnitRightIndent Devuelve o establece el valor de la sangría derecha (en caracteres) para los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).CharacterUnitRightIndent =

CollapsedState Devuelve o establece si el párrafo especificado está actualmente en estado contraído.

ActiveDocument.Lists(1).ListParagraphs(1).CollapsedState = True

CollapseHeadingByDefault Devuelve o establece si el párrafo especificado está contraído de forma predeterminada cuando se carga el documento.

ActiveDocument.Lists(1).ListParagraphs(1).CollapseHeadingByDefault = True

DropCap Devuelve un objeto DropCap que representa una letra capital para el párrafo especificado.

Dim dcpDropCap As DropCap
Set dcpDropCap = ActiveDocument.Lists(1).ListParagraphs(1).DropCap

FarEastLineBreakControl True si Microsoft Word aplica las reglas de salto de línea del este asiático a los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).FarEastLineBreakControl =

FirstLineIndent Devuelve o establece el valor (en puntos) de la primera línea o francesa sangría.

ActiveDocument.Lists(1).ListParagraphs(1).FirstLineIndent =

HangingPunctuation True si la puntuación fuera de margen está habilitado para los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).HangingPunctuation =

Hyphenation True si los párrafos especificados están incluidos en la división automática de palabras.

ActiveDocument.Lists(1).ListParagraphs(1).Hyphenation =

ID Devuelve o establece la etiqueta de identificación para el objeto especificado cuando el documento actual se guarda como una página web.

ActiveDocument.Lists(1).ListParagraphs(1).ID =

KeepTogether True si todas las líneas del párrafo especificado permanecen en la misma página cuando Microsoft Word repagina el documento.

ActiveDocument.Lists(1).ListParagraphs(1).KeepTogether =

KeepWithNext True si el párrafo especificado permanece en la misma página que el párrafo siguiente cuando Microsoft Word repagina el documento.

ActiveDocument.Lists(1).ListParagraphs(1).KeepWithNext =

LeftIndent Devuelve o establece un valor Single que representa el valor de la sangría izquierda (en puntos) del párrafo especificado.

ActiveDocument.Lists(1).ListParagraphs(1).LeftIndent =

LineUnitAfter Devuelve o establece la cantidad de espaciado (en las líneas de división) después del párrafo especificado.

ActiveDocument.Lists(1).ListParagraphs(1).LineUnitAfter =

LineUnitBefore Devuelve o establece la cantidad de espacio, en líneas de cuadrícula, antes del párrafo especificado.

ActiveDocument.Lists(1).ListParagraphs(1).LineUnitBefore =

ListNumberOriginal Devuelve un valor de tipo Integer que representa el nivel de lista original de un párrafo.

Dim iLevel As Integer: iLevel =  
Dim lngListNumberOriginal As Long
lngListNumberOriginal = ActiveDocument.Lists(1).ListParagraphs(1).ListNumberOriginal(Level:=iLevel)

MirrorIndents Devuelve o establece un Long que indica si las sangrías izquierda y derecha tienen el mismo ancho.

ActiveDocument.Lists(1).ListParagraphs(1).MirrorIndents =

NoLineNumber True si los números de línea no se incrementan en el párrafo especificado.

ActiveDocument.Lists(1).ListParagraphs(1).NoLineNumber =

OutlineLevel Devuelve o establece el nivel de esquema del párrafo especificado.

ActiveDocument.Lists(1).ListParagraphs(1).OutlineLevel = wdOutlineLevel1

PageBreakBefore True si se incluye un salto de página delante de los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).PageBreakBefore =

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

Dim objParent As Object
Set objParent = ActiveDocument.Lists(1).ListParagraphs(1).Parent

Range Devuelve un objeto Range que representa la parte de un documento incluida en el párrafo especificado.

Dim rngRange As Range
Set rngRange = ActiveDocument.Lists(1).ListParagraphs(1).Range

ReadingOrder Devuelve o establece el orden de lectura del párrafo especificado sin cambiar la alineación.

ActiveDocument.Lists(1).ListParagraphs(1).ReadingOrder = wdReadingOrderLtr

RightIndent Devuelve o establece la sangría derecha (en puntos) del párrafo especificado.

ActiveDocument.Lists(1).ListParagraphs(1).RightIndent =

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

Dim shdShading As Shading
Set shdShading = ActiveDocument.Lists(1).ListParagraphs(1).Shading

SpaceAfter Devuelve o establece la cantidad de espaciado (en puntos) después de la columna de texto o del párrafo especificada.

ActiveDocument.Lists(1).ListParagraphs(1).SpaceAfter =

SpaceAfterAuto True si Microsoft Word establece automáticamente la cantidad de espaciado después de los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).SpaceAfterAuto =

SpaceBefore Devuelve o establece el espaciado (en puntos) que precede a los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).SpaceBefore =

SpaceBeforeAuto True si Microsoft Word establece automáticamente la cantidad de espaciado que precede a los párrafos especificados.

ActiveDocument.Lists(1).ListParagraphs(1).SpaceBeforeAuto =

TabStops Devuelve o establece una colección TabStops que representa todas las tabulaciones personalizadas del párrafo especificado.

ActiveDocument.Lists(1).ListParagraphs(1).TabStops =

TextboxTightWrap Devuelve o establece una constante WdTextboxTightWrap que representa el grado de ajuste del texto alrededor de las formas o los cuadros de texto.

ActiveDocument.Lists(1).ListParagraphs(1).TextboxTightWrap = wdTightAll

WidowControl True si las líneas primeros y últimos del párrafo especificado permanecen en la misma página que el resto del párrafo cuando Word repagine el documento.

ActiveDocument.Lists(1).ListParagraphs(1).WidowControl =

WordWrap True si Microsoft Word ajusta el texto latino en medio de una palabra en los párrafos o marcos de texto especificados.

ActiveDocument.Lists(1).ListParagraphs(1).WordWrap =

Paragraphs.Alignment Devuelve o establece una constante WdParagraphAlignment que representa la alineación de los párrafos especificados.

ActiveDocument.Range.Paragraphs.Alignment = wdAlignParagraphCenter

Paragraphs.AutoAdjustRightIndent True si Microsoft Word se configura automáticamente ajustar la sangría derecha de los párrafos especificados si se ha especificado un número de conjunto de caracteres por línea.

ActiveDocument.Range.Paragraphs.AutoAdjustRightIndent =

Paragraphs.BaseLineAlignment Devuelve o establece una constante WdBaselineAlignment que representa la posición vertical de las fuentes en una línea.

ActiveDocument.Range.Paragraphs.BaseLineAlignment = wdBaselineAlignAuto

Paragraphs.CharacterUnitFirstLineIndent Devuelve o establece el valor (en caracteres) de una sangría de primera línea o francesa.

ActiveDocument.Range.Paragraphs.CharacterUnitFirstLineIndent =

Paragraphs.CharacterUnitLeftIndent Devuelve o establece el valor de la sangría izquierda (en caracteres) para los párrafos especificados.

ActiveDocument.Range.Paragraphs.CharacterUnitLeftIndent =

Paragraphs.CharacterUnitRightIndent Devuelve o establece el valor de la sangría derecha (en caracteres) para los párrafos especificados.

ActiveDocument.Range.Paragraphs.CharacterUnitRightIndent =

Paragraphs.Count Devuelve un Long que representa el número de párrafos de la colección.

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

Paragraphs.FarEastLineBreakControl True si Microsoft Word aplica las reglas de salto de línea del este asiático a los párrafos especificados.

ActiveDocument.Range.Paragraphs.FarEastLineBreakControl =

Paragraphs.First Devuelve un objeto Paragraph que representa el primer elemento de la colección Paragraphs.

Dim prgFirst As Paragraph
Set prgFirst = ActiveDocument.Range.Paragraphs.First

Paragraphs.FirstLineIndent Devuelve o establece el valor (en puntos) de la primera línea o francesa sangría.

ActiveDocument.Range.Paragraphs.FirstLineIndent =

Paragraphs.HangingPunctuation True si la puntuación fuera de margen está habilitado para los párrafos especificados.

ActiveDocument.Range.Paragraphs.HangingPunctuation =

Paragraphs.Hyphenation True si los párrafos especificados están incluidos en la división automática de palabras.

ActiveDocument.Range.Paragraphs.Hyphenation =

Paragraphs.KeepTogether True si todas las líneas de los párrafos especificados permanecen en la misma página cuando Microsoft Word repagina el documento.

ActiveDocument.Range.Paragraphs.KeepTogether =

Paragraphs.KeepWithNext True si los párrafos especificados permanecen en la misma página que los párrafos siguientes cuando Microsoft Word repagina el documento.

ActiveDocument.Range.Paragraphs.KeepWithNext =

Paragraphs.Last Devuelve un objeto Paragraph que representa el último elemento de la colección de párrafos.

Dim prgLast As Paragraph
Set prgLast = ActiveDocument.Range.Paragraphs.Last

Paragraphs.LeftIndent Devuelve o establece un valor Single que representa el valor de la sangría izquierda (en puntos) de los párrafos especificados.

ActiveDocument.Range.Paragraphs.LeftIndent =

Paragraphs.LineUnitAfter Devuelve o establece la cantidad de espaciado (en las líneas de división) después de los párrafos especificados.

ActiveDocument.Range.Paragraphs.LineUnitAfter =

Paragraphs.LineUnitBefore Devuelve o establece la cantidad de espacio (en las líneas de división) antes de los párrafos especificados.

ActiveDocument.Range.Paragraphs.LineUnitBefore =

Paragraphs.NoLineNumber True si los números de línea no incrementan en los párrafos especificados.

ActiveDocument.Range.Paragraphs.NoLineNumber =

Paragraphs.OutlineLevel Devuelve o establece el nivel de esquema de los párrafos especificados.

ActiveDocument.Range.Paragraphs.OutlineLevel = wdOutlineLevel1

Paragraphs.PageBreakBefore True si se incluye un salto de página delante de los párrafos especificados.

ActiveDocument.Range.Paragraphs.PageBreakBefore =

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

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

Paragraphs.ReadingOrder Devuelve o establece el orden de lectura de los párrafos especificados sin cambiar la alineación.

ActiveDocument.Range.Paragraphs.ReadingOrder = wdReadingOrderLtr

Paragraphs.RightIndent Devuelve o establece la sangría derecha, en puntos, de los párrafos especificados.

ActiveDocument.Range.Paragraphs.RightIndent =

Paragraphs.Shading Devuelve un objeto shading que hace referencia al formato de sombreado de los párrafos especificados.

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

Paragraphs.SpaceAfter Devuelve o establece la cantidad de espaciado (en puntos) después de la columna de texto o del párrafo especificada.

ActiveDocument.Range.Paragraphs.SpaceAfter =

Paragraphs.SpaceAfterAuto True si Microsoft Word establece automáticamente la cantidad de espaciado después de los párrafos especificados.

ActiveDocument.Range.Paragraphs.SpaceAfterAuto =

Paragraphs.SpaceBefore Devuelve o establece el espaciado (en puntos) que precede a los párrafos especificados.

ActiveDocument.Range.Paragraphs.SpaceBefore =

Paragraphs.SpaceBeforeAuto True si Microsoft Word establece automáticamente la cantidad de espaciado que precede a los párrafos especificados.

ActiveDocument.Range.Paragraphs.SpaceBeforeAuto =

Paragraphs.TabStops Devuelve o establece una colección TabStops que representa todas las tabulaciones personalizadas de los párrafos especificados.

ActiveDocument.Range.Paragraphs.TabStops =

Paragraphs.WidowControl True si las líneas primeros y últimos del párrafo especificado permanecen en la misma página que el resto del párrafo cuando Word repagine el documento.

ActiveDocument.Range.Paragraphs.WidowControl =

Paragraphs.WordWrap True si Microsoft Word ajusta el texto latino en medio de una palabra en los párrafos especificados.

ActiveDocument.Range.Paragraphs.WordWrap =