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
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> 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
Re: MS Makro für Open Office
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
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