Extracting Text from word TextBox

Dear Helpers

i have been working on word Document files.

each document has same text format.

i m using the code below to extract text from it,

Code:

---



Dim sFileName As String 'Name of files within the folder will be stored
Dim i As Integer 'This will count the files read***
Dim wrd As Word.Application
Dim wrdCount As Long 'Number of characters within the file
    'Get the first file with extension "DOC"  ***
                sFileName = Dir$("C:\Virology\*.DOC") '***
    Do While sFileName <> "" '***
            Set wrd = New Word.Application 'Create obj of word application
            wrd.Visible = False
            wrd.Documents.Open "C:\Virology\" & sFileName
            wrdCount = wrd.Documents(1).Characters.Count
          Text1.Text = Text1.Text & vbCrLf & i & wrd.Documents(1).Range(0, wrdCount).Text
            wrd.Documents(1).Close
            Set wrd = Nothing
          sFileName = Dir$ '***
          i = i + 1
    Loop

---

This works good for all the characters in the document but the problem rises when word textbox appears in the document.

There are four types of textboxes.
ActiveX Textbox
Shape Textbox
WordArt Textbox
Forms Textbox

You need to find out which you used in the doc as they all require different methods to read. :)