Расширение области действия макроса на сноски

[caute]

Благодарствую! Заработало как часы.
Но что интересно, обратная замена (фигурных на ёлочки) опять работает только в основном тексте... Макрос не трогал, поменял местами только ёлочки и фигурные.

[viter.alex]

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

Макрос не трогал

Всё-таки покажи "нетронутый" макрос

[caute]

Sub Угловые_кавычки_вместо_фигурных()
    Call Кавычки_сделать_угловыми
    Dim stories
'  Массив с индексами частей документа
stories = Array(WdStoryType.wdMainTextStory, wdFootnotesStory, wdEndnotesStory)
Dim rng As Range
Options.AutoFormatAsYouTypeReplaceQuotes = False
For Each st In stories
'    Игнорируем ошибки на случай, если каких-то сносок нет
  On Error Resume Next
'    Берём нужную часть документа
  Set rng = ActiveDocument.StoryRanges(st)
'    Делаем замену
  With rng.Find
      .Text = "“"
      .Replacement.Text = "«"
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll
      .Text = "”"
      .Replacement.Text = "»"
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll
  End With
'    Очищаем ошибки, если были
  Err.Clear
Next
Options.AutoFormatAsYouTypeReplaceQuotes = True
    Call Апостроф
    End Sub

[viter.alex]

Странно, должно работать. Можешь приложить пример документа?

[caute]

Файлик прикрепил - но я проверил на нескольких, всюду одно и то же: на фигурные меняет по всему тексту, на ёлочки - только в основной части (Word 2003)
Гипотеза: это как-то связано с символом фигурной кавычки, и если его заменить в макросе на соответствующий номер юникода, замены будут осуществляться и в сносках тоже.

[viter.alex]

Проверил. Меняет везде, в обоих направлениях. Word для Microsoft 365: почти аналог Word 2019

[caute]

Порядок, это я запутался в двух макросах с похожими названиями