Inserting text from MSword into sqlserver table[RESOLVED]

[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