Fastest code to format footnote reference marks

RobiNew · #1 12-19-2023, 02:17 AM

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

Italophile · #2 12-19-2023, 05:03 AM

What are you trying to do that you can't achieve by modifying the style "Footnote Reference"?

RobiNew · #3 12-19-2023, 07:43 AM

If I modify the style "Footnote Reference", do I get the existing reference numbers right?

Italophile · #4 12-19-2023, 09:31 AM

As you haven’t explained what you are trying to do I can’t tell you. But as you obviously don’t know what you can/can’t achieve by modifying the style you first need to spend some time experimenting with it to find out.

RobiNew · #5 12-19-2023, 10:22 AM

Very helpful. Thanks!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change superscripts to regular text except footnote marks without using 'Selection.'	RobiNew	Word VBA	7	10-01-2023 01:55 AM
Loop through Footnote Reference Marks	Ramses505	Word VBA	6	09-21-2023 12:10 AM
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Reference number and cross reference for equation numbers to match the thesis format	wmac	Word	1	05-14-2013 08:54 PM
Fastest way to run a code	b0x4it	Word VBA	4	05-18-2011 07:54 PM