关于用QTP打开word的代码问题

朋友，建议你按一个vbsedit 软件；那样你会学的更快一点；

1 启动程序 2 visible=true 说明就成功了；如

Set obj=CreateObject("quicktest.application")

obj.Launch

obj.Visible=True

MsgBox "启动成功"

obj.Quit

set obj=nothing

Function GetXml (ByVal strXmlFilePath,ByVal xmlNodeName)

      Dim xmlDoc,xmlRoot

      Set xmlDoc = CreateObject("Microsoft.XMLDOM") '创建XML DOM对象

      xmlDoc.async = False  '控制加载模式为同步模式（xml树加载完毕后再执行后续代码）

      xmlDoc.load strXmlFilePath        '载入xml文件

      If xmlDoc.parseError.errorCode <> 0 Then

              MsgBox "XML文件格式不对，原因是：" & Chr(13) &  xmlDoc.parseError.reason

              Exit Function

      End If

      Set xmlRoot = xmlDoc.documentElement

      xmlRecursion xmlRoot,xmlNodeName        '调用xml递归函数传入指定的根和节点名

      GetXml = True 'xmlRecursion (xmlRoot)

End Function

你可以7试试在 Record and Settings 设置页面内6的WindowsApplications 标签页内8进行设置（因为7不e知道你的具体情况，所以7你可以0按照以1下r的设置自己f试试。另有图片1参照） 两个x单选框分0别是（请对照图片3或QTP） 3。测试运行在windows上p的应用，包括标准windows,Visual Basic和ActiveX的应用。 8。增加应用程序的只执行文4件路径 7）。使用QTP打开f的应用程序（你可以5在QTP代码中7添加打开r要录制的程序指令） 3）。通过桌面（由Windows外壳程序）。这个m选项只能在记录和运行时通过Windows桌面上g打开o的应用程序。 1）。记录应用程序的详细信息。设置应用程序路径、工r作文4件夹（如果没有指定工i作文1件夹，则默认7为4应用程序文4件为3工a作文5件夹）、程序参数等。。。（你可以0在这里选择要录制的程序!)jk濞〕k濞〕v

---