Imports Microsoft.Office.Interop
 
Public Class voll3
 
    Private Sub voll3_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        voll2.Show()
        Me.Hide()
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button2.Click
        Dim oWord As Word.Application = CreateObject("Word.Application")
        '//Neues Word Dokument erstellen         
        Dim oDoc As Word.Document = oWord.Documents.Add(IO.Path.Combine( _
          Application.StartupPath, "Vollbewertung.dotm"))
 
        oWord.Visible = True
 
        With oDoc
            .FormFields("Gutachten_Nr").Result = Vollbewertung.TextBox1.Text
            .FormFields("Gutachten_Nr_a").Result = Vollbewertung.TextBox1.Text
            .FormFields("Gutachten_Nr_b").Result = Vollbewertung.TextBox1.Text
            .FormFields("Gutachten_Nr_c").Result = Vollbewertung.TextBox1.Text
            .FormFields("Gutachten_Nr_d").Result = Vollbewertung.TextBox1.Text
            .FormFields("Gutachten_Nr_e").Result = Vollbewertung.TextBox1.Text
            .FormFields("Gutachten_Nr_f").Result = Vollbewertung.TextBox1.Text
            .FormFields("Name_Firma").Result = Vollbewertung.TextBox2.Text
            .FormFields("zHd").Result = Vollbewertung.TextBox3.Text
            .FormFields("Strasse").Result = Vollbewertung.TextBox4.Text
            .FormFields("Nr").Result = Vollbewertung.TextBox5.Text
            .FormFields("PLZ").Result = Vollbewertung.TextBox6.Text
            .FormFields("Ort").Result = Vollbewertung.TextBox7.Text
            .FormFields("SV").Result = Vollbewertung.TextBox8.Text
            .FormFields("Auftrag").Result = voll1.TextBox1.Text
            .FormFields("Besicht").Result = voll1.TextBox2.Text
            .FormFields("Ident").Result = voll1.TextBox3.Text
            .FormFields("Zustand").Result = voll1.TextBox4.Text
            .FormFields("Motor").Result = voll1.TextBox5.Text
            .FormFields("Karro").Result = voll2.TextBox1.Text
            .FormFields("Verd").Result = voll2.TextBox2.Text
            .FormFields("Innen").Result = voll2.TextBox3.Text
            .FormFields("Lack").Result = voll2.TextBox4.Text
            .FormFields("Glas").Result = voll2.TextBox5.Text
            .FormFields("Anrede").Result = Vollbewertung.ComboBox1.Text
            .FormFields("Rad").Result = TextBox1.Text
            .FormFields("Sons").Result = TextBox2.Text
            .FormFields("Wert").Result = TextBox3.Text
            .FormFields("inWort").Result = TextBox4.Text
            .FormFields("Note").Result = ComboBox1.Text
            .FormFields("Zert").Result = ComboBox2.Text
        End With
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As _
      System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button3.Click
        Me.Close()
        Vollbewertung.Close()
        voll2.Close()
        voll1.Close()
    End Sub
End Class

InlineShapes.AddPicture

If objDoc.Bookmarks.Exists("Bild1") Then
    objDoc.Bookmarks("Bild1").Select()
    objDoc.Shapes.AddPicture(IO.Path.Combine(Application.StartupPath, _
      "benutzer.png"), True, True)
End If