VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Standard speichern unter als docm	23.04.2018 08:52:06	Lukas
Standard speichern unter als docm	25.04.2018 22:23:24	xlKing
Standard speichern unter als docm	25.04.2018 22:25:27	xlKing
Standard speichern unter als docm	26.04.2018 08:34:43	Lukas
Standard speichern unter als docm	26.04.2018 23:16:43	xlKing
Standard speichern unter als docm	27.04.2018 00:13:34	xlKing

Ansicht des Beitrags:

Von:
xlKing

Datum:
25.04.2018 22:23:24

Views:
479

Rating:

Antwort:

Thema:
Standard speichern unter als docm

Hallo Lukas,

nun ja, eine Idee hätte ich da. Natürlich kann man in den Word-Optionen eine entsprechende Einstellung tätigen. Das gilt dann aber für alle Dokumente. Wenn es nur für diese eine Vorlage gelten soll, dann fällt mir spontan dieser Code ein:

Public WithEvents App As Application

Private Sub Document_Open()
  Set App = Application
End Sub

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
   If Doc.Name = ThisDocument.Name And SaveAsUI = True Then
      With Dialogs(wdDialogFileSaveAs)
         .Format = wdFormatXMLDocumentMacroEnabled
         .Show
      End With
      Cancel = True
   End If
End Sub

Der Code muss in der Vorlage (*.dotm) unter "ThisDocument" platziert werden. Allerdings löst mein altes Word auch dann aus, wenn nur die Schaltfläche Speichern betätigt wurde, wobei keine Dialogfeld erwartet wird. Das soll eigentlich der Parameter SaveAsUI regeln, der bei mir aber immer WAHR ist. Ob der Bug in neueren Office-Versionen behoben wurde, kann ich derzeit nicht sagen. Wirst du ja selbst sehen.

Gruß Mr. K.

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
Standard speichern unter als docm	23.04.2018 08:52:06	Lukas
Standard speichern unter als docm	25.04.2018 22:23:24	xlKing
Standard speichern unter als docm	25.04.2018 22:25:27	xlKing
Standard speichern unter als docm	26.04.2018 08:34:43	Lukas
Standard speichern unter als docm	26.04.2018 23:16:43	xlKing
Standard speichern unter als docm	27.04.2018 00:13:34	xlKing