从一个 word 文档的 table 复制行并将其粘贴到另一个 word 文档的 table 的末尾

Question

在下面的代码中： mWrdTbl 是一个包含第一个 word 文档的 table 的对象 adWrdTbl 是包含第 2 个 word 文档的 table 的对象（两个文件都打开了）

mWrdTbl.Rows(R).Range.Copy
adWrdTbl.Range.PasteAppendTable

代码有效，但该行粘贴在 table 的顶部（我需要它在末尾）

编辑：

我找到了解决方法（但我不满意）：

mWrdTbl.Rows(R).Range.Copy
adWrdTbl.Rows.Add
adWrdTbl.Rows.Add
adWrdTbl.Rows(adWrdTbl.Rows.Count - 1).Range.PasteAppendTable
adWrdTbl.Rows(adWrdTbl.Rows.Count).Delete
adWrdTbl.Rows(adWrdTbl.Rows.Count).Delete

Answer 1

这对我有用

Dim myRange As Word.Range
Set myRange = adWrdTbl.Range
myRange.Collapse direction:=wdCollapseEnd
myRange.FormattedText = mWrdTbl.Range.Rows(R).Range.FormattedText

从一个 word 文档的 table 复制行并将其粘贴到另一个 word 文档的 table 的末尾

Copy row from a table of a word document and paste it to the end of a table in another word document

vba

ms-word