Word Datei auswählen zum Text abfüllen

[Micharius]

Guten Tag zusammen

Mit diesem Code öffnet mir Access eine Vorlage, und füllt die definierten Textmarken aus.

Code [Auswählen] Erweitern

Private Sub Befehl1_Click()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application")

With wdApp
   .Visible = True
   Set wdDoc = .Documents.Add("C:\Dokument.docx")
End With

With wdDoc
   .Bookmarks("KunName").Range = Me!Text61
   .Bookmarks("KunNr").Range = Me!KunNr
   .Bookmarks("ParName").Range = Me!Text69
    End With
End Sub

Nun frage ich mich, ob es auch die Möglichkeit gäbe, die Datei nicht fest zu verdrahten, sondern ein Auswahlfenster hätte. Der Benutzer gibt dann an, wo das Dokument liegt, darauf hin wird es geöffnet und die Textmarken abgefüllt.

Und als zweites wäre ich um eine Info froh, ob ich tatsächlich nur Felder aus dem Formular abfüllen kann, oder auch solche aus einer Abfrage ausserhalb des Formulars. Wie würden die referenziert?

Über Tipps würde ich mich freuen.

Beste Grüsse

Micha

[Xoar]

Hi,
ohne jetzt konkreten Code zu liefern, könntest
1. Über eine Variable mit Inputbox den Pfad eingeben, was aber nicht sehr benutzerfreundlich ist.

2. Eine Variable über das FileSystemObjekt (FSO) zu befüllen. Das ist dann ein Dateiauswahldialog, wie Du ihn von Datei öffnen her kennst. Das wäre sehr komfortabel.

Hier im Forum gibt es bestimmt Beispiele dazu,  es gibt sogar fähige Leute die eine VBA Klasse geschrieben haben, was den Umgang im programmieren sehr vereinfacht.

Daten aus einer anderen Abfrage könntest Du über ein Recordset auslesen, oder wenn es um einen Datensatz geht mittels Dlookup.

Grüße

[DF6GL]

Hallo,

im einfachsten Fall kann der Filedialog aus der MSO-Library (Verweis setzen!)  benutzt werden.

[Lachtaube]

Alles, was als Text (String) zu formulieren ist, kann einer Bookmark in einem Word Dokument zugeordnet werden - auch "" wäre erlaubt; nicht aber Null. Ob dabei die Daten aus Steuerelementen, Variablen, Konstanten oder Eigenschaften entstammen, ist völlig egal.

[Micharius]

Hmm...nicht so einfach wie ich mir erhofft hatte, aber doch einige Infos - vielen Dank. Werde es mir anschauen 

[Lachtaube]

Wo drückt der Schuh denn konkret?