Чтение из файлов типа .doc в открытые Notepad и WordPad - VB
Формулировка задачи:
Здравствуйте!
Помогите, пожалуйста, решить следующую задачу.
Есть, например, три файла: 1.doc, 2.doc, 3.doc.
Необходимо при нажатии на кнопку получить такую последовательность действий:
1. открыть Notepad (он остаётся постоянно видимым и активным);
2. считать в него данные из файла 1.doc (добавление строки должно быть видно);
3. добавить в следующую строку данные из файла 2.doc (добавление строки должно быть видно);
4. добавить в следующую строку данные из файла 3.doc (добавление строки должно быть видно).
Открыть Notepad принажатии кнопки можно так:
А как вставлять в него данные из файлов (желательно без создания временных файлов)?
И второе - необходимо сделать тоже самое для WordPad.
Спасибо!
Решение задачи: «Чтение из файлов типа .doc в открытые Notepad и WordPad»
textual
Листинг программы
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