Thread: [Solved] VBA Move Footnote References Before Punctuation
View Single Post
 
Old 08-22-2022, 03:28 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,383
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
Try:
Code:
If  .Characters.First.Previous.Fields.Count = 1 Then
  If .Characters.First.Previous.Fields(1).Result <> "]" Then Exit Do
End If
If  .Characters.First.Previous.ContentControls.Count = 1 Then  
  If .Characters.First.Previous.ContentControls(1).Range.Text <> "]" Then Exit Do
End If
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote