shortcut: Moving words within a text

slaycock · #1 04-19-2017, 08:26 AM

zoowalk · #2 04-19-2017, 08:39 AM

thanks for your reply. Either I didn't understand your reply, or my question was not clear enough.

The count property defines that the selected text 'moves' by one word to the right, once I make use of the keyboard shortcut. This is fine.

The problem is that once I triggered it, the previously selected text is no longer selected and hence can't be 'moved' when I trigger the command for a second time. I have to re-select the words.

I read the help file and I can't see how the count property relates to the selection of the words which I want to move. Am I missing something obvious?

slaycock · #3 04-19-2017, 08:45 AM

You need to make several changes

1. Remember the number of words in your original selection
2. after pasting the text move the start of the current selection backward the number of words you remembered.

Code:

Sub moveRight()
   'moveRight Macro
   
   Dim myWordsCount As Long
   
   myWordsCount = Selection.Range.Words.count
   Selection.Cut
   Selection.moveRight unit:=wdWord, count:=1
   Selection.PasteAndFormat (wdFormatOriginalFormatting)
   Selection.MoveStart unit:=wdWord, count:=-myWordsCount
   Selection.Select
End Sub

In future posts its helpful to use the Code tags (#)

Note the use of '-' in front of myWordsCount.

zoowalk · #4 04-19-2017, 09:00 AM

Excellent. Many thanks. Very helpful and now clear.

slaycock · #5 04-19-2017, 10:44 AM

Great. Apologies for the first post. I obviously didn't get to remove until after you'd read it.

The F1 for help on the term where the cursor is located is very useful. It does pay to read the help pages very carefully though.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cannot see highlighted text for moving text in a do ument	Jonfrank1@me.com	Project	1	01-09-2017 06:04 PM
Selecting and moving text boxes identified by specific text.	Chayes	Word VBA	8	02-22-2016 07:01 AM
how to add text to a document without existing text moving around?	Athalwolf	Word	7	12-16-2014 05:16 PM
Shortcut problem > right to left text direction	Sumodaddy	Word	3	07-09-2014 06:51 AM
Shortcut to widen text boxes	zarkomorin	PowerPoint	0	08-22-2013 06:23 AM