Classe WrapFormat (Word VBA)

A classe WrapFormat representa todas as propriedades para quebra de texto ao redor de uma forma ou de um intervalo de formas. Para usar uma variável de classe WrapFormat, ela primeiro precisa ser instanciada por exemplo

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

AllowOverlap

Retorna ou define um valor que especifica se uma determinada forma pode sobrepor-se a outras formas. Long de leitura/gravação.

Essa propriedade pode ser definida como True ou False. Como o HTML não oferece suporte a tabelas ou formas sobrepostas, AllowOverlap é ignorado no modo de exibição de layout da Web.

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

DistanceBottom

Retorna ou define a distância em pontos entre o texto do documento e a borda inferior da área livre de texto ao redor da forma especificada. Somente leitura/gravação.

O tamanho e a forma da forma especificada, juntamente com os valores das propriedades Type e Side do objeto WrapFormat, determinam o tamanho e a forma desta área livre de texto.

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

DistanceLeft

Retorna ou define a distância em pontos entre o texto do documento e a borda esquerda da área livre de texto ao redor da forma especificada. Leitura/gravação única.

O tamanho e a forma da forma especificada, juntamente com os valores das propriedades Type e Side do objeto WrapFormat, determinam o tamanho e a forma desta área livre de texto.

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

DistanceRight

Retorna ou define a distância em pontos entre o texto do documento e a borda direita da área livre de texto ao redor da forma especificada. Leitura/gravação único.

O tamanho e a forma da forma especificada, juntamente com os valores das propriedades Type e Side do objeto WrapFormat, determinam o tamanho e a forma desta área livre de texto.

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

DistanceTop

Retorna ou define a distância em pontos entre o texto do documento e a borda superior da área livre de texto ao redor da forma especificada. Leitura/gravação única.

O tamanho e a forma da forma especificada, juntamente com os valores das propriedades Type e Side do objeto WrapFormat, determinam o tamanho e a forma desta área livre de texto.

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

Side

Retorna ou define um valor que indica se o texto do documento deve ser quebrado em ambos os lados da forma especificada, somente no lado esquerdo ou direito ou no lado da forma que está mais longe da margem da página. Leitura/gravação WdWrapSideType. Os valores de retorno possíveis são wdWrapBoth - Ambos os lados da forma especificada, wdWrapLargest - Lado da forma que está mais longe da margem da página, wdWrapLeft - Lado esquerdo da forma somente, wdWrapRight - Lado direito da forma somente.

Se o texto for disposto apenas em um lado da forma, haverá uma área livre de texto entre o outro lado da forma e a margem da 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

Retorna o tipo de disposição de texto da forma especificada. Leitura/gravação WdWrapType. Os valores de retorno possíveis são wdWrapBehind - Posiciona a forma atrás do texto, wdWrapFront - Posiciona a forma em frente ao texto, wdWrapInline - Posiciona formas embutidas com o texto, wdWrapNone - Posiciona a forma em frente ao texto. Confira também wdWrapFront, wdWrapSquare - Distribui o texto em volta da forma. A continuação de linha está no lado oposto da forma, wdWrapThrough - Distribui o texto em volta da forma, wdWrapTight - Distribui o texto junto à forma, wdWrapTopBottom - Posiciona o texto acima e abaixo da forma.

ActiveDocument.Background.WrapFormat.Type = wdWrapBehind