Word VBA word : dupliquer paragraphe à la suite.

[dionys0s]

Bonjour le forum,

je me débrouille en VBA côté Excel mais je suis une buse totale dans Word. Je souhaiterais savoir comment copier coller un paragraphe entier (dont je connais l'index) et le coller à la suite (juste en dessous donc).

D'avance merci pour votre aide !

 

[dionys0s]

Re,

j'ai continué de chercher et j'ai trouvé une manière de faire que je soumets :

Sub DuplicateParagraph(ByRef Document As Word.Document, ByVal ParagraphIndex As Long)

  With Document
    Call .Paragraphs(ParagraphIndex).Range.Copy
    If ParagraphIndex < Document.Paragraphs.Count Then
      Call .Paragraphs.Add(.Paragraphs(ParagraphIndex + 1).Range)
      Call .Paragraphs(ParagraphIndex + 1).Range.Paste
    Else
      Call .Paragraphs.Add
      Call .Paragraphs(.Paragraphs.Count).Range.Paste
    End If
  End With

End Sub

Je ne sais pas si c'est là la manière optimale de faire, donc si vous avez mieux, je suis preneur !

Bonne journée.