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