Thread: [Solved] Paste from Clipboard, Find and Replace All, Then Copy Results Back to The Clipboard
View Single Post
 
Old 01-02-2025, 01:32 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,387
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Your Find/Replace code could be reduced to:
Code:
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Execute Findtext:="[<>#]", ReplaceWith:="-", MatchWildcards:=True, Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
End With
But, as implied in Italophile's reply, your question lacks context. It's not even apparent why you're doing the copy/paste activity, let alone what all the stuff in your code to do with footnotes has to do with it.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote