Office: (Office 2000) automatische Vergabe eines Word-Dateinamens

Für alle, die momentan keine Pappnase auf haben:

In einem Formular öffne ich per Buttons verschiedene Serienbrief-Worddokumente. Für die Seriendruckfelder greife ich auf eine Access-Abfrage zu, deren Inhalt aus einem einzigen Datensatz besteht.


Mein Problem:
Statt des Standardnamens "Dokument1" soll jedoch ein Name verwendet werden, der sich aus Feldern eines Access-Datensatzes zusammensetzt.

Öffne ich z.B. die Datei "Anschreiben.dot", soll die Datei statt "Dokumet1.doc" den Namen haben:
[Abfragen]![aktueller_Datensatz]![Nachname] & [Abfragen]![aktueller_Datensatz]![vorgang_nr]

Beim Speichern heißt das Dokument dann also nicht mehr automatisch "Dokument1.doc", sondern z.B. "Müller_123".

Wie kann man sowas machen?

:)

 

Hi,

Wenn du auf die Instanz der Word.Application zugreifen kannst, dann kannst mit appWord.Documents.SaveAs einen Dateinamen vergeben.

 

Hallo J_Eilers,
Ich habe für das Click-Ereignis eines Buttons einfach nur die Prozedur hinterlegt:

FollowHyperlink "C:\Korrespondenz\Briefvorlagen\"

In dem Verzeichnis sind dann halt verschiedene word dot-Dateien.
Wie kann ich denn jetzt hier "appWord.Documents.SaveAs" einsetzen?

Sorry, bin noch VBA-Beginner.
Bin für Tips jeglicher Art sehr dankbar.

 

*sos
Weiß denn niemend einen Rat ?!?

Ich habe gelesen, dass man beim Öffnen einer dot-Datei per VBA einen Parameter für den Dateinamen übergeben kann, hab aber keine Ahnung, wie das von statten gehen soll.
Kennt vieleicht jemand diese Funktion?

Oder braucht man eine eigenständige komplexe Prozedur?

 

Hallo Knubbie,
so ganz verstehe ich die Sache nicht. Du öffnest doch mit der Word-Vorlage ein neues Word-Dokument z.B:

Public Function Serienbrief()
Dim Word As Object
On Error Resume Next
...

Set Word = CreateObject("Word.Application")
If Word Is Nothing Then
msgbox "Konnte keine Verbindung zu Word herstellen!", 16, "Problem"
Exit Function
End If

With Word
.Visible = True
.Documents.Add Template:="C:\DeinPfad\DeineVorlage.dot"
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End With

...
End Function

Die Vorlage ist mit Deiner ACCESS-Abfrage verknüpft.
Das neue Word-Dokument kannst Du doch nun mit beliebigen Namen speichern

Gruß von den letzten Hansa-Fan Peter

 

Hallo tramp,

Das ist ja gerade das Problem!
Der User soll das Dokumet nämlich nicht unter "einem beliebigen Namen" speichern.

Damit Die Word-Datei von Access-Routinen später richtig zugeordnet werden kann, muss der Dateiname sich aus bestimmten Segmenten zusammensetzen, die sich auf einen Datensatz beziehen.

(Siehe meinen Eintrag vom 05.02.2005 12:48)

 

FollowHyperlink ist bestimmt nicht der richtige Weg zum Ziel. Schau doch mal in die