Bonjour,
Mes péripéties continuent, cependant je me débrouille de plus en plus seul.
Je voudrais créer un raccourci clavier qui me permettrait de rajouter une ligne au tableau courant.
Cette ligne existe dans un tableau d'exemple en début de document, je l'ai donc affublé du signet "TableAno".
N'arrivant pas à conserver la mise en forme lors de l'ajout de la ligne, j'ai donc tenter autre chose, via l'enregistrement de macro, pour splitter le tableau à l'endroit voulu, ajouter la ligne qui conserve sa mise en forme, puis enlever les espacements entre les tableaux pour n'en garder qu'un, voici ce que ca donne :
Le problème, c'est que la ligne ajoutée, s'ajoute au DESSUS de la ligne sélectionnée, et du coup pour la dernière ligne, ca ne fonctionne pas ( car on ne peut pas splitter le tableau sur la dernière ligne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub Insert_Ano() ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="TamponMacro2" Selection.GoTo What:=wdGoToBookmark, Name:="TableAno" Selection.Find.ClearFormatting Selection.Copy If ActiveDocument.Bookmarks.Exists("TamponMacro2") = True Then Selection.GoTo What:=wdGoToBookmark, Name:="TamponMacro2" Selection.SplitTable Selection.TypeParagraph Selection.TypeParagraph Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Paste Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 If ActiveDocument.Bookmarks.Exists("TamponMacro2") = True Then ActiveDocument.Bookmarks("TamponMacro2").Delete End Sub
Ce que j'aimerais, c'est qu'en me positionnant sur la ligne voulu, je puisse ajouter une ligne juste en dessous, scrupuleusement identique (format/texte) à ma ligne source, comprise dans le Bookmark TableAno.
Existe-t-il un type de commande d'insertion qui permettrait de conserver la mise en forme de la ligne source ?
En vous remerciant par avance !
Partager