如何讓writer中的一個巨集自動重複執行多次?

已做好一個巨集,也自訂了鍵盤,但不想一直重複按鍵盤。那要如何讓巨集不斷重複執行,直到按Esc鍵才停止?

已經找到解決方法:製作另一個巨集,將原來巨集執行多次即可。
例如:
Sub my_Procedure()
Call Main003
Call Main003
…………
End Sub