Vous avez inséré des légendes à vos tableaux, sous chaque tableau. Et maintenant vous souhaitez mettre les légendes au-dessus du tableau.
Ce n'est pas aussi simple car il faut savoir que les légendes, malgré ce qu'on pourrait croire, n'ont aucun lien avec l'objet légendé, ce qui est bien dommage. Cela signifie que vous pouvez déplacer la légende n'importe où dans le document, et Word ne vous en voudra pas !!
Ce qui fait que ça complique, car, une fois la légende insérée, elle n'a plus d'option.
Voici une macro qui va changer la place de la légende pour la mettre au-dessus du tableau :
Sub legende2()
For Each tableau In ActiveDocument.Tables
tableau.Rows.Last.Select
Selection.MoveDown Unit:=wdLine, Count:=1
If Selection.ParagraphFormat.Style = "Légende" Then
With Selection
.Paragraphs(1).Range.Cut
.InsertParagraph
End With
End If
tableau.Rows.First.Select
Selection.SplitTable
With Selection
.Paste
.Delete Unit:=wdCharacter, Count:=1
End With
Next
End Sub
For Each tableau In ActiveDocument.Tables
tableau.Rows.Last.Select
Selection.MoveDown Unit:=wdLine, Count:=1
If Selection.ParagraphFormat.Style = "Légende" Then
With Selection
.Paragraphs(1).Range.Cut
.InsertParagraph
End With
End If
tableau.Rows.First.Select
Selection.SplitTable
With Selection
.Paste
.Delete Unit:=wdCharacter, Count:=1
End With
Next
End Sub
