Чтение из файлов типа .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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д