Macro impression sur word avec contrôle activeX
Résolu
setenza
-
setenza -
setenza -
Bonjour,
J'ai inséré des contrôles activex "cases d'option" dans un formulaire à remplir. Ces contrôles sont dans différents tableaux. J'aimerais que les tableaux en question s'affiche à l'impression si je clique sur Oui, et qu'il ne s'affiche pas si je clique sur Non. Comment faire avec une macro par exemple ?
J'ai inséré des contrôles activex "cases d'option" dans un formulaire à remplir. Ces contrôles sont dans différents tableaux. J'aimerais que les tableaux en question s'affiche à l'impression si je clique sur Oui, et qu'il ne s'affiche pas si je clique sur Non. Comment faire avec une macro par exemple ?
A voir également:
- Macro impression sur word avec contrôle activeX
- Spouleur d'impression - Guide
- Word 2013 - Télécharger - Traitement de texte
- Comment supprimer une page sur word - Guide
- Tableau word - Guide
- Espace insécable word - Guide
3 réponses
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 :
Pour mettre le code, tu te mets en Mode Création, et tu double-cliques sur le bouton d'option 1.
m@rina
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
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 :
m@rina
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