Depois de executar meus scripts no UFT, desejo armazenar os resultados em um documento do Word que terá o mesmo nome dos meus testes ou seja relevante para o teste, para que eu possa diferenciar facilmente qual resultado pertence a qual teste.
Alguém pode me ajudar com isso?

Aqui está o 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 

O que esse código faz: ele cria um documento do Word, mas não armazena os resultados da execução.

P.S. Desejo armazenar resultados de execução usando o script do driver, não "opções" no UFT