Сохранить документ в файл с инкрементальным именем

В общем, хочу в документе разместить поле-параметр: ПутьККаталогу - это путь по которому лежат файлы .doc/.odt. Файлы с именами: Результат0001.doc, Результат0002.doc.Как при закрытии открытого документа сохранить его с инкрементальным именем. Например, в каталоге есть:ЦитироватьРезультат0001.docРезульта т0002.docПри сохранении(при закрытии) должен появиться файл Результат0003.docСохранить файл в .odt делаю так:Код: oDoc = ThisComponent Dim args(0) As New com.sun.star.beans.PropertyValue sURL=ConvertToURL("D:\test.odt") oDoc.storeToURL(sURL, args())