I do not know why it would stop working.
See if the following macro will find a word that you are looking for. It will ask you for the word and then when you press OK, should find it.
Dim Findstr As String
Findstr = InputBox("Insert the text that you want to find.")
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=Findstr, Forward:=True, _
MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True
Set myrange = Selection.Range
Set prevline = Selection.Range.Duplicate
prevline.MoveStart Unit:=wdSentence, Count:=-1
prevline.Select
ActiveWindow.ScrollIntoView Selection.Range, True
MsgBox "Here is " & Findstr
Selection.Collapse wdCollapseEnd
Selection.MoveRight wdCharacter, 1
Loop
End With
-- Hope this helps.
Doug Robbins - Word MVP,
dkr[atsymbol]mvps[dot]org
Posted via the Community Bridge
"hamgar" wrote in message news:*** Email address is removed for privacy ***...
I have a long (60 pages) document that has the spell checker turned off because it is a vocabulary list for a foreign language class. For a long time I was able to use the FIND command to see if I had already entered a vocabulary word, but recently
FIND just quit working altogether. Even when I copy and paste the word I am looking for, and it shows on the page I am viewing in the document, it won't find the word. I am using Office 2007 on a Windows 7 desktop computer. Any suggestions about why it
quit working and how I can fix it?
Doug Robbins - Word MVP dkr[atsymbol]mvps[dot]org