Using find is irritating

  • Thread starter Thread starter Dave F.
  • Start date Start date
D

Dave F.

Hi
Word 2002 sp2

When using find it places the found word right at the top of the window
making it hard to see if it's the relevant section I'm looking for.

Is there a way to get word to display it in the centre of the window?

TIA
Dave F.
 
Dave,

The macro provided below is one possibility. I have altered the
built-in EditFind command so that, when the Find box is closed, the Word
window scrolls upward (text scrolls downward) by a certain amount,
leaving the Found text approximately in the middle of the window. If
the text is double space, the window will scroll fewer lines than if it
is single space, so that you get approximately the same amount of scroll
whether the text is double or single space.

This will work exactly like the built-in Find command, excerpt that when
you press Escape or Cancel to dismiss the Find box, the scroll will
occur. You could try this out by installing this as a macro. Because
it's name is the same as the built-in command, it replaces it, so that
the keystroke and menu commands for the Find command automatically run
this macro instead.

If you don't know how to install a macro, read this:

http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm

Larry


Sub EditFind()

Dialogs(wdDialogEditFind).Show

Application.ScreenUpdating = False
If Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
Then
ActiveWindow.ActivePane.SmallScroll UP:=10
ElseIf Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
Then
ActiveWindow.ActivePane.SmallScroll UP:=6
End If

End Sub
 
Also, if you want to use this as an alternative to the Find command
instead of as a replacment, just change its name. Instead of

Sub EditFind()

You could call it Sub FindScrollDown()

If you change its name, the built-in EditFind command will return to its
normal functioning. You could then assign your own keystroke or menu
button to your macro.

Larry
 
Back
Top