VBA-复制粘贴Word表格而不合并

Question

我目前正在进行一些自动化操作。通过这个过程，我遇到了一个问题。使用VBA，我需要复制一些表，并将它们粘贴到特定的位置。

Thoses是我做这件事的问题：

1. 如何将它们依次粘贴？就像我有两个表A和B，我想要模式A B A B A重复

2. 这样做，如何使它们不自动合并？

这是我试图制作的小样本：

Private Sub CommandButton1_Click()
Dim n_copies As Integer
n_copies = 2
On Error GoTo close_file
Set WordApp = CreateObject("word.Application")
Set WordDoc = WordApp.documents.Open("copypaste.docx", ReadOnly = False)
For i = 1 To n_copies
WordDoc.bookmarks("copy").Range.Copy
WordDoc.bookmarks("paste").Range.Paste
Next i
WordDoc.SaveAs "testcpypaste.docx"
WordDoc.Close savechanges:=False
End Sub
close_file:
WordDoc.Close savechanges:=False
MsgBox Err.Description
End Sub

非常感谢您的帮助

Answer 1

使用VBA与使用UI没有什么不同——您需要在每个表之间添加一段。

WordDoc.Bookmarks("copy").Range.Copy
Dim i As Integer
With WordDoc.Bookmarks("paste").Range
For i = 1 To n_copies
.InsertParagraph
.paste
.Collapse wdCollapseStart
.Move wdCharacter, -1
Next i
End With