Wörter zählen und Inhalt vertauschen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich wollte unter Word das makierte Wort zählen (Bsp.: Wörter = 6 Buchstaben). Dieser Wert ist auch gleich der Endwert des Wortes, also der letzte Buchstabe liegt auf Position 6. Der erste ist folglich immer 1. Nun will ich das die Werte 2-5 (also zwischen 1 und 6 *g*) einfach wild getauscht werden.

z.B.: Wörter = Wrtöer

Wie kann ich sowas unter Word / Visualbasic anstellen?
Jemand ne Ahnung welchen source ich dafür genau brauch.

Wäre für jede Antwort sehr dankbar, habe nämlich „absolut“ keine Ahnung von VB.

Vielen Dank schonmal!

MfG
Lui

#2

Hallo Lue

Ich habe mal nen kleinen Code geschrieben.

Auf die Form fügst Du eine Textbox ein und ein CommandButton

Im Code selbst habe ich genug Info rein geschrieben.
Falls Du aber noch Fragen haben solltest, frag einfach :smile:)
Ich versuche dann Deine Fragen zu beantworten.

Gruss Jürgen

Private Sub Command1_Click()
Dim Merke As String
Dim Zufall As String
Dim Pos As Integer

'–Eingabe zwischen dem ersten und letzten Zeichen merken
Merke = Mid$(Text1, 2, Len(Text1) - 2)

'–Zufallszahlengenerator initialisieren
Randomize

'–Zeichen ausschneiden
Do
'–Zufällige Position eines Zeichens
Pos = Int(Rnd * Len(Merke)) + 1

'–Zeichen auf dieser Position an den Änderung anhängen
Zufall = Zufall & Mid$(Merke, Pos, 1)

'–Zeichen ausschneiden
Merke = Left$(Merke, Pos - 1) & Mid$(Merke, Pos + 1)

'–Schleife verlassen wenn kein Zeichen mehr vorhanden ist
Loop Until Merke = „“

'–Geändertes Wort an Textbox übergeben
Text1 = Left$(Text1, 1) & Zufall & Right$(Text1, 1)
End Sub