Zeichen zählen in Worddocument

Question

Ich möchte gern ein Makro schreiben, mit dem ich die Zeichen einer Zeile in einem Word- Document zählen kann. Alle Zeilen haben ein Return. fIch arbeite immer noch mit office 2000 auf Win7.
Wer kann mir helfen?
Gruß Ura

Answer 1

Leider war ich ein paar Tage krank.
Als ich dann über die "Antwort bewerten-Funktion" einfach nicht hereinkommen konnte, wollte ich auf diesem Wege meinen Dank, an Erich March abstatten! Die Funktion hat wunderbar geklappt. und ich bin zu dem Schluss gekommen, dass es in Exel noch brauchbarer ist.
Allerdings hätte ich noch einen Wunsch:
Text1 / =/ Text2 in jeweils einzelnen Spalten (Die SchrägStriche sind natürlich nur als Trennzeichen zu verstehen)

Hast Du dafür vielleicht auch noch so eine geniale Idee?

Gruß Peneler

Answer 2

Nö. Dazu braucht es keine Idee. Das ist einfaches Handwerk :)

Aufteilung
Spalte A = Originalwert
Spalte B = Gleichheitszeichen
Spalte C = Leerzeichen entfernt

Sub T2()
Dim I As Integer
Dim J As Integer
Dim Eingang As String
Dim Ausgang As String
I = 1
Do
Eingang = Cells(I, 1)
Ausgang = ""
For J = 1 To Len(Eingang)
If Mid(Eingang, J, 1) <> " " Then _
Ausgang = Ausgang & Mid(Eingang, J, 1)
Next
Cells(I, 2)= "="
Cells(I, 3) = Ausgang
I = I + 1
Loop Until Cells(I, 1) = ""
End Sub

Allerdings halte ich diese Separation des ›=‹ für nicht so sehr genial.

Eric March
(mit dem h nur hinterm Marc)