Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
yelis
1 / 1 / 0
Регистрация: 05.09.2008
Сообщений: 14
1

Чтение из файлов типа .doc в открытые Notepad и WordPad

27.02.2012, 10:29. Просмотров 1608. Ответов 1
Метки нет (Все метки)

Здравствуйте, форумчане!

Помогите, пожалуйста, решить следующую задачу.
Есть, например, три файла: 1.doc, 2.doc, 3.doc.
Необходимо при нажатии на кнопку получить такую последовательность действий:
1. открыть Notepad (он остаётся постоянно видимым и активным);
2. считать в него данные из файла 1.doc (добавление строки должно быть видно);
3. добавить в следующую строку данные из файла 2.doc (добавление строки должно быть видно);
4. добавить в следующую строку данные из файла 3.doc (добавление строки должно быть видно).
Открыть Notepad принажатии кнопки можно так:
Visual Basic
1
2
3
4
Private Sub Command1_Click() 
  Shell "notepad.exe", vbNormalFocus 
  ... 
End Sub
А как вставлять в него данные из файлов (желательно без создания временных файлов)?
И второе - необходимо сделать тоже самое для WordPad.
Спасибо!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2012, 10:29
Ответы с готовыми решениями:

Открытие "Запароленных" файлов типа .doc
При внедрении OLE объекта можно в него вставить документ Microsoft Word, при...

Чтение слова из Doc-файла
Здравствуйте уважаемые форумчане! нужна ваша помощь! у меня VB 6.0. Никак не...

Поиск и удаления всех файлов с расширением doc и xls
Нужно провести поиск по всему компьютеру и найденные файлы с расширением word...

Чтение doc файлов
чтение файла с расширением rtf понятно интересует теперь чтение файла с...

Чтение из файлов doc и docx
подскажите как можно прочитать текст из этих файлов.

1
KoGG
5278 / 1351 / 320
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
27.02.2012, 12:07 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Run_Notepad_Open_3_Doc()
    ' Открывет блокнот и копирует в него 3 заданных файла doc
    Dim MyNotepad
    Dim oWdApp As New Word.Application, WdDocument As Word.Document
    Dim FName(3) As String
    FName(1) = "C:\temp\Doc1.doc"
    FName(2) = "C:\temp\Doc2.doc"
    FName(3) = "C:\temp\Doc3.doc"
    oWdApp.Visible = True
    MyNotepad = Shell("notepad.exe", vbNormalFocus)
    For i = 1 To 3
        oWdApp.Documents.Open (FName(i))
        Set WdDocument = oWdApp.ActiveDocument
        WdDocument.Content.Select
        oWdApp.Selection.Copy
        AppActivate Title:="Блокнот"
        SendKeys "^V", False
        WdDocument.Close False
    Next
    oWdApp.Quit False
End Sub
 
 
Sub Run_WordPad_Open_3_Doc()
    ' Открывет WordPad и копирует в него 3 заданных файла doc
    Dim MyWordPad
    Dim oWdApp As New Word.Application, WdDocument As Word.Document
    Dim FName(3) As String
    FName(1) = "C:\temp\Doc1.doc"
    FName(2) = "C:\temp\Doc2.doc"
    FName(3) = "C:\temp\Doc3.doc"
    oWdApp.Visible = True
    MyWordPad = Shell("Write.exe", vbNormalFocus)
    For i = 1 To 3
        oWdApp.Documents.Open (FName(i))
        Set WdDocument = oWdApp.ActiveDocument
        WdDocument.Content.Select
        oWdApp.Selection.Copy
        AppActivate Title:="WordPad"
        SendKeys "^V", False
        WdDocument.Close False
    Next
    oWdApp.Quit False
End Sub


Добавлено через 11 минут
Должна быть подключена объектная библиотека MS Офиса.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2012, 12:07

Чтение файлов из doc и docx
Привет. Может плохо искал, но как правило поиски приводят на форумы delphi а...

открытие и чтение файлов .doc/.docx
помогите. как средствами visual studio на C# открыть файлы .doc/.docx и...

Безопасная загрузка документ-файлов на сервер типа pdf, doc, docx
Здравствуйте! Строю сайт, на котором пользователи могут закачитвать файлы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru