Loading a Word Doc into its Object in VB6 App

[PCHMilin]

Hello

This is my first post in this forum - welcome to me!! :-)

Ok - I have made a small viewer utility app in VB6 that I want to use at work to view and print the contents of MS WOrd files. I have created an App using filelist boxes that show the filenames - my concept is that when I double click on the filename, it loads itself into SOMETHING! In my code example below, I have created this to work, except I had to save the word file in rtf format and load it into the RTF control (it works) -- I really don't want to do that since I lose Word's formatting. What I have been trying to do is use the MS Word Document "insertable Object" that I can add to my toolbar, but I can't make/understand how to load the file into it - there is no .LoadFile option given to me when I use this object.

I have even experimented with using the Shell command to have the file open into the MS Word viewer (or Word for that matter) but I CAN'T have the form be editable - don't want anyone messin with it, and I don't see a way to block access ..I just want the user to have the ability to see it and print.

Here's my code example - using the RTF that works

Private Sub fileABC_DblClick()
'allows double click on filename to load the file
Dim SelectedFile
SelectedFile = fileABC.Path & "\" & fileABC.FileName
rtfText.LoadFile (SelectedFile)
End Sub

Anyone out there have any other suggestions?

Thanks
PCHMilin

[HeSaidJoe]

Option Explicit

Private Sub Form_Load()

    'in references, make reference to word object
    File1.Path = "C:\"
    File1.Pattern = "*.doc"

End Sub

Private Sub File1_Click()

    Dim strInput As String     '<<<<  variable for macro name
                                  
     Dim oWord As Object
     Set oWord = New Word.Application

     oWord.Visible = True   '<<<< make word visible (not needed unless you need visible)
        
    oWord.Documents.Open File1.Path & File1.FileName
    
    Close
    Set oWord = Nothing
    
End Sub