Compartilhar via


Propriedade Borders.DistanceFrom (Word)

Retorna ou define um valor que indica se a borda da página especificada é medida da borda da página ou do texto ao redor. Leitura/gravação WdBorderDistanceFrom.

Sintaxe

expression. DistanceFrom

expression é obrigatório. Uma variável que representa uma coleção 'Borders'.

Exemplo

Este exemplo adiciona uma borda simples ao redor de cada página da seção um do documento ativo e define a distância entre cada borda e a borda correspondente da página.

Dim borderLoop As Border 
 
With ActiveDocument.Sections(1) 
 For Each borderLoop In .Borders 
 borderLoop.LineStyle = wdLineStyleSingle 
 borderLoop.LineWidth = wdLineWidth050pt 
 Next borderLoop 
 With .Borders 
 .DistanceFrom = wdBorderDistanceFromPageEdge 
 .DistanceFromTop = 20 
 .DistanceFromLeft = 22 
 .DistanceFromBottom = 20 
 .DistanceFromRight = 22 
 End With 
End With

Este exemplo adiciona uma borda ao redor de cada página da primeira seção da seleção e define a distância entre o texto e a borda da 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.