Mehrere Seiten in neues Seitenformat umwandeln

[die.gos]

Guten Abend zusammen,
ich bin neu hier im Forum und habe - aus meiner Sicht - gleich ein "gewaltiges Problem".

Zur Zeit habe ich ca. 200 (Lied-) Texte, die in DINA4, Hochformat, erstellt wurden. Nun müssen diese Texte in ein Querformat, das durch "Lineal oben 14" und "Lineal links 8" begrenzt sein muss, kopiert werden. Dass dadurch z.B. aus einer Seite 2 oder gar 3 Seiten werden, ist selbstverständlich.
Meine konkrete Frage: Gibt es eine komfortable Möglichkeit, diese Texte in das gewünschte Format zu übertragen oder muss ich jede einzelnen Textdatei, also ca.200 mal, öffnen, umwandeln und abspeichern? Hilft da eine Formatvorlage? Wie erstelle ich diese?
Ich hoffe, ich habe mich einigermaßen verständlich ausgedrückt und bedanke mich für alle hilfreichen Vorschläge.
mfg
die.gos

[die.gos]

Hallo nikki,
vielen Dank für die Mühe, die du dir gemacht hast; deine Tipps haben mir sehr geholfen!
Nochmals Danke!
LG die.gos

[musikai]

Hi,

falls die Dateien nicht auf einer Dokumenten-Vorlage beruhen und die Seitenvorlage für alle Seite gleich ist, kann man es auch per Makro lösen:
Den Pfad anpassen und die Werte anpassen. Alle bearbeiteten Dokumente werden in einem automatisch erstellten Unterordner "new" gespeichert.

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

Grüße
Kai

[die.gos]

Hallo Kai, auch dir vielen Dank für den Tipp. Ist für mich erstmal "schwere Kost", werde mich aber mal dran probieren.
Nochmals vielen Dank!
LG die.gos