Sayfayı Farklı Kaydetme

Cevapla
nadir
Mesajlar: 28
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Sayfayı Farklı Kaydetme

Mesaj gönderen nadir »

İ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
İsmail Emre ARIKAN
Mesajlar: 10
Kayıt: 30 Mar 2022, 22:27
İşletim Sisteminiz: Pardus GNU/Linux
LibreOffice Sürümü: LibreOffice 7.0.4.2 00(Build:2

Re: Sayfayı Farklı Kaydetme

Mesaj gönderen İsmail Emre ARIKAN »

@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.
Cevapla