#1
|
|||
|
|||
How to select the word the insertion point is in?
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? |
#2
|
||||
|
||||
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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
||||
|
||||
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#4
|
|||
|
|||
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 ;-)
|
Tags |
selecting text |
|
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 |