 |
|
Модераторы: mihanik |
 
|
|
форматирование текстового файла в ворде, автоматизировать бы процесс :)) 
| math_beginer |
|
|||
|
Шустрый  Профиль Группа: Участник Сообщений: 108 Регистрация: 29.5.2003 Репутация: нет Всего: 1 |
Никогда не думал что буду задавать здесь вопросы
 вобщем есть текстовый файл страниц так на 400. Сохранил еге как вордовский. Нужно убрать символы перевода строки (возврата каретки) в конце каждой строки. Можно такое сделать как-нибудь НЕ ручками??? Заранее спасибо --------------------
Метод "Кнута и Пряника" - алгоритм, описанный в известной монографии Кнута и позднее модифицированный русским программистом Пряником. |
|||
|
||||
Загрузка ...
| Алина |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 60 Регистрация: 14.5.2005 Репутация: нет Всего: нет |
Sub del_line_end()
s = "" Dim docNew, docOld As Document Set docOld = ActiveDocument Set docNew = Documents.Add For i = 1 To docOld.Paragraphs.Count s = docOld.Paragraphs(i) g = Application.CleanString(s) docNew.Content.InsertAfter g Next i End Sub Это если документ состоит из одной "части" - раздела, если нет, то надо добавить еще цикл по Section(j)... |
|||
|
||||
| math_beginer |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 108 Регистрация: 29.5.2003 Репутация: нет Всего: 1 |
Не работает. Я не сталкивался с VBA, но вроде бы из описания следует, что символы с кодом 13 (paragraph) функция CleanString() как раз оставляет без изменения...
--------------------
Метод "Кнута и Пряника" - алгоритм, описанный в известной монографии Кнута и позднее модифицированный русским программистом Пряником. |
|||
|
||||
| ~FoX~ |
|
|||
 НЕ рыжий!!! Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: нет Всего: 68 |
math_beginer
А стандартный поиск с заменой чем не устраивает? --------------------  …множественность никогда не следует полагать без необходимости… |
|||
|
||||
| Алина |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 60 Регистрация: 14.5.2005 Репутация: нет Всего: нет |
Этот код убирает как раз символ возврата каретки! Параграфы оставляет без изменения...
А стандартное Правка -> Специальная вставка-> Неформатированный текст не пробовал? Может поможет... |
|||
|
||||
| likhobory |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 466 Регистрация: 17.5.2005 Где: Москва Репутация: 5 Всего: 20 |
Попробуй использовать возможности WSH в VBA:
подключаем ссылочку на vbscript.dll (в перечне ссылок выбираем Microsoft VBScript Regular Expressions)
Это сообщение отредактировал(а) likhobory - 17.5.2005, 19:50 |
|||
|
||||
|
|
| Правила форума "Работа с MS Office" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Работа с MS Office | Следующая тема » |
[ Время генерации скрипта: 0.0492 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |