Thread: Fastest code to format footnote reference marks
View Single Post
 
Old 12-19-2023, 02:17 AM
RobiNew RobiNew is offline Windows 10 Office 2016
Competent Performer
  
Join Date: Sep 2023
Posts: 208
RobiNew is on a distinguished road
Default Fastest code to format footnote reference marks
I wonder if the code below is the fastest method to format footnote reference marks. Thanks!

Code:
For Each NumRif In ActiveDocument.Footnotes
NrPres = NrPres + 1
Set myRange = ActiveDocument.Footnotes(NrPres).Reference
myRange.Style = ActiveDocument.Styles("MyStyle")
myRange.Font.Color = wdColorBlue
    Next NumRif
    NumRif = 0
    NrPres = 0
Reply With Quote