QTP怎样才能往word里面写东西？

沙漠飞雪

如果在linux下，测试OpenOffice呢？

iamfeiyu1009

这样也可以写的，不过读时会出现乱码
建议你可以查看word帮助里的vb参照
Const ForReading = 1, ForWriting = 2, ForAppending = 8

  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

  Dim fso, f, ts

  Set fso = CreateObject("Scripting.FileSystemObject")

  Set f = fso.GetFile("c:\test1.txt")

  Set ts =f.OpenAsTextStream(ForWriting,TristateUseDefault)

  ts.Write "Hello World"

ts.close