Sub Callback(control As IRibbonControl)
Dim Wort As Range
Dim WörterArray() As Variant
Dim i, s As Double
Dim TemporärerString As String
Dim Buchstabe As String
Dim GrößeArray As Double
For Each Wort In ActiveDocument.Words
If GrößeArray = 0 Then
WörterArray(0) = Trim(Wort)
GrößeArray = GrößeArray + 1
Else
ReDim Preserve WörterArray(UBound(WörterArray) + 1)
WörterArray(UBound(WörterArray)) = Trim(Wort.Text)
End If
Next
For i = LBound(WörterArray) To UBound(WörterArray)
WörterArray(i) = Wort.Text
For s = 1 To Len(Wort.Text)
Buchstabe = Mid(Wort.Text, s, 1)
TemporärerString = Buchstabe & TemporärerString
Next
WörterArray(i) = TemporärerString
TemporärerString = ""
Next
Selection.EndKey Unit:=wdStory
For i = LBound(WörterArray) To UBound(WörterArray)
Selection.TypeText WörterArray(i) & " "
Next
End Sub