Tablas anidadas
Publicado por Pedro Pablo (2 intervenciones) el 22/03/2022 14:04:46
Buen dia, Tengo una archivo de Word 2019, el cual tiene muchas Tablas y dentro de sus celdas tablas, y asi sucesivamente. Hasta 3 y 4 tablas anidadas. Existe la posibilidad de dar color a todos los bordes de las tablas y subtablas con vba
Uso esta macro que hice, pero no funciona con se espera, ya que cuando se anidan mas 2 tabla no funciona
De antemano les agradezco sus sugerencias.Gracias
Uso esta macro que hice, pero no funciona con se espera, ya que cuando se anidan mas 2 tabla no funciona
De antemano les agradezco sus sugerencias.Gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub ColorTablaAnidada2(control As IRibbonControl) 'TABLA DENTRO DE TABLA
Dim T As Table, Color As Byte, Colorear As Byte
Dim Cld As Cell
On Error GoTo 1
If ActiveDocument.Tables.Count >= 1 Then
On Error Resume Next
Color = InputBox("Escriba el Color segun el codigo: " & Chr(13) & _
"1 : Auto Negro" & Chr(13) & _
"2 : Azul Oscuro" & Chr(13) & _
"3 : Sepia" & Chr(13) & _
"4 : Te", "Color Fuente")
If Color = 0 Then Exit Sub
If Color = 1 Then Colorear = 0
If Color = 2 Then Colorear = 9
If Color = 3 Then Colorear = 13
If Color = 4 Then Colorear = 10
For Each T In ActiveDocument.Tables
For Each Cld In T.Range.Cells
If Cld.Range.Text <> vbCr & Chr(7) Then 'si la celsa no esta vacia
With Cld.Tables(1)
With .Borders()
.OutsideColorIndex = Colorear
.InsideColorIndex = Colorear
End With
End With
End If
Next
Next
End If
1: End Sub
Valora esta pregunta
0