LibreOffice Türkiye Forumları

İyi günler..
Sayfanın kopyasını yeni dosyaya aktarıyorum. Yeni dosya adsız olarak açılıyor.
Ben istiyorum ki, sayfa ismini hücreden alsın ve otomatik olarak masaüstüne veya asıl dosyanın bulunduğu dizine (ThisWorkbook.Path) kaydetsin...

sub kopya
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

call sablon_temizle2

Range("A2:E250").select

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

call kopya2

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "DocName"
args1(0).Value = ""
args1(1).Name = "Index"
args1(1).Value = 32767
args1(2).Name = "Copy"
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:Move", "", 0, args1())
end sub

@nadir Sayın Nadir Bey,

Bilgim olsa yardım etmeyi isterdim. Ama bayağıdır makroları öğrenmeyle uğraşmadığım için yardım edemiyorum.