Después de ejecutar mis scripts en UFT, quiero almacenar los resultados en un documento de Word que tendrá el mismo nombre que mis pruebas o será relevante para la prueba, de modo que pueda diferenciar fácilmente qué resultado pertenece a cada prueba.
Alguien me puede ayudar con eso?

Aquí está el código:

Dim oWord

Set oWord = CreateObject("Word.Application")

oWord.Documents.Add

oWord.ActiveDocument.Saveas "C:\Users\Desktop\RunResults\TestForWordDocResults2"

Dim oWordTestPath 

oWordTestPath = "C:\Users\Desktop\AutomationScripts\TestForWordDocResults"

' Launch QuickTest

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object

qtApp.Launch ' Start QuickTest

qtApp.Visible = True ' Make the QuickTest application visible 

' Run the Test

qtApp.Open oWordTestPath, False ' Open the test 

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") 'Create the Run Results Options object 

testResults = "C:\Users\Desktop\RunResults" 

' Original location for the test results.

qtResultsOpt.ResultsLocation = testResults ' Specify the location to save the test results.

oWordTestPath.Run qtResultsOpt, True ' Run the test and wait until end of the test run 

' Close QuickTest Professional

qtApp.Quit 

Lo que hace este código: crea un documento de Word, pero no almacena los resultados de la ejecución.

PD Quiero almacenar resultados de ejecución utilizando la secuencia de comandos del controlador, no "opciones" en UFT