[Office] пробелы
Original Message From: В.Ельский <dron***@r*****.ru>
To: comp.soft.others.word (9410975) <oleg***@i*****.ru>
Sent: Friday, April 13, 2007 9:34 AM
Действительно, после первого прогона незаметно, что проведены изменения.
Поэтому повторите операцию - "Найти"-"Заменить"-"Заменить все", затем еще
раз...
Но, по-моему, пробелы у вас находятся с левой стороны. Попробуйте выделить
их мышкой при нажатой клавише Alt (сначала клавишу, потом левую кнопку
мышки)... И уничтожьте (Del).
Встанет проблема "соединения" строк в абзацы...
Выделите текст, который нужно объединить, вызовите "Поиск" - "Больше" -
"Специальный" (формат) - и в открывающемся списке выберите символ абзаца.
Теперь в окне "Заменить" вставьте пробел. Осталось нажать заменить все и (не
забывайте) на вопрос - делать ли замену в оставшемся тексте ответьте "Нет!".
Выделяем новый участок и делаем то же....
...Все эти сведения получены мной от участников подписки, поэтому автора
определить сложно. Спасибо всем!
....Удачи Вам, В.Ельский! Получится!
С уважением Олег
С уважением.Олег.
Здравствуйте уважаемые участники рассылки!
Надеюсь, что тема ещё актуальна.
Я некоторое время назад столкнулся с такой же проблемой, вот только
документ был раза в 3 больше.
Из этой же расслки мне помог один добрый человек, его же советом хочу
поделиться и с вами.
Он прислал мне простейшие макросы, при помощи которых проблема лишних
пробелов снимается одни нажатием клавишь или мышки.
--
Sub SpaceRemove()
SpaceRemoveSub (10)
SpaceRemoveSub (9)
SpaceRemoveSub (8)
SpaceRemoveSub (7)
SpaceRemoveSub (6)
SpaceRemoveSub (5)
SpaceRemoveSub (4)
SpaceRemoveSub (3)
SpaceRemoveSub (2)
End Sub
Sub SpaceRemoveSub(iVal As Integer)
Dim sStrSearch As String
sStrSearch = Space(iVal)
With ActiveDocument.Content.Find
.ClearFormatting
With .Replacement
.ClearFormatting
End With
.Execute FindText:=sStrSearch, ReplaceWith:=" ", Format:=True, Replace:=wdReplaceAll
End With
Selection.HomeKey Unit:=wdStory
End Sub
Теперь если находясь в документе вызвать на выполнение SpaceRemove, то будут
удалены все незначимые пробелы.
С уважением, POL
--
Если в рассылке есть люди, которые помогут мне написать макрос,
позволяющий приводить документы *.txt в *.doc по алгоритму, который я
использую часто, прошу откликнуться на личку.
Всего хорошего.
--
С уважением
Владислав Демьянов
vgd@m*****.kz