Jumping to the End of a Word

I'm even later, Barry. Here's another idea: Have Word select the current word and drop to the end of the selection. If the word ends with punctuation, the insertion point will be right at the end of the word. If the word is followed by a space, the insertion point will be after the space, so move it to the left.

If a word is followed by two or more spaces, this will not work, as Word selects all spaces following a word when selecting a word. This macro assumes there is only one space following the word.

Sub FindWordEnd()
Dim charLeft As String

' Select the current word.
Selection.Expand Unit:=wdWord

' Drop to the end of the selection.
Selection.Collapse Direction:=wdCollapseEnd

' When Word selects a word, it selects through to but not including punctuation.
' If there is no punctuation, it selects through to and including the space after the word.
' Therefore, evaluate the character that is now to the left of the insertion point.
' If it's a space, move left one character to the end of the origination word.

charLeft = Selection.Characters.First.Previous.Text
If charLeft = " " Then
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdMove
End If
End Sub

@ UP557
Maybe I'm a bit late :) but...
This code works works for most general text! maybe there is something better?

Sub WordEndLeft4()
'
' Go left to end of previous word

Dim strChar As String
Dim sPunc As String

strChar = ""
sPunc = "]}^_.,)?!';:-" ' if selection is one of these must be end of word!

While strChar < Chr(191) 'therefore will work for english language characters

Selection.MoveLeft Unit:=wdCharacter, Count:=1
strChar = Selection.Text

If InStr(sPunc, strChar) <> 0 Then '= punctuation char
Exit Sub
End If

If strChar = " " Then 'need to check for punctuation char
Selection.MoveLeft Unit:=wdCharacter, Count:=1
strChar = Selection.Text

If InStr(sPunc, strChar) = 0 Then '= punctuation char
Selection.MoveRight Unit:=wdCharacter, Count:=1
Exit Sub
End If

Exit Sub

End If
Wend

End Sub

Hi Allen, thanks for this useful macro. I have tried to modify it to create another macro for jumping to the end of the previous word. It does work, but gets stuck when it reaches a word ending with a punctuation mark (the cursor remains behind the punctuation mark). Would you be able to help?


---------------------------------------------------------------------

Sub WordEndLeft()
'
' Go left to end of word
'
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1

If Selection.Text <> " " Then
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If

If Selection.Text <> " " Then
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If
End Sub