Propriedade Borders.DistanceFromTop (Word)

Retorna ou define o espaço (em pontos) entre o texto e a borda superior. Long de leitura/gravação.

Sintaxe

expression. DistanceFromTop

Expressão Uma variável que representa um objeto 'Borders'.

Comentários

Ao usar esta propriedade com uma borda de página, você pode definir o espaço entre o texto e a borda de página superior ou o espaço entre a borda superior da página e a borda de página superior. O valor da propriedade DistanceFrom determina de onde a distância é medida.

Exemplo

Este exemplo adiciona uma borda ao redor de cada parágrafo da seleção e define a distância entre o texto e a borda superior como 3 pontos.

With Selection.Borders 
 .Enable = True 
 .DistanceFromTop = 3 
End With

Este exemplo adiciona uma borda ao redor de cada página da primeira seção da seleção. O exemplo também define a distância entre o texto e a borda de página como 6 pontos.

Dim borderLoop As Border 
 
With Selection.Sections(1) 
 For Each borderLoop In .Borders 
 borderLoop.ArtStyle = wdArtSeattle 
 borderLoop.ArtWidth = 22 
 Next borderLoop 
 With .Borders 
 .DistanceFrom = wdBorderDistanceFromText 
 .DistanceFromTop = 6 
 .DistanceFromLeft = 6 
 .DistanceFromBottom = 6 
 .DistanceFromRight = 6 
 End With 
End With

Confira também

Objeto da coleção Borders

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.