Functionen einer Form in Word exportieren

'Das als Makro in ein Dokument, den Code der Klasse/Form ins Dokument selbst kopieren  
Sub Aufteilen()
Dim SubOderFunction As String
Dim InSubOderFunction As Boolean
    For Each Absatz In ActiveDocument.Paragraphs
    Dim Zeile As String
    Zeile = Left(Absatz, Len(Absatz) - 1)
    Dim Wörter() As String
    Wörter = Split(Zeile, " ")  
        If IsInArray(Wörter, "Sub") Then  
            If Replace(Zeile, " ", "") = "EndSub" Then  
                SubOderFunction = SubOderFunction & Zeile
                MsgBox SubOderFunction
                SubOderFunction = ""  
                InSubOderFunction = False
                Else
                InSubOderFunction = True
            End If
            ElseIf IsInArray(Wörter, "Sub") Then  
            If Replace(Zeile, " ", "") = "EndFunction" Then  
                SubOderFunction = SubOderFunction & Zeile
                MsgBox SubOderFunction
                SubOderFunction = ""  
                InSubOderFunction = False
                Else
                InSubOderFunction = True
            End If
        End If
    If InSubOderFunction Then SubOderFunction = SubOderFunction & Absatz
    Next
End Sub
Function IsInArray(ByRef ZuPrüfendeArray() As String, SuchString As String)
    IsInArray = False
    For Each Element In ZuPrüfendeArray
        If Element = SuchString Then
            IsInArray = True
            Exit Function
        End If
    Next
End Function

Dim rngAlles As Range
' Mach also einfach zu Beginn des Subs, _falls_ denn überhaupt 
' mehrere Word-Dokumente offen sein können, ein
Documents("DeineWorddatei.doc").Activate

Set rngAlles = ActiveDocument.Range(Start:=0, End:=0)
For Each Absatz In rngAlles.Paragraphs 
 ....