Alex Ruben
Zahlen mühelos in Text umwandeln in MS Word: Eine umfassende Anleitung
Wenn Sie es satt haben, Zahlen in Microsoft Word manuell in Text umzuwandeln, ist diese Anleitung genau das Richtige für Sie. Dieses Tutorial zeigt Ihnen, wie Sie Zahlen schnell und einfach mit einer einfachen Tastenkombination in Wörter umwandeln. Perfekt für alle, die mit Rechnungen, juristischen Dokumenten oder anderen professionellen Dokumenten arbeiten. Dieser Tipp steigert Ihre Effizienz deutlich und optimiert Ihren Workflow. Lassen Sie uns eintauchen und lernen, wie Sie diese Funktion wie ein Profi einrichten und nutzen!
Schritt 1: Greifen Sie in MS Word auf die Registerkarte „Entwickler“ zu
Bevor Sie die Tastenkombination zum Konvertieren von Zahlen in Text verwenden können, müssen Sie die Registerkarte „ Entwicklertools“ in MS Word aktivieren. Diese Registerkarte bietet Zugriff auf wichtige Tools, die standardmäßig nicht angezeigt werden: 1.Öffnen Sie Microsoft Word und klicken Sie oben links auf „Datei“.2. Wählen Sie in der Seitenleiste „Optionen “.3. Wählen Sie im Fenster „Word-Optionen“ links die Option „Menüband anpassen“.4. Aktivieren Sie rechts das Kontrollkästchen „ Entwicklertools “ und klicken Sie auf „OK“, um Ihre Änderungen zu speichern.
Schritt 2: Erstellen Sie ein Makro für die Konvertierung
Nachdem Sie nun auf die Registerkarte „Entwicklertools“ zugreifen können, erstellen Sie ein Makro, das die Konvertierung von Zahlen in Text automatisiert: 1. Wechseln Sie zur Registerkarte „Entwicklertools“ und klicken Sie auf „Makros“.2. Geben Sie im Dialogfeld „Makro“ einen Namen für Ihr Makro ein (z. B.„ConvertNumbersToText“).3. Klicken Sie auf „Erstellen“, um den VBA-Editor (Visual Basic for Applications) zu öffnen.4. Geben Sie im Codefenster einen spezifischen Makrocode ein, der die Konvertierung ermöglicht.
MyNumber = Val(Selection. Text)
Dim Temp
Dim Rupees, Paise
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crore "
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Paise = ConvertTens(Temp)
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
If MyNumber <> "" Then
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
End If
Count = 2
Do While MyNumber <> ""
Temp = ConvertTens(Right("0" & MyNumber, 2))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = ""
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Paise
Case ""
Paise = ""
Case "One"
Paise = "One Paise"
Case Else
Paise = Paise & " Paise"
End Select
If Rupees = "" Then
Result = Paise
ElseIf Paise = "" Then
Result = Rupees
Else
Result = Rupees & " and " & Paise
End If
Selection. Text = Result
End Sub
Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = "One"
Case 2: ConvertDigit = "Two"
Case 3: ConvertDigit = "Three"
Case 4: ConvertDigit = "Four"
Case 5: ConvertDigit = "Five"
Case 6: ConvertDigit = "Six"
Case 7: ConvertDigit = "Seven"
Case 8: ConvertDigit = "Eight"
Case 9: ConvertDigit = "Nine"
Case Else: ConvertDigit = ""
End Select
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
If Left(MyNumber, 1) <> "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
End If
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If
ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(MyTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & ConvertDigit(Right(MyTens, 1))
End If
ConvertTens = Result
End Function
5. Kopieren Sie den bereitgestellten Code in den Editor und ersetzen Sie gegebenenfalls den Platzhaltertext.
Dieses Makro ist von entscheidender Bedeutung, da es definiert, wie Zahlen bei jeder Ausführung in Wörter umgewandelt werden.
Schritt 3: Weisen Sie Ihrem Makro eine Tastenkombination zu
Um die Verwendung Ihres Makros einfacher und schneller zu machen, können Sie Zeit sparen, indem Sie ihm ein Tastenkürzel zuweisen: 1. Kehren Sie zum Dialogfeld „Makros“ auf der Registerkarte „ Entwicklertools“ zurück.2. Wählen Sie Ihr Makro aus der Liste aus und klicken Sie auf „ Optionen“.3. Im Dialogfeld „Makrooptionen“ wird ein Feld für angezeigt Shortcut key. Geben Sie das gewünschte Tastenkürzel ein (z. B.Ctrl+ Alt+ N).4. Klicken Sie auf „OK“, um die Tastenkürzelzuweisung zu speichern.
Schritt 4: Verwenden Sie das Makro, um Zahlen in Text umzuwandeln
Nachdem alles eingerichtet ist, können Sie mit der effizienten Umwandlung von Zahlen in Text beginnen: 1.Öffnen Sie ein beliebiges Word-Dokument, in dem Sie Zahlen umwandeln möchten.2. Geben Sie die zu konvertierende Zahl ein.3. Drücken Sie die zugewiesene Tastenkombination (z. B.Ctrl+ Alt+ N), um das Makro zu aktivieren.4. Die Zahl wird automatisch in das Textformat umgewandelt.
Zusätzliche Tipps und häufige Probleme
Hier sind einige zusätzliche Tipps, um Ihre Erfahrung bei der Verwendung dieser Funktion zu verbessern: – Makro speichern : Stellen Sie sicher, dass Ihr Makro in einem Dokumentformat gespeichert wird, das Makros unterstützt (z. B..docm).– Arbeiten mit großen Zahlen : Wenn Sie mit sehr großen Zahlen arbeiten, stellen Sie sicher, dass Ihr Makro Ausnahmen entsprechend behandelt.– Häufiges Problem : Wenn die Tastenkombination zunächst nicht funktioniert, überprüfen Sie, ob keine anderen Programme dieselbe Tastenkombination verwenden, da dies die Funktionalität beeinträchtigen könnte.
Abschluss
Sie verfügen nun über die notwendigen Werkzeuge, um Zahlen in MS Word mühelos in Text umzuwandeln. Diese unkomplizierte Methode spart Zeit und verbessert die Präsentation Ihrer Dokumente, insbesondere im professionellen Kontext. Entdecken Sie weitere Tastenkombinationen und Funktionen in MS Word, um Ihre Produktivität weiter zu steigern.
Häufig gestellte Fragen
Welche Versionen von MS Word unterstützen diese Funktion?
Diese Funktion ist in MS Word 2010 und späteren Versionen verfügbar, sodass sichergestellt ist, dass die meisten Benutzer davon profitieren können.
Kann ich den Makrocode später ändern?
Ja, Sie können jederzeit zum VBA-Editor zurückkehren, um den Code zu ändern. Diese Flexibilität ermöglicht es Ihnen, das Skript an Ihre Bedürfnisse anzupassen.
Ist es möglich, Makros in Onlineversionen von Word zu verwenden?
Nein, die Makrofunktion ist in den Onlineversionen von Word nicht verfügbar. Sie benötigen die Desktopanwendung, um Makros effektiv nutzen zu können.