ocultar celdas con vba en word
Publicado por estiven12121 (1 intervención) el 03/11/2016 21:35:54
tengo varias tablas en word 2010 con 2 botones configurados con macros en VBA uno sirve para que me oculte las tablas a las que les ponga un sombreado de un color y el otro para que me vuelva a mostrar las tablas ocultas,pero necesito cambiarlo para que en lugar de que me oculte las tablas con ese sombreado, me oculte las filas o celdas a las que les ponga el sombreado con ese color (el numero del color es "-671023309")
aquí les dejo el código porque no se como cambiarlo de tablas a filas o celdas
aquí les dejo el código porque no se como cambiarlo de tablas a filas o celdas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub OptionButton31_Click()
'este boton muestra las tablas
Tablas = ActiveDocument.Tables.Count
N = 1Do
ActiveDocument.Tables(N).Range.Font.Hidden = False
N = N + 1
Loop While N <= Tablas
Call mostrarcomentario
End Sub
Private Sub OptionButton41_Click()
'este boton oculta las tablas
Tablas = ActiveDocument.Tables.Count
N = 1Do
If ActiveDocument.Tables(N).Shading.BackgroundPatternColor = -671023309 Then
ActiveDocument.Tables(N).Range.Font.Hidden = True
End If
N = N + 1
Loop While N <= Tablas
Call ocultarcomentario
End Sub
Valora esta pregunta
0