im Word Dokument alle Zahlen wo kein Punkt danach kommt in Wort umwandeln.

[Etit (Gast)]

Hallo Leute, wie kann ich in einem 2000 Seitigen Dokument alle Zahlen wo 
kein Punkt dahinter vorkommt in Text umwandeln?

Also sprich 2100 in zweitausendeinhundert.

[suchen - ersetzen (Gast)]

Schreib Dir Software, die das kann, Sprache egal. Oder verwende 
suchen/ersetzen.

[Etit (Gast)]

suchen - ersetzen schrieb:
> Schreib Dir Software, die das kann, Sprache egal. Oder verwende
> suchen/ersetzen.

Gibts da schon fertiges?

[Sim J. (unimetal)]

Sowas lässt sich super mit VBA (z.B. in Word) programmieren.

-Entwicklertools einblenden

-Makro aufnehmen und ansehen, wie es arbeitet

-Strategie/Algorithmus ausdenken und Makro anpassen

=> Das entspricht dann dem händischen Vorgehen. Das ist etwas 
amateurhaft, genügt aber oft, um den Anfang zu bekommen.

Da kommt dann sowas raus:

Sub SuchenErsetzen()
'
' SuchenErsetzen Makro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " 1 "
        .Replacement.Text = "eins"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub

Dann überlegt man sich, wie man alle Fälle abdeckt. Man könnte zum 
Beispiel für jede Zahl einen String generieren, beispielsweise mit der 
hier erzeugten Funktion, für das es von Microsoft ein Codebeispiel gibt. 
Die Funktion konvertiert Zahlen in Wörter:

https://support.microsoft.com/de-de/office/konvertieren-von-zahlen-in-w%C3%B6rter-a0d166fb-e1ea-4090-95c8-69442cd55d98

Diese Funktion passt man dann an und implementiert man dann in eine 
For-Schleife:

Dim i As Long

For i = 1 To 1000000
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " " & i & " "
        .Replacement.Text = SpellNumber(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next

Das kann man sich dann nach belieben anpassen, um alle Fälle abzudecken.
Beispielsweise könnte man "For i = 1000000 To 1 Step -1" wählen, wenn 
man unter ".Text" auch Zahlen ohne vorangestellte oder nachgestellte 
Leerzeilen detektieren möchte, jedoch aus 111 kein eins eins eins 
erzeugen möchte, sondern "einhundertelf"

Was ich damit sagen möchte: Sei kreativ. Mit dem Programmieren bist du 
auf dem richtigen Weg.

Gruß Simon

[Eric (Gast)]

Wie man sowas mit Word macht, weiss ich nicht. Mit sed und regex ist das 
aber kein Problem. Du müsstest dann den Text wieder in dein 
Word-Dokument kopieren und gegebenfalls neu formatieren.

[Jonas B. (jibi)]

>Wie man sowas mit Word macht, weiss ich nicht. Mit sed und regex ist das
>aber kein Problem. Du müsstest dann den Text wieder in dein
>Word-Dokument kopieren und gegebenfalls neu formatieren.

Wie erzeugst du damit die ausgeschriebenen Zahlen?

[Alexander S. (alesi)]

Das Betriebssystem mit eingebautem Editor Emacs kann das natürlich :-)
https://www.emacswiki.org/emacs/SpellNumber