Im Makro eine Word-Datei speichern
22.10.2014 11:02:45
Barbara
habe eine Frage zum Speichern eines Word-Dokuments, das in einem Excel-Makro erstellt und befüllt wurde.
Hier das Makro:
Erst wird ein Word-Dokument gewählt, dann geöffnet.
Dann wird was damit gemacht, (gelöscht, weil hier nicht wichtig).
Dann soll in Word das "Speichern unter"-Fenster geöffnet werden, mit dem Vorschlag
M_Datenblatt & ".docm"
und das selbe Verzeichnis wie das Excel-Sheet.
Wie geht das, bitte?
Sub namenDict_nach_word()
Dim sDatei As String
Dim oWordInstanz, oWordDoku As Object
'Word-sDatei wählen
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ThisWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "Word-vorlagen", "*.dot; *.dotx;*.dotm", 1
.AllowMultiSelect = False
If .Show = -1 Then
sDatei = .SelectedItems(1)
Else
Exit Sub
End If
End With
'Neues Word-Dokument auf Basis der Vorlage öffnen
Set oWordInstanz = CreateObject("Word.Application") 'Word-Instanz erstellen
oWordInstanz.Visible = True
Set oWordDoku = oWordInstanz.Documents.Add(Template:=sDatei)
'Hier soll das Word-Dokument gespeichert werden
Set oWordDoku = Nothing
Set oWordInstanz = Nothing
MsgBox "Excel-Übertragung Fertig. "
End Sub
LG,
Barbara