Inserting text from MSword into sqlserver table[RESOLVED]

[engineer]

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

[RobDog888]

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

[RobDog888]

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

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

[engineer]

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

[RobDog888]

Not a problem. Always glad to help.