placement curseur en vba word Fermé

Question

Salut, 
Je cherche à copier coller un tableau word en vba (depuis excel)
Le tableau se trouve en milieu de document (dans l'exemple tables(5))
Je n'arrive pas à trouver les instructions pour placer mon point d'insertion juste après le tableau (avec un saut de ligne entre les deux) afin d'y coller sa copie.
Je commence à désespérer.

Merci pour votre aide.

Dim MonDocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
Set MonDocWord = AppWord.Documents.Open("path to file.doc", ReadOnly:=False)
   
MonDocWord.Tables(5).Select
MonDocWord.Selection.Copy

-->ici je souhaite faire :
decaler le point d'insertion après le tableau 
sauter une ligne.
coller le tableau

m@rina · Answer

Bonjour Kassper

Si j'ai bien compris tu veux coller ton tableau après le tableau 5 ??

MonDocWord.Tables(5).Select 

With Selection
    .MoveDown Unit:=wdLine, Count:=1    'descend d'une ligne
    .InsertParagraphAfter                            'insère un retour paragraphe
    .Paste                                                            'colle le contenu du presse papier
End With

m@rina

Placement curseur en vba word

1 réponse