VBA Move Footnote References Before Punctuation

		Microsoft Office Forums > Microsoft Word > Word VBA
VBA Move Footnote References Before Punctuation

FAQ

Thread Tools

Display Modes

#23

09-02-2022, 06:22 AM

macropod

Windows 10 VBA Move Footnote References Before Punctuation

Office 2016

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,467

OK, between the final 'Next' and 'End With', insert:

Code:

  With .Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "([ ^s]{1,})([,.;:\?\!^13^l^t])"
    .Replacement.Text = "\2"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 02:24 AM.