VBA - 复制粘贴字表而不合并

Question

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

这些是我这样做的问题：

1. 如何一个接一个地粘贴它们？ 就像我有两张表 A 和 B 一样，我希望模式 ABA' B' A'' B'' 重复

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