Duplicate selected words for continuous and individual selection

Jakov93 · #1 09-30-2024, 07:44 AM

Hi,
I made a macro to duplicate selected words according to its sequence in a sentence

Code:

Sub DuplicateSelectedWords()
    
Dim oRng As range
    If Len(Selection.range) = 0 Then
        MsgBox "Select the text first", vbCritical
        Exit Sub
    End If
    Set oRng = Selection.range
    oRng.Copy
    oRng.InsertAfter (oRng.text)

End Sub

It works fine for continues selection, but not for individual selection, which I mean selecting random word (by using Ctrl) in a sentence then duplicate it by run the macro

For individual selection, it just duplicate only one word, may be the first word or second or the last.
So please how to edit the current macro to duplicate all selected words ( individual selection) also.
Thanks

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing a duplicate words	ranjan	Word VBA	7	08-26-2021 02:17 AM
Page numbers not following. All sections continuous, link to previous selected.	ClaireP	Word	4	07-07-2020 08:12 AM
VBA to solve duplicate words in one line	Bookmaster	Word VBA	7	02-03-2015 04:30 PM
How to find and delete duplicate words in doc	cinvest	Word	1	09-29-2014 08:34 PM
Why Words doesn’t show the style of the selected words automatically????	Jamal NUMAN	Word	0	04-14-2011 03:20 PM