VBA Move Footnote References Before Punctuation

macropod · #1 08-22-2022, 03:28 PM

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

Shelley Lou · #2 08-23-2022, 12:22 AM

Hi Macropod, thank you for the updated code - I added this in but got an error 6028 range cannot be detected

Code:

.text = vbNullString

So I tried removing

Code:

.Start = .Start - 1

This ran the code but I just got the blue wheel of doom and had to go into Task Manager and End Task to close Word down as it just kept saying Not Responding - I tried to remove the Loop but then I get End With without With - not sure what else to try

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote references in the footnote section losing their style when cut+pasted from same doc	emblaw	Word	4	12-08-2020 06:23 AM
Fix footnote and endnote references to arabic numbers everywhere?	KDuncan	Word	6	04-28-2020 12:14 AM
Word Find won't move out of footnote	michaelbriordan	Word	3	06-17-2015 10:12 AM
How do I keep footnote references and text on the same page	bearligirl89	Word	3	11-20-2013 03:33 PM
Multiple footnote references	jimgard	Word	1	07-23-2013 11:47 AM