Question

我在word里录制了一段宏，请问如何才能让它自动重复执行100次？

我录的宏内容如下：
Sub 苹果日记年到月前()
' 苹果日记年到月前 Macro
' 宏在 2016-09-26 由我录制
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "201^#年"
.Replacement.Text = "^&年"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute
Selection.Cut
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=3
Selection.Paste
Selection.Find.ClearFormatting
With Selection.Find
.Text = "***"
.Forward = True
.Wrap = wdFindContinue
.MatchByte = True
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
End Sub
我是初学，什么语言都不懂，恳请高人不吝赐教！谢谢了！

Answer 1

sub 苹果日记年到月前（）
for ii = 1 to 100
你上录制的程序块
next
end sub

追问

您的答案太给力了！ 一下子就试验成功啦！真心地谢谢您！
采纳答案之前，可否再多问一句：您在“for”后边写了两个 i，而不是一个 i ，是因为我的宏里出现了“end with”两次吗？