Macro impression sur word avec contrôle activeX

Bonsoir,

Ce que tu peux faire par macro, c'est mettre les tableaux en question au format masqué. Pour les réafficher et donc pouvoir cliquer sur le bouton d'option Non, il faudra d'abord afficher les caractères masqués si ce n'est pas fait.
Pour l'impression, par défaut, le texte masqué n'est pas imprimé.

Exemple :

Private Sub OptionButton1_Change()
Dim tablo As Table
Set tablo = Selection.Tables(1)
tablo.Select
If OptionButton1 Then
Selection.Font.Hidden = True
Else: Selection.Font.Hidden = False
End If
End Sub

Pour mettre le code, tu te mets en Mode Création, et tu double-cliques sur le bouton d'option 1.

m@rina

Bonjour et merci m@rina.

Cela marche très bien, par contre j'ai plusieurs tableaux d'affilé séparés par un saut de ligne. Comme j'applique la macro à chaque tableau, le saut de ligne séparant les différents tableaux restent et décale donc tout le contenu. J'ai essayé d'insérer une ou deux lignes à votre macro mais sans succès. Pouvez vous m'aider ?

Ps : je suis sur word 2013

Bonsoir,

Désolée, j'avais lu en diagonale pour le saut... de page !

Essaie ceci :

Private Sub OptionButton1_Change()
Dim tablo As Table
Set tablo = Selection.Tables(1)
tablo.Select
With Selection
.Extend
.MoveDown unit:=wdLine, Count:=1
End With
If OptionButton1 Then
Selection.Font.Hidden = True
Else: Selection.Font.Hidden = False
End If
Selection.Collapse
End Sub
 

m@rina