OpenOffice.info

Code: Alles auswählen

Sub MitDatumSpeichern()

Pfad = "W:\Eigene Dateien\OpenOffice\"
Pfad2 =  "W:/Eigene%20Dateien/OpenOffice/"
Trenner = "_"
DateiZusatz = ".odt"
lngAnzahl = 200  '                    Anzahl der laufenden Nummern
Exist = 5
rem -------------------------------------------------------------
SuchText = thiscomponent.title '               Datei ohne datum feststellen
OrgDatei = SuchText
SuchZeichen = "_" '                            Altname bis "_" feststellen
Pos1 = Instr(SuchText,SuchZeichen)
If Pos1 > 0 Then AltName = Left(SuchText,Pos1-1)
If Pos1 > 0 Then DateiName = SuchText
Voreinstellung = AltName

Mldg = "Dateiname OHNE Datum eingeben !"
Titel = "Datei speichern"
DateiName = InputBox(Mldg, Titel, Voreinstellung)
If DateiName = "" then x = 2 : goto ende
Rem----------------------------------------------------------------
SuchText = Dateiname  '                      evtl, "_" entfernen
SuchZeichen = "_"
Pos1 = Instr(SuchText,SuchZeichen)
If Pos1 > 0 Then AltName = mid(SuchText,Pos1)
If Pos1 > 0 Then DateiName = SuchText
Rem----------------------------------------------------------------
If DateiName = "" Then x = 1 : goto ende
x = 3
Rem ----------------------------------------------------------------     
KurzName = DateiName
Datum = Format(Now(), "yymmdd")
lngNummer = 1
Datei = Pfad & Kurzname & Trenner & Datum & Trenner & lngNummer & DateiZusatz
if fileexists(datei) then      
  antwort =    MsgBox ("Das aktive Dokument ( " & DateiName & " ) wurde bereits " & _
        "gespeichert. " & chr(13) & chr(13) & "Wollen Sie es " & _
        "erneut unter Angabe des Datums speichern?" & _
        chr(13) & chr(13) & chr(13) & "Wenn nein, dann abbrechen." & chr(13) & " ", 1 , Titel )
     
       if antwort = 2 then x = 2 : goto ende
rem------------------------------------------------------------------------------------------------------
Dateiname = PFAD2 & DateiName & TRENNER & Datum & TRENNER
lngNummer = 1
rem-----------------------------------------------------------------------------------------------------
for i = 1 to lngAnzahl '                                   Prüfen ob Datei existiert
 	Datei = Pfad & KurzName & trenner & Datum & Trenner & lngNummer &  dateizusatz 
If FileExists(Datei) Then
         lngNummer = lngNummer + 1 
else
		exist = 0 
End if
 if exist = 0 then exit for
next i
rem ----------------------------------------------------------------------------------------------------  
ende:

If x = 1 Then Mldg = "Dateiname fehlt ! Dokument nicht gespeichert !": _
    Antwort = MsgBox(Mldg, 0 , Titel): end 
If x = 2 Then Mldg = "Dokument nicht gespeichert !": _
    Antwort = MsgBox(Mldg, 0 ,  Titel) : end 
    
  
End If
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")
Datei = "file:///" & Pfad2  & KurzName & Trenner & Datum & Trenner  & lngNummer &  dateizusatz 
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value =  Datei
args1(1).Name = "FilterName"
args1(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

End Sub

Code: Alles auswählen

SUB de62778
' 2013-11-15
' öffnen Verzeichnisauswahl 
' Speichern mit Namensvorschlag aus Datei>Eigenschaften>Titel

oDok = ThisComponent

IF oDok.hasLocation() THEN
   EXIT SUB
END IF 

IF isEmpty( oDok.DocumentProperties.Title ) THEN
   EXIT SUB
END IF 

oSaveThereDialog = _
 CreateUnoService( "com.sun.star.ui.dialogs.FolderPicker" )
' object for file services

WITH oSaveThereDialog
' set titel
 .setTitle( "Datei>Sichern mit Titel im Verzeichnis..." )
' set start directory
 .setDisplayDirectory("file:///tmp/")
END WITH 

' Dialog anzeigen, ausführen Aktion bei OK
IF oSaveThereDialog.execute() = _
 com.sun.star.ui.dialogs.ExecutableDialogResults.OK THEN
 
 sFolder = oSaveThereDialog.getDirectory()
 sName = oDok.DocumentProperties.Title 
 
 sDateiName = sFolder & getPathSeparator & sName
 IF FileExists( sDateiName ) THEN
    MSGBOX "Datei bereits vorhanden, wähle einen anderen Ort" & _
    CHR(13) & sDateiName, 48 , "kann nicht automatisch speichern"
    EXIT SUB
 END IF 
 
 oDok.storeAsURL( sDateiName , Array() )
END IF 

END SUB