Daten aus .dot Dokument auslesen???

[mrfivejunior]

Hallo,
mal wieder ne Frage! Ist es möglich Daten aus einer Word-Vorlage (.dot) auszulesen und als Datensatz in meine Datenbank bestimmten Steuerelementen zuzuweisen?? Es sollte so ein, dass über ein Botten die ausgefüllten Word-Vorlagen ausgewählt und automatisch ein Datensatz erstellt werden soll.
Ist das überhaupt möglich? Wenn ja bitte ich um Hilfe!
Ich bin in Access leider kein Pro, sondern nur jemand der sich ab und zu damit befasst.
Gruß Tobias

[O. Helper]

Hallo Tobias,

eine Möglichkeit:
Über ein Word-Objekt kannst Du Dokumente einlesen und damit auf den Inhalt zugreifen.

Olaf

[mrfivejunior]

Hallo Olaf,

und wie geht das mit dem Word-Objekt??

Mein Dokument stellt ein Formular dar. Wie kann ich dann die verschiedenen Textmarken den Steuerlementen der Datenbank zuweisen??

Die die Textmarken nach den gelben Textfeldern sollen in die Datenbank eingebunden werden.

Tobias

[O. Helper]

Hallo Tobias,

das Auslesen aus dem DOC wirst Du selbst programmieren müssen, dafür gibt es keine Standard-Funktion. Wie erwähnt kannst Du dafür ActiveX verwenden, um das Document durchzugehen.
Hier ein kleines Beispiel für Deinen Fall:
[highlight=code]Public Function GetWordTableValue(ByVal rowName As String) As String
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim wordTab As Word.Table
Dim celLoop As Long
Dim tempRow As String

Set wordApp = New Word.Application
Set wordDoc = wordApp.Documents.Open("C:\Untersuchungsantrag.doc ")
Set wordTab = wordDoc.Tables(1)

rowName = UCase$(Trim$(rowName))
For celLoop = 1 To wordTab.Rows.Count
tempRow = UCase$(Trim$(wordTab.Cell(celLoop, 1).Range.Text))
tempRow = Left$(tempRow, Len(tempRow) - 2)
If tempRow = rowName Then
GetWordTableValue = wordTab.Cell(celLoop, 2).Range.Text
GetWordTableValue = Trim$(Left$(GetWordTableValue, Len(GetWordTableValue) - 2))
End If
Next celLoop

Set wordTab = Nothing
wordDoc.Close False
Set wordDoc = Nothing
wordApp.Quit False
Set wordApp = Nothing

End Function[/highlight]

Wenn Du dann im Direktfenster
?GetWordTableValue("Einzelteilzeichnung:")
eingibts, solltest Du den Wert aus der 2ten Spalte bekommen.

Olaf