Private Sub btnWord_Click()
Dim strSpeicherort As String
Dim strDocName As String
strSpeicherort = "C:\
strDocName = "TESTDOKUMENT"
 
 
'Word Ticket erzeuchen
'Adresse erstellen mit WORD
Dim wwobj As Object 'für ein Wordobjekt
Dim transfertxt As String 'Variable für die zu übergebenen Werte aus den Feldern
Dim vorlage As String 'der Name der Vorlage
On Error GoTo WORDFEHLER 'Fehlerbehandlung
'neues Objekt erstellen
Set wwobj = CreateObject("Word.Application")
wwobj.Visible = True
'maximieren
'wwobj.WindowState = wdWindowStateMaximize
wwobj.WindowState = 1
'Vorlage -Brief.dot- für neues Dokument aus Einstellungstabelle auslesen
'vorlage = GetEinstellung("Adressen") 'Tabelle, wo der Pfad zur Vorlage _
  hinterlegt ist
vorlage = textFehlerticket_Vorlage '"Angabe des standortes der Fehlerticket" & _
"vorlage z.B.: E:\232 Fehlertickets\Brief.dot"
'neues Dokument erstellen
wwobj.Documents.Add Template:=vorlage
'Übergabe der Feldinhalte an Textmarken (TM...)
'KundenNummer
 
wwobj.Selection.GoTo What:=-1, Name:="TM_Applikation"  'Textmarke Applikation
transfertxt = Me.Kombinationsfeld54
wwobj.Selection.TypeText Text:=transfertxt
 
'Wordobjekt leeren
Set wwobj = Nothing
WORDENDE:
'End Sub
WORDFEHLER:
 
'Zum Fehlermeldungseinbau
 
 
 
Fehler:
    If Err = 0 Then
        MsgBox "Das Word Dokument wurde erfolgreich erstellt"
    Else
        MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
 
    End If
 
 
 
End Sub