[Drongo]

Codru, А если встретится такое выражение "конец абзаца - пробел", как на скрине, перед началом слова? Тогда нужно будет переписывать макрос или создавать новый. Я просто сделал, ввёл Найти - конец абзаца, пробел и Заменить на - конец абзаца.

[Codru]

Drongo, необходимо создать новый, т.к. макрос удаляет больше одного пробела. В данном варианте достаточно одного простого макроса, ну а если первый знак будет разный, скорее всего, что без VBA не обойтись. Необходимо будет указать на пробел в начале строки. Вернусь домой, подумаю что можно сделать.

[Drongo]

Codru, Да зачем такие сложности, я ж написал, сначала ищем пару пробелов и заменяем их на один, до тех пор, пока количество замен не будет равно нулю, второй этап, ищем знак абзаца и пробел и заменяем их абзацем, всё, 1 минута, максимум полторы...

[Codru]

Drongo , я согласен с Вами, но иногда, когда имеем дело с большими текстами, удобно иметь рядом с меню несколько кнопочек, которые работают за тебя, пока перекуриваешь.

[Drongo]

Codru, Тогда да, если не будет трудно, можно попробовать сделать Вашу задумку

Вернусь домой, подумаю что можно сделать. »

Во всяком случае, это вариант, и интересен своим решением, и мне будет полезно узнать.

[Codru]

Я просто сделал, ввёл Найти - конец абзаца, пробел и Заменить на - конец абзаца. »

Я тоже ничего лучше не мог придумать. Вот что получилось. Оказалось легче внести изменения в код, чем играться записью макроса.

Код:

Sub DeletSp()
'Удаление пробелов в начале строки
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^w"                   'это поле "Найти"
        .Replacement.Text = "^p"   'это поле "Заменить"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Кстати еще один код для удаления пробелов перед знаками препинания, например запятой и точкой:

Код:

.Text = " {1;}([\,\.)])"
.Replacement.Text = "\1"

[Serg_sm]

Такая проблема может кто сталкивался. При включеной сети ворд открывается секунд 40-50, если сетку отрубить, открывается почти мгновенно. Сетевые адреса прописывал динамические и статические проблема остается. Помогите!!!

[Petya V4sechkin]

Serg_sm, какой-нибудь сетевой принтер подключен?
В меню Файл в списке последних открытых файлов есть из сети?

[Serg_sm]

Принтер не подключен, а файлы есть. Он что пытается сетевые файлы проверить на доступность?

[Petya V4sechkin]

Serg_sm, не знаю, честно говоря (просто других идей не было).