Sub LVerstellen()
Dim LV As Worksheet, LVPos As clsLeistungsPosition
Dim Langtext As OLEObject, Langtexte As OLEObjects, Lio As Range, Reu As Range
Dim OZ As String, Position As Long, O_Kante As Double

  Set LV = ActiveSheet
  Set Langtext = WorddokumentHinzu(LV)
  Set Langtext = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.12", Link:=False, DisplayAsIcon:=False).Activate
End Sub

Function WorddokumentHinzu(ByRef Blatt As Worksheet) As OLEObject
'Dim Langtext As OLEObject
Dim PosX As Double, PosY As Double
Set WorddokumentHinzu = Blatt.OLEObjects.Add(ClassType:="Word.Document.12", Link:=False, DisplayAsIcon:=False)
End Function