Hide footnote numbering with vba

gmaxey · #6 08-27-2019, 07:38 AM

Try this:

Code:

Sub Test()
Dim oRng As Range
  ActiveDocument.Styles(wdStyleFootnoteReference).Font.Hidden = False
  Set oRng = ActiveDocument.StoryRanges(wdFootnotesStory)
  With oRng.Find
    .Style = "Footnote Reference"
    While .Execute
      oRng.Characters.Last.Next.Delete
      oRng.Text = vbNullString
    Wend
  End With
  ActiveDocument.Styles(wdStyleFootnoteReference).Font.Hidden = True
  ActiveDocument.ActiveWindow.View.ShowHiddenText = False
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding footnote number as part of footnote text	NoCalScribe	Word VBA	3	07-15-2019 07:20 PM
Problem with footnote numbering -- Two different footnote levels	mdhg	Word	7	05-19-2016 06:33 AM
How to change the font of footnote numbering?	mudum	Word	2	12-03-2015 06:27 AM
Footnote numbering problem within single section	jsswadley	Word	2	03-17-2015 04:44 PM
Footnote get double numbering	malgorzata	Word	2	12-12-2014 12:45 AM