Getting the last of three names/words

RobiNew · #6 12-24-2023, 02:31 AM

Hi, Vivka! To get the last name in the first paragraph I have adopted your suggestion: ActiveDocument.Paragraphs(1).Range.Words.Last.Prev ious(unit:=wdWord, Count:=1).Select
For the last name before a comma in the first paragraph I have devised the code here below. Is there a more efficient method to achieve the same result? Thanks!

Code:

ActiveDocument.Paragraphs(1).Range.Select
Dim myVar As String
myVar = Selection
If InStr(1, myVar, ",") > 0 Then
Set oRng = ActiveDocument.Range
oRng.Collapse
oRng.MoveStartUntil Cset:=","
oRng.Collapse wdCollapseEnd
oRng.Previous(unit:=wdWord, Count:=1).Select

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Foreign words/names Read Aloud	HanselM	Word	1	05-01-2023 09:36 AM
Removing microsoft build-in style names - display of style names in styles gallery changed	Firebody	Word	8	03-06-2022 08:22 AM
How to find (highlight) two and more words in a list of 75k single words in Word 2010	Usora	Word	8	05-29-2018 03:34 AM
Need to extract domain names containing only specific words (MAJOR BULK)	Maxwell314	Excel	4	12-08-2014 05:10 PM
How to enter names in Resource Pool/names	pstein	Project	1	03-26-2012 07:37 AM