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

Question

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

• 该文档包含许多表格/图表。
• 每个表格/图表都从一个新页面开始（有些表格扩展到超过 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)