Hi,

My question is how does one change the font style for a footnote reference number? I found the following video helpful:

https://support.office.com/en-US/Article/Video-Change-footnote-font-size-and-formatting-1368deda-70b6-44a7-82d6-8df4dc52e04e

However it only works when the footnote is created in a new document. This doesnt seem to work for footnotes that are copied from a different document into a new document.

Thanks in advance for your assistance it is greatly appreciated.

-Greg

The footnote reference format is controlled by the 'Footnote Reference' Style. Changing that Style's definition will ordinarily update all footnotes in the document. However, if you have copied content from another document and you have Word's 'Keep source formatting' option checked (see both versions of 'Pasting between documents', under File|Options|Advanced>Cut, copy & paste), changing the Style definitions in the current document may not impact content copied from another document. In that case, you'll need to re-apply the Style to each instance of the affected content.

Thanks Paul. I didn't know about the option "Keep source formatting". FYI, I tried changing this option to "Merge formatting" and it didn't help either. When I used the "Keep Text Only" option the footnotes seem to disappear when copying into the document.

Do you know of a macro or VBA script available to automatically copy the footnotes into my template which has the styling I desire?

-Greg

Changing those options after the fact won't affect whatever you've already copied. It's also possible that whoever created the document over-rode Word's footnote reference format with something else, which might get carried across regardless of which paste option you choose.

To fix them, you could try:

Sub FixFootNoteRefs()
Application.ScreenUpdating = False
Dim FtNt As Footnote, RngNote As Range
With ActiveDocument
  For Each FtNt In .Footnotes
    With FtNt
      With .Reference
        .Font.Reset
        .Style = "Footnote Reference"
      End With
      Set RngNote = .Range.Paragraphs.First.Range.Words.First
      With RngNote
        .End = .End - 1
        .Font.Reset
        .Style = "Footnote Reference"
      End With
    End With
  Next
End With
Set RngNote = Nothing
Application.ScreenUpdating = True
End Sub

Paul,

Thanks so much for sharing the FixFootNoteRefs macro. I loaded and ran it on my file but it doesn't look like it did anything.

FYI, I have sample footnote files that shows what it looks like when I copy the files into my template. The footnotes numbers and footnote text are not making use of the style changes I created.

If you are willing to share your email address, I can send you a zip file with (2) Sample Word documents. "Paper_Sample01.docx" shows the font unchanged and "Paper_Sample02.docx" shows how I want it to look. I had to do a global find/replace on the footnote numbers and footnote text to get it to work.

-Greg

If you upload the files to OneDrive, or to a file hosting site such as 4shared (http://www.4shared.com/) and post a link here, I could download it from there.

Hi Paul,

Ok, I have uploaded a zip file called "Footnote Samples.zip" to my OneDrive account. You may use the following link to download a copy of it:

http://1drv.ms/1zAogqs

FYI, I have included the fonts I'm using as well. Let me know if you need any additional information to move forward.

-Greg

• Edited by Greg Mouning 21 hours 3 minutes ago

The problem you're having is due to the fact the footnotes have the Normal Style applied, instead of the Footnote Text Style. The solution is as simple as applying the Footnote Text Style to the footnotes.

Explanation: The Footnote Reference Style is simply a superscript version of whatever the underlying paragraph Style uses. Since your current footnotes have the Normal Style applied, and that uses the Cambria font, that's what the Footnote Reference Style in the footnote also uses. Changing the footnotes to use the Footnote Text Style, which uses the YaleNew font, means the Footnote Reference Style will likewise use that font. 

Hi Paul,

Ok, I have uploaded a zip file called "Footnote Samples.zip" to my OneDrive account. You may use the following link to download a copy of it:

http://1drv.ms/1zAogqs

FYI, I have included the fonts I'm using as well. Let me know if you need any additional information to move forward.

-Greg

• Edited by Greg Mouning Friday, February 13, 2015 2:50 PM

Hi Paul,

Thanks, that worked! Can you tell me how to fix the macro you provided so that it will change the Footnotes to use the "Footnote Text Style"? Then I can run the macro after doing a Copy/Paste. :-)

• Edited by Greg Mouning 12 hours 53 minutes ago

Simply insert:
.Range.Style = "Footnote Text"
before:
Set RngNote = .Range.Paragraphs.First.Range.Words.First

Hi Paul,

Thanks, that worked! Can you tell me how to fix the macro you provided so that it will change the Footnotes to use the "Footnote Text Style"? Then I can run the macro after doing a Copy/Paste. :-)

• Edited by Greg Mouning Friday, February 13, 2015 10:59 PM

Paul, Thanks for all of your help with this problem. :-)