如何在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