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
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.