Keep text selected after paste

gmaxey · #11 01-08-2021, 09:09 AM

Interesting. It doesn't behave the same. Someone may have a better idea and I am short on time but this might work:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim lngS As Long, lngE As Long
  Set oRng = Selection.Range
  lngS = Len(oRng.Paragraphs(1).Range.Text)
  oRng.PasteSpecial DataType:=wdPasteText
  lngE = Len(oRng.Paragraphs(1).Range.Text)
  oRng.MoveStart wdCharacter, -(lngE - lngS)
  oRng.Select
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to find text in between two characters and then format selected text?	qcom	Word	5	02-19-2015 11:23 PM
Getting mult resps. selected in listbox to concatenate & paste at a bookmark in Word	marksm33	Word VBA	3	01-15-2015 05:59 PM
Formatting affecting more than selected text	esteban	Word	7	05-25-2012 04:34 AM
Do NOT print selected text	Tracy	Word	2	09-11-2011 07:25 AM
Selected text and logo in one macro	marijke	Word VBA	0	08-24-2009 07:01 AM