Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document = New Word.Document
wdDoc.Select()
If wdApp Is Nothing Then
wdApp = New Word.Application
End If
wdApp.Selection.Font.Bold = True
wdApp.Selection.Font.Color = Word.WdColor.wdColorRed
wdApp.Selection.Font.Name = "AvantGarde Bk BT"
wdApp.Selection.Font.Size = 10
wdApp.Selection.Text = "Testtext"
wdApp.Selection.Text = "Text1" & ControlChars.CrLf & "Text2" & ControlChars.CrLf & "Text3" & ControlChars.CrLf & "Text4"
wdDoc.SaveAs(Application.StartupPath & "\yadda.doc")
wdDoc.Saved = True
wdApp.Quit()
End Sub