VBA Move Footnote References Before Punctuation

Shelley Lou · #20 08-26-2022, 07:58 AM

Hi Macropod, thanks for the update, I got a Syntax error so I changed the code to:

Code:

Do While .Characters.First.Previous Like "[!0-9A-Za-z" & Chr(39) & Chr(34) & Chr(41) & vbCr & Chr(11) & vbTab & "]"

And that seems to have worked.

Thank you so much for your help, really appreciate it.

Before I close this thread as solved - I've got some rogue spaces between the footnote reference and punctuation after running the code - I've tried adding the following at the end of the Sub SetPunctAfter macro but it doesn't seem to be working - it works when I do a normal find and replace but not when in the code.

Code:

With Rng.Find
.text = "(^2)[ ]([.,:;\?\!])"
.Replacement.text = "\1\2"
.Execute Replace:=wdReplaceAll
End With

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