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

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

• 文件包含许多表格/绘图
• 每个表格/绘图都从一个新页面开始（有些表格扩展到超过一页）
• 一些表格/图表底部有脚注
• 每个表/图都有一个描述其内容的标题（如“治疗组的性别频率分布”）

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

在所有标题中添加标题（因此看起来像“表1按治疗组划分的性别频率分布”）：

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

在每个表格/绘图的底部创建一条带有style=“Normal text”的空行

目前的主要问题是如何选择标题，无法在每个页面中选择第一行/段落（更不用说一些表格扩展到超过1页）。

---

我看的每一个地方都有关于文档中第一行/段落的解释

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