Bulk Removal of Paragraph Mark in Header

macropod · #5 07-08-2022, 06:14 AM

You could just change:
FindText:="[^13]{3,}"
to:
FindText:="[^13]{2,}"
and leave:
ReplaceWith:="^p^p"
alone.

Alternatively, you might modify the Dim line at the top of the UpdateDocuments sub, thus:

Code:

Dim strInFolder As String, strFile As String, Sctn As Section, HdFt As HeaderFooter, Rng As Range

and change:

Code:

        With HdFt
          If .Exists Then .Range.Find.Execute FindText:="[^13]{3,}", ReplaceWith:="^p^p", MatchWildcards:=True, Replace:=wdReplaceAll
        End With

to:

Code:

        With HdFt
          If .Exists Then
            Set Rng = .Range.Characters.Last
            With Rng
              Do While .Start > HdFt.Range.Start
                If .Characters.First.Previous = vbCr Then
                  .Start = .Start - 1
                Else
                  Exit Do
                End If
              Loop
              If .Paragraphs.Count > 2 Then .Text = vbCr & vbCr
            End With
          End If
        End With

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
a macro to replace paragraph mark with a space applies effect on paragraph marks after the selection	drrr	Word VBA	2	08-24-2021 03:05 AM
What is this paragraph mark called	booneyrex	Word	8	03-04-2021 04:15 AM
Indention below paragraph mark...	kikola	Word VBA	13	05-26-2020 06:21 AM
Please help with header and footer removal	pwangdel	Word	3	11-03-2011 06:10 AM
Final paragraph mark	Caroline	Word	2	02-22-2011 10:39 AM