Como alterar o PREENCHIMENTO o e CONTORNO de Caixas de Texto no WORD de uma só vez
Pessoal,
Segue o código para alteração do PREENCHIMENTO o e CONTORNO das Caixas de Textos no WORD de uma vez só:
Sub EditTextBoxFill()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoTextBox Then
shp.Fill.ForeColor.RGB = RGB(180, 180, 180) 'Altera a cor do preenchimento da caixa de texto inserindo o código RGB
shp.Fill.Solid
End If
Next
End Sub
Sub EditTextBoxOutline()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoTextBox Then
shp.Line.ForeColor.RGB = RGB(0, 0, 0) 'Altera a cor da linha de contorno inserindo o código RGB
shp.Line.Weight = 1 'Altera a esperessura da linha
End If
Next
End Sub