clean extra space

yacov · #1 02-08-2024, 01:42 AM

Hello,
I tried to change the macro below so that in one run it will delete an unnecessary space next to the + - signs
Is it possible?
I can duplicate the macro and put one mark per macro but that leaves me with a lot of shortcuts.
Thanks

Sub MFindReplacePARA()
Dim aDoc As Document, strFindText As String, strReplaceText As String
strFindText = "^p^p"
strReplaceText = "^p"
strFindText = " +"
strReplaceText = "+"

strFindText = "+ "
strReplaceText = "+"
strFindText = "- "
strReplaceText = "-"
strFindText = " -"
strReplaceText = "-"
For Each aDoc In Application.Documents
With aDoc.Range.Find
.Text = strFindText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Next aDoc
End Sub

vivka · #2 02-08-2024, 08:08 AM

Hi, Yacov! It's not difficult:

Code:

Sub MFindReplacePARA()

        With selection.range.Find
            .text = " {1,}([+-]) {1,}"
            .Replacement.text = " \1 "
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchWildcards = True
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
        End With
 End Sub

If there's an error, replace ',' with ';' in curly brackets.

You may modify the code to meet your requirements.

yacov · #3 02-08-2024, 09:06 AM

thanks a lot Vivka.
For some reason it sometimes works for me and sometimes it doesn't.

But I recorded a macro that runs several macros and each one does a swap. And so by a single shortcut I can run them all together.

Sub CLEAN()
'
' CLEAN Macro
'
'
Application.Run MacroName:="Normal.NewMacros.MFindReplaceMINUS1"
Application.Run MacroName:="Normal.NewMacros.MFindReplaceMINUS2"
Application.Run MacroName:="Normal.NewMacros.MFindReplacePLUS1"
Application.Run MacroName:="Normal.NewMacros.MFindReplacePLUS2"
Application.Run MacroName:="Normal.NewMacros.MFindReplacePARA"
Application.Run MacroName:="Normal.NewMacros.MFindReplace"
End Sub

vivka · #4 02-08-2024, 09:15 AM

Yacov, could you, please, post a sample of the problem document. I'm curious, because for me the code works smoothly: it leaves only one space before and after + and -. Maybe you want to delete single spaces also? Then use:

Code:

Sub MFindReplacePARA()

        With selection.range.Find
            .text = " {1,}([+-]) {1,}"
            .Replacement.text = "\1"
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchWildcards = True
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
        End With
 End Sub

yacov · #5 02-08-2024, 09:32 AM

Thank a lot, now it works great.

Sorry for not explaining myself in the first place.

vivka · #6 02-08-2024, 09:36 AM

Yacov, the following code will also delete empty paragraps:

Code:

Sub Spaces()

    With selection.range.Find
        .text = Chr(13) & "{2,}"
        .Replacement.text = Chr(13)
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
        .text = " {1,}([+-]) {1,}"
        .Replacement.text = "\1"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

yacov · #7 02-08-2024, 10:01 AM

very useful,
Thank you very much

vivka · #8 02-08-2024, 10:27 AM

You are welcome, Yacov!

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing extra space between word	BillMcEnaney	Word	9	02-16-2023 11:03 PM
How to delete extra space (between lines)?	Gerald Wilhelm	Word	15	08-26-2020 04:08 AM
Merge field needs extra space when it populates	jaj42305	Mail Merge	3	04-21-2016 03:33 PM
extra space before equation	Nice2007	Word	1	04-27-2012 05:05 PM
Slight extra space between lines.	lucadelcarlo	Word	1	04-23-2011 04:05 PM