end if
next
set wrdapp = nothing
end sub
private sub command2_click()
dim wrdapp as object
dim wrdrows, wrdcols, i as long
dim instext as string
wrdrows = 10: wrdcols = 10
instext = "test"
set wrdapp = createobject("word.application")
wrdapp.visible = false
wrdapp.documents.open filename:="c:\words\1.doc"
for i = 1 to wrdrows
wrdapp.activedocument.content.insertafter vbcrlf
next
wrdapp.activedocument.content.goto what:=3, which:=2, count:=wrdrows
wrdapp.activedocument.content.insertafter space(wrdcols) & "ppppppppppppp"
wrdapp.activedocument.save
wrdapp.quit
set wrdapp = nothing
end sub
