Speichern SaveAs mit best.Parametern
30.07.2005 14:19:10
marc
ich arbeite zwar im Excel die Befehle ändern aber im Word.
Ich will die neue Datei so speichern,dass der Name der Word-Datei
Info, Firmennamen und Namen des Kunden und .doc beinhaltet.
die Werte Firma und Name werden aus dem txtFirma und txtAP_Name übernommen.
zB: Info Mueller GmbH Claus.doc
Info Fleischwerke AG Joos.doc
u.s.w
leider komme ich mit meinem code nicht weiter,die neue Datei wird falsch benannt.
marc...
Option Explicit
Private Sub DruckFB_Click()
Dim strMarkeFirma As String
Dim strMarkeBestNr As String
Dim Firma As String
Dim txtAP_Name As String
Dim ActiveDocument As String
Dim strDateiName As String
Dim strDateiNameNeu As String
Dim myWord As Object
On Error Resume Next
Set myWord = CreateObject("Word.Application")
strDateiName = "D:\SGD\Mustertexte\FB_001.doc"
strDateiNameNeu = "D:\SGD\Mustertexte\HeutArchiv\" & "Info" & Firma & "& txtAP_Name & .doc"
With myWord
.Visible = True: myWord.WindowState = wdWindowStateMaximize
.Application.Documents.Open strDateiName
.ActiveDocument.Bookmarks("MarkeBestNr").Range.Text = Me.BestNr
.ActiveDocument.Bookmarks("MarkeFirma").Range.Text = Me.Firma
.PrintOut
End With
With myWord
myWord.ActiveDocument.SaveAs FileName:=strDateiNameNeu <----?
'.ActiveDocument.Saved = True
.Close
End With
myWord.Quit
Set myWord = Nothing
End Sub