ich habe folgenden VBA-Excel-Code, der im zweiten Teil nicht funktioniert. Das betreffende Worddokument wir gefunden und geöffnet. Bei der Unterprozedur (TextAusgabe) erhalte ich jedoch immer die Meldung "Objekt nicht gefunden" (fett dargestellt) obwohl das Worddokument geöffnet und aktiv ist - meine ich... Wo ist der Fehler? Vielen Dank!!:
Private Sub cmdWorddokument_Click()
Dim strVorname As String
Dim strNachname As String
Dim strStrasse As String
Dim strPLZ As String
Dim strOrt As String
Dim strTätigkeit As String
Dim strAnredeA As String
Dim strAnredeB As String
Dim DateiName As String
Dim DateiNameNeu As String
Dim Vorlagendatei As Object
strDateiNameNeu = "Versuch"
Set Vorlagendatei = CreateObject("Word.Application")
With Vorlagendatei
.Documents.Open "G:\02-Landesverband\AVR-Tarif\AVR_J\Entgeltausdrucke\ _
Entgeltausdruck_leer.docx"
.Visible = True
.Activate
End With
With frmEntgeltberechnung
strVorname = txtVorname
strNachname = txtName
strStrasse = txtStrasse
strPLZ = txtPLZ
strOrt = txtOrt
strTaetigkeit = txtTaetigkeit
strAnredeA = "r Herr"
strAnredeB = " Frau"
End With
Call TextAusgabe("MarkeVorname", strVorname)
Call TextAusgabe("MarkeName", strNachname)
Call TextAusgabe("MarkeStrasse", strStrasse)
Call TextAusgabe("MarkePLZ", strOrt)
Call TextAusgabe("MarkeTaetigkeit", strTaetigkeit)
Call TextAusgabe("MarkeAnredeA", strAnredeA)
Call TextAusgabe("MarkeAnredeB", strAnredeB)
With ActiveDocument
.PrintPreview
.SaveAs Filename:=strDateiNameNeu
.Close
End With
End Sub
Private Sub TextAusgabe(ByVal strTextMarkenName As String, ByVal strAusgabeText As String)
If ActiveDocument.Bookmarks.Exists(strTextMarkenName) Then
With Selection
.GoTo what:=wdGoToBookmark, Name:=strTextMarkenName
.TypeText strAusgabeText
End With
Else
MsgBox strTextMarkenName & " nicht vorhanden"
End If
End Sub