Word 2007, текст не занимает всю страницу

Уважаемый PedoDiddy:

Недавно у нас было подробное обсуждение аналогичного вопроса:
http://wordexpert.ru/forum/viewtopic.php?id=985

В скопированном Вами тексте  в каждой строке находятся знаки конца абзаца.
Для того, чтобы их увидеть, нажмите кнопку Отобразить все знаки (на Главной вкладке в группе Абзац).
Вам необходимо удалить все ненужные знаки конца абзаца вручную или воспользоваться поиском этих знаков, введя в строку поиска следующие символы:
^v

Также коллегами был разработан макрос, который выполняет эту работу.

На всякий случай преобразовал Ваш файл.
Пользуйтесь на здоровье!

Просмотрел форум и, к сожалению, этого макроса не нашел.
На сайте есть статья:
http://wordexpert.ru/page/udalenie-lish … noj-makros
Но я не уверен, что это именно то, что нужно в данном случае.

Иван, макрос оказался не очень сложным.
Он выполняет следующие действия:
1) Удаление пробелов в конце строк, где они есть (замена " ^p" на "^p" несколько раз)
2) Удаление знаков переноса (замена "-^p" на "" и "–^p" на "")
3) Добавление пустых строк после различных знаков препинания:
а) Добавление пустой строки после точки (замена ".^p" на ".^p^p")
б) Добавление пустой строки после двоеточия (замена ":^p" на ":^p^p")
в) Добавление пустой строки после точки с запятой (замена ";^p" на ";^p^p")
г) Добавление пустой строки после восклицательного знака (замена "!^p" на "!^p^p")
д) Добавление пустой строки после вопросительного знака (замена "?^p" на "?^p^p")
е) Добавление пустой строки после троеточия (замена "…^p" на "…^p^p")
4) Выделение сочетания "^p^p" жирным шрифтом (замена "^p^p" нежирным шрифтом на "^p^p" жирным шрифтом)
5) Замена "^p" на " " для нежирного шрифта (замена "^p" нежирным шрифтом на " " нежирным шрифтом)
6) Убрать знаки переноса жирным шрифтом (замена "^p" жирным шрифтом на "^p" нежирным шрифтом)

Недостатки данного макроса:
1) Он объединяет с последующим текстом строки, которые не кончаются на знаки препинания (заголовки, знак препинания пропущен, названия рисунков, номер страницы книги).
2) Не работает с таблицами.
3) «Ошибается», если знак переноса выделен жирным шрифтом.
4) Если знак переноса «случайно» находится после знака «тире» в словах, в которых должно стоять тире (например, «административно-территориальный», «социально-экономический»), то конец строки и начало следующей строки объединяются без тире («административнотерриториальный», «социальноэкономический»).
5) Если знак переноса «случайно» находится после знака «точка с запятой», то считается, что это конец строки (это не всегда так).

Вот предлагаемый макрос:

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

Alex_Gur, спасибо! Макрос работает! На "Недостатки данного макроса" может посмотрит  viter.alex, он большой спец в этих делах.

Alex_Gur, спасибо! А нельзя ли сделать макрос, который работает для части текста (для выделенного участка текста)? Ваш макрос работает (по умолчанию) со <font color=Red>всем</font> текстом.

Alex_Gur, спасибо!
Что-то цвет слова "всем" не сработал в моем предыдущем сообщении.

Посмотрите макрос для преобразования только выделенной части в виде файла.