editword "filepath",content
function editword(filepath,content)
set wd=createobject("word.application")
wd.visible=true
set wdapp=wd.documents.open(filepath)
wdapp.content=content
wdapp.save()
set wd=nothinig
set wdapp=nothing
end function
可以把要写入的内容放在 editword函数的参数中。
read 同样是声明word对象,打开一个word文档,
set wd=createobject("word.application")
wd.visible=true
set wdapp=wd.documents.open(filepath)
然后再输出文档内容
msgbox wdapp.content
然后释放对象