Преобразовать WORD в текст / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразовать WORD в текст

9 сообщений из 9, страница 1 из 1

Преобразовать WORD в текст

#38578041

Егор1985

Гость

Помогите с решением, как преобразовать имеющийся файл в файл с таким же текстом и обычным форматированием. В оригинале файл состоит из сотен строк (элементов) в каждом элементе текст, как убрать элементы а текст сохранить?

...

Рейтинг:

0 / 0

04.03.2014, 17:22

| Ответить | Цитировать | Написать

Преобразовать WORD в текст

#38578100

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: 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

Гость

Shocker.Pro,
Запускать в файле?

...

Рейтинг:

0 / 0

04.03.2014, 17:58

| Ответить | Цитировать | Написать

Преобразовать WORD в текст

#38578124

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Да, конечно

...

Рейтинг:

0 / 0

04.03.2014, 17:59

| Ответить | Цитировать | Написать

Преобразовать WORD в текст

#38578134

Егор1985

Гость

Егор1985,
работает!!!
правда только через строчку

...

Рейтинг:

0 / 0

04.03.2014, 18:03

| Ответить | Цитировать | Написать

Преобразовать WORD в текст

#38578142

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

На вашем примере все работало четко, давайте другой пример.

...

Рейтинг:

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

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Егор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

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ПЕНСИОНЕРКАподозреваю, что это результат грубого распознаванияв этом случае конечно лучше правильно настроить OCR, чем писать подобные скрипты

...

Рейтинг:

0 / 0

05.03.2014, 08:43

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразовать WORD в текст

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=38578041&tid=2174196]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	49ms
get topic data:	10ms
get forum data:	2ms
get page messages:	49ms
get tp. blocked users:	2ms
others:	13ms

total:	154ms