Answer Posted / feroz

Dim objWord
Dim wrdDoc
set objword = CreateObject("Word.Application")
objword.visible = true
Set wrdDoc = objword.Documents.Add
wrdDoc.Range.InsertBefore "Hi Good Morning!"
wrdDoc.SaveAs "C:\Greetings.doc"
objword.quit
Set objword = nothing

What is a recovery scenario?

1163

---

terminal services client

2255

---

How many types of Automation frameworks are there in UFT? Describe them.

1026

---

How does you test a weblink which is changing dynamically?

1010

---

What is synchronization? What are the ways you can synchronize?

1160

---

what is vmodel?advantages and disadvantages of vmodel?

2171

---

Where to use Property Let, Property Get, Property Set in UFT

834

---

What are the benefits of quick test pro(qtp)?

984

---

Describe synchronization point.

1151

---

Can an action have 2 shared object repositories associated with them? In that case, if two of them contain the same object, which one will be considered?

1098

---

what type of framework u r using in ur organization

2078

---

How extensive or customized are the server logging and reporting requirements; are they considered an integral part of the system and do they require testing?

1035

---

What is the pros and cons between QTP and Rational Robot

3780

---

When do go for loop condition in test?

1091

---

when I try to run below script in QTP "totalPages" value is 2. But i am getting error message (Type mismatch: 'totalPages' Line (): "For i=1 to totalPages".) totalPages=Browser("Name:=User").Page("Title:=User").WebElem ent("innertext:=of.*").GetROProperty("InnerText") msgbox totalPages For i=1 to totalPages rnum=Browser("Name:=User").Page("Title:=User").WebTa ble("column names:=User Name;ID;Last Name;First Name").GetRowWithCellText("store4") If rnum>0 Then r=rnum Exit for End If Browser("Name:=User").Page("Title:=User").WebElement ("html tag:=A","x:=471").Click MsgBox "Exit" Next

3951

---