如何从VB.Net 将光标设置在Word 文档的末尾？

Question

我正在 Copy/Paste for tables 从 word 文档到另一个 Word 文档，通过 VB.Net，但它要么在中间保留两行，要么合并 table .

我正在使用 VB.Net 自动化 Word 文档，我正在从一个 word 文档中复制一个格式化的 table，然后将其粘贴到另一个 word 文档中。

这里的问题是我必须在新粘贴的 table 和之前粘贴的那个之间放一个 "separater" ，否则 word 会合并两者（并且会不断合并每一个新粘贴的table).

我试着在粘贴之前把这段代码放上去

oWord.Selection.MoveDown(Word.WdUnits.wdLine, 0)
oWord.Selection.InsertBreak(Word.WdBreakType.wdLineBreak)
oWord.Selection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault)

它工作正常，但它放了两行而不是一行。

如果有人给我一种方法让粘贴（或什至添加新的段落）始终保持在文档的末尾（只有一个线宽分隔），我将不胜感激

Answer 1

我得到了一个非常可接受的解决方案

而不是使用

oWord.Selection.MoveDown(Word.WdUnits.wdLine, 0)
oWord.Selection.InsertBreak(Word.WdBreakType.wdLineBreak)
oWord.Selection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault)

为了插入一个中断，我使用了下面的代码，它完美地工作了

With oWord.Selection
    .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseStart)
    .InsertParagraph()
    .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseEnd)
End With

希望这对遇到同样问题的人有用

如何从VB.Net 将光标设置在Word 文档的末尾？

How to set curser at the end of Word Document from VB.Net?

vb.net

ms-word

copy-paste