Propriedade Borders.JoinBorders (Word)

True se as bordas verticais nas bordas dos parágrafos e tabelas forem removidas para que as bordas horizontais possam se conectar à borda da página. Boolean de leitura/gravação.

Sintaxe

expression. JoinBorders

Expressão Uma expressão que retorna um objeto 'Borders'.

Exemplo

Este exemplo adiciona uma borda ao redor de cada página da primeira seção da seleção. Este exemplo também remove as bordas horizontais nas bordas das tabelas e dos parágrafos, conectando assim as bordas horizontais à borda da página.

Dim borderLoop As Border 
 
With Selection.Sections(1) 
 For Each borderLoop In .Borders 
 borderLoop.ArtStyle = wdArtBalloonsHotAir 
 borderLoop.ArtWidth = 15 
 Next borderLoop 
 With .Borders 
 .DistanceFromLeft = 2 
 .DistanceFromRight = 2 
 .DistanceFrom = wdBorderDistanceFromText 
 .JoinBorders = True 
 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.