Перебор стилей

Автор Посетитель 23.03.2023, 23 марта 2023, 01:08

Посетитель 23.03.2023

Здравствуйте. Мне нужно перебрать стили по правилу: Заголовок i, где 0<i<10. Я могу, конечно, 10 раз скопировать одно и то же, но хотелось бы оптимизировать. Попытался циклом For, но что-то не задалось. Вот как я попытался:
For i = 1 To 10 Step 1
      Selection.Find.Style = ActiveDocument.Styles(Заголовок i)
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
          .Text = ".^p"
          .Replacement.Text = "^p"
          .Forward = True
          .Wrap = wdFindStop
          .Format = True
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.HomeKey Unit:=wdStory
Next i
Сама программа удаляет точки в конце заголовков стилями "Заголовок i"

Администратор

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Selection.Find.Style = ActiveDocument.Styles("Заголовок " & i)