move cursor to beginning of the previous word

[jenn]

I want to write a macro to insert a tab at the beginning of each word as I move down the column. How I can get the cursor to move to the beginning of the word... ? I know theres a short cut...

 

[Jean-Guy Marcil]

Bonjour,

Dans son message, < jenn > écrivait :
In this message, < jenn > wrote:

|| I want to write a macro to insert a tab at the beginning of each word as
I move down the column.
|| How I can get the cursor to move to the beginning of the word... ? I know
theres a short cut...

Try this

'_______________________________________
Sub AddTab()

Dim WordRange As Range
Dim WdCell As Cell

With Selection.Tables(1)

For Each WdCell In .Columns(1).Cells
Set WordRange = WdCell.Range.Words(1)
WordRange.InsertBefore vbTab
Next WdCell

End With

Set WordRange = Nothing

End Sub
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[Jezebel]

Ctrl-LeftArrow

I want to write a macro to insert a tab at the beginning of each word as I

move down the column. How I can get the cursor to move to the beginning of
the word... ? I know theres a short cut...