Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
FindNext autoscroll to middle?
Using Office2003's Word (fully updated and patched)...
I have a 100 page document that has hard-returns all through out. I can't do a replace all ^p with "" because this would mess up numerous sections and headers. With the find feature open to do the replacement... I can press "F" to navigate to the next hard-return then if it is one I need to replace press "Alt-R" this works well except that the find eventually will be the last line on the screen and I need to see the lines both above and below the newly found hard-return to make the decision to replace or not. I tried using the scroll-lock key to keep the cursor in the middle of the screen, but this does not work. Is there a feature I can turn on to acheive what I am looking for? Perhaps a macro function that would scroll the screen after a find (is there an event for this?) to place the line where the cursor is positioned to aproxamately the middle of the screen? -- Regards, John |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
FindNext autoscroll to middle?
Problem solved... using ActiveWindow.ScrollIntoView method.
Add a command button on one of the tool bars to run this macro. Start by putting the cursor before the first hard-return to erase, then click the toolbar button. Keep doing this until you see that the next hard-return should be skipped. Use the right arrow to deselect and move the cursor past the hard-return. Then click the toolbar button again. The macro replaces the next hard-return with nothing. Then positions the selection on the newly-next hard-return. Then, If 1000 characters beyond that hard-return would included characters that are not in the viewed area of the window, it scrolls this selection away from the bottom of the window. As a bonus, using a macro to control the find-replace operation prevents the find-replace popup dialog box from getting in the way too. Sub ZapSelectedPara() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With s = Selection.Start Set R = ActiveDocument.Range(Start:=s, End:=s + 1000) ActiveWindow.ScrollIntoView R, True With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With End Sub -- Regards, John "John Keith" wrote: Using Office2003's Word (fully updated and patched)... I have a 100 page document that has hard-returns all through out. I can't do a replace all ^p with "" because this would mess up numerous sections and headers. With the find feature open to do the replacement... I can press "F" to navigate to the next hard-return then if it is one I need to replace press "Alt-R" this works well except that the find eventually will be the last line on the screen and I need to see the lines both above and below the newly found hard-return to make the decision to replace or not. I tried using the scroll-lock key to keep the cursor in the middle of the screen, but this does not work. Is there a feature I can turn on to acheive what I am looking for? Perhaps a macro function that would scroll the screen after a find (is there an event for this?) to place the line where the cursor is positioned to aproxamately the middle of the screen? -- Regards, John |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to Change "Autoscroll" speed | Microsoft Word Help | |||
How do I disable autoscroll for my mouse right-click button. | Microsoft Word Help | |||
How do I slow down Autoscroll in word 2003? | Microsoft Word Help | |||
AutoScroll Speed | Microsoft Word Help | |||
How can I slow down the rate/velocity of the autoscroll in Word? | Microsoft Word Help |