Гость
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление символа конца строки / 8 сообщений из 8, страница 1 из 1
27.05.2004, 11:38
    #32536258
paule
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
Друзья, помогите кодом.
Нужен макрос, который удаляет в конце каждой строки символ конца (перевода курсора) строки т заместо него ставит пробел.
Знаю что просто, но не знаю басик
...
Рейтинг: 0 / 0
27.05.2004, 14:40
    #32536840
funddd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
Макрос-то в Ворде?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub PoiskEnterovIZamenaIhNaProbely()
    With ActiveDocument.Content.Find
        .Text = vbCrLf
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdReplaceAll
    End With
    ActiveDocument.Content.Find.Execute 
End Sub
...
Рейтинг: 0 / 0
28.05.2004, 09:41
    #32537996
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
F1 - Replace.
...
Рейтинг: 0 / 0
28.05.2004, 10:42
    #32538171
paule
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
2 funddd,
ага в ворде!

2 big-duke
и что такое вы этим сказали.
если стандартная замена, то как символ конца строки найти то?
...
Рейтинг: 0 / 0
28.05.2004, 10:46
    #32538182
paule
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
funddd, не проканал этот скрипт!
...
Рейтинг: 0 / 0
28.05.2004, 12:59
    #32538672
funddd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
попробуй место vbcrlf искать chr(10) или chr(13) или и то, и другое сразу.
...
Рейтинг: 0 / 0
28.05.2004, 13:10
    #32538701
funddd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
последняя редакция - только что проверил, работает

Код: plaintext
1.
2.
3.
Sub f
ActiveDocument.Content.Find.Execute FindText:=Chr( 13 ), ReplaceWith:=" ", Replace:=wdReplaceAl

end sub
...
Рейтинг: 0 / 0
28.05.2004, 14:03
    #32538843
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление символа конца строки
Стандартная замена
Меняем ^p (это признак конца абзаца) на пробел

Если надо другие спец. символы, в окне замены нажимайте кнопку "Больше" (внизу) и там кнопку "Специальный" (извиняюсь если перевод неточный)
Ну или F1
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление символа конца строки / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]