Inserting text from MSword into sqlserver table[RESOLVED]

Dear All,

Problem Scenario:
I have a folder containing more than 4000 MS Word files.
I have a sqlserver table. The table has two fields: FileName,FileText

Problem:

I want to read the text from the text files and enter the text into Text field of the sqlserver table,and file name to FileName field of the sqlserver table.

I have to do this with all the files(more than 4000) in the folder.


Can u plz guide me how to do this.

Thankx

Are the documents just text only or do they contain tables, images, etc.?

In case you have text only then this is similar to how you could do it.

VB Code:

Option Explicit
'Add a reference to MS Word xx.0 Object Library
Private Sub Command1_Click()
    Dim oApp As Word.Application
    Dim oDoc As Word.Document
    
    Set oApp = New Word.Application
    'For - ToDo: Start a loop to find all docs
        Set oDoc = oApp.Documents.Open("C:\FirstDoc.doc") 'Change to a variable of each found doc
        oDoc.Content.Select
        MsgBox oDoc.FullName & " - " & Selection   'Change to insert into your sql table
        oDoc.Close False
        Set oDoc = Nothing
    'Next
    oApp.Quit False
    Set oApp = Nothing
End Sub

Thankx RobDog888.
Thank u so much for ur great help.

:)

:thumb:

Not a problem. Always glad to help. :D