Страница: 1 |
Существует файл Вордовский в формате .doc Какмне текст из этого файла ПО СТРОКАМ занести в List? Как занести-то понятно, методом AddItem, а вот как получить эти строки из Вордовского документа? Заранее благодарен!
Подключаешь библиотеку Ворда. Там весь букет для работы с его файлами (можно сделать больше програмно чем руками). Создаешь объект Word.Document и вперед. Что непонятно будет, спроси. Я создал объект, но как получить из него строки? Dim wrdDoc As Object Что написать в след. строке вместо вопросов для того, чтобы текст (если можно указать, то сразу n-ной строки) занёсся в поле Text1? Text1 = wrdDoc.??????????????????????? Может есть где описание функций этого объекта? Я не нашёл в Инете Лучше несколько иначе: Dim Doc as Word.Document Set Doc = Word.Documents.Open(FullFileName) Свойство Doc.Paragraphs содержит коллекцию параграфов (абзацев) документа. Строкик, как таковой, в Word понятие отсутсвует. Открывай объектный броузер и поиграй с этим Paragraphs. Что не будет получаться - спрашивай. Да, собственно, ничего не получается В ОбъектБраузере нет описания этого объекта. Только названия функций. Ни описания, ни примеров... Свойство Paragraphs тоже никак не хочет возворащать текст из 1.doc документа. Весь инет перерыл в поисках, как ПРОЧИТАТЬ содержимое Вордовского файла и нифига не нашёл. есть только пара примеров по созданию нового и сохранению... Продолжаю поиски... Может у кого есть рабочий пример, как всё-таки присвоить переменной в VB значение содержимого Вордовского документа? Там таблиц и ресунков не будет Только текст в разных строках. На всякий случай vost@iname.ru Заранее благодарен Боже, как всё просто СПАСИБО ГРОМАДНОЕ!!! Страница: 1 |
Вопрос: Работа из VB с .doc (разбиение на строки)
Добавлено: 13.05.03 10:47
Автор вопроса: Владимир
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
USA
Вопросов: 1
Ответов: 184
Профиль | | #1
Добавлено: 14.05.03 05:58
Номер ответа: 2
Автор ответа:
Владимир
Вопросов: 3
Ответов: 10
Профиль | | #2
Добавлено: 14.05.03 12:38
Set wrdDoc = CreateObject("Word.Document")
Set wrdDoc = GetObject("C:\temp\1.doc")
Номер ответа: 3
Автор ответа:
USA
Вопросов: 1
Ответов: 184
Профиль | | #3
Добавлено: 15.05.03 08:08
Номер ответа: 4
Автор ответа:
Владимир
Вопросов: 3
Ответов: 10
Профиль | | #4
Добавлено: 15.05.03 18:36
Номер ответа: 5
Автор ответа:
USA
Вопросов: 1
Ответов: 184
Профиль | | #5
Добавлено: 16.05.03 01:41
На мыло отправил пример.
Номер ответа: 6
Автор ответа:
Владимир
Вопросов: 3
Ответов: 10
Профиль | | #6
Добавлено: 16.05.03 09:50