Get rid of leading spaces before paragraphs in the footnote section

vivka · #10 10-25-2023, 03:45 AM

Hi, RobinNew! The last macro is only for footnotes! If used on storyrange(1) that has empty paragraphs, it will merge the paragraphs. On the other hand, the macro that is always good for storyrange(1) won't be good for storyrange(2). I suggest you combine two codes in one: the first one for the main body/active document followed by the other one for footnotes. I could not make a code based on Find-Replace that would be good for both storyranges.

My combination:

Code:


Sub Del_Spaces_Starting_Paras()
 'In the doc's main body and footnotes, delete spaces starting paras.

Dim myRng As range
    
Application.ScreenUpdating = False

'Work on active doc/main body:
  Set myRng = ActiveDocument.StoryRanges(1)
    selection.Find.ClearFormatting
    selection.Find.Replacement.ClearFormatting
    With myRng.Find
        .text = "[^32^s^9]{1;}([!^13]@^13)"
'Or:
'        .text = "[^32^s^9]{1;}(*^13)"
        .Replacement.text = "\1"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
    Set myRng = ActiveDocument.StoryRanges(2)
    With myRng.Find
        .text = "[^32^s^9]{1;}([!^13]@^13)"
'Or:
'        .text = "[^32^s^9]{1;}(*^13)"
        .Replacement.text = "\1"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
        .text = "[^13]{2;}"
        .Replacement.text = ""
        .Execute Replace:=wdReplaceAll
    End With
  Application.ScreenUpdating = True
  Set myRng = Nothing
 End Sub

Or use the following code, which is not as fast as the Find_Replace code, but it is quite simple;

Sub Spaces_Starting_Paras_Del()
'In the doc's main body and footnotes, delete spaces starting paras.

Application.ScreenUpdating = False

For i = 1 To 2
For Each Para In ActiveDocument.StoryRanges(i).Paragraphs
Do While Para.range.Characters.First = Chr(32)
Para.range.Characters.First.Delete
Loop
Next Para
Next i
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote references in the footnote section losing their style when cut+pasted from same doc	emblaw	Word	4	12-08-2020 06:23 AM
Find and Replace/Insert 'CR', delete leading Spaces wherever a user Clicks in a Word document	DavidL	Word VBA	7	04-04-2018 12:01 AM
How to remove trailing & leading spaces in a cell?	LearnerExcel	Excel Programming	8	02-04-2018 08:22 PM
Removing indentations at beginning of paragraphs and replacing with line spaces	captainamerica	Word	2	10-27-2017 05:32 PM
Get rid of leading spaces before paragraphs	fig000	Word	11	03-14-2016 01:59 PM