Чтение из файлов типа .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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.6 из 5
Похожие ответы