Private Sub Adresse_nach_WORD_Click()
Dim i As Integer
On Error GoTo Err_Adresse_nach_WORD_Click
If Adressen_Nr.Value > 0 Then
Dim oApp As Object
Dim VorlagenPfad As String
Dim globalpfad As String
Close #10
On Error GoTo neuerPfad
Open "C:\firma\Pfade.ini" For Input As #9
GoTo WEITER
neuerPfad:
Open "c:\firma\Pfade.ini" For Input As #9
WEITER:
Input #9, VorlagenPfad
Input #9, globalpfad
Close #9
VorlagenPfad = Mid(VorlagenPfad, InStr(1, VorlagenPfad, "=", vbTextCompare) + 1)
globalpfad = Mid(globalpfad, InStr(1, globalpfad, "=", vbTextCompare) + 1)
Open globalpfad & "\ww_auto.txt" For Output As #10
Firma1.SetFocus
Write #10, Firma1.Text
Firma2.SetFocus
Write #10, Firma2.Text
Firma3.SetFocus
Write #10, Firma3.Text
Write #10, ""
Strasse.SetFocus
Write #10, Strasse.Text
Postleitzahl.SetFocus
Write #10, Postleitzahl.Text
Ort.SetFocus
Write #10, Ort.Text
Kundennummer.SetFocus
Write #10, Kundennummer.Text
Close #10
On Error Resume Next
Set oApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set oApp = CreateObject("Word.Application")
End If
oApp.Activate
Err.Clear ' Err-Objekt im Fehlerfall löschen.
oApp.Visible = True
oApp.Application.Documents.Add Template:=VorlagenPfad + "\RECHNUNG.DOTM", NewTemplate:=False
oApp.Run "ManuelleAdresseingabe.ManuelleAdresseingabe"
Else
i = MsgBox("Keinen Datensatz ausgewählt", vbOKOnly, "INFORMATION", 0, 0)
End If
Exit_Adresse_nach_WORD_Click:
Exit Sub
Err_Adresse_nach_WORD_Click:
MsgBox Err.Description
Resume Exit_Adresse_nach_WORD_Click
End Sub
|