Gibt es eigentlich irgendwo die Funktion, Buchstaben innerhalb eines geschüttelten Wortes alphabetisch zu sortieren?? Ich hab schon bei Word, den 4teachers tools und bei ZARB geguckt, aber nichts gefunden.
Also: Aus NATMHNSHCANEWI soll AACEHHIMNNNSTW werden.
Wer kennt sowas??

Liebe Grüße
klexel

W
e
n
n
du die Buchstaben untereinander schreibst, geht es auch mit Word.

weiß, aber wie du schon sagst, das ist sehr umständlich, wenn man viele Wörter hat. Man muss sie dann ja auch alle wieder in die Waagerechte zurückfummeln.

Google doch mal zu "Schüttelwörter automatisch erstellen", da gibt es diverse Programme.

Es ist die Frage, wie du die Wörter einbinden möchtest.

Bei HotPotatoes gibt es die JMix-Funktion, aber ich denke, sie hilft dir nicht weiter, weil du auch dort alles von Hand eingeben müsstest.

Palim

kann ich ja erstellen, das geht superschnell, z.B. mit ZARB. Aber dann sind die Buchstaben eben irgendwie geschüttelt. Ich hätte sie gerne mal alphabetisch sortiert. Und das geht aus den Links, die ich ergoogelt habe, nicht unbedingt hervor.
Einbinden will ich die Wörter nirgends. Ich bastele im Augenblick einfach nur mal wieder an einem Schüttelrätsel. Keine Angst, nicht für euch, sondern diesmal für die Schule. Und die sortierte Variante gefällt mir einfach besser.
Ist also nicht lebenswichtig, war nur mal ne Frage, ob jemand sowas kennt.

LG
klexel

Gerade stoße ich auf deine Frage vom Dezember letzten Jahres, klexel. Weihnachten ist zwar längst vorbei, aber kleine Geschenke sind ja wohl immer willkommen.

Nicht alles eignet sich für ZARB. Aber du bist doch technisch ein bisschen versiert, oder? Hier ist ein kleines Makro, das du selbst in ein Modul des Visual-Basic-Editors einfügen kannst:


Sub SortBuchstAlphabetisch()
'Sortiert die Buchstaben eines markierten
'Wortes alphabetisch
'Copyright 2011, Hans Zybura

Dim sWortKopie As String
Dim sWortSortiert As String
Dim iLaenge As Integer

'Absatzmarke ggf. auslassen
If Right(Selection.Text, 1) = Chr$(13) Then
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
End If
'Leerzeichen links oder rechts ggf. auslassen
sWortKopie = RTrim(LTrim(Selection.Text))

'Sortieren vorbereiten
iLaenge = Len(sWortKopie) - 1

ReDim aWortArray(iLaenge) As String
'sortieren
For i = 0 To iLaenge
aWortArray(i) = Mid(sWortKopie, i + 1, 1)
Next
WordBasic.SortArray sWortArray(), 0, 0, iLaenge
For i = 0 To iLaenge
sWortSortiert = sWortSortiert + aWortArray(i)
Next
'ausgeben
Selection.TypeText Text:=sWortSortiert
End Sub


Falls das Einfügen in den Visual-Basic-Editor zu kompliziert ist oder sonst irgend Bedarf besteht, frag einfach noch mal nach.

Freundliche Grüße, Hans Zybura

Was ist ZARB?

ZARB ist ein tolles (Kauf)Programm, das sich für die Erstellung von Arbeitsblättern, Karteikarten usw. einsetzen lässt. Der Preis lohnt sich.
Nein, ich bekomm nichts dafür, dass ich es lobend erwähne, ich verwende es seit 2001 (?) ständig.

http://www.4teachers.de/url/4405

Eine "abgespeckte" Version ist in den "teachers Wordtools" enthalten.

der Autor/Erfinder von ZARB ist ein gewisser Hans
Zybura, der 2 Postings zuvor eine Lösung für das
angesprochene Problem präsentiert hat.
Danke dafür

Deine Antwort kam spät - aber meine noch viel später, wegen Ferien und Krankheit hatte ich deine Antwort noch gar nicht gesehen. Vielen Dank dafür.

Ich kann zwar mit deinem ZARB hervorragend umgehen und so manches basteln, aber die obige Beschreibung ist für mich ein total unverständliches Bömisches Dorf.
Geht das auch einfacher?? Ich weiß gar nicht, wo ich da anfangen soll. _{Ich weiß ja noch nicht mal, was ein Makro ist...}

Bitte bitte Hilfe
Danke
klexel