Wie kann man beim Öffnen einer Vorlagendatei den Speicherdialog des Word-Dokuments anfordern?

1124
chemicalpython

Ich möchte, dass ein Sicherungsdialogfeld angezeigt wird, wenn ich zum ersten Mal auf ein Word-Dokument (dotm) klicke, sodass es einen vorgeschlagenen Speicherort (z. B. c: \ temp) und einen Dokumentnamen / eine Dateiendung (docx) hat. Ich möchte, dass ich fill-inbeim Öffnen der Vorlagendatei einen Dokumententitel über das Feld ausfüllen muss, so dass dies idealerweise für einen vorgeschlagenen Dokumenttitel verwendet werden könnte.

Ich habe Informationen von einem anderen verwendet, um zu versuchen, ein Mittel aufzurufen, in dem ein Benutzer aufgefordert wird, die Datei zu speichern, wenn eine Word-Vorlagendatei (.dotm) geöffnet wird. Ich habe es um eine Aufforderung zum Speichern gebeten, aber ich möchte, dass ich es erneut als .dotm-Datei anstelle der gewünschten .docx-Datei speichere.

Hinweis: Verwenden Sie Word 2016 und verfügen Sie über begrenzte VBA-Kenntnisse.

Erstes Beispiel funktioniert nur mit Excel, da Word GetSaveAsFilename nicht zulässt (siehe Zeile 3). 

Private Sub Document_New() Application.DisplayAlerts = False fName = Application.GetSaveAsFilename(filefilter:="Excel Files (*.xlsx), *.xlsx") ActiveWorkbook.SaveAs Filename:=fName Application.DisplayAlerts = True  End Sub

Quelle 1

Das zweite Beispiel enthält ein Popup-Meldungsfeld, in dem "c: \ temp \ test.docx" angezeigt wird, der Sicherungsdialog wird jedoch als dotm gespeichert. 

Private Sub Document_New() 'Chemicalpython: changed above from Sub SaveName() Dim strFileName As String Dim StrPath As String 'provide default filename StrPath = "c:\temp\test.docx" With Dialogs(wdDialogFileSaveAs) .Name = StrPath If .Display <> 0 Then strFileName = .Name Else strFileName = "User Cancelled" End If End With MsgBox strFileName 'Chemicalpython: this is the message box End Sub

Quelle 2

Gewünschtes Ergebnis : Bild: gewünschtes Ergebnis

0
Mit VBA ist dies nicht möglich, siehe http://stackoverflow.com/q/5881105/4628637 R3uK vor 7 Jahren 0
Okay, danke für die Info! Wenn ich einen guten Weg finde und mit dem Link, den Sie gepostet haben, werde ich hier aktualisieren. Prost chemicalpython vor 7 Jahren 1

0 Antworten auf die Frage

Verwandte Probleme