Vaibhav Singh

QTP Profile

VAIBHAV SINGH
Quick Test Professional Profile- Screenshot

Screenshot

Below is Screenshot-code from QTP.

Public Function ScreenshotsInWord(folderPath, wordFilePath)
   Const END_OF_DOC = 6
   Set objWord = CreateObject("Word.Application")
   objWord.Visible = False

Set fsoObj = CreateObject("Scripting.FileSystemObject")
	Set fsoFolder = fsoObj.GetFolder(folderPath)
	Set allFiles = fsoFolder.Files
	print(allFiles.Count)
	For Each filen In allFiles 
	  objSelect.TypeParagraph()
      objSelect.TypeText filen.Name
      objSelect.TypeText " "
      objSelect.InlineShapes.AddPicture filen.Path,true
      objSelect.TypeParagraph()
	Next

If isFileExist(wordFilePath) then
		  objWord.ActiveDocument.Save
	Else
		 objWord.ActiveDocument.SaveAs  wordFilePath
	End if

objWord.ActiveDocument.Save
   objWord.Quit
   Set objWord = Nothing
End Function

Public Function addScreenshotInWord(filePath,fileText, wordFilePath)
   Const END_OF_DOC = 6
   Set objWord = CreateObject("Word.Application")
   objWord.Visible = False

If isFileExist(wordFilePath) then
		 Set objDoc = objWord.Documents.Open(wordFilePath)
	Else
		Set objDoc = objWord.Documents.Add
	End if
	
   Set objSelect = objWord.Selection
   objSelect.EndKey END_OF_DOC
	  objSelect.TypeParagraph()
      objSelect.TypeText fileText
      objSelect.TypeText " "
      objSelect.InlineShapes.AddPicture filePath,true
      objSelect.TypeParagraph()

If isFileExist(wordFilePath) then
		  objWord.ActiveDocument.Save
	Else
		 objWord.ActiveDocument.SaveAs  wordFilePath
	End if

objWord.ActiveDocument.Save
   objWord.Quit
   Set objWord = Nothing
End Function

Public Function isFileExist(filePath)
              Set CheckFileObj = createobject("Scripting.FilesystemObject")
            If CheckFileObj.FileExists(filePath) Then
                    isFileExist = True
            Else
                   isFileExist = False
            End If
End Function