在下面的代码中： 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
这对我有用
Dim myRange As Word.Range
Set myRange = adWrdTbl.Range
myRange.Collapse direction:=wdCollapseEnd
myRange.FormattedText = mWrdTbl.Range.Rows(R).Range.FormattedText
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句