Thread: how to add loop till end of document
View Single Post
 
Old 01-12-2023, 07:38 AM
Hisham Hisham is offline Windows 7 64bit Office 2007
Novice
  
Join Date: Nov 2015
Posts: 2
Hisham is on a distinguished road
Question how to add loop till end of document
I need to apply "LtrRun" for all digits with dots between through document. I recorded macro with step and repeat it many but I need this macro to run through document without clicking it many times till end. any help?
Code:
Sub Dots()
'
' Num.Dots Macro
'
'
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
    WordBasic.LtrRun
    Application.Browser.Next
End Sub
Reply With Quote