Hi, I am very very new to vb6. I am trying to browse and read multiple microsoft word files. i am able to do for one file as follow, but not multiple files. Please I need help ASAP. Thanks
Private Sub Process()
On Error GoTo Err_Handle
Dim i As Double
Dim SRSWordStr As String
Dim newStart As Double
Dim tmpStrStart As Double
Dim tmpStrEnd As Double
Dim StopFinding As Boolean
Dim OneSRSTagInfo As String
Set SRSWordApp = New Word.Application
Set SRDDWordApp = New Word.Application
SRSWordApp.Documents.Open CStr(txtSRSF)
SRDDWordApp.Documents.Open CStr(txtSRDDF)
CreateExcelFile
SRSWordApp.Selection.WholeStory
SRSWordApp.Selection.Copy
SRDDWordApp.Selection.WholeStory
SRDDWordApp.Selection.Copy
'MsgBox SRSWordApp.Selection.Text
SRSWordStr = SRSWordApp.Selection.Text
SRDDWordStr = SRDDWordApp.Selection.Text
rw = 2
newStart = 1
While StopFinding = False
If newStart = 0 Then
GoTo LBLSAVE_FILES
End If
If InStr(newStart, SRSWordStr, "[") > 0 Then
For i = newStart To Len(SRSWordStr)
If Mid(SRSWordStr, i, 1) = "[" Then
tmpStrStart = i
tmpStrEnd = Val(InStr(i + 1, SRSWordStr, "[") - 1)
If tmpStrEnd = -1 Then
newStart = 0
StopFinding = False
OneSRSTagInfo = Mid(SRSWordStr, tmpStrStart)
Else
newStart = tmpStrEnd + 1
OneSRSTagInfo = Mid(SRSWordStr, tmpStrStart, Val(tmpStrEnd) - Val(tmpStrStart))
End If
TransferToExcel (OneSRSTagInfo)
rw = rw + 1
End If
Next
Else
StopFinding = True
End If
Wend
LBLSAVE_FILES:
Columns("A:D").EntireColumn.AutoFit
xlFile.Range("A1:D" & rw).BorderAround 1
xlFile.ActiveWorkbook.SaveAs txtXl
xlFile.ActiveWorkbook.Close
SRSWordApp.ActiveDocument.Close
SRDDWordApp.ActiveDocument.Close
SRSWordApp.Quit
SRDDWordApp.Quit
xlFile.Quit
Set SRDDWordApp = Nothing
Set SRSSWordApp = Nothing
Set xlFile = Nothing
MsgBox "Processing Complete"
Exit Sub
Err_Handle:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub