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

Question

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

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

例如，我们有

“这是一个标题”，

在标题的末尾，我会这样做：

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

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

有谁知道该怎么做？

Answer 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