mr_4eJl

Начал тему http://pchelpforum.ru/f28/t50860/, но никто так и не ответил. Прошу помощи у програмистов умеющих писать программы (сам с этим делом не знаком). Если коротко, то нужна программа с такими функциями, если следующая строка (ентер) сделана не после знака (точки, воскл., вопросит. и пр.), то чтобы прога этот перенос строки (ентер) убирала. Просто в ручную 1 000+ страниц не вариант. На мой взгляд программка лёгкая и, на сколько помню паскаля из школы, выйдет в небольшой алгоритм.
Помогите.

Jhonson

Добавь в модуль документа WORD
После того как добавишь, выполни макрос "убрать_энтер"
Должно работать!



Sub убрать_энтер()

' Убираем все энтеры и ставим вместо них пробелы
Selection.WholeStory
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
End With
Selection.Find.Execute Replace:=wdReplaceAll

' Ищем точку
Selection.WholeStory
With Selection.Find
.Text = "."
.Replacement.Text = ".^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll

' Ищем восклицательный знак
Selection.WholeStory
With Selection.Find
.Text = "!"
.Replacement.Text = "!^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll

' Ищем вопросительный знак
Selection.WholeStory
With Selection.Find
.Text = "?"
.Replacement.Text = "?^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

---------- Добавлено в 14:12 ---------- Предыдущее сообщение было написано в 14:11 ----------

Если что не понятно спрашивай, постараюсь помочь.

---------- Добавлено в 14:29 ---------- Предыдущее сообщение было написано в 14:12 ----------

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


Sub убрать_энтер()

' Убираем все энтеры и ставим вместо них пробелы
Selection.WholeStory
With Selection.Find
.Text = "^$^p"
.Replacement.Text = " "
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Jhonson

последний вариант!

Sub поиск()
Dim a$(7), b$(7)
' Ищем точку
a$(1) = ".^p"
b$(1) = "TCHK"
' Ищем восклицательный знак
a$(2) = "!^p"
b$(2) = "VSKL"
' Ищем вопросительный знак
a$(3) = "?^p"
b$(3) = "VOPR"
' Убираем все энтеры
a$(4) = "^p"
b$(4) = ""
' Ищем точку
a$(5) = "TCHK"
b$(5) = ".^p"
' Ищем восклицательный знак
a$(6) = "VSKL"
b$(6) = "!^p"
' Ищем вопросительный знак
a$(7) = "VOPR"
b$(7) = "?^p"

For i = 1 To 7
Selection.WholeStory
With Selection.Find
.Text = a$(i)
.Replacement.Text = b$(i)
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

End Sub