Alex Ruben
Trasforma i numeri in testo senza sforzo in MS Word: una guida completa
Se sei stanco di convertire manualmente i numeri in testo in Microsoft Word, questa guida è per te. Questo tutorial ti guiderà attraverso un metodo rapido e semplice per convertire i numeri in parole utilizzando un semplice tasto di scelta rapida. Perfetto per coloro che hanno a che fare con fatture, documenti legali o qualsiasi documento professionale, questo suggerimento migliorerà notevolmente la tua efficienza e semplificherà il tuo flusso di lavoro. Immergiamoci e impariamo come impostare e utilizzare questa funzionalità come un professionista!
Passaggio 1: accedere alla scheda Sviluppatore in MS Word
Prima di poter usare la scorciatoia per convertire i numeri in testo, devi abilitare la scheda Sviluppatore in MS Word. Questa scheda fornisce l’accesso a strumenti importanti che non sono visibili per impostazione predefinita: 1. Apri Microsoft Word e clicca su File nell’angolo in alto a sinistra.2. Seleziona Opzioni dalla barra laterale.3. Nella finestra Opzioni di Word, scegli Personalizza barra multifunzione dall’elenco a sinistra.4. Sul lato destro, seleziona la casella etichettata Sviluppatore e clicca su OK per salvare le modifiche.
Passaggio 2: creare una macro per la conversione
Ora che la scheda Sviluppatore è accessibile, creerai una macro che automatizza la conversione dei numeri in testo: 1. Vai alla scheda Sviluppatore e fai clic su Macro.2. Nella finestra di dialogo Macro, inserisci un nome per la tua macro (ad esempio, ConvertNumbersToText).3. Fai clic su Crea per aprire l’editor di Visual Basic for Applications (VBA).4. Nella finestra del codice, dovrai inserire un codice macro specifico che abiliti la conversione.
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. Copiare il codice fornito nell’editor, sostituendo, se necessario, il testo segnaposto.
Questa macro è fondamentale perché definisce il modo in cui i numeri verranno trasformati in parole ogni volta che la si esegue.
Passaggio 3: assegna un tasto di scelta rapida alla macro
Per rendere l’utilizzo della macro più semplice e veloce, l’assegnazione di una scorciatoia da tastiera ti farà risparmiare tempo: 1. Torna alla finestra di dialogo Macro nella scheda Sviluppatore.2. Seleziona la macro dall’elenco e fai clic su Opzioni.3. Nella finestra di dialogo Opzioni macro, vedrai un campo per Shortcut key. Inserisci la scorciatoia desiderata (ad esempio, Ctrl+ Alt+ N).4. Fai clic su OK per salvare l’assegnazione della scorciatoia.
Passaggio 4: utilizzare la macro per convertire i numeri in testo
Ora che tutto è impostato, puoi iniziare a convertire i numeri in testo in modo efficiente: 1. Apri un documento qualsiasi in MS Word in cui devi convertire i numeri.2. Digita il numero che desideri convertire.3. Premi il tasto di scelta rapida assegnato (ad esempio, Ctrl+ Alt+ N) per attivare la macro.4. Il numero cambierà automaticamente in formato testo.
Suggerimenti extra e problemi comuni
Ecco alcuni suggerimenti aggiuntivi per migliorare la tua esperienza durante l’utilizzo di questa funzionalità: – Salva la macro : assicurati che la macro venga salvata con il formato di documento che supporta le macro (come.docm).– Lavorare con numeri grandi : se hai a che fare con numeri molto grandi, assicurati che la macro gestisca le eccezioni in modo appropriato.– Problema comune : se il tasto di scelta rapida inizialmente non funziona, controlla che nessun altro programma stia utilizzando la stessa scorciatoia da tastiera, che potrebbe interferire con la funzionalità.
Conclusione
Ora hai gli strumenti necessari per convertire i numeri in testo in MS Word con facilità. Questo metodo diretto può farti risparmiare tempo e migliorare la presentazione del tuo documento, specialmente in contesti professionali. Non esitare a esplorare altre scorciatoie e funzionalità disponibili in MS Word per migliorare ulteriormente la tua produttività.
Domande frequenti
Quali versioni di MS Word supportano questa funzionalità?
Questa funzionalità è disponibile in MS Word 2010 e nelle versioni successive, garantendo che la maggior parte degli utenti possa trarne vantaggio.
Posso modificare il codice macro in un secondo momento?
Sì, puoi tornare all’editor VBA in qualsiasi momento per modificare il codice. Questa flessibilità ti consente di personalizzare lo script in base alle tue esigenze.
È possibile utilizzare le macro nelle versioni online di Word?
No, la funzionalità macro non è disponibile nelle versioni online di Word. Per usare le macro in modo efficace, avrai bisogno dell’applicazione desktop.