[РЕШЕНО] Закрылась главная форма. Почему?

[adi_den2013]

После конвертации в PDF-формат, закрылась главная форма. Как предотвратить закрытие?

rem Сохранение в формате PDF
sub PDF_balans
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
   document   = ThisComponent.CurrentController.Frame
   dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   
   dim args1(1) as new com.sun.star.beans.PropertyValue
   args1(0).Name  = "URL"
   args1(0).Value = "file:///E:/BALANS/Otchet/test3.odt"

   rem ----------------------------------------------------------------------
   dispatcher.executeDispatch( document, ".uno:Open", "", 0, args1() )
   
   dim args2(1) as new com.sun.star.beans.PropertyValue
   
   args2(0).Name  = "URL"
   args2(0).Value = "file:///E:/BALANS/Otchet/BALANS.pdf"
   args2(1).Name  = "FilterData"
   

   dispatcher.executeDispatch( document, ".uno:ExportToPDF", "", 0, args2() )
   MsgBox "Файл отчета сконвертирован в E:\BALANS\Otchet\BALANS.pdf"
   document.close(True)
end sub


[вложение удалено Администратором]

[JohnSUN]

В document получаешь текущий фрейм, в него грузишь документ для выгрузки в PDF и в конце говоришь ему document.close(True)
Может загрузку документа в какую-то другую переменную организовать?

[adi_den2013]

Даже если я объявляю новую переменную

dim document2 as object
dispatcher.executeDispatch( document2, ".uno:ExportToPDF", "", 0, args2() )

и комментирую принудительное закрытие
document.close(True)

при закрытии файла test3.odt через меню Writer'a - закрывается главная форма.

[adi_den2013]

Помогло скрытое открытие (каламбур ) файла

    dim args1(1) as new com.sun.star.beans.PropertyValue
    args1(0).Name  = "URL"
    args1(0).Value = "file:///E:/BALANS/Otchet/test3.odt"
    args1(1).Name  = "Hidden"
     args1(1).Value = TRUE

    с предыдущими корректировками на счет другой переменной.

Спасибо, JohnSUN