Microsoft Office Forums - View Single Post - Remove spaces before each paragraph mark in text and footnotes

Guessed · 10-08-2023, 03:42 AM

Try this version then

Code:

Sub CleanParas()
  Dim oRng As Range, iType As Integer
  For iType = 1 To 2
    Set oRng = ActiveDocument.StoryRanges(iType)
    With oRng.Find
      .ClearFormatting
      .Text = "^w^p"
      While .Execute
        'oRng.Select
        oRng.MoveEnd Unit:=wdCharacter, Count:=-1
        'oRng.Select
        oRng.Text = ""
      Wend
    End With
  Next iType
End Sub