Modifier la position des légendes (au-dessus/sous)

Question

Bonjour,

J'ai un document de 200 pages dans lequel j'ai inséré les légendes de mes tableaux sous les tableaux. Je voudrais modifier les positions de toutes ces légendes pour les faire basculer au-dessus de tous mes tableaux et ce de façon automatique, sans avoir à le faire manuellement. C'est possible ?

Je précise que j'ai essayé de cliquer sur la légende, puis "insérer une légende" pour modifier la position mais je n'ai plus la possibilité de modifier la position (cf photo) :

Merci

Answer 1

Bonjour, Bonjour Bernard ;)

Effectivement, ce n'est pas aussi simple. 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 vous pouvez le constater, même sans macro, 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 legende()

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

Lance la macro sur une copie de ton document.

Circé

Answer 2

C'est ce que je craignais .... Tant-pis, je laisse comme ça !

Je vous remercie pour votre retour

Answer 3

Pour modifier "de façon automatique" les légendes, il faut recourir à une macro. Ce qui demande un certain savoir-faire. Tu peux t'inspirer des indications données sur cette page de la FAQ Word de l'amie Circé.