Clase WrapFormat (Word VBA)

La clase WrapFormat representa todas las propiedades de ajuste de texto alrededor de una forma o de un intervalo de formas. Para usar una variable de clase WrapFormat, primero debe ser instanciado, por ejemplo

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

AllowOverlap

Devuelve o establece un valor que especifica si una forma determinada puede superponerse a otras formas.

Esta propiedad puede establecerse en True o False.

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

DistanceBottom

Devuelve o establece la distancia (en puntos) entre el texto del documento y el borde inferior del área libre de texto que rodea la forma especificada.

El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto.

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

DistanceLeft

Devuelve o establece la distancia (en puntos) entre el texto del documento y el borde izquierdo del área libre de texto que rodea la forma especificada.

El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto.

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

DistanceRight

Devuelve o establece la distancia (en puntos) entre el texto del documento y el borde derecho del área libre de texto que rodea la forma especificada.

El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto.

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

DistanceTop

Devuelve o establece la distancia (en puntos) entre el texto del documento y el borde superior del área libre de texto que rodea la forma especificada.

El tamaño y la forma de la forma especificada, junto con los valores de las propiedades Type y Side del objeto WrapFormat, determinan el tamaño y la forma de esta área libre de texto.

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

Side

Devuelve o establece un valor que indica si el texto del documento debe ajustarse a ambos lados de la forma especificada, sólo a la izquierda o a la derecha, o bien en el lado de la forma más alejado del margen de la página. WdWrapSideTypede lectura y escritura. Posibles valores de retorno son wdWrapBoth - Ambos lados de la forma especificada, wdWrapLargest - Lado de la forma más alejado del margen de la página, wdWrapLeft - Sólo al lado izquierdo de la forma, wdWrapRight - Sólo al lado derecho de la forma.

Si el texto se ajusta sólo a un lado de la forma, habrá un área libre de texto entre el otro lado de la forma y el margen de la página.

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

Devuelve el tipo de ajuste de la forma especificada. Posibles valores de retorno son wdWrapBehind - Coloca la forma detrás del texto, wdWrapFront - Coloca la forma delante del texto, wdWrapInline - Coloca las formas en línea con el texto, wdWrapNone - Coloca la forma delante del texto, wdWrapSquare - El texto se ajusta alrededor de la forma, wdWrapThrough - El texto se ajusta alrededor de la forma, wdWrapTight - El texto se ajusta muy próximo a la forma, wdWrapTopBottom - Coloca el texto por encima y por debajo de la forma.

ActiveDocument.Background.WrapFormat.Type = wdWrapBehind