Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразовать WORD в текст / 9 сообщений из 9, страница 1 из 1
04.03.2014, 17:22
    #38578041
Егор1985
Егор1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
Помогите с решением, как преобразовать имеющийся файл в файл с таким же текстом и обычным форматированием. В оригинале файл состоит из сотен строк (элементов) в каждом элементе текст, как убрать элементы а текст сохранить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2014, 17:46
    #38578100
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
Код: 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:58
    #38578123
Егор1985
Егор1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
Shocker.Pro,
Запускать в файле?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2014, 17:59
    #38578124
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
Да, конечно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2014, 18:03
    #38578134
Егор1985
Егор1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
Егор1985,
работает!!!
правда только через строчку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2014, 18:05
    #38578142
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
На вашем примере все работало четко, давайте другой пример.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2014, 18:21
    #38578168
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
У меня не сработало. Лучше не удалять фигуры в цикле, а удалить потом:
Код: 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
| Ответить | Цитировать | Написать  
05.03.2014, 00:10
    #38578354
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
Егор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, 08:43
    #38578452
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать WORD в текст
ПЕНСИОНЕРКАподозреваю, что это результат грубого распознаванияв этом случае конечно лучше правильно настроить OCR, чем писать подобные скрипты
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразовать WORD в текст / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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