title image


Smiley Wörter in Array
Hallo,

in einem markierten Text sollen alle Wörter mit Font.Bold = True in ein Array eingelesen und dort alphabetisch aufsteigend sortiert und am Dokumentende ausgegeben werden.



Mit folg. Code kann ich die Obergrenze des Arrays erfassen; ist sie festgelegt, können erst die Wörter aufgenommen werden. Ist das nur so möglich, denn man hat ja redundanten Code, wenn man eine 2. For/Next-Schleife erstellt? Vielleicht geht es einfacher?



2)

Wie kann man das Array sortieren und am Dokumentende wieder ausgeben?



Danke für Hinweise



Gruß

Benny





Sub WoerterInArray

Dim oWord as Range, arListe as Array

Dim aWortListe$()

For Each oWord In Selection.Words

If oWord Chr(13) And oWord.Font.Bold = True Then i = i + 1

Next oWord

ReDim aWortListe(i - 1)

'jetzt wieder die For/Next-Schleife, um die Wörter einzulesen?

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: