בקשה | מאקרו למחיקת כמה פסקאות

[דאנציג]

זכור לי שיש בפורום מאקרו למחיקת כמה פסקאות, אשמח אם מישהו יכוון אותי אליו.
@מאקרו
תודה רבה

[YAAKOVSAS]

@דאנציג כתב בבקשה | מאקרו למחיקת כמה פסקאות:

מאקרו למחיקת כמה פסקאות

מה הכוונה?

[דאנציג]

@YAAKOVSAS
כאשר אתה עושה פיסקא חדשה בוורד (קונטרול) ריקה, זכור לי שיש אפשרות למחוק טווח של כמות פסקאות ריקות (יכול להיות שאני מתבלבל עם מחיקת רווחים כפולים).
כך שכל הפסקאות הריקות ימחקו בלחיצת כפתור.
@נוכחות ?

[מניין]

@דאנציג אתה יכול לעשות את זה לבד בקלי קלות דרך הקלטת מאקרו, תקליט חיפוש שני מעברי פסקא, והחלף במעבר פסקא אחת, וזהו.

[מאקרו]

@מניין

Sub DeletingEmptyParagraphs()
'
' DeletingEmptyParagraphs Macro
' מחיקת פסקאות ריקות
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^13{2,}"
        .Replacement.Text = "^13"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[דאנציג]

@מאקרו
תודה רבה, זה מה שחיפשתי.
@מניין עד כמה שזכור לי עם הקוד של @מאקרו גם עם יש שלוש או ארבע פסקאות, במקום ללחוץ שוב על המאקרו, זה מוחק את כולם בפקודה אחת.
(הדהכי והכי עשיתי מאקרו שמוחק שלוש פסקאות ריקות ואחר כך שתיים ושוב ושוב עד שאין עוד פסקאות ריקות...).

עזרתם לי להמשך

אגב
אשמח אם תוכלו לעזור לי: כיצד מחפשים פיסקא בעלת שתי מילים בלבד (בשביל להחיל עליה סגנון כותרת, (כל הטקסט באותו סגנון))?
תודה רבה