Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Jumping to the End of a Word.
Written by Allen Wyatt (last updated June 8, 2019)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365
Lori wonders if there is a keyboard shortcut to jump to the end of a word. She knows that Ctrl+Right Arrow jumps to the beginning of the next word, but she'd like to jump to the end of the next word, prior to any punctuation or spaces.
There is no built-in shortcut to do this. The only way it can be done is with a macro that could then be assigned to a shortcut key. You might think that you could simply record a macro that would move to the beginning of the next word (by pressing Ctrl+Right Arrow) and then back up one character (by pressing Left Arrow). This won't work, however, because the Ctrl+Right Arrow actually moves to the beginning of the next word or to the left of the next punctuation mark, whichever comes first. Thus, if the shortcut key moved to the left of a period (for example) at the end of a sentence, then moving one character to the left would put you within the word instead of at the end of the word.
So, your macro needs to actually evaluate what is to the left of the insertion point after using the Ctrl+Right Arrow. The following does just that:
Sub MoveToEndOfWord1() Selection.MoveRight Unit:=wdWord, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 If Selection.Text <> " " Then Selection.MoveRight Unit:=wdCharacter, Count:=1 End If End Sub
The only caveat for the macro is that you need to run it from within a word. If you are already at the end of a word, it does absolutely nothing. If you want a macro that will work from the end of a word, as well, then you need to modify it a bit:
Sub MoveToEndOfWord2() If Selection.Text = " " Then Selection.MoveRight Unit:=wdWord, Count:=1 End If Selection.MoveRight Unit:=wdWord, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 If Selection.Text <> " " Then Selection.MoveRight Unit:=wdCharacter, Count:=1 End If End Sub
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (8336) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. You can find a version of this tip for the older menu interface of Word here: Jumping to the End of a Word.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!
Sometimes typing isn't straight typing. Sometimes you need to perform special tasks, such as putting dashes between ...
Discover MoreIf you are new to using Word, you may wonder if there is an easy way to move pages around in the document. Word, though, ...
Discover MoreNeed to quickly count a group of items in a document? Here's a drop-dead easy way to get that count.
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2024-10-31 06:32:30
UP557
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
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2024 Sharon Parq Associates, Inc.
Comments