Macro to remove spaces between characters

gmaxey · #5 05-09-2018, 05:46 PM

Well, based on your sample where words are separated by two spaces, it replaces those two spaces with a temporary marker "***". Then it joined any character separated from any other character with a space. Finally it replaced the temporary marker with a space.

Paul is right, you don't need a macro. You asked for one though. Using Paul's refined construction:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 5/9/2018
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "([! ])^32 "
    .Replacement.Text = "\1"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
End Sub

Which basically finds any character not a space and a space and replaces it with that character.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to remove blank spaces between rows in a table,	Jamal NUMAN	Word	2	04-28-2017 12:59 PM
A Widlcard or Macro to Properly Remove Spaces Between Commas?	CrossReach	Word	6	01-23-2017 04:28 AM
Can I remove spaces between only Chinese characters?	sivartnosredna7	Word	2	01-09-2017 05:33 AM
How to remove spaces from Cells which are at the end of value?	LearnerExcel	Excel	2	12-19-2016 01:10 PM
editing text and remove spaces	romanticbiro	Word VBA	5	07-04-2014 07:42 PM