Здравствуйте, Администратор!
Помогите, пожалуйста, попросить код заменять, например, каждый пятый ноль на единицу в selection!
Перепробовал всякие варианты, но без толку.
Макрос
Sub Test()
Dim i As Long, j As Long, rng As range
Set rng = selection.range
Application.ScreenUpdating = False
With rng.Duplicate
With .find
.ClearFormatting
.replacement.ClearFormatting
.text = "0"
.Format = True
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Execute
End With
j = 0
Do While .find.found
j = j + 1
If .InRange(rng) Then
If j Mod 5 = 0 Then
.find.replacement.text = "1" 'это не работает
End If
.Collapse wdCollapseEnd
.find.Execute
Else
Exit Do
End If
Loop
End With
Application.ScreenUpdating = True
End Sub