title image


Smiley TIPP: Word-Formulare auswerten
Man fragt sich natürlich wozu das Word-Formular, wo man doch in Access derart schöne Formulare anlegen kann...



Wenn's aber sein muss: Ohne VBA hast du da keine Chance - und mit VBA geht es im Prinzip so:



Public Function WordFormularAuswerten(Optional FName As String = "I:\samples\meinformular.doc")

Dim oWord As New Word.Application, oDoc As Word.Document, oFF As Word.FormField, Tmp As String, _

RS As DAO.Recordset, DB As DAO.Database



Set DB = CurrentDb



' Tabelle sicherheitshalber löschen

On Error Resume Next

DB.Execute "DROP TABLE tblWordDoc"

On Error GoTo 0



' Tabelle mit den Feldnamen des Formulars anlegen

Set oDoc = oWord.Documents.Open(FName)

For Each oFF In oDoc.FormFields

Tmp = Tmp & ",[" & oFF.Name & "] Text"

Next oFF

DB.Execute "CREATE TABLE tblWordDoc (DocName Text(255)" & Tmp & ")"



' Tabelle zum Schreiben öffnen

Set RS = DB.OpenRecordset("tblWordDoc", dbOpenDynaset)



' Felder aus dem Formular auslesen und in die Tabelle eintragen

RS.AddNew

RS!DocName = FName

For Each oFF In oDoc.FormFields

RS(oFF.Name) = IIf(Trim(oFF.Result) = "", Null, oFF.Result)

Next oFF

RS.UpDate



' und fertig...

RS.Close

oWord.Quit

Set oFF = Nothing: Set oDoc = Nothing: Set oWord = Nothing

End Function



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: