Ich finde den Fehler nicht...

Hallo zusammen,
bis eben dachte ich, mein Makro würde laufen....leider tut es dies aber nicht.
Im letztn Schritt wird in Word ein SaveAs Dialog eingeblendet, für den ich schon den Dateinamen vorbestimmt habe. Wenn ich jetzt auf "Speichern" klicke, dann wird aber die Datei nicht in dem gewählten Ordner gespeichert, sondern die Ursprungsdatei wird überschrieben.
Das ist sehr schlecht, da in der Ursprungsdatei Verlinkungen zu Excel sind, die dadurch verloren gehen.
Anbei mein Code.
Ich hoffe es kann jemdand herausfinden woran es liegt...ich bin mit meinem Latein leider am Ende.
'Word Datei öffnen
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\Rechnungen\RechnungsVorlage.doc")
objWord.Visible = True
'Drucken
objWord.Dialogs(wdDialogFilePrint).Show
'Speichern
Set objWord = objDoc.Parent
objWord.Activate
objDoc.Fields.Unlink 'Verlinkungen aus Word Datei entfernen um nicht mehr veränderbare Datei Abzuspeichern
'Speichern
With objWord.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "C:\Rechnungen\Rechnung Nr. " & Renu & "-" & ThisWorkbook.Sheets("Export Rechnung").Range("B5").Value & ".doc"
.Show
End With
'Word schließen
objWord.Documents.Close
objWord.Quit
Set objWord = Nothing
Set objDoc = Nothing
Lieben Dank vorab für die Hilfe!
Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Robert,
der FileDialog gibt "nur" den ausgewählten Namen zurück. Die Speichern-Aktion muss man zusätzlich ausführen.
Zusätzliche Schutzmassnahme gegen versehentliches Überschreiben der Vorlage: Datei schreibgeschützt öffnen.
Gruß
Franz

Sub Test()
Dim vFilename
'Word Datei öffnen
Set objWord = CreateObject("Word.Application")
'Vorlage schreibgeschützt öffnen
Set objDoc = objWord.Documents.Open("C:\Rechnungen\RechnungsVorlage.doc", ReadOnly:=True)
objWord.Visible = True
'Drucken
objWord.Dialogs(wdDialogFilePrint).Show
'Speichern
Set objWord = objDoc.Parent
objWord.Activate
objDoc.Fields.Unlink 'Verlinkungen aus Word Datei entfernen um nicht mehr _
veränderbare Datei Abzuspeichern
'Speichern
With objWord.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "C:\Rechnungen\Rechnung Nr. " & Renu & "-" _
& ThisWorkbook.Sheets("Export Rechnung").Range("B5").Value & ".doc"
If .Show = -1 Then
'es wurde ein Dateiname gewählt
vFilename = .SelectedItems(1)
objDoc.SaveAs Filename:=vFilename
Else
'es wurde der Auswahlvorgang abgebrochen
End If
End With
'Word schließen
objWord.Documents.Close savechanges:=0 'wdDoNotSaveChanges
objWord.Quit
Set objWord = Nothing
Set objDoc = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread