Thread: Macro to remove spaces between characters
View Single Post
 
Old 05-09-2018, 05:52 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
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
Quote:
Originally Posted by gmaxey View Post
Using Paul's refined construction:
which could be reduced to:
Code:
Sub Demo()
ActiveDocument.Range.Find.Execute FindText:="([! ])^32 ", ReplaceWith:="\1", MatchWildcards:=True, Replace:=wdReplaceAll
End Sub
but I'm sure you knew that
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote