Je suis n=E9ophyte dans l'=E9criture de marco sous word (mais pas sous
excel).
Mon probl=E8me est le suivant :
Dans un document qui contient n tableaux s=E9par=E9s par des paragraphes
, je suis amen=E9 =E0 effectuer pour chacun des tableaux, les op=E9rations
suivantes :
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tisane
Bonjour Bernard,
Je suis néophyte dans l'écriture de marco sous word (mais pas sous excel). Dans un document qui contient n tableaux séparés par des paragraphes je suis amené à effectuer pour chacun des tableaux, les opérations suivantes : - Supprimer systématiquement la 1er ligne, - rajouter à gauche 2 colonnes. Quelqu'un pourrait-il m'aider à rédiger cette macro. Ma version de Word est Standard edition 2003
Un début : tu peux démarrer en autoenregistrant les manipulations que tu as indiquées : - menu Outils | Macro | Nouvelle macro, etc. Il faudra ensuite nettoyer mais si tu connais les macros sous Excel, cela ne posera pas de problème. -- Tisane
Bonjour Bernard,
Je suis néophyte dans l'écriture de marco sous word (mais pas sous
excel).
Dans un document qui contient n tableaux séparés par des paragraphes
je suis amené à effectuer pour chacun des tableaux, les opérations
suivantes :
- Supprimer systématiquement la 1er ligne,
- rajouter à gauche 2 colonnes.
Quelqu'un pourrait-il m'aider à rédiger cette macro.
Ma version de Word est Standard edition 2003
Un début : tu peux démarrer en autoenregistrant les manipulations que tu as
indiquées :
- menu Outils | Macro | Nouvelle macro, etc.
Il faudra ensuite nettoyer mais si tu connais les macros sous Excel, cela ne
posera pas de problème.
--
Tisane
Je suis néophyte dans l'écriture de marco sous word (mais pas sous excel). Dans un document qui contient n tableaux séparés par des paragraphes je suis amené à effectuer pour chacun des tableaux, les opérations suivantes : - Supprimer systématiquement la 1er ligne, - rajouter à gauche 2 colonnes. Quelqu'un pourrait-il m'aider à rédiger cette macro. Ma version de Word est Standard edition 2003
Un début : tu peux démarrer en autoenregistrant les manipulations que tu as indiquées : - menu Outils | Macro | Nouvelle macro, etc. Il faudra ensuite nettoyer mais si tu connais les macros sous Excel, cela ne posera pas de problème. -- Tisane
Anacoluthe
Bonjour !
'bpu' nous a écrit ...
Dans un document qui contient n tableaux séparés par des paragraphes , je suis amené à effectuer pour chacun des tableaux, les opérations suivantes : - Supprimer systématiquement la 1er ligne, - rajouter à gauche 2 colonnes.
Essayez quelque chose comme ça :
Public Sub Tablo_bpu() Dim T As Table For Each T In ActiveDocument.Tables T.Rows(1).Delete T.Columns.Add BeforeColumn:=T.Columns(1) T.Columns.Add BeforeColumn:=T.Columns(1) T.AutoFitBehavior wdAutoFitWindow ' redimensionne le tableau Set T = Nothing Next T End Sub
C'est bon ?
Anacoluthe « Un tableau ne vit que par celui qui le regarde. » - Pablo PICASSO
Bonjour !
'bpu' nous a écrit ...
Dans un document qui contient n tableaux séparés par des paragraphes
, je suis amené à effectuer pour chacun des tableaux, les opérations
suivantes :
- Supprimer systématiquement la 1er ligne,
- rajouter à gauche 2 colonnes.
Essayez quelque chose comme ça :
Public Sub Tablo_bpu()
Dim T As Table
For Each T In ActiveDocument.Tables
T.Rows(1).Delete
T.Columns.Add BeforeColumn:=T.Columns(1)
T.Columns.Add BeforeColumn:=T.Columns(1)
T.AutoFitBehavior wdAutoFitWindow ' redimensionne le tableau
Set T = Nothing
Next T
End Sub
C'est bon ?
Anacoluthe
« Un tableau ne vit que par celui qui le regarde. »
- Pablo PICASSO
Dans un document qui contient n tableaux séparés par des paragraphes , je suis amené à effectuer pour chacun des tableaux, les opérations suivantes : - Supprimer systématiquement la 1er ligne, - rajouter à gauche 2 colonnes.
Essayez quelque chose comme ça :
Public Sub Tablo_bpu() Dim T As Table For Each T In ActiveDocument.Tables T.Rows(1).Delete T.Columns.Add BeforeColumn:=T.Columns(1) T.Columns.Add BeforeColumn:=T.Columns(1) T.AutoFitBehavior wdAutoFitWindow ' redimensionne le tableau Set T = Nothing Next T End Sub
C'est bon ?
Anacoluthe « Un tableau ne vit que par celui qui le regarde. » - Pablo PICASSO
Anacoluthe
Re !
Set T = Nothing Next T End Sub
Petite erreur pour puristes VBA : placez la ligne Set T = Nothing plutôt APRÈS la ligne Next T ça n'a pas beaucoup d'importance, c'est juste pour faire propre :-)
Anacoluthe « Un tableau ne vit que par celui qui le regarde. » - Pablo PICASSO
Re !
Set T = Nothing
Next T
End Sub
Petite erreur pour puristes VBA : placez la ligne
Set T = Nothing
plutôt APRÈS la ligne
Next T
ça n'a pas beaucoup d'importance, c'est juste pour faire propre :-)
Anacoluthe
« Un tableau ne vit que par celui qui le regarde. »
- Pablo PICASSO
Petite erreur pour puristes VBA : placez la ligne Set T = Nothing plutôt APRÈS la ligne Next T ça n'a pas beaucoup d'importance, c'est juste pour faire propre :-)
Anacoluthe « Un tableau ne vit que par celui qui le regarde. » - Pablo PICASSO
