Здравствуйте. Мне нужно перебрать стили по правилу: Заголовок 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)