Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Im Makro eine Word-Datei speichern

Im Makro eine Word-Datei speichern
22.10.2014 11:02:45
Barbara
Hallo
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
Danke für Eure Aufmerksamkeit, bitte um konkrete Hilfe.
LG,
Barbara

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Im Makro eine Word-Datei speichern
22.10.2014 11:13:39
Tino
Hallo,
kannst mal so versuchen.
  With oWordInstanz.Dialogs(84) 'wdDialogFileSaveAs
.Name = ThisWorkbook.Path & "\" & M_Datenblatt & ".docm"
.Show
End With
Gruß Tino

AW: Im Makro eine Word-Datei speichern
22.10.2014 23:49:34
Barbara
Hi Tino
Das geht.
Vielen Dank!
LG,
Barbara
Anzeige

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige