Макрос для форматирования текста, скопированного из интернета

Sub Макрос1()
'
' Макрос1 Преобразование txt в doc
'
'
' 1) Удаление пробелов в конце строк, где они есть (замена " ^p" на "^p" несколько раз)
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = " ^p"
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Text = " ^p"
        .Replacement.Text = "^p"
        .ClearFormatting
        .Replacement.ClearFormatting
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Text = " ^p"
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll
    End With
    
' 2) Удаление знаков переноса (замена "-^p" на "" и "-^p" на "")
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = "-^p"
        .Replacement.ClearFormatting
        .Replacement.Text = ""
'        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Text = "-^p"
        .Replacement.ClearFormatting
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
    End With
    
' 3а) Добавление пустой строки после точки (замена ".^p" на ".^p^p")
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = ".^p"
        .Replacement.Text = ".^p^p"
        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
' 3б) Добавление пустой строки после двоеточия (замена ":^p" на ":^p^p")
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = ":^p"
        .Replacement.Text = ":^p^p"
        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
' 3в) Добавление пустой строки после точки с запятой (замена ";^p" на ";^p^p")
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = ";^p"
        .Replacement.Text = ";^p^p"
        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
' 3г) Добавление пустой строки после восклицательного знака (замена "!^p" на "!^p^p")
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = "!^p"
        .Replacement.Text = "!^p^p"
        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
' 3д) Добавление пустой строки после вопросительного знака (замена "?^p" на "?^p^p")
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = "?^p"
        .Replacement.Text = "?^p^p"
        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
' 3е) Добавление пустой строки после троеточия (замена "…^p" на "…^p^p")
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = "…^p"
        .Replacement.Text = "…^p^p"
        .Replacement.Font.Bold = False
        .Execute Replace:=wdReplaceAll
    End With
' 4) Выделение сочетания "^p^p" жирным шрифтом (замена "^p^p" нежирным шрифтом на "^p^p" жирным шрифтом)
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p^p"
        .Replacement.Font.Bold = True
        .Execute Replace:=wdReplaceAll
    End With
    
' 5) Замена "^p" на " " для нежирного шрифта (замена "^p" нежирным шрифтом на " " нежирным шрифтом)
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .Text = "^p"
        .Font.Bold = False
        .Replacement.Text = " "
        .Replacement.ClearFormatting
        .Execute Replace:=wdReplaceAll
    End With
' 6) Убрать знаки переноса жирным шрифтом (замена "^p" жирным шрифтом на "^p" нежирным шрифтом)
    Selection.Start = 0
    Selection.End = 0
    With Selection.Find
        .ClearFormatting
        .Format = True
        .Font.Bold = True
        .Text = "^p^p"
        .Replacement.ClearFormatting
        .Replacement.Text = "^p"
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub