Data Migration with QTP

DATA MIGRATION from Word and Text File to Excel file

Option explicit
Dim mswo, doco, pro, fso, fo, exo, wbo, wso, i
'open word document using VBScriptSet mswo=createobject("word.application")
Set doco=mswo.documents.open("C:\Documents and Settings\qa\Desktop\QTP Practice\PATH FILES\Word Grammercheck.doc")
Set pro=doco.paragraphs
'Open text file
Set fso=createobject("scripting.filesystemobject")
Set fo=fso.OpenTextFile("C:\Documents and Settings\qa\Desktop\QTP Practice\PATH FILES\Data.txt", 1)
'open new excel file
Set exo=createobject("excel.application")
Set wbo=exo.Workbooks.Add
Set wso=wbo.Worksheets("sheet1")
wso.cells(1,1)="Names"
wso.cells(1,2)="Paras"
'copy data from doc file and text file into excel file
For i = 1 to pro.count step 1
Wso.cells (i + 1, 1) = fo.readline
Wso.cells (I + 1, 2) = pro(i).range.text
next
'Close Text file
Fo.close
'Close word file
Doco.close(false)
Mswo.quit
'Save and Close excel file
Wso.rows.autofit
Wso.columns.autofit
Wso.saveas("C:\Documents and Settings\qa\Desktop\Test1.xls")
Exo.quit
Set fo=nothing
Set fso=nothing
Set pro=nothing
Set doco=nothing
Set mswo=nothing
Set wso=nothing
Set wbo=nothing
Set exo=nothing