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

Private Sub Command1_Click() 
  Shell "notepad.exe", vbNormalFocus 
  ... 
End Sub

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