如何在 MS Word 中每个标题的末尾应用宏？

【问题标题】：How to apply macro at end of every heading in MS Word?如何在 MS Word 中每个标题的末尾应用宏？
【发布时间】：2020-07-07 05:44:23
【问题描述】：

我有一个包含各种标题的文档（因此不一定是标题 1 或标题 2，而是所有类型的标题）。

我要做的是编写一个宏，例如，删除每个标题末尾的 2 个空格。

例如，我们有

这是一个标题

在标题的最后，我会这样做：

Selection.Delete Unit:=wdCharacters, Count:=2

我需要在每个标题的末尾应用这个。

有人知道怎么做吗？

【问题讨论】：

标签： vba ms-word

【解决方案1】：

转到第一个标题：

   Selection.GoTo What:=wdGoToHeading,Which:=wdGoToFirst

转到下一个标题

   Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext

检查你的位置，看看你是否到达了最后一个标题：

   x=Selection.Start
   Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext
   if x = Selection.Start then '... last heading reachd

转到当前标题的结尾（例如，删除字符：

   Selection.EndKey Unit:=wdLine

【讨论】：