从word文档的表格中复制一行，并将其粘贴到另一个word文档的表格末尾

Question

在以下代码中:mWrdTbl是一个对象，包含第一个word文档的表adWrdTbl是一个对象，包含第二个word文档的表(两个文件都打开了)

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

代码工作，但行粘贴在表的顶部(我需要它在结束)

编辑:

我找到了一个解决方案(但我不满意):

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