Macro impression sur word avec contrôle activeX
Résolu/Fermé
A voir également:
- Macro impression sur word avec contrôle activeX
- Spouleur d'impression - Guide
- Macro word - Guide
- Comment supprimer une page sur word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
3 réponses
m@rina
Messages postés
21200
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 décembre 2024
11 370
15 déc. 2015 à 02:00
15 déc. 2015 à 02:00
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
m@rina
Messages postés
21200
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 décembre 2024
11 370
16 déc. 2015 à 14:21
16 déc. 2015 à 14:21
Bonjour,
ça se complique ! Est-ce que tous les tableaux sont suivis d'un saut de page ? et est-ce que le saut de page suit directement le tableau sans autre retour paragraphe ?
m@rina
ça se complique ! Est-ce que tous les tableaux sont suivis d'un saut de page ? et est-ce que le saut de page suit directement le tableau sans autre retour paragraphe ?
m@rina
m@rina
Messages postés
21200
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 décembre 2024
11 370
16 déc. 2015 à 19:16
16 déc. 2015 à 19:16
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