复制表，使用VBA

Question

我用这个代码表从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 

但是表被粘贴到文档中的第一行从Excel到Word指定其位置，我想要将表格粘贴到文档中间的特定位置，我应该如何修改此代码？

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 

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