Команда замены по всему тексту

[caute]

Имеется макрос простой замены (одни буквы на другие). Какую строчку в него надо добавить, чтобы замена проводилась не только по основному тексту, но и по сноскам (концевым и постраничным)?

[shanemac51]

мой вариант

Sub a_130524_hold()
'
Dim z1, z1k
''''''''''''''''''''''''''zamena'''''''''''''''''''''''''''''''''
z1 = "hold"
z1k = "````"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = z1
  .Replacement.Text = z1k
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 ''''
 Dim sn1 As Footnote, s1
 For Each sn1 In Word.ActiveDocument.Footnotes
 s1 = Replace(sn1.Range.Text, z1, z1k, , , vbTextCompare)
 sn1.Range.Text = s1
 Next sn1
 Dim sn2 As Endnote, s2
 For Each sn2 In Word.ActiveDocument.Endnotes
 s1 = Replace(sn2.Range.Text, z1, z1k, , , vbTextCompare)
 sn2.Range.Text = s1
 Next sn2
End Sub

[Скрипт]

Sub Procedure_1()

    Dim rngFootnotes As Word.Range
    Dim rngEndnotes As Word.Range
    
    'Концевые сноски в Word-документе собраны в каком-то месте (Story).
    'Постраничные сноски в Word-документе собраны в каком-то месте (Story).
    
    'Даём этим "Story" VBA-имена "rngFootnotes" и "rngEndnotes".
    Set rngFootnotes = ActiveDocument.StoryRanges(wdFootnotesStory)
    Set rngEndnotes = ActiveDocument.StoryRanges(wdEndnotesStory)
    
    'Поиск и замена в постраничных сносках.
    With rngFootnotes.Find
        .Text = "Сноска"
        .Replacement.Text = "Footnote"
        .Execute Replace:=wdReplaceAll
    End With

    'Поиск и замена в концевых сносках.
    With rngEndnotes.Find
        .Text = "Концевая сноска"
        .Replacement.Text = "Endnote"
        .Execute Replace:=wdReplaceAll
    End With

End Sub

Примечание

В VBA-Word можно вести поиск с использованием "Selection" и с использованием "Range". Поиск с использованием "Selection" связан с окном "Найти и заменить", которое есть в программе "Word". Поэтому, прежде чем вести поиск с использованием "Selection", нужно подготовить объект "Find" - нужно убрать настройки от предыдущего поиска, например:

Selection.Find.ClearFormatting

При использовании поиска с "Range" очистку от предыдущих параметров поиска делать не надо, а можно сразу указывать нужные параметры. Это связано с тем, что при каждом поиске с использованием "Range" в оперативной памяти компьютера создаётся новый экземпляр объекта "Find", который имеет значения по умолчанию.

[caute]

shanemac51
Не воспринимаются регулярные выражения. Кроме того, этот макрос требует переписать все мои макросы замены заново. А нельзя ли просто добавить какие-то строчки к уже существующим макросам, чтобы они стали обрабатывать и сноски?
Например, вот к такому:

Sub том_страница()
' 10.01.2010
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ". Т. "
        .Replacement.Text = ", т.^s"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ". С. "
        .Replacement.Text = ", с.^s"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ". Ч. "
        .Replacement.Text = ", ч.^s"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ", т. "
        .Replacement.Text = ", т.^s"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ", с. "
        .Replacement.Text = ", с.^s"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ", p. "
        .Replacement.Text = ", p.^s"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Скрипт, Ваш макрос выдает ошибку: Run-time error '5941'

[Скрипт]

caute, да, если в документе нет постраничных и концевых сносок, то будет ошибка. Нужно внести изменения в код, чтобы проводилась проверка: существуют ли постраничные и концевые сноски.

[caute]

постраничные были, концевых не было, да

[shanemac51]

подпрограмма

Sub том_страница130524()
' 10.01.2010
 frepl30 ". Т. ", ", т.^s"
 frepl30 ". С. ", ", с.^s"
 frepl30 ". Ч. ", ", ч.^s"
 frepl30 ", т. ", ", т.^s"
 frepl30 ", с. ", ", с.^s"
 frepl30 ", p. ", ", p.^s"
   
End Sub
Sub frepl30(chto, chem)
'
Dim z1, z1k
z1 = chto
z1k = chem
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = z1
  .Replacement.Text = z1k
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 ActiveWindow.ActivePane.VerticalPercentScrolled = 0
 Dim sn1 As Footnote, s1
 For Each sn1 In Word.ActiveDocument.Footnotes
 s1 = Replace(sn1.Range.Text, z1, z1k, , , vbTextCompare)
 sn1.Range.Text = s1
 Next sn1
 Dim sn2 As Endnote, s2
 For Each sn2 In Word.ActiveDocument.Endnotes
 s1 = Replace(sn2.Range.Text, z1, z1k, , , vbTextCompare)
 sn2.Range.Text = s1
 Next sn2
End Sub

[caute]

опять не учитывает регулярных выражений.
получается на выходе: "т.^s1, с.^s2"
на месте ^s должен быть неразрывный пробел
а вообще - полезный макрос, особенно когда сотня замен - спасибо!

[Sasha_Smirnov]

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

опять не учитывает регулярных выражений

Наберите прямо в коде на месте ^s символ с кодом 0160 — Alt держим, 0160 набираем справа, на цифровой клавиатуре.

[caute]

frepl30 ". Т. ", ", т.^s"

должна выглядеть в этом случае как?