[Решено]Правка pdf в Draw

[bigor]

Всех с наступившим!

Помогите пожалуйста. Есть 2 pdf файла pril1 и pril2, нужно из pril1 дату и номер скопировать
в pril2. Проблема что таких пар файлов больше сотни и хотелось бы это все сделать макросом.
Видится вариант через Draw, но как-то не пойму как в нем искать что копировать и куда копировать.

[rami]

Видится вариант через Draw, но как-то не пойму как в нем искать что копировать и куда копировать.

В документе есть рисованные страницы, а в каждой странице могут быть объекты. В pril1.pdf есть две линии и пять врезок, врезки 6 и 5 — это соответственно дата и номер. Попробуйте начать с примера:

Код Выделить Развернуть

Sub Main
Dim oDrawPage, oDate$, oNum$
oDrawPage=ThisComponent.DrawPages(0)

oDate=oDrawPage.getByIndex(6).String
Print oDate

oNum=oDrawPage.getByIndex(5).String
Print oNum

End Sub

[bigor]

Спасибо. Получилось

[bigor]

В Libre все работает, но захотелось макрос переделать через vbs, и тут проблема выскочила в сохранении в PDF.

Код:

aURL = Document2.getLocation()
aURL = replace(aURL,"pril2","pril2_1",1)
  Param1 = Array(_
                       MkPropVal( "FilterName", "draw_pdf_Export" ),_
                       MkPropVal( "FilterData",  oExpFilterOptions )_
            )
Document2.storeToURL aURL, Param1

Function MkPropVal(cName,uValue)
       Dim oPropertyValue
      set MkPropVal =  ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
      set oPropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
       
               oPropertyValue.Name = cName           
               oPropertyValue.Value = uValue
       
       MkPropVal = oPropertyValue
End Function


Ругается на эту строку  MkPropVal = oPropertyValue - объект не поддерживает это свойство или метод.

Чего-то я ступил и в сложности полез, все оказывается намного проще

Код Выделить Развернуть

aURL = replace(aURL,"pril2","pril2_1",1)
  Param1(0).Name =  "FilterName"
  Param1(0).Value = "draw_pdf_Export"
                       
Document2.storeToURL aURL, Param1
только кавычки "draw_pdf_Export" обязательны, без них не работает.