0

我创建了包含其他内容控件的重复部分 Rontent 控件 (RSCC)的 Word 模板。我也有 excel 工作簿，其中包含应该转到提到的 Word 模板的信息。我想做的事情是创建宏，它将用 Excel 工作簿中选定行的信息（每一行到新的 RSCC 部分）填充 Word 模板。

我非常清楚如何做到这一点，除了一件事 - 我无法弄清楚如何编写宏来将另一个部分添加到Repeating Section Content Control。

我正在添加我正在尝试做的事情的插图：

例子

问题是，我找不到用 VBA 做同样事情的代码。我试过录制过程，但录制的宏是空的（？！）。

寻找答案我在 StackOverflow 中找到了这个线程，它向我提出了类似的问题，但我的理解或多或少没有回答。此线程中的评论已转发到Microsoft 论坛中的旧线程，但我没有找到解决此问题的方法（或者至少我不清楚我应该如何处理它）。

由于一个线程快 5 岁，另一个 2 岁。我的问题是甚至可以使用 VBA 向 RSCC 添加另一个部分吗？也许有人在过去一年左右找到了这样做的方法？

4

1 回答 1

2

Word 对象模型具有用于重复部分内容控件的集合和对象：RepeatingSectionItems和RepeatingSectionItem. 后者有两种插入方法，在 . 之前或之后插入RepeatingSectionItem。

下面的示例展示了如何引用文档中的重复部分内容控件、获取第一项或最后一项并在其后插入一个新项。

Sub AddRepeatingSection()
    Dim cc As Word.ContentControl
    Dim repCC As Word.RepeatingSectionItem

    Set cc = ActiveDocument.SelectContentControlsByTitle("RepCC").Item(1)
    Set repCC = cc.RepeatingSectionItems.Item(1)
    'Or to get the last one:
    'Set repCC = cc.RepeatingSectionItems.Item(cc.RepeatingSectionItems.Count)
    repCC.InsertItemAfter        
End Sub
于 2018-12-21T12:38:16.013 回答