VBA (Word) zoeken en vervangen

Hallo,

Ik ben een methode aan het zoeken om lege alinea's met een lijn boven (van de linkermarge tot de rechtermarge) te vervangen door een lege alinea zonder lijn, of om de alinea met bovenliggende lijn te vewijderen.
Aangezien ik bitter weinig afweet van VBA, en er met te zoeken op het web en te proberen niet geraak, hoop ik hier een eenvoudige oplossing te vinden.
Ik heb al iets gevonden dat werkte in een testdocument(je) (zonder filtering op blanco alinea's), maar als ik het effectief toepas in een document van de gebruikelijke omvang (+200 blz.) duurt het zeer lang.
Kan iemand me helpen ?

Hieronder hetgeen ik in elkaar 'geknutseld' heb.
----------------------------------------------------------------
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Do While Selection.Find.Execute
If Selection.Style.Borders(wdBorderTop).LineStyle = wdLineStyleSingle Then
Selection.Style.Borders(wdBorderTop).LineStyle = wdLineStyleNone
End If
Loop
---------------------------------------------------------------------------------------------

VBA (Word) zoeken en vervangen