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