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

[caute]

Как автоматически заменить обычные сноски в виде цифр на сноски в виде звездочек (Word 2003)? Через "параметры сносок" сделать это не выходит.

[viter.alex]

Да, в 2003 не получается. А в 2007 получается

ActiveDocument.Footnotes.NumberStyle=wdNoteNumberStyleSymbol

[caute]

В 2003 тоже получается, но там звездочки чередуются со всякими странными крестами и знаками параграфа. Хотел бы я взглянуть в глаза программисту из MS, придумавшему такую веселую нумерацию сносок...
Спасибо, что подсказали насчет Word 2007! На работе стоит, сделаю там.

[viter.alex]

К сожалению, в 2007-м тоже самое. Я не знаю, кто так придумал

[Вождь]

По-моему ничего трудного нет.
Перебираем сноски и пересоздаем как символьные.
Какой номер - столько символов "*".
Конечно, никакой автоматической нумерации не будет.
И еще помучаешься при определении номера у сносок с автоматической нумерацией.
Кстати, кто знает, как получить текст номера сноски при автоматической нумерации?

[caute]

Сообщение от Вождь

Перебираем сноски и пересоздаем как символьные.
Какой номер - столько символов "*".

что значит "перебираем"? как это технически выглядит?

Сообщение от Вождь

Конечно, никакой автоматической нумерации не будет.

мне она не нужна, документы готовые к употреблению

[viter.alex]

Технически это выглядит как просмотр коллекции Footnotes

Dim oFtnt As Footnote
For Each oFtnt In ActiveDocument.Footnotes
'Здесь пишем нужные действия
Next

[Вождь]

Не совсем так:

Dim S As Section
Dim F As Footnote
Dim i&

' перебор разделов
For Each S In ActiveDocument.Sections
' перебор сносок
For i = 1 To S.Range.Footnotes.Count
Set F = S.Range.Footnotes.Item(i)
' пересоздаем сноску
F.Reference.Footnotes.Add _
Range:=F.Reference, _
Reference:=String(i, "*")
Next i
Next S

[caute]

Да, это решает проблему только в отдельных, редких случаях.
А возможен ли макрос, который сначала конвертирует сноски из непрерывных в постраничные формата *,[кресты],§ (последний из форматов в окошке "формат номера" в опциях сносок), а потом перебором [крест] = **, [двойной крест] = ***, § = ****?
Решение элегантным не назовешь, но проблему для документов, в которых не более 4 сносок на одной странице (а это подавляющее большинство доков) решило бы...

[Вождь]

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

А возможен ли макрос, который сначала конвертирует сноски из непрерывных в постраничные формата *,[кресты],§ (последний из форматов в окошке "формат номера" в опциях сносок), а потом перебором [крест] = **, [двойной крест] = ***, § = ****?
Решение элегантным не назовешь, но проблему для документов, в которых не более 4 сносок на одной странице (а это подавляющее большинство доков) решило бы...

Это извращение не нужно. Зачем одну автонумерацию менять на другую? И оно не решает задачу, если в документе сноски, как с автоматической нумерацией, так и символьные.

Предлагаю радикальное решение:

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

Public Function Footnotes_ReferenceByNumberOnPage( _
    Optional ByRef nopCharCode As Long = c_U00_Asterisk) As Long
' преобразование маркеров сносок по принципу:
' номер сноски на странице - количество символов nopCharCode
' возвращает число преобразованных сносок
' !!! изменяет Selection

    'On Error Resume Next ' тест
    Footnotes_ReferenceByNumberOnPage = 0
    ' контроль
    If Application.Documents.Count <= 0 Then Exit Function

Dim S$
    
    S = ChrW$(nopCharCode)
    If Len(S) <> 1 Then Exit Function

Dim R As Range
Dim k&

    ' режим разбивки на страницы
    ActiveWindow.View.Type = wdPrintView
    ' перебираем страницы
    Set R = ActiveDocument.Range(0, 0)
    For k = 2 To ActiveDocument.ActiveWindow.Panes(1).Pages.Count
        ' идем в начало страницы
        Selection.GoTo _
            What:=wdGoToPage, _
            Which:=wdGoToAbsolute, _
            Count:=k
        ' область страницы
        R.SetRange R.End, Selection.Range.Start
        ' конвертируем
        GoSub sub_Convert
    Next k
    ' последняя страница
    R.SetRange R.End, ActiveDocument.Range.End
    GoSub sub_Convert
    Exit Function
    
sub_Convert: ' конвертируем маркеры сносок области R
    
Dim F As Footnote
Dim i&
    
    For i = 1 To R.Footnotes.Count
        Set F = R.Footnotes.Item(i)
        ' пересоздаем сноску
        On Error Resume Next
        F.Reference.Footnotes.Add _
                Range:=F.Reference, _
                Reference:=String(i, ChrW$(nopCharCode))
        If Err.Number = 0 Then _
            Footnotes_ReferenceByNumberOnPage = Footnotes_ReferenceByNumberOnPage + 1
    Next i
    Return
    
End Function

К сожалению, при переборе страниц без Selection не обойтись