Word in den Vordergrund
31.07.2020 09:58:35
Kofler
Könnte mir einer von euch helfen? Ich erzeuge ein neues Word Dokument mit dem unten ersichtlichen Code. Ich möchte aber das Word Dokument in den Vordergrund bringen.
'5.Word-Datei:
ElseIf ComboBox2.Value = "Antrag auf Zur?ckziehung" Then
With GetObject("F:\EINZIEHUNG\Vorlagen BG\Briefvorlagen_word\Antrag_Zur?ckziehung.docx")
.variables("BGName") = ComboBox1.Value
'.variables("Zahl") = TextBox6.Value
.variables("BGStrasse") = TextBox1.Value
.variables("BGOrt") = TextBox2.Value
.variables("Name") = TextBox7.Value
.variables("Geburt") = TextBox8.Value
.variables("Geleistet") = TextBox9.Value
.variables("Eauf") = TextBox10.Value
If OptionButton1.Value = True Then
.variables("Sachbearbeiter") = "Gebhart Andrea"
.variables("Durchwahl") = "4442"
.variables("EMail") = "andrea.gebhart"
ElseIf OptionButton2.Value = True Then
.variables("Sachbearbeiter") = "Kofler Manuel"
.variables("Durchwahl") = "4440"
.variables("EMail") = "manuel.kofler"
ElseIf OptionButton3.Value = True Then
.variables("Sachbearbeiter") = "Brem Herwig"
.variables("Durchwahl") = "4446"
.variables("EMail") = "herwig.brem"
ElseIf OptionButton4.Value = True Then
.variables("Sachbearbeiter") = "Pertolli Bernd"
.variables("Durchwahl") = "4445"
.variables("EMail") = "bernd.pertolli"
ElseIf OptionButton5.Value = True Then
.variables("Sachbearbeiter") = "Pinzger Andreas"
.variables("Durchwahl") = "4444"
.variables("EMail") = "andreas.pinzger"
ElseIf OptionButton6.Value = True Then
.variables("Sachbearbeiter") = "Streitberger Peter"
.variables("Durchwahl") = "4448"
.variables("EMail") = "peter.streitberger"
ElseIf OptionButton7.Value = True Then
.variables("Sachbearbeiter") = "Th?ni Markus"
.variables("Durchwahl") = "4443"
.variables("EMail") = "markus.thoeni"
ElseIf OptionButton8.Value = True Then
.variables("Sachbearbeiter") = "Krpina Susanne"
.variables("Durchwahl") = "4447"
.variables("EMail") = "susanne.krpina"
End If
'.variables("BGZusatz1") = TextBox3.Value
'.variables("BGZusatz2") = TextBox4.Value
.Fields.Update
.Windows(1).Visible = True
.SaveAs "F:\EINZIEHUNG\Vorlagen BG\Erstellte Dokumente\BG_Antrag_Zur?ckziehung" & Format(Now, "YYMMDD_HHMM") & ".docx"
End With
Else
MsgBox "Word Briefvorlage nicht gefunden!"
TextBox7.SetFocus
End If
Vielen lieben Dank!
Mfg
Manuel