Doug Robbins - Word MVP said:
There are a lot of things that have been around for a long time that are
not now covered in the Help files.
Too true... Maybe the developers don't talk with the documentation guys?
Or maybe the developers are afraid once stuff makes it into the Help files,
they have to support it in the future?
Anyway, that F8-trick is really great, I think.
Say with the cursor at the start of the following text:
This is an example text: It demonstrates F8 (ExtendSelection).
Hit F8, then type the ":", and "This is an example text:" is selected.
Type "8", and everything up to and including "F8" is selected...
(The Esc key stops ExtendMode, or double-click on "EXT" in the status bar to
turn it on/off).
I adapted my macro to toggle the active end of a selection, so it works with
ExtendMode (see below).
So after you toggle the active end by calling my macro with its keyboard
shortcut (which now leaves ExtendMode on), you could move the start of the
selection the same way.
Regards,
Klaus
Sub SelectionToggleActiveEnd()
Dim boolOldExtendMode As Boolean
boolOldExtendMode = Selection.ExtendMode
With Selection
Select Case .StartIsActive
Case True
.StartIsActive = False
ActiveDocument.ActiveWindow.ScrollIntoView _
obj:=.Range, Start:=False
Case False
.StartIsActive = True
ActiveDocument.ActiveWindow.ScrollIntoView _
obj:=.Range, Start:=True
End Select
End With
' Any macro will kill the ExtendMode when it quits (yukk!!)
' So we need SendKeys to turn it back on (more yukk!!)
If boolOldExtendMode Then
SendKeys ("{F8}")
End If
End Sub