קוד להצגת התקדמות ב-statusbar של וורד

[pcinfogmach]

הקוד ב-C# אבל אפשר להמיר ל-vba די בקלות (אולי לא הכל אבל את העיקרון) למי שירצה.
הקוד מציג התקדמות בסרגל התחתון של וורד.
היה לי את זה באחד מהפרוייקטים הישנים שלי, פעם שלחתי את זה למישהו והיה לו בזה שימוש, עכשיו נתקלתי בזה אמרתי אולי יהיה למישהו אחר שימוש.

 public static void ReportProgress(string actionDescription, int Currentvalue, int maxValue, int timePerIteration)
 {
     var progressPercent = (int)((double)(100 * Currentvalue) / maxValue);
     string timeLeft = TimeSpan.FromSeconds((maxValue - Currentvalue) * timePerIteration).ToString(@"hh\:mm\:ss");
     string[] progressBars = new string[] { "●○○○○○○○○○", "●●○○○○○○○○", "●●●○○○○○○○", "●●●●○○○○○○", "●●●●●○○○○○", "●●●●●●○○○○", "●●●●●●●○○○", "●●●●●●●●○○", "●●●●●●●●●○", "●●●●●●●●●●", };
     Globals.ThisAddIn.Application.StatusBar = $"- {timeLeft} -     {progressPercent}%  {progressBars[Math.Max((progressPercent / 10) - 1, 0)]}     {actionDescription} {Currentvalue} \\ {maxValue}";
 }