Depending on what you mean by 'word' this is probably harder than you might imagine. Something like this should normally work ...
Dim ParaRef As Paragraph Dim WordNum As Long
' Get a reference to your paragraph, for example Set ParaRef = ActiveDocument.Range.Paragraphs(1)
' Scan backwards, avoiding para mark and punctuation For WordNum = ParaRef.Range.Words.Count To 1 Step -1 If Len(ParaRef.Range.Words(WordNum)) > 1 Then ParaRef.Range.Words(WordNum).Select Exit For End If Next
-- Enjoy, Tony
"GD1" <euthymos[ at ]gmail.com> wrote in message news:1159294504.754943.226690[ at ]i3g2000cwc.googlegroups.com...
[Quoted Text] > How can I select the last word of a certain paragraph? > > Thank you :) >
|