Thread: [Solved] VBA Move Footnote References Before Punctuation
View Single Post
 
Old 08-26-2022, 02:49 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,962
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Simply insert:

Code:
With Rng
  .Collapse wdCollapseStart
  'Eliminate any spaces before the footnote reference
  Do While .Characters.First.Previous Like "[ " & Chr(160) & "]"
    .Characters.First.Previous.Text = vbNullString
  Loop
End with
at the end of the SetPunctAfter sub.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote