Исходный текст

Option Explicit

'==============================================================================
' Интеграция с PlanTracer
' Запускает PlanTracer и открывает в нем документ
'==============================================================================
Dim FileDialog, RetVal, PlanApp, FName
' Открыть диалог выбора файла 
Set FileDialog = ThisApplication.Dialogs.FileDlg
FileDialog.Filter = "Все файлы *.*|*.*||"    
RetVAl = FileDialog.Show
FName = FileDialog.FileName

Set PlanApp = ThisApplication.Utility.StartPlanTracer 'запуск PlanTracer
PlanApp.OpenDocument(FName)     'открыть выбранный файл
'==============================================================================