Classe Border - borda (Word VBA)
A classe Border representa uma borda de um objeto. Objeto Border é um membro das bordas coleção. Para usar uma variável de classe Border, ela primeiro precisa ser instanciada por exemplo
Dim brd as Border
Set brd = Selection.Borders(Index:=1)
For Each
Aqui está um exemplo de processamento dos itens Border em uma coleção.
Dim brd As Border
For Each brd In Selection.Borders
If brd.Inside = True Then brd.LineStyle = wdLineStyleSingle
Next brd
ArtStyle
Retorna ou define o design de borda gráfica de página para um documento. Leitura/gravação WdPageBorderArt. Aqui você pode encontrar os valores possíveis para
Selection.Borders(1).ArtStyle = wdArtApples
ArtWidth
Retorna ou define a largura em pontos da borda gráfica de página especificado. Long de leitura/gravação.
Dim borderLoop As Border
For Each borderLoop In Selection.Sections(1).Borders
With borderLoop
.ArtStyle = wdArtBasicBlackDots
.ArtWidth = 6
End With
Next borderLoop
Color
Retorna ou define a cor de 24 bits do objeto Border especificado. Aqui você pode encontrar os valores possíveis para
Essa propriedade pode ser qualquer constante WdColor válida ou um valor retornado pela função RGB do Visual Basic.
If ActiveDocument.Tables.Count >= 1 Then
For Each aBorder In ActiveDocument.Tables(1).Borders
aBorder.Color = wdColorIndigo
aBorder.LineStyle = wdLineStyleDashDot
aBorder.LineWidth = wdLineWidth075pt
Next aBorder
End If
ColorIndex
Retorna ou define a cor do objeto de fonte ou borda especificado. Leitura/gravação WdColorIndex. Aqui você pode encontrar os valores possíveis para
A constante wdByAuthor não é válida para objetos de fonte e borda.
Dim borderLoop As Border
If ActiveDocument.Tables.Count >= 1 Then
For Each borderLoop In ActiveDocument.Tables(1).Borders
With borderLoop
.ColorIndex = wdRed
.LineStyle = wdLineStyleDashDot
.LineWidth = wdLineWidth075pt
End With
Next borderLoop
End If
Inside
True se um inside borda pode ser aplicada ao objeto especificado. Somente leitura booleano.
Dim borderLoop As Border
For Each borderLoop In Selection.Borders
If borderLoop.Inside = True Then _
borderLoop.LineStyle = wdLineStyleSingle
Next borderLoop
LineStyle
Retorna ou define o estilo de linha da borda para o objeto especificado. Leitura/gravação WdLineStyle. Aqui você pode encontrar os valores possíveis para
A definição da propriedade LineStyle para um intervalo que se refere a caracteres individuais ou palavras aplica uma borda de caractere. Configuração da propriedade LineStyle para um parágrafo ou intervalo de parágrafos aplica uma borda de parágrafo. Use a propriedade InsideLineStyle para aplicar uma borda entre parágrafos consecutivos. Configuração da propriedade LineStyle para uma seção aplica uma borda de página ao redor das páginas da seção.
With Selection.Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
End With
LineWidth
Retorna ou define a largura da linha da borda de um objeto. Leitura/gravação. Aqui você pode encontrar os valores possíveis para
Retorna uma constante WdLineWidth ou wdUndefined se o objeto não tiver bordas ou se tiver bordas com mais de uma largura de linha. Se a largura da linha especificada não estiver disponível para o estilo de linha da borda, essa propriedade gerará um erro. Para determinar as larguras de linha disponíveis para um determinado estilo de linha, consulte a caixa de diálogo Bordas e Sombreamento (menu Formatar).
If ActiveDocument.Tables.Count >= 1 Then
With ActiveDocument.Tables(1).Rows(1).Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
End With
End If
Visible
True se o objeto especificado é visível. Boolean de leitura/gravação.
Para qualquer objeto, alguns métodos e propriedades poderão não estar disponíveis se a propriedade Visible for False.
Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=12, NumColumns:=5)
For Each aBorder In myTable.Borders
aBorder.Visible = False
Next aBorder