Thema Datum  Von Nutzer Rating
Antwort
11.02.2026 09:23:39 Gast70319
NotSolved
Blau Ereignis speichern unter
 11.02.2026 11:56:05 Gast66824
NotSolved
11.02.2026 12:35:40 Gast69563
NotSolved
11.02.2026 14:59:04 Gast42277
NotSolved
11.02.2026 22:38:36 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Gast66824		 Datum:
11.02.2026 11:56:05		 Views:
12		 Rating:
     
Antwort:
  Ja
Thema:
Ereignis speichern unter

Ersetze das Word-Makro durch eine eigene Prozedur:

Sub FileSaveAs()
  Dim dlg As Dialog
  Dim oldName As String

  oldName = ActiveDocument.FullName

  ' Öffnet den originalen Dialog
  Set dlg = Dialogs(wdDialogFileSaveAs)

  If dlg.Show = -1 Then
    If ActiveDocument.FullName <> oldName Then
        MsgBox "Datei erfolgreich umbenannt in: " & ActiveDocument.Name
    End If
  End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.02.2026 09:23:39 Gast70319
NotSolved
Blau Ereignis speichern unter
 11.02.2026 11:56:05 Gast66824
NotSolved
11.02.2026 12:35:40 Gast69563
NotSolved
11.02.2026 14:59:04 Gast42277
NotSolved
11.02.2026 22:38:36 xlKing
NotSolved