Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.04.2018 08:52:06 |
Lukas |
|
|
Standard speichern unter als docm |
25.04.2018 22:23:24 |
xlKing |
|
|
|
25.04.2018 22:25:27 |
xlKing |
|
|
|
26.04.2018 08:34:43 |
Lukas |
|
|
|
26.04.2018 23:16:43 |
xlKing |
|
|
|
27.04.2018 00:13:34 |
xlKing |
|
|
Von:
xlKing |
Datum:
25.04.2018 22:23:24 |
Views:
481 |
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
23.04.2018 08:52:06 |
Lukas |
|
|
Standard speichern unter als docm |
25.04.2018 22:23:24 |
xlKing |
|
|
|
25.04.2018 22:25:27 |
xlKing |
|
|
|
26.04.2018 08:34:43 |
Lukas |
|
|
|
26.04.2018 23:16:43 |
xlKing |
|
|
|
27.04.2018 00:13:34 |
xlKing |
|
|