VBA自动化生成Word文档时如何在表格后插入空白行

问题描述 #

我有一款Access应用，可通过VBA自动化方式生成Word文档，需求是在单页Word文档内写入一组相互独立的小型表格。
此前我通过VBA生成独立表格时，仅找到使用分页符分隔表格的方法。写入第一个表格后，我尝试运行如下代码：

With Wrd.Selection
  .EndKey wdStory
  .InsertAfter vbNewLine

  .TgtDoc.Tables.Add ...

实际运行出现两类不符合预期的情况：

• 直接使用上述代码插入vbNewLine时，第二个表格会直接嵌入第一个表格内部，无法形成独立表格
• 如果将.InsertAfter vbNewLine替换为.InsertBreak wdPageBreak，虽能生成独立表格，但表格会被分到不同页面，违背单页放置多表格的需求

请问是否有方法可以在表格后插入空白行，实现同页独立表格的效果？

可行解决方案 #

发布问题数分钟后我找到了解决方案，使用如下命令即可实现需求：

.EndKey wdStory
.InsertBreak wdLineBreak

操作逻辑是先将光标定位到文档最末尾，插入软换行符，此时再新增表格就不会嵌入前序表格，也不会触发分页，可在同一页面生成多个互相独立的小型表格。

内容的提问来源于stack exchange，提问作者Doug Kimzey