Automatically Generate With Statements After Recording
Source code
'************************************************************************************************************************
'Description:
'
'This example configures a variety of UFT One options.
'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Launch the Application
qtApp.Visible = True ' Make UFT One visible

' Configure basic testing behavior options
qtApp.Options.AutoGenerateWith = True
qtApp.Options.AutoParameterizeSteps = True
qtApp.Options.AutoParameterType = "Test"
qtApp.Options.WithGenerationLevel = 3
qtApp.Options.DisableVORecognition = True
qtApp.Options.SaveLoadAndMonitorData = False
qtApp.Options.TimeToActivateWinAfterPoint = 600
qtApp.Options.RestoreLayout

' Configure text recognition preferences
qtApp.Options.TextRecognitionOrder = "APIThenOCR"
qtApp.Options.TextRecognitionBlockType = "Multiple"
qtApp.Options.TextRecognitionLanguages = "English,French" 'Relevant only when using OCR.

Set qtApp = Nothing ' Release the Application object