Replace a hard return with a dash in the text of a footnote

RobiNew · #1 11-02-2023, 03:17 AM

I devised this macro to replace a hard return with a dash in the text of a footnote. Sometimes it works correctly, but sometimes it gives an error as if it tried to replace also footnote ending paragraphs. Any idea? Thanks!

Code:

Sub ReplRefNrWithinFootnote()
'Replaces with dash paragraph mark in the text of a footnote
Set parRng = ActiveDocument.StoryRanges(wdFootnotesStory)
    With parRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = True
      .Text = (Chr(13)) & "([!^02])" 'avoid ref. numbers
      .Execute
    While .Execute
      parRng.Text = Replace(parRng.Text, Chr(13), " " & Chr(150) & " ")
    Wend
    End With
End Sub

vivka · #2 11-02-2023, 08:11 AM

Hi, RobiNew! Try this:

Code:

Sub ReplRefNrWithinFootnote()
'Replaces with dash paragraph mark in the text of a footnote

Set parRng = ActiveDocument.StoryRanges(wdFootnotesStory)

On Error Resume Next
    With parRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = False
      .text = "^p" 
      While .Execute And parRng.End < ActiveDocument.StoryRanges(wdFootnotesStory).End
        parRng.text = Replace(parRng.text, Chr(13), " " & Chr(150) & " ")
        parRng.Collapse wdCollapseEnd
      Wend
    End With
End Sub

RobiNew · #3 11-02-2023, 08:43 AM

Thanks a lot, Vivka! This one seems to work without exception.

vivka · #4 11-02-2023, 09:22 AM

See you next time, RobiNew!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for Find/replace to remove space before Hard Return	AlfredStreich	Word VBA	4	01-23-2020 03:59 PM
Find / Replace hard Carriage Return with Line break.	GreenBoy	Word	2	03-11-2018 02:32 AM
curly quotes after em-dash or hard space	btorrance	Word	0	06-07-2013 07:39 AM
Hard return renders upper case	clafond	Word	2	01-07-2013 12:26 PM
Hard page return?	markg2	Outlook	0	09-11-2012 08:49 AM