Paste from Clipboard, Find and Replace All, Then Copy Results Back to The Clipboard

macropod · #8 01-03-2025, 12:52 PM

You still haven't given any context, so it's impossible to know what the best way of handling the task is. All this copying, pasting & cutting seems to be a lot of pointless circumlocution.

That said, the code could be reduced to:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Rng As Range: Set Rng = ActiveDocument.Range(0, 0)
With Rng
  .PasteSpecial DataType:=wdPasteText
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Execute Findtext:="[<>#]", ReplaceWith:="-", MatchWildcards:=True, Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
  End With
  .Cut
End With
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
paste from clipboard to selected paragraphs	yacov	Word VBA	5	02-04-2024 01:41 PM
Replicate the copy/paste function, without involving the clipboard	alex100	Word VBA	8	11-09-2020 08:19 AM
Need to copy specific formated text from Word and paste from clipboard into a console application	Userx	Word VBA	0	10-09-2020 05:58 AM
Error with Clipboard - Getting Spaces Out of Clipboard	StephenRay	Word VBA	14	09-27-2017 01:07 PM
Find & selected paras with highlighted text & copy to clipboard	marceepoo	Word VBA	1	09-14-2012 08:20 PM