Classe Paragraph (Word VBA)

Represents a single paragraph in a selection, range, or document.

Les procédures principales de la classe Paragraph sont OpenOrCloseUp, OpenUp, Paragraphs.Add, Paragraphs.OpenOrCloseUp et Paragraphs.OpenUp

Set

Pour utiliser une variable de classe Paragraph, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Paragraph : Document.ListParagraphs, List.ListParagraphs, Range.ListParagraphs, ListParagraphs.Item, Next, Previous, Paragraphs.Add, Paragraphs.Item, Paragraphs.First, Paragraphs.Last, Document.Paragraphs, Range.Paragraphs et Selection.Paragraphs

For Each

Voici un exemple de traitement des éléments Paragraph dans une collection

 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

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

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 et Paragraphs.Style

Méthodes

Les méthodes principales de la classe Paragraph sont

OpenOrCloseUp - Change l'espacement avant un paragraphe.

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

OpenUp - Définit un espacement avant les paragraphes spécifiés équivalent à 12 points.

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

Paragraphs.Add - Renvoie un objet paragraph qui représente un nouveau paragraphe vide ajouté à un document.

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

Paragraphs.OpenOrCloseUp - Change l'espacement avant des paragraphes.

ActiveDocument.Range.Paragraphs.OpenOrCloseUp

Paragraphs.OpenUp - Définit un espacement avant les paragraphes spécifiés équivalent à 12 points.

ActiveDocument.Range.Paragraphs.OpenUp

Autre Méthodes

ListAdvanceTo - Définit les niveaux de liste pour un paragraphe dans une liste.

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

Propriétés

ListParagraphs.Count Renvoie un type long qui représente le nombre de paragraphes de liste dans la collection.

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

ListParagraphs.Parent Renvoie un Object qui représente l'objet parent de l'objet ListParagraphs spécifié.

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

Alignment Cette propriété renvoie ou définit une constante WdParagraphAlignment qui représente l’alignement pour les paragraphes spécifiés.

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

AutoAdjustRightIndent La valeur True si Microsoft Word est configuré automatiquement pour régler le retrait à droite pour les paragraphes spécifiés si vous avez spécifié un nombre défini de caractères par ligne.

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

BaseLineAlignment Cette propriété renvoie ou définit une constante WdBaselineAlignment qui représente la position verticale des polices sur une ligne.

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

CharacterUnitFirstLineIndent Cette propriété renvoie ou définit la valeur (en caractères) pour un retrait de première ligne ou négatif de première ligne.

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

CharacterUnitLeftIndent Cette propriété renvoie ou définit la valeur de retrait gauche (en caractères) pour les paragraphes spécifiés.

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

CharacterUnitRightIndent Renvoie ou définit la valeur du retrait à droite (en caractères) pour les paragraphes spécifiés.

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

CollapsedState Cette propriété renvoie ou définit si le paragraphe spécifié est actuellement réduit.

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

CollapseHeadingByDefault Cette propriété renvoie ou définit si le paragraphe spécifié est réduit par défaut lors du chargement du document.

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

DropCap Renvoie un objet DropCap qui représente une lettrine pour le paragraphe spécifié.

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

FarEastLineBreakControl La valeur true si Microsoft Word applique les règles de saut de ligne d'Asie orientale aux paragraphes spécifiés.

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

FirstLineIndent Cette propriété renvoie ou définit la valeur (en points) pour un retrait de première ligne ou négatif.

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

HangingPunctuation True si la ponctuation en retrait est activée pour les paragraphes spécifiés.

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

Hyphenation True si les paragraphes spécifiés sont inclus dans la coupure de mots automatique.

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

ID Cette propriété renvoie ou définit l’étiquette d’identification de l’objet spécifié lorsque le document actif est enregistré en tant que page Web.

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

KeepTogether True si toutes les lignes du paragraphe spécifié restent sur la même page lorsque Microsoft Word repagine le document.

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

KeepWithNext True si le paragraphe spécifié reste sur la même page que le paragraphe qui suit lorsque Microsoft Word repagine le document.

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

LeftIndent Cette propriété renvoie ou définit une valeur unique qui représente la valeur de retrait gauche (en points) pour le paragraphe spécifié.

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

LineUnitAfter Cette propriété renvoie ou définit l'espacement (en nombre de lignes) après le paragraphe spécifié.

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

LineUnitBefore Renvoie ou définit l'espacement, exprimé en nombre de lignes de grille, placé avant le paragraphe spécifié.

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

ListNumberOriginal Renvoie un type Integer qui représente le niveau de liste d’origine pour un paragraphe.

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

MirrorIndents Cette propriété renvoie ou définit un type long qui indique si les retraits à gauche et à droite ont la même largeur.

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

NoLineNumber Cette propriété a la valeur True si les lignes du paragraphe spécifié ne sont pas numérotées.

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

OutlineLevel Renvoie ou définit le niveau, dans le plan, le paragraphe spécifié.

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

PageBreakBefore True si un saut de page forcé est inséré avant les paragraphes spécifiés.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet Paragraph spécifié.

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

Range Renvoie un objet Range qui représente la partie d’un document contenue dans le paragraphe spécifié.

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

ReadingOrder Cette propriété renvoie ou définit le sens de lecture du paragraphe spécifié sans modifier l'alignement.

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

RightIndent Cette propriété renvoie ou définit le retrait à droite (en points) pour le paragraphe spécifié.

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

Shading Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour le paragraphe spécifié.

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

SpaceAfter Cette propriété renvoie ou définit l'espacement (en points) après la colonne de paragraphe ou de texte spécifiée.

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

SpaceAfterAuto La valeur true si Microsoft Word définit automatiquement le nombre d'espacements après les paragraphes spécifiés.

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

SpaceBefore Cette propriété renvoie ou définit l'espacement (en points) avant les paragraphes spécifiés.

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

SpaceBeforeAuto La valeur true si Microsoft Word définit automatiquement le nombre d'espacements avant les paragraphes spécifiés.

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

TabStops Cette propriété renvoie ou définit une collection TabStops qui représente tous les taquets de tabulation personnalisés pour le paragraphe spécifié.

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

TextboxTightWrap Cette propriété renvoie ou définit une constante WdTextboxTightWrap qui représente l'habillage du texte autour des formes ou des zones de texte.

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

WidowControl True si les première et dernière lignes du paragraphe spécifié restent sur la même page que le reste du paragraphe lorsque Word repagine le document.

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

WordWrap Cette propriété a la valeur True si Microsoft Word renvoie à la ligne, en milieu de mots, le texte en caractères latins dans les paragraphes ou les cadres de texte spécifiés.

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

Paragraphs.Alignment Cette propriété renvoie ou définit une constante WdParagraphAlignment qui représente l’alignement pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.Alignment = wdAlignParagraphCenter

Paragraphs.AutoAdjustRightIndent La valeur True si Microsoft Word est configuré automatiquement pour régler le retrait à droite pour les paragraphes spécifiés si vous avez spécifié un nombre défini de caractères par ligne.

ActiveDocument.Range.Paragraphs.AutoAdjustRightIndent =

Paragraphs.BaseLineAlignment Cette propriété renvoie ou définit une constante WdBaselineAlignment qui représente la position verticale des polices sur une ligne.

ActiveDocument.Range.Paragraphs.BaseLineAlignment = wdBaselineAlignAuto

Paragraphs.CharacterUnitFirstLineIndent Cette propriété renvoie ou définit la valeur (en caractères) pour un retrait de première ligne ou négatif de première ligne.

ActiveDocument.Range.Paragraphs.CharacterUnitFirstLineIndent =

Paragraphs.CharacterUnitLeftIndent Cette propriété renvoie ou définit la valeur de retrait gauche (en caractères) pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.CharacterUnitLeftIndent =

Paragraphs.CharacterUnitRightIndent Renvoie ou définit la valeur du retrait à droite (en caractères) pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.CharacterUnitRightIndent =

Paragraphs.Count Renvoie un type long qui représente le nombre de paragraphes dans la collection.

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

Paragraphs.FarEastLineBreakControl La valeur true si Microsoft Word applique les règles de saut de ligne d'Asie orientale aux paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.FarEastLineBreakControl =

Paragraphs.First Renvoie un objet paragraph qui représente le premier élément de la collection Paragraphs.

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

Paragraphs.FirstLineIndent Cette propriété renvoie ou définit la valeur (en points) pour un retrait de première ligne ou négatif.

ActiveDocument.Range.Paragraphs.FirstLineIndent =

Paragraphs.HangingPunctuation True si la ponctuation en retrait est activée pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.HangingPunctuation =

Paragraphs.Hyphenation True si les paragraphes spécifiés sont inclus dans la coupure de mots automatique.

ActiveDocument.Range.Paragraphs.Hyphenation =

Paragraphs.KeepTogether True si toutes les lignes dans les paragraphes spécifiés restent sur la même page lorsque Microsoft Word repagine le document.

ActiveDocument.Range.Paragraphs.KeepTogether =

Paragraphs.KeepWithNext True si les paragraphes spécifiés restent sur la même page que les paragraphes qui suivent lorsque Microsoft Word repagine le document.

ActiveDocument.Range.Paragraphs.KeepWithNext =

Paragraphs.Last Renvoie un objet paragraph qui représente le dernier élément de la collection de paragraphes.

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

Paragraphs.LeftIndent Cette propriété renvoie ou définit une valeur unique qui représente la valeur de retrait gauche (en points) pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.LeftIndent =

Paragraphs.LineUnitAfter Cette propriété renvoie ou définit l'espacement (en nombre de lignes) après les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.LineUnitAfter =

Paragraphs.LineUnitBefore Cette propriété renvoie ou définit l'espacement (en quadrillage) avant les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.LineUnitBefore =

Paragraphs.NoLineNumber True si les lignes sont numérotées pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.NoLineNumber =

Paragraphs.OutlineLevel Renvoie ou définit le niveau, dans le plan, des paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.OutlineLevel = wdOutlineLevel1

Paragraphs.PageBreakBefore True si un saut de page forcé est inséré avant les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.PageBreakBefore =

Paragraphs.Parent Renvoie un Object qui représente l'objet parent de l'objet Paragraphs spécifié.

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

Paragraphs.ReadingOrder Cette propriété renvoie ou définit le sens de lecture des paragraphes spécifiés sans modifier leur alignement.

ActiveDocument.Range.Paragraphs.ReadingOrder = wdReadingOrderLtr

Paragraphs.RightIndent Renvoie ou définit le retrait à droite, exprimé en points, pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.RightIndent =

Paragraphs.Shading Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour les paragraphes spécifiés.

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

Paragraphs.SpaceAfter Cette propriété renvoie ou définit l'espacement (en points) après la colonne de paragraphe ou de texte spécifiée.

ActiveDocument.Range.Paragraphs.SpaceAfter =

Paragraphs.SpaceAfterAuto La valeur true si Microsoft Word définit automatiquement le nombre d'espacements après les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.SpaceAfterAuto =

Paragraphs.SpaceBefore Cette propriété renvoie ou définit l'espacement (en points) avant les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.SpaceBefore =

Paragraphs.SpaceBeforeAuto La valeur true si Microsoft Word définit automatiquement le nombre d'espacements avant les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.SpaceBeforeAuto =

Paragraphs.TabStops Cette propriété renvoie ou définit une collection TabStops qui représente tous les taquets de tabulation personnalisés pour les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.TabStops =

Paragraphs.WidowControl True si les première et dernière lignes du paragraphe spécifié restent sur la même page que le reste du paragraphe lorsque Word repagine le document.

ActiveDocument.Range.Paragraphs.WidowControl =

Paragraphs.WordWrap La valeur true si Microsoft Word ajuste le texte Latin au milieu d'un mot dans les paragraphes spécifiés.

ActiveDocument.Range.Paragraphs.WordWrap =