über VB.net ein Macro erstellen für WORD

[VB2010_ExpressUser]

Hi Leute******

Ich hatte es ja schon erfolgreich hinbekommen eine Word Serienbrieffunktion auf die Beine zu stellen. Hatte dann mit Hilfe des Makro Rekorders von Word ein Makro zur Serienbrieferstellung selber erstellt. Hat auch funktioniert. Sogar das ansprechen des Makros unter VB.net.



Jedoch würde ich gerne mal wissen wie ich mit VB.net ein Makro selber schreiben kann was dann unter WORD eingfügt wird. Das Problem ist ja ich will nicht immer selber das Makro erst unter Word mit VBA einfügen. Hoffe das mir da jemand ein paar Tips geben kann wie dies zu realisieren ist.

Hatte zwar was gefunden für Excel, aber irgendwie hat mir das nicht weiter geholfen.



So sieht der Abschnitt des Codings aus:

Dim appWord As Microsoft.Office.Interop.Word.Application
        Dim doc As Document

        appWord = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
        appWord.Visible = True

        Dim AuswahlDialog As New OpenFileDialog
        Dim Schaltfläche As DialogResult

        AuswahlDialog.Filter = "DOT-Datei (.dot)|*.dot"
        Schaltfläche = AuswahlDialog.ShowDialog()

        If Schaltfläche = System.Windows.Forms.DialogResult.OK Then
            Try
                doc = appWord.Documents.Add(AuswahlDialog.FileName.ToString)    ' Mit .Add wird aus der .Dot eine .Doc
            Catch ex As Exception
                MessageBox.Show(ex.Message)     ' Fehler
                Exit Sub
            End Try

        Else
            MessageBox.Show("Auswahl wurde abgebrochen")
            Exit Sub
        End If

        Try
            appWord.Run("Serienbrief")

        Catch ex As Exception
            MessageBox.Show("Serienbrieffehler: " & ex.Message)
        End Try


        'Verbindungen beenden
        doc = Nothing
        appWord = Nothing

    End Sub

@@@@@ So und bevor das Makro aufgerufen wird, sollte es vorher mit Hilfe von VB.net erstellt werden. @@@@@



Ich danke euch alle schonmal..................