VBA Format Footnote Text Numbering

Shelley Lou · #3 10-17-2024, 12:26 AM

Hi Andrew, thank you so much for replying. I couldn't get your code to work but after refining various find and replaced, the code below seems to work. Thank you so much for your time though, it was the wdFootnotesStory I didn't think of.

Code:

Sub FormatFootnoteNumber()
Application.ScreenUpdating = False
With ActiveDocument.StoryRanges(wdFootnotesStory).Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .text = "^2"
    .Replacement.text = "^&"
    .Replacement.Font.Superscript = False
    .Replacement.Font.Size = 8
    .Replacement.Font.Bold = True
    .Forward = True
    .Format = True
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Removing line break and indentation between footnote number and footnote text in Word	jaanross	Word	5	02-06-2020 12:04 AM
Adding footnote number as part of footnote text	NoCalScribe	Word VBA	3	07-15-2019 07:20 PM
Space between footnote number and footnote text	Sabya	Word	6	07-29-2018 02:30 PM
Problem with footnote numbering -- Two different footnote levels	mdhg	Word	7	05-19-2016 06:33 AM