Search and Replace with footnotes in Word 2000
Thread poster: Jackie Bowman

Jackie Bowman

Local time: 15:04
Spanish to English
+ ...
Feb 27, 2006

Folks,

I am editing a document in Word 2000 that has about a million footnotes. Every time, the author has put the full stop (the period) after the footnote reference number in the text.

In every case, I have to put the footnote reference number after the full stop.

I cannot seem to do this with Search and Replace. I open up the whole S & R dialogue and insert ‘^f.’ in the Search line, using the Special button. But when the cursor is in the Replace line, the Special button does not give me the ‘footnote mark’ option. So I cannot insert ‘.^f’

If I simply paste the ^f symbol from the Search line into the Replace line, and press the Replace button, I get a message that ‘^f is not a valid special character for the Replace With box’.

Is there any way to do this without manually changing about a million footnotes?

Many thanks,
JB


Direct link Reply with quote
 
Ken Cox  Identity Verified
Local time: 21:04
German to English
+ ...
IMO you could do it with a macro Feb 27, 2006

...but I'm hopeless at coding macros. With a bit of luck, someone with a digital thumb (so to speak) will come to your aid.

The logic of the macro would be:

find the combination ^f.
delete the full stop
go back one character position
insert a full stop
repeat the above steps until ^f. is no longer found

[Edited at 2006-02-27 17:41]

[Edited at 2006-02-27 17:42]

[Edited at 2006-02-27 17:42]


Direct link Reply with quote
 
Aleksandr Okunev
Local time: 22:04
English to Russian
Here's my try Feb 27, 2006

Jack Bowman wrote: Is there any way to do this without manually changing about a million footnotes?


Here's a macro I recorded and tried. Works nicely here.
================================
Sub FootnoteMacro()

' this portion finds the footnote

Selection.Find.ClearFormatting
With Selection.Find
.Text = "^f."
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

' this portion swaps the period and the footnote

Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste

End Sub
==============================
Put it into your Word, assign a hotkey to it and you're done.

HTH
Aleksandr


Direct link Reply with quote
 

Gusztáv Jánvári  Identity Verified
Hungary
Local time: 21:04
English to Hungarian
+ ...
A little addition to process all footnotes in a bunch Feb 27, 2006

A little addition to Aleksandr's macro to replace all footnotes in the document (his version was intended to find and replace only the next footnote after the current position).

==========================================
Sub FootnoteMacro()

' this portion finds the footnote

Selection.Find.ClearFormatting
With Selection.Find
.Text = "^f."
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

' this portion swaps the period and the footnote

Do While Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
Loop
End Sub
==========================================


Direct link Reply with quote
 

Jackie Bowman

Local time: 15:04
Spanish to English
+ ...
TOPIC STARTER
Macro Feb 27, 2006

Very many thanks, Aleksandr, for writing that. Very goof of you. I'll try it and let you know how it goes here.

JB


Direct link Reply with quote
 

Jackie Bowman

Local time: 15:04
Spanish to English
+ ...
TOPIC STARTER
Thank you!! Feb 28, 2006

You two guys are the absolute best. Thanks a thousand times for doing that macro. Works really well. Roses to both of you.

Direct link Reply with quote
 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Search and Replace with footnotes in Word 2000

Advanced search






Anycount & Translation Office 3000
Translation Office 3000

Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.

More info »
CafeTran Espresso
You've never met a CAT tool this clever!

Translate faster & easier, using a sophisticated CAT tool built by a translator / developer. Accept jobs from clients who use SDL Trados, MemoQ, Wordfast & major CAT tools. Download and start using CafeTran Espresso -- for free

More info »



All of ProZ.com
  • All of ProZ.com
  • Term search
  • Jobs