为文档中的所有标题表添加标题

Question

我有一个Word文档（有很多页面，它是使用SAS生成的）。

• doucument包含许多表格/图表。
• 每个表格/图表都在新页面中开始（有些表格会扩展到1页以上）。
• 有些桌子/地块的底部有脚注。
• 每张桌子/地块都有一个描述其内容的标题（如“治疗小组的性别频率分布”）。

我要做的是编写一个VBA代码：

1. 为所有标题添加标题（因此它看起来像“表1治疗组性别频率分布”）：

   

2. 更改标题字体（name =“Times New Roman”/ size = 12 / bold = True）

3. 在每个表格/图表的底部创建一个空行，其中style =“Normal-text”。

主要问题（目前..）是如何选择标题，找不到选择每个页面中第一行/段落的方法（更不用说有些表格扩展到更多然后1页）。
我看到的每个地方都解释了文档中的第一行/段。

Answer 1

我认为一个好的开始就是熟悉Word中的Table对象。如果SAS生成的表是Word表，那么您可能需要设置一个循环来遍历文档中的所有表。然后，您可以更改循环中每个表所描述的属性。

Table Object (Word)