Как применить макрос в конце каждого заголовка в 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