Microsoft Office Forums - View Single Post

gmaxey · 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