复制一个表，使用vba指定从excel到word的位置

我用这个代码复制表格从Excel到Word

Sub exceltoword() Dim rangeToCopy As Range Set rangeToCopy = Range("A1").CurrentRegion Dim wordApp As Word.Application Set wordApp = New Word.Application wordApp.Visible = True Dim wordDoc As Word.Document Set wordDoc = wordApp.Documents.Open("C:\Users\mohammad.taha\AppData\Roaming\Microsoft\Templates\ARABBANK -SALARIES STATEMENT.dotx") wordDoc.Application.Selection.Find.Text = "H" wordDoc.Application.Selection.Find.Execute wordDoc.Application.Selection.MoveDown Unit:=wdLine rangeToCopy.Copy wordDoc.Words(1).PasteExcelTable False, False, False End Sub 

但是表格被粘贴到文档的第一行，我想将表格粘贴到文档中间的特定位置，我应该如何修改这个代码？

Answer 1

尝试使用下面的代码：

 Sub exceltoword() Dim rangeToCopy As Range Set rangeToCopy = Range("A1").CurrentRegion Dim wordApp As Word.Application Set wordApp = New Word.Application wordApp.Visible = True Dim wordDoc As Word.Document Set wordDoc = wordApp.Documents.Open("C:\Users\mohammad.taha\AppData\Roaming\Microsoft\Templates\ARABBANK -SALARIES STATEMENT.dotx") wordDoc.Application.Selection.Find.Execute "H" wordApp.Selection.MoveRight Unit:=wdCharacter, Count:=1 wordApp.Selection.TypeParagraph wordApp.Selection.TypeParagraph rangeToCopy.Copy wordApp.Selection.PasteExcelTable False, False, False End Sub 

我已经添加了两个段落。 如果在你的模板中看起来不太好，你可以删除它。