Many thanks, yanyan9896! I now see that I was wrong in putting the question that way. The macro you posted does remove extra (= empty) carriage returns in footnotes, but what I need is code to remove all carriage returns except, of course, the ending one. Any idea?

Do you mean to remove all carriage returns in the footnote? Or do you mean remove all carriage returns in the whole document?


Do note you don't need a macro for this; it can be done with an ordinary Find/Replace, where:
Find = ^p^p
Replace = ^p


See https://www.msofficeforums.com/word-...e-returns.html

I mean that the macro should remove all carriage returns in the footnotes except, of course, the ending ^p. Thanks!