Footnote Reference style lost

[jmt356]

I was working in a very long Word document when suddenly, without warning, all of my styles changed. Text in Body Text and other styles changed to Normal or Comment Text. I now have over 240 footnote numbers that are in the Normal style rather than Footnote Reference. Is there a way to select all of the footnotes and apply the Footnote Reference style to them so that they are raised in superscript, or do I need to select each of them manually and apply the Footnote Reference style to them?

[HansV]

Can't you Undo the changes? Or go back to a recent backup version?

[jmt356]

ctrl + z does nothing.

I will see if I can go to another version. However, I have about an hour of work I have been doing that I will lose if I revert to an earlier version.

[SpeakEasy]

Try running the following macro:

Code: Select all

Sub ResetFootnotes()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^f"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Footnote Reference")
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[snb]

Shouldn't you apply this macro to

Code: Select all

ThisDocument.StoryRanges(wdPrimaryFooterStory)
ThisDocument.StoryRanges(9)

[SpeakEasy]

I was assuming OP would select the ranges he wants the fix applied to. But sure, if you want to fix it up in the actual footnotes themselves your code would be a useful addition

[BobH]

I've developed the practice of copying the new material - or all of it if there were mid-work edits - to a notepad until the blips are resolved. Then the text can be pasted into the newly resolved style when recovered in Word.

HTH

[snb]

A more object oriented approach could be:

Code: Select all

Sub M_snb()
  On Error Resume Next

  For Each it In ThisDocument.StoryRanges
   For Each it1 In it.Footnotes
     it1.Reference.Style = ThisDocument.Styles("Footnote Reference")
   Next
  Next
End Sub