LibreOffice-Forum

Code: Alles auswählen

Sub modifypagestyle
Dim oDoc
Dim path
Dim dateiname
Dim Dummy() 

rem--------------------------Ordner der zu bearbeitenden Dateien anpassen----------------------
path = "C:\Users\DeinName\Desktop\DeinOrdner\"  
  
dateiname = Dir(path, 0) 'Jetzt werden Dateien geholt!

Do While (dateiname <> "")
url = ConvertToURL(path & dateiname)

oDoc = StarDesktop.loadComponentFromURL(url,"_blank",0,Array())

oViewCursor = ThisComponent.CurrentController.getViewCursor()
oViewCursor.gotoStart(false)
s = oViewCursor.PageStyleName
oStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName(s)


rem--------------Querformat=True     Hochformat=False-------------------------------------------
oStyle.IsLandscape=True

rem------------------Seitengröße einstellen in 1/100mm-------------------------------------------
oStyle.Width = 35560      '  14"= 35560  DinA=29700   
oStyle.Height = 20320     '   8"= 20320  DinA=21000    

rem----------------Ränder hier eintragen in 1/100mm----------------------------------------------
rem oStyle.LeftMargin= 1000  '=1cm
rem oStyle.RightMargin= 1000
rem oStyle.TopMargin= 1000
rem oStyle.BottomMargin= 1000

rem ----------bearbeitete Dateien werden in automatisch erstellten UnterOrdner "new" gespeichert--------
newpath = path & "new\"
newurl = ConvertToURL(newpath & dateiname)
oDoc.storeasurl(newurl, Dummy())
oDoc.close(true)
dateiname = Dir()

loop

msgbox "Fertig!"
end sub