Hallo,
wie kann ich felder (z. B name, vorname)von der Datenbank in einer word-Datei direkt laden.
Danke für jede Antwort
guidi
Office - Word, Excel und Co. 9.759 Themen, 41.747 Beiträge
Kolti guidi „Felder von Datenbank laden“
Mit der Serienbrieffunktion.
guidi Kolti „Mit der Serienbrieffunktion. “
Hallo, ich möchte das in einer Vorlage (.dot)laden,
und diese Vorlage mi Parameter öffnen z. B.
„test.dot Meier“, dann wird der Name und vorname von Meier
schon drin stehen.
Dank für die schnelle Antwort
guidi
Kolti guidi „Felder von Datenbank laden“
Wenn Du Dir eine fertige Dot machst, dann kannst Du die auch gleich Meier.dot nennen und alle anderen ebenfalls nach Nmaen benennen. Mit Parameter aufrufen geht bestimmt nicht.
Die Alternative dazu ist eben Serienbrief oder Formular.
guidi Kolti „Wenn Du Dir eine fertige Dot machst, dann kannst Du die auch gleich Meier.dot...“
ja aber, dann muß ich für mehr als 600 Namen, mehr als 600 .dot erstellen. Ich versuche es mit Formular, ich weiß nicht wie, aber ich versuche es.
guidi Kolti „Wenn Du Dir eine fertige Dot machst, dann kannst Du die auch gleich Meier.dot...“
ja aber, dann muß ich für mehr als 600 Namen, mehr als 600 .dot erstellen. Ich versuche es mit Formular, ich weiß nicht wie, aber ich versuche es.
Kolti guidi „ja aber, dann muß ich für mehr als 600 Namen, mehr als 600 .dot erstellen. Ich...“
......ist das einzig Wahre die Serienbrieffunktion.
Uli M guidi „Felder von Datenbank laden“
z.B. mit Automation aus der DB oder bel. anderer Anwendung heraus (u.a. unter Verwendung von Textmarken, Formularfeldern oder dgl. in der *.dot). Prinzipiell auch umgekehrt, wenn klar ist, welche Datensätze zur Anwendung kommen sollen.
Simples Bsp.:
Dim oWd As Object ' Word.Application
Dim oDoc As Object ' Word.Document
Dim oRange As Object ' Word.Range
On Error Resume Next
Set oWd = GetObject(, "Word.Application")
If Err 0 Then
Set oWd = CreateObject("Word.Application")
On Error GoTo 0
End If
Set oDoc = oWd.Documents.Add("c:\Test\Test.dot")
With oDoc
If .Bookmarks.Exists("Name") Then
Set oRange = .Bookmarks("Name").Range
oRange.Text = "Meier" ' bzw. dein DB-Inhalt
.Bookmarks.Add "Name", oRange
End If
' weiteres wie Dok anzeigen nach Bedarf
If oWd.Visible = False Then oWd.Visible = True
.Activate
End With
Set oDoc = Nothing
Set oWd = Nothing
