How to select the word the insertion point is in?

wardw · #1 08-27-2023, 03:25 PM

I'd like to create a macro that deletes the word the insertion point is in plus any punctuation after it, then capitalizes the word after that. E.g., "However, frogs are in the pond" changes to "Frogs are in the pond". Foolishly, I tried to get ChatGPT to write the macro, which deteriorated into constant errors and time wasted. It couldn't seem to select the word the insertion point was in, plus the following punctuation. It kept overshooting or undershooting.

I checked some VBA info on selecting text, but couldn't find how to select just the word the insertion point is in. Is there a piece of VBA code that can do that?

Guessed · #2 08-27-2023, 04:53 PM

This code selects the current word. If the word is followed by a space it also selects that. If it is followed by punctuation, it doesn't select the punctuation.

Code:

Sub GetIt()
  Dim aWord As Range
  Set aWord = Selection.Words(1)
  aWord.Select
End Sub

gmayor · #3 08-27-2023, 11:07 PM

The following should select the word the cursor is in, plus any following punctuation and sets the next character as upper case. You can add to the punctuation as required.

Code:

Sub Macro1()
Const sList As String = " ,.!?"
Dim oWord As Range
    Set oWord = Selection.Words(1)
    With oWord
        .MoveEndWhile sList
        .Text = ""
        .End = .End + 1
        .Case = wdUpperCase
    End With
    Set oWord = Nothing
End Sub

wardw · #4 08-28-2023, 10:03 AM

Thanks to you both, Andrew and Graham. Both macros worked perfectly as described. I'd like to embarrass ChatGPT with the solutions, but that would be mean ;-)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cursor location on first click -- insertion point	stevec5088	Word	1	12-14-2016 02:45 PM
Move Insertion Point with VBA	Grasor	Word VBA	2	10-11-2016 08:50 PM
Word 2013 Insertion Point stops blinking	NeilSC	Word	0	12-13-2013 12:19 PM
Insertion point not working	pmahoney14	Word	1	05-24-2012 04:17 PM
wildly flashing insertion point with spinning wheel	joannetk	Word	4	03-10-2011 04:26 AM