Macro for Find/replace to remove space before Hard Return

gmaxey · #1 01-23-2020, 09:23 AM

I suppose it is because of some of the "SMART" features of Word sometimes deleting spaces in front of paragraph marks can be confounding. This is exacerbated when dealing with the footnote storyrange because it is a Medusa in itself. You might try:

Code:

Sub ScratchMacro()
Selection.Find.Replacement.ClearFormatting
Dim oRng As Range
Set oRng = ActiveDocument.StoryRanges(wdFootnotesStory)
  With oRng.Find
    .ClearFormatting
    .Text = " ^p"
    While .Execute
      oRng.Characters.First.Text = "~"
      oRng.Characters.First.Delete
      oRng.Collapse wdCollapseEnd
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find / Replace hard Carriage Return with Line break.	GreenBoy	Word	2	03-11-2018 02:32 AM
Code to find numerical string + space throughout document & replace them with Comma	Robert Kay	Word VBA	6	02-21-2018 04:41 PM
Find and Replace with space	cheech1981	Word	3	03-29-2017 02:33 PM
Hard page return?	markg2	Outlook	0	09-11-2012 08:49 AM
remove color from find/replace?	Cobb78	Word	1	05-26-2012 06:16 PM