Макрос для переменного колонтитула

[AlexProk]

Здравствуйте всем!
Помогите, пожалуйста. Где-то году в 2003 мне помогли с макросом для плавающего колонтитула в словаре (первое слово на странице выносится в колонтитул). Выглядел он так:

Sub MAIN
StartOfDocument
EditFind .Find = "^p^$", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0, .Wrap = 2
While EditFindFound()
	CharLeft 1
	ParaDown 1
	Insert "@For_footer = "
		While Right$(Selection$(), 1) <> " "
		CharRight 1, 1
	Wend
CharRight 1
EditClear - 1
InsertPara
EditFind .Find = "^p^$", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0, .Wrap = 2
Wend
End Sub

И вот возникла необходимость снова воспользоваться этим макросом. А мой Word2000 выдает ошибку. Знающие люди отзовитесь. В чем ошибка. Может этот макрос для более ранних версий Worda? Если это возможно, поправьте кто может. Заранее спасибо.

 

[Neech]

Ответ: Макрос для переменного колонтитула

Можно проще.
Найти (^0013)([А-Яа-я]{2;})( )
Заменить \1@For_footer = \2^p\3

 

[AlexProk]

Ответ: Макрос для переменного колонтитула

О-о-балдеть! Конгениально!!! 2,5 тысячи страниц одним махом двумя строчками. Еще бы указать что это слово только полужирное (как в энциклопедии), чтобы исключить абзацы в середине статьи и включить знак кавычки «, хотя это уже мелочи, которые можно доделать вручную. Я в восторге и снимаю шляпу.

 

[Neech]

Ответ: Макрос для переменного колонтитула

Еще бы указать что это слово только полужирное.

Загрузите текст в Вентуру. Сохраните txt. Получим тэгированный текст.
В Ворде этот текст
Найти (^0013)(\<B\>)([А-Яа-я]{2;})( )
Заменить \1@For_footer = \3^p\4,
предварительно заменив ^0013 на ^p