VBA Move Footnote References Before Punctuation

Shelley Lou · #1 08-19-2022, 03:57 AM

Hi Macropod thank you so much for your time and effort on this, it is very much appreciated. The contract documents I am working on are template precedent documents and our house style requires that all square brackets in template documents are form text fields so the user can F11 through them and remove as required. Your revised code unfortunately doesn't fix the issue - I did think a solution could be unlink the fields, move the footnotes then relink the form text fields - I will look into this further at a later date, for now I will just move the footnotes refs before punctuation when they appear without square brackets.

macropod · #2 08-20-2022, 05:38 AM

Quote:

Originally Posted by Shelley Lou

Your revised code unfortunately doesn't fix the issue - I did think a solution could be unlink the fields, move the footnotes then relink the form text fields

No, all I needed was an explanation of what the rules are so they could be coded for.

Replace:

Code:

    If .Characters.First.Previous.Fields.Count = 1 Then Exit Do
    If .Characters.First.Previous.ContentControls.Count = 1 Then Exit Do

with:

Code:

    If (.Characters.First.Previous.Fields.Count = 1) And (.Characters.First.Previous.Fields(1).Result <> "]") Then Exit Do
    If (.Characters.First.Previous.ContentControls.Count = 1) And (.Characters.First.Previous.ContentControls(1).Range.Text <> "]") Then Exit Do

Shelley Lou · #3 08-22-2022, 06:16 AM

Hi Macropod, I have updated the code but am getting an error 5941 on this line:

Code:

If (.Characters.First.Previous.Fields.Count = 1) And (.Characters.First.Previous.Fields(1).Result <> "]") Then Exit Do

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