Add an s at the end of the current word

gloub · #1 02-01-2018, 02:52 AM

Hi !
(this is my 1st message ever on this forum !)

I'm trying to do a simple thing, but I' missing something : I want to add an "s" at the end of the current word.

I wrote a macro to do this :

Code:

Sub Pluriel()
' ALT + S
    Application.Selection.Words(1).Select
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="s"
End Sub

It works fine, except when there's a coma or a dot right after the word, or if the current word is the last of a paragraph...

For instance :
assiette >>> assiettes = fine (provided the word is in the middle of a sentence)
but :
assiette, >>> assiettse, = wrong

How should I proceed to avoid this ?

Many thanks !

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problem getting filename and directory of current word doc.	gazeranco	Word VBA	8	10-29-2016 12:13 AM
Where can I see the current hidden word properties values in Word 2007?	pstein	Word	3	08-15-2012 05:08 AM
How to call current PC date and/or current PC year	KIM SOLIS	Excel	2	11-04-2011 06:09 PM
What “style” is used by the current line. Word 2007.	persist	Word	2	04-07-2010 09:52 PM
Auto insert current month's name and current year	Styler001	Word	4	01-25-2010 06:40 PM