| View previous topic :: View next topic |
| Author |
Message |
Silly Star
Newbie
Joined: 15 Jul 2005
Posts: 4
|
 Posted: Jul 25th, 2005 12:19 AM Post subject: 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. |
|
| Back to top |
|
RoofRabbit
Regular
Joined: 06 Jul 2005
Posts: 95
Location: Lenoir, NC USA
|
| Posted: Aug 1st, 2005 03:15 AM Post subject: |
|
|
Start with Text1.Text="" before your code starts adding to it.
_________________
Website - [link] |
|
| Back to top |
|
|
