Word per Bookmarks in PDF und e-mail
09.12.2021 17:12:01
Mila
ich komme nicht weiter. Nach mehreren Tagen habe ich nichts brauchbares im Netz gefunden.
Ich fülle meine TextBoxen in Userform so :
Private Sub ListBox1_DblClick(ByVal cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0) 'Ausweis/Passnummer
Me.TextBox15.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1) 'Testdatum
Me.ComboBox2.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2) 'Anrede
Me.TextBox17.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3) 'Vorname
Me.TextBox18.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4) 'Nachname
Me.TextBox4.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5) 'Strasse/Nummer
Me.TextBox8.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 6) 'PLZ
Me.TextBox7.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 7) 'Ort
Me.TextBox16.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 8) 'Testzeit
Me.TextBox6.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 9) 'Geburtsdatum
Me.TextBox19.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 10) 'Testergebnis poitiv
Me.TextBox20.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 11) 'Testergebnis negativ
Me.ComboBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 12) 'Tester
Me.ComboBox6.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 13) 'Name des Tests
Me.ComboBox8.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 14) 'Hersteller
Me.TextBox21.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 15) 'e-mail
lZeile = Me.ListBox1.List(Me.ListBox1.ListIndex, 16) ' die Zeile speichern
CommandButton3.Enabled = True ' Commanbutton freigeben
CommandButton4.Enabled = True ' Commanbutton freigeben
End Sub
Private Sub CommandButton8_Click()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///D:\Users\User\Documents\Test8.docx")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("AusweissNr").Range.Text = Userform1.TextBox1.Value
docTest.Bookmarks("Testdatum").Range.Text = Userform1.TextBox15.Value
docTest.Bookmarks("Vorname").Range.Text = Userform1.TextBox17.Value
docTest.Bookmarks("Nachname").Range.Text = Userform1.TextBox18.Value
docTest.Bookmarks("StrasseNr").Range.Text = Userform1.TextBox4.Value
docTest.Bookmarks("PLZ").Range.Text = Userform1.TextBox8.Value
docTest.Bookmarks("Ort").Range.Text = Userform1.TextBox7.Value
docTest.Bookmarks("Hersteller").Range.Text = Userform1.ComboBox8.Value
docTest.Bookmarks("Testuhrzeit").Range.Text = Userform1.TextBox16.Text
docTest.Bookmarks("Geburtsdatum").Range.Text = Userform1.TextBox6.Value
docTest.Bookmarks("TestergebnisNegativ").Range.Text = Userform1.TextBox20.Value
docTest.Bookmarks("TestergebnisPositiv").Range.Text = Userform1.TextBox19.Value
docTest.Bookmarks("Tester").Range.Text = Userform1.ComboBox1.Value
docTest.Bookmarks("Testname").Range.Text = Userform1.ComboBox6.Value
Set docTest = Nothing
Set appWord = Nothing
End Sub
Nach dem ich auf dem Command Button8 geklickt habe möchte ich nicht dass Word Dokument gespeichert oder angezeigt wird ,sondern automatisch in PDF umgewandelt und per e-mail an die e-mail Adresse aus dem TextBox21 Userform1 gesendet wird.
Wenn man das PDF Dokument mitten eines Passworts verschlüsseln kann wäre super. Ich habe mir so vorgestellt dass jewelige Passwort dem Geburtsdatum entspricht .
Gebrtsdatums werden immer im TextBox6 angezeigt, .Alles soll im Hintergrund ablaufen.
Outlook soll noch zusätzlich so konfiguriert werden :
Im Beterff soll immer das gleiches Text stehen und die e-mails sollen sich automatisch im Hintergrund versenden ,lediglich nach dem versand soll eine MsgBox für eine sekunde eingeblendet werden mit dem Hinweiss das die e- mail versendet wurde .
Könnte mir bitte jemand helfen , ich bin leider keine Spezialistin und schäme mich irgend etwas zu fragen ,Ich meine : die Spezialisten unter Ihnen werden bestimmt merken wie weit ich trotzdem gekommen bin, aber an dieser stelle brauche ich leider oder zum Glück Ihre Hilfe.
Vielen lieben Dank im Voraus.