Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Word-Dokument öffnen und speichern

Word-Dokument öffnen und speichern
10.04.2016 21:29:11
Barbara
Hallo
Angehängt ist eine Excel-Datei mit Makro.
https://www.herber.de/bbs/user/104877.xlsm
Zum Ausprobieren bitte ein Word-Dokument mit dem Namen "Grundlagen.docx" im selben Verzeichnis erstellen.
Das Makro öffnet dieses Word-Dokument "Grundlagen.docx" und lässt mich es mittels Dialog-Fenster mit dem neuen Namen "Projekt.docx" als Vorschlag speichern. Das Word-Dokument bleibt dann unter dem neuen Namen geöffnet.
Nun soll das Makro aber das Word-Dokument unter dem vorgeschlagenen Namen "Projekt.docx" speichern und schließen, aber ohne Dialogfenster, außer "Projekt.docx" existiert bereits, dann soll das Dialogfenster wie gehabt kommen.
LG,
Barbara

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

Betreff
Datum
Anwender
Anzeige
AW: Word-Dokument öffnen und speichern
11.04.2016 08:42:15
ChrisL
Hi Barbara
Sub Projekt_erstellen()
Dim sDatei As String
Dim oWordInstanz As Object, oWordDoku As Object
On Error GoTo fehler
sDatei = "Grundlagen.docx"
'Hier wird einiges in die Word-Datei übertragen
If Dir(ThisWorkbook.Path & "\Projekt.docx") = "" Then
Set oWordInstanz = CreateObject("Word.Application") 'Word-Instanz erstellen
oWordInstanz.Visible = True
Set oWordDoku = oWordInstanz.Documents.Open(ThisWorkbook.Path & "\" & sDatei)
oWordDoku.SaveAs ThisWorkbook.Path & "\Projekt.docx"
oWordDoku.Close
oWordInstanz.Quit
'    With oWordInstanz.Dialogs(wdDialogFileSaveAs)
'        .Name = ThisWorkbook.Path & "\Projekt.docx"
'        '.Path = ThisWorkbook.Path
'        .Show
'    End With
Else
MsgBox "Datei existiert bereits."
End If
Set oWordDoku = Nothing
Set oWordInstanz = Nothing
Exit Sub
fehler:
Set oWordDoku = Nothing
Set oWordInstanz = Nothing
MsgBox Err.Number & " - " & Err.Description
End Sub

cu
Chris

Anzeige
AW: Word-Dokument öffnen und speichern
13.04.2016 07:20:55
Barbara
Funktioniert.
Vielen Dank.
LG,
Barbara

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige