Hallo,
ich möchte aus Access97 einen selektierten Datensatz (Name, Vorname, etc.) in ein vorgefertigtes Word-Dokument aufKnopfdruck(Briefvorlage) einbringen.
Wie funktionierts?
Vielen Dank im voraus.
Bernd
Das geht etwa so:
Private Sub Word\_Click()
Dim WordObj As Object, Tmp
On Error Resume Next
Set WordObj = GetObject(, "Word.Application ")
If Err.Number 0 Then Set WordObj = CreateObject("Word.Application")
On Error GoTo 0
WordObj.Application.Visible = True
WordObj.Documents.Add "c:\temp\vorlage.dot"
Tmp = "Herrn " & Me!Vorname & " " & Me!Nachname & \_
vbCrLf & Me!Strasse & vbCrLf & Me!PLZ & " " & Me!Ort
With WordObj.Selection
.TypeText Text:=Tmp
End With
End Sub
Reinhard
Vielen Dank. Das klappt prima.
Mit einer Sache habe ich allerdings noch zu kämpfen: Die einzusetzenden Daten aus Access werden an die erste Cursorposition geschrieben.
Besteht nicht die Möglichkeit Positionen im Word-Dokument zu definieren (bspw. wie Seriendruckfelder) und diese gezielt von Access beschreiben zu lassen?
Das Word-Dokument ließe sich damit präziser und sauberer aufbauen.
Gruß,
Bernd
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Vielen Dank. Das klappt prima.
Mit einer Sache habe ich allerdings noch
zu kämpfen: Die einzusetzenden Daten aus
Access werden an die erste Cursorposition
geschrieben.
Besteht nicht die Möglichkeit Positionen
im Word-Dokument zu definieren (bspw. wie
Seriendruckfelder) und diese gezielt von
Access beschreiben zu lassen?
Klar, du kannst in Word Textmarken definieren und dann mit
.Goto What:=wdGoToBookmark, Name:=„MeineMarke“
dahin springen. Am besten schaust du dir das Word-Objektmodell in der Word-Hilfe an oder zeichnest die Aktivitäten, die du vornehmen willst, als Word-Makro auf und übernimmst sie dann entsprechend in Access. Man kann alles, was Word lokal per VBA kann auch aus einer anderen Applikation heraus fernbedienen…
Reinhard