Worddokument speichern unter und Pfad merken
27.07.2016 08:24:09
Werner
Ich dachte, ich hätte mein Problem durch das Internet gelöst:
Ich öffne eine Word-Datei schreibgeschützt.
Von Excel aus schicke ich Daten in verschiedene Formularfelder.
Gleich danach soll in Word der "Speichern unter"-Dialog geöffnet werden.
Der Anwender soll sich einen Pfad aussuchen und die Datei speichern.
Der Speicherort (Pfad) soll dann in eine Zelle in Excel geschrieben werden, damit ein zweites Word-Dok gleich im selben Ordner gespeichert wird.
Was nicht funktioniert:
Mit "speichern" passiert nix.
Das Word-Dok wird nicht gespeichert.
Auch dann nicht, wenn ich es nicht schreibgeschützt öffne.
Der Speicherpfad wird damit natürlich auch nicht in eine Zelle geschrieben.
Mein Code steht unten.
Was mache ich falsch? Oder geht so was nicht?
Gruß und DANKE
Werner
Sub AnWordTextfelder_Anlagen()
Dim wrdApp, wrdDoc, Tabelle1, Tabelle2, Tabelle3, Tabelle4, Tabelle5
Dim strDateiname As String
Dim SaveAsDlg As FileDialog
Dim strFileName As String
Dim strFilePath As String
strFileName = Range("Übersicht!AE35") & " - Anlage 1 - " & Format(Now, "YYYY-MM-DD hh-mm")
strFilePath = Range("Dateien!B5")
With wrdApp.FileDialog(msoFileDialogSaveAs)
.InitialFileName = strFilePath & "\" & strFileName
.Show
End With
Range("Dateien!B5") = wrdDoc.Path
End Sub