BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

MS Makro für Open Office

Alles zur Programmierung im OpenOffice.org
Antworten
Remo
Beiträge: 3
Registriert: Sa 30. Jan 2016, 18:02

MS Makro für Open Office

Beitrag von Remo » Sa 30. Jan 2016, 18:25

Hallo,
ich habe hier ein schönes Makro von Word. Vor dem Datei speichern wird nach dem Dateinamen gefragt und das Datum mit laufender Nummer angehängt. Im OO hängt das Makro aber. Es wäre super, wenn jemand das Makro anpassen könnte.
Im voraus vielen Dank
Remo

Sub MitDatumSpeichern()
Const PFAD As String = "W:\Eigene Dateien\Briefe Doc\"
Const TRENNER As String = "_"

Dim strDatum As String
Dim strDateiname As String
Dim lngNummer As Long
Dim Mldg, Titel, DateiName

SuchText = ActiveDocument.Name ' Datei ohne datum feststellen
SuchZeichen = "_"
Pos1 = InStr(1, SuchText, SuchZeichen, 1)
If Pos1 > 0 Then AltName = left(SuchText, Pos1 - 1)
Voreinstellung = AltName
Mldg = "Dateiname OHNE Datum eingeben !"
Titel = "Datei speichern"
DateiName = InputBox(Mldg, Titel, Voreinstellung)

SuchText = DateiName ' ein evtl "_" entfernen
SuchZeichen = "_"
Pos1 = InStr(1, SuchText, SuchZeichen, 1)
If Pos1 > 0 Then Mid(SuchText, Pos1) = " "
If Pos1 > 0 Then DateiName = SuchText

If DateiName = "" Then x = 1: GoTo ende

If ActiveDocument.Path <> "" Then
If MsgBox _
(Prompt:="Das aktive Dokument ( " & DateiName & " ) wurde bereits " & _
"gespeichert." & vbCr & "Wollen Sie es " & _
"erneut unter Angabe des Datums speichern?", _
Buttons:=vbYesNo + _
vbQuestion) = vbNo Then Exit Sub
End If

strDatum = Format(Now(), "yymmdd")
strDateiname = PFAD & DateiName & TRENNER & strDatum & TRENNER
lngNummer = 1
Do While Dir(strDateiname & lngNummer & ".doc") <> ""
lngNummer = lngNummer + 1
Loop
strDateiname = strDateiname & lngNummer & ".doc"
ActiveDocument.SaveAs FileName:=strDateiname

ende:
If x = 1 Then Mldg = "Dateiname fehlt ! Dokument nicht gespeichert !": _
Antwort = MsgBox(Mldg, vbOKOnly & vbCritical, Titel)

End Sub

F3K Total
Beiträge: 1007
Registriert: Mo 1. Aug 2011, 00:03

Re: MS Makro für Open Office

Beitrag von F3K Total » So 31. Jan 2016, 16:18

Hallo Remo, oder soll ich besser huber sagen?
Du hast die selbe Frage hier gerade zum zweiten Mal gestellt.
Bitte ließ dir die Allgemeinen Hinweise zur Forumsbenutzung, insbesondere den Absatz Crossposting nicht erwünscht, aber toleriert durch.
Es ist im Übrigen ziemlich dreist, hier jemanden zu suchen, der dir dein Makro für nullinger umschreiben soll.
R
Windows 10: AOO, LO Linux Mint: AOO, LO

Antworten