you can get solutions on any of the below
1. Code these function as reusable actions and call actions
2. use Descriptive programming
3. add the objects in to Shared Repository and store externally say "C:\Repository.tsr". and add the below codes at the start of the functions
1. Code these function as reusable actions and call actions
2. use Descriptive programming
3. add the objects in to Shared Repository and store externally say "C:\Repository.tsr". and add the below codes at the start of the functions
Code:
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
curact=Environment.Value("ActionName")
qtApp.Test.Actions(curact).ObjectRepositories.Add "C:\Repository.tsr"