Classe WrapFormat (Word VBA)

La classe WrapFormat représente toutes les propriétés d'ajustement d'un texte autour d'une forme ou d'une plage de formes. Pour utiliser une variable de classe WrapFormat, elle doit d'abord être instanciée, par exemple

Dim wft as WrapFormat
Set wft = ActiveDocument.Background.WrapFormat

AllowOverlap

Cette propriété renvoie ou définit une valeur qui indique si une forme particulière peut se superposer avec d'autres formes.

Cette propriété peut être définie à True ou False.

ActiveDocument.Shapes(1).WrapFormat.AllowOverlap = True

DistanceBottom

Cette propriété renvoie ou définit la distance (en points) entre le texte du document et le bord inférieur de la zone sans texte qui entoure la forme spécifiée.

La taille et la forme de la forme spécifiée, ainsi que les valeurs des propriétés Type et Side de l'objet WrapFormat, déterminent la taille et la forme de cette zone sans texte.

With ActiveDocument.Tables(1).Rows 
 .WrapAroundText = True 
 .DistanceLeft = 20 
 .DistanceRight = 20 
 .DistanceTop = 20 
 .DistanceBottom = 20 
End With

DistanceLeft

Cette propriété renvoie ou définit la distance (en points) entre le texte du document et le bord gauche de la zone sans texte qui entoure la forme spécifiée.

La taille et la forme de la forme spécifiée, ainsi que les valeurs des propriétés Type et Side de l'objet WrapFormat, déterminent la taille et la forme de cette zone sans texte.

With ActiveDocument.Tables(1).Rows 
 .WrapAroundText = True 
 .DistanceLeft = 20 
 .DistanceRight = 20 
 .DistanceTop = 20 
 .DistanceBottom = 20 
End With

DistanceRight

Cette propriété renvoie ou définit la distance (en points) entre le texte du document et le bord droit de la zone sans texte qui entoure la forme spécifiée.

La taille et la forme de la forme spécifiée, ainsi que les valeurs des propriétés Type et Side de l'objet WrapFormat, déterminent la taille et la forme de cette zone sans texte.

With ActiveDocument.Tables(1).Rows 
 .WrapAroundText = True 
 .DistanceLeft = 20 
 .DistanceRight = 20 
 .DistanceTop = 20 
 .DistanceBottom = 20 
End With

DistanceTop

Cette propriété renvoie ou définit la distance (en points) entre le texte du document et le bord supérieur de la zone sans texte qui entoure la forme spécifiée.

La taille et la forme de la forme spécifiée, ainsi que les valeurs des propriétés Type et Side de l'objet WrapFormat, déterminent la taille et la forme de cette zone sans texte.

With ActiveDocument.Tables(1).Rows 
 .WrapAroundText = True 
 .DistanceLeft = 20 
 .DistanceRight = 20 
 .DistanceTop = 20 
 .DistanceBottom = 20 
End With

Side

Cette propriété renvoie ou définit une valeur qui indique si le texte du document doit être renvoyé sur les deux côtés de la forme spécifiée, uniquement à gauche ou à droite, ou sur le côté le plus éloigné de la marge de page. En lecture/écriture WdWrapSideType. Les valeurs de retour possibles sont wdWrapBoth - Deux côtés de la forme spécifiée, wdWrapLargest - Côté de la forme le plus éloigné de la marge de page, wdWrapLeft - Côté gauche de la forme seulement, wdWrapRight - Côté droit de la forme seulement.

Si le texte ne s'ajuste que sur un côté de la forme, une zone sans texte est créée entre l'autre côté de la forme et la marge de page.

Set myOval = ActiveDocument.Shapes.AddShape(msoShapeOval, _ 
 0, 0, 200, 50) 
With myEll.WrapFormat 
 .Type = wdWrapSquare 
 .Side = wdWrapBoth 
 .DistanceTop = InchesToPoints(0.1) 
 .DistanceBottom = InchesToPoints(0.1) 
 .DistanceLeft = InchesToPoints(0.1) 
 .DistanceRight = InchesToPoints(0.1) 
End With

Type

Renvoie le type de renvoi à la ligne pour la forme spécifiée. Les valeurs de retour possibles sont wdWrapBehind - Place la forme derrière le texte, wdWrapFront - Place la forme devant le texte, wdWrapInline - Aligne les formes et le texte, wdWrapNone - Place la forme devant le texte, wdWrapSquare - Répartit le texte autour de la forme, wdWrapThrough - Répartit le texte autour de la forme, wdWrapTight - Place le texte près de la forme, wdWrapTopBottom - Place le texte au-dessus et en dessous de la forme.

ActiveDocument.Background.WrapFormat.Type = wdWrapBehind