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

Question

[Shporsoft]

Как пронумеровать одинаковые слова в Microsoft Word используя макросы VBA? документ MS Word, в котором 350 слов "Вопрос". Как написать макрос, который пронумеровал эти слова и заменил их "1Вопрос", "2Вопрос", "3Вопрос".

Answer 1

[DENIS Kokorev]

Лови

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Вопрос