Microsoft Office Forums - View Single Post

macropod · 11-01-2024, 03:00 PM

All you should need is:

Code:

Sub InsertFootnote()
With Selection
  .Footnotes.Add Range:=.Range
  With .Paragraphs(1).Range
    .Characters(2) = vbTab
    .Characters.Last.Select
  End With
  .Collapse
  ActiveWindow.ScrollIntoView .Range
End With
End Sub

As for the Footnote Reference Style & Footnote Text Style, any character formats and indents should be modified at the Style level, not in code.