ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразовать WORD в текст
9 сообщений из 9, страница 1 из 1
Преобразовать WORD в текст
    #38578041
Егор1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Егор1985
Гость
Помогите с решением, как преобразовать имеющийся файл в файл с таким же текстом и обычным форматированием. В оригинале файл состоит из сотен строк (элементов) в каждом элементе текст, как убрать элементы а текст сохранить?
...
Рейтинг: 0 / 0
04.03.2014, 17:22
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578100
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
4.
5.
Dim w As Shape
For Each w In ThisDocument.Shapes
  ThisDocument.Range.InsertAfter w.TextFrame.TextRange
  w.Delete
Next
...
Рейтинг: 0 / 0
04.03.2014, 17:46
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578123
Егор1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Егор1985
Гость
Shocker.Pro,
Запускать в файле?
...
Рейтинг: 0 / 0
04.03.2014, 17:58
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578124
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Да, конечно
...
Рейтинг: 0 / 0
04.03.2014, 17:59
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578134
Егор1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Егор1985
Гость
Егор1985,
работает!!!
правда только через строчку
...
Рейтинг: 0 / 0
04.03.2014, 18:03
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578142
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
На вашем примере все работало четко, давайте другой пример.
...
Рейтинг: 0 / 0
04.03.2014, 18:05
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578168
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
У меня не сработало. Лучше не удалять фигуры в цикле, а удалить потом:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub bb()
Dim w As Shape
For Each w In ThisDocument.Shapes
  ThisDocument.Range.InsertAfter w.TextFrame.TextRange
'  w.Delete
Next
ThisDocument.Shapes.SelectAll
Selection.Delete
End Sub
...
Рейтинг: 0 / 0
04.03.2014, 18:21
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578354
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Егор1985,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub bb140305()
'предпочитаю не портить исходник
'в надписи может быть не только текст, но и таблица-рисунок --- и ---прочая
'подозреваю, что это результат грубого распознавания
''
''если же это результат работы некой умной проги--- проблем может быть еще больше
''(нарушение порядка надписей)
Dim w As Shape, s1, s2, ss
ss = ""
For Each w In ThisDocument.Shapes
s1 = w.TextFrame.TextRange
ss = ss & s1
Next
Word.Documents.Add
s2 = Chr(13) & Chr(10)
Selection.Range.Text = ss
End Sub


03.03.2014
Завод Тольяти

Иванов Иван Иванович
Петров Сергей Константинович
...
Рейтинг: 0 / 0
05.03.2014, 00:10
| Ответить | Цитировать | Написать  
Преобразовать WORD в текст
    #38578452
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ПЕНСИОНЕРКАподозреваю, что это результат грубого распознаванияв этом случае конечно лучше правильно настроить OCR, чем писать подобные скрипты
...
Рейтинг: 0 / 0
05.03.2014, 08:43
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразовать WORD в текст
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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