Замена знаков сноски (цифр на звездочки)

[caute]

MSVB ругается на c_U00_Asterisk (Compile error: Constant expression required)

[Вождь]

Сообщение от caute

MSVB ругается на c_U00_Asterisk (Compile error: Constant expression required)

Ты при копировании потерял кусок кода:

Public Const c_U00_Asterisk& = &H2A ' (42) звездочка

Public можешь убрать.

[caute]

Да нет, весь код скопировал целиком. Может, дело в переносе строки вот тут:
Function Footnotes_ReferenceByNumberOnPage( _
Optional ByRef nopCharCode As Long = c_U00_Asterisk) As Long

[Вождь]

Сообщение от caute

Да нет, весь код скопировал целиком

Я для теста скопировал код из форума себе. Все работает.
Для запуска использовал процедуру:

Sub Запуск()
    Footnotes_ReferenceByNumberOnPage
End Sub

[caute]

Попробовал, ошибка осталась (у меня Word 2003)
А нельзя ли выложить макрос в формате .bas (для импорта)?

[Вождь]

Сообщение от caute

Попробовал, ошибка осталась (у меня Word 2003)
А нельзя ли выложить макрос в формате .bas (для импорта)?

Все работает в Word 2003/2007.
Твоя ошибка появляется когда VB не может найти константу c_U00_Asterisk.
Что бы ни мучатся, удали c_U00_Asterisk, а в заголовке процедуры замени на 42 т.е.:

Public Function Footnotes_ReferenceByNumberOnPage( _
    Optional ByRef nopCharCode As Long = 42) As Long

[caute]

сделал. Теперь ругается на Public Const, пишет:
Compile error: Invalid attribute in Sub or Function
Убираешь Public - пишет: Expected End Sub

[Вождь]

Ладно страдалец(а), держи модуль bas:

[caute]

Тот, чья премудрость правит изначала,
Воздвигнув тверди, создал им Вождей,
Чтоб каждой части часть своя сияла,
Распространяя ровный свет лучей...

[Вождь]

С утра взглянул свежим глазом на макрос и немного отшлифовал: