Keep text selected after paste

gmaxey · #1 01-19-2015, 08:38 AM

If you don't need special paste features you might use a simple macro:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Dim oRng As Word.Range
  Set oRng = Selection.Range
  oRng.Paste
  oRng.Select
End Sub

joelraffel · #2 07-20-2018, 07:46 AM

Quote:

Originally Posted by gmaxey

If you don't need special paste features you might use a simple macro:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Dim oRng As Word.Range
  Set oRng = Selection.Range
  oRng.Paste
  oRng.Select
End Sub

The above works well Greg, thanks. As you say, this only works with 'normal paste'. I need the above to work with a special paste. Is this possible?

I often copy text from pdf and paste into word. I want a single macro which can:
- do a 'MergeFormatting' paste into Word, and then
- have this pasted text automatically selected, and then
- I will add more to the macro, including a way to replace unwanted paragraphs with spaces (already described by others, and I already have this code).

Any help would be MUCH appreciated!

ours_paresseux · #3 07-31-2019, 05:34 AM

Quote:

Originally Posted by gmaxey

If you don't need special paste features you might use a simple macro:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Dim oRng As Word.Range
  Set oRng = Selection.Range
  oRng.Paste
  oRng.Select
End Sub

Thank you Greg, this is very helpful and solved the same problem that I was having.
Please could you break down the code so I can understand what each part means? I am new to vba. Thanks!

davidswb · #4 01-08-2021, 01:56 AM

Quote:

Originally Posted by gmaxey

If you don't need special paste features you might use a simple macro:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Dim oRng As Word.Range
  Set oRng = Selection.Range
  oRng.Paste
  oRng.Select
End Sub

Hi Greg,
For the macro belwo you once posted is there a way to do the same thing using PasteSpecial (unformated text) with the Select at the end? I've been trying and have not any success.

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Set oRng = Selection.Range
oRng.Paste
oRng.Select
End Sub

Many thanks
David

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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