Insertion d'une ligne dans une table Word avec Excel VBA

Question

J'ai écrit un programme pour migrer un ensemble de données d'Excel vers Word. Le problème est que le format de la forme dans le mot doit être entré dans un nouveau fichier dans un format très spécifique, avec de nouvelles lignes étant insérées dans les données de ligne. En d'autres termes, j'ai des informations qui sont actuellement maintenues dans la colonne deux pour chaque ligne dans Excel, qui doit maintenant être déplacé dans une seule ligne dans la feuille que je résous ceci en ajoutant une rangée après que la table soit créée en mot et puis les fusionner, mais le code que j'ai trouvé continue de produire l'erreur d'exécution 4120 Mauvais paramètre. Je devine que le code que j'utilise est réellement pour l'usage dans le mot pas d'Excel. Toute aide sur le bon code serait appréciée.

If section1 = True Then 
    'wdDoc.Tables(1).Rows.Add BeforeRow:=.Rows(2) 
    wdDoc.Tables.Rows.Add (2) 
    With wdDoc.Tables(1) 
     .Cell(Row:=2, Column:=2).Merge _ 
     MergeTo:=.Cell(Row:=2, Column:=10) 
     .Borders.Enable = False 
     wdDoc.Tables(1).Cell(2, 2).Range.Text = "Section I - Authorized Ship Changes" 
    End With 
Else 
End If 

Answer 1

Dans cette ligne de code:

wdDoc.Tables.Rows.Add (2) 

l'argument de la méthode Add doit être un objet . Donc, quelque chose comme:

wdDoc.Tables.Rows.Add wdDoc.Tables.Rows(2) 

ajoutera une nouvelle ligne avant la ligne 2. espoir qui aide.