finding footnote-ending paragraph mark
Mr. Daniels,
You might be able to clean them up with the macro posted below. Very
limited testing (two section document with a few footnotes - each
footnote ended using the enter key once). If you decide to try this,
I suggest running it on a copy of the document first.
Sub ScratchMaco()
Dim oFN As Footnote
Dim i As Long
For Each oFN In ThisDocument.Footnotes
oFN.Range.Select
With Selection
.Collapse wdCollapseStart
.Expand Unit:=wdParagraph
.MoveStartUntil Cset:=vbCr
On Error Resume Next
.Delete
On Error GoTo 0
End With
'Add to clean up a spurious space added at the end of the footnotes as
they were processed.
If oFN.Index ThisDocument.Footnotes.Count Then
oFN.Range.Select
oFN.Range.Characters.Last = "@"
oFN.Range.Characters.Last.Delete
End If
Next
End Sub
On Nov 29, 6:11*pm, "Peter T. Daniels" wrote:
Oh well, thanks.
Maybe authors should have to have graduate students type their papers
again, who know how to use these things.
On Nov 29, 3:20*pm, "Suzanne S. Barnhill" wrote:
I guess I meant if you're not using wildcards (you don't have to be to use
^13). But Word can be extremely bloody-minded about paragraph marks
sometimes--in footnotes, between tables, etc. While it may be possible to
write a macro to take care of this (though ISTR that even a macro wouldn't
do it for paragraph breaks between tables), in the long run you may just
have to go through and do this by hand (using Delete or Backspace, whichever
works).
If all else fails (oh, joy!), you may have to copy the text of an existing
footnote (without the paragraph marks), delete the footnote reference in the
document body, insert a new footnote, and paste the copied content into it.
Lather. Rinse. Repeat.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USAhttp://word.mvps.org
"Peter T. Daniels" wrote in ...
Nope; it's easy to Find the sequence -- ^13^13 and (^13)(^13)
Wildcards both work -- but Replace with any of ^13, ^p, or \2 does
nothing but send the cursor back to where it was when I clicked Find.
On Nov 29, 1:16 pm, "Suzanne S. Barnhill" wrote:
Can you not replace with ^p?
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USAhttp://word.mvps.org
"Peter T. Daniels" wrote in
...
^13^13 found the sequence ok, but I couldn't find something to put in
the Replace box that worked.
(^13)(^13) Replace with \2 and Use Wildcards didn't do anything,
either.
On Nov 29, 9:47 am, "Graham Mayor" wrote:
Try ^13 in place of ^p
--
Graham Mayor - Word MVP
My web sitewww.gmayor.com
Word MVP web sitehttp://word.mvps.org
Peter T. Daniels wrote:
I've just received a ms. from an author who ended every one of
hundreds of footnotes with Enter, which results in what looks on
screen like a sequence of paragraph marks -- the Enter plus the
end-of- footnote mark -- but ^p^p doesn't find them.
(I can't just delete all paragraph marks, because of multi-paragraph
footnotes.)--- Hide quoted text -
- Show quoted text -
|