@Shporsoft

Как пронумеровать слова используя макрос?

Как пронумеровать одинаковые слова в Microsoft Word используя макросы VBA? документ MS Word, в котором 350 слов "Вопрос". Как написать макрос, который пронумеровал эти слова и заменил их "1Вопрос", "2Вопрос", "3Вопрос".
  • Вопрос задан
  • 26 просмотров
Пригласить эксперта
Ответы на вопрос 1
@shmaroder
https://creditpower.ru
Лови

Sub AutoincrementVopros()
Dim num As Integer
num = 1
Application.ScreenUpdating = False
Const i As Long = 50
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Text = "Вопрос"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = True
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    .Text = num & .Text
    .Collapse wdCollapseEnd
    .Find.Execute
    num = num + 1
  Loop
End With
Application.ScreenUpdating = True
End Sub


Результат
1Вопрос
ПроВопрос
2Вопрос
вопрос
3Вопрос
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы