Duplicate selected words for continuous and individual selection

macropod · #2 09-30-2024, 04:51 PM

Try the following, which works even if you don't have whole words selected and preserves the original formatting:

Code:

Sub DuplicateSelectedWords()
Dim Rng As Range
With Selection
  If .Type = wdSelectionIP Then
    MsgBox "Select the text first", vbCritical
    Exit Sub
  End If
  Set Rng = ActiveDocument.Range(.Words.First.Start, .Words.Last.End)
End With
With Rng.Duplicate
  .Collapse wdCollapseEnd
  .FormattedText = Rng.FormattedText
End With
End Sub

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