Sélectionner les x derniers paragraphes d'un document Word [Résolu]

[Jerfa]

Bonsoir,

je débute et vous remercie vivement de l'aide déjà apportée (et de votre compréhension ! )...

Je cherche à sélectionner par une macro les x derniers paragraphes d'un document Word quelconque.

J'ai trouvé ceci, dans l'aide, pour sélectionner les x premiers :

Code :

1
2
3
4
5
6
7
 Sub SelectRange()
    Dim rngParagraphs As Range
    Set rngParagraphs = ActiveDocument.Range( _
        Start:=ActiveDocument.Paragraphs(1).Range.Start, _
        End:=ActiveDocument.Paragraphs(x).Range.End)
    rngParagraphs.Select
End Sub

Mais euh... pour les x derniers, je sèche !
Merci d'avance à qui saura m'éclairer.

Bonne soirée.

[SilkyRoad]

bonsoir

tu peux essayer

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub SelectRange()
    Dim rngParagraphs As Range
    Dim x As Integer, Y As Integer
 
    'Nombre total de paragraphes dans le document
    x = ActiveDocument.Paragraphs.Count
 
    'nombre de paragraphes a selectionner  à partir
    'de la fin
    Y = 5
 
    Set rngParagraphs = ActiveDocument.Range( _
        Start:=ActiveDocument.Paragraphs(x - Y).Range.Start, _
        End:=ActiveDocument.Paragraphs(x).Range.End)
 
    rngParagraphs.Select
End Sub

bonne soiree
michel

[Jerfa]

Merci beaucoup, SilkyRoad, ça marche très bien !

Et bonne soirée à toi.