Как применить макрос в конце каждого заголовка в MS Word? - PullRequest
Новая
       22

Как применить макрос в конце каждого заголовка в MS Word?

2 голосов
/ 26 ноября 2009

У меня есть документ с различными заголовками (поэтому необязательно заголовок 1 или заголовок 2 - но все типы заголовков).

Я пытаюсь написать макрос, который, например, удалит 2 пробела в конце каждого заголовка.

Например, у нас есть

Это заголовок

В конце заголовка я сделаю: 

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

Мне нужно, чтобы это применялось в конце каждого заголовка.

Кто-нибудь знает, как это сделать?

1 Ответ

0 голосов
/ 24 декабря 2009

Перейти к первому заголовку: 

   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
...