Alex Ruben
Transforme números em texto sem esforço no MS Word: um guia abrangente
Se você está cansado de converter números manualmente em texto no Microsoft Word, este guia é para você. Este tutorial o guiará por um método rápido e fácil para converter números em palavras usando uma tecla de atalho simples. Perfeito para aqueles que lidam com faturas, documentos legais ou quaisquer documentos profissionais, esta dica aumentará significativamente sua eficiência e agilizará seu fluxo de trabalho. Vamos mergulhar e aprender como configurar e usar esse recurso como um profissional!
Etapa 1: acesse a guia Desenvolvedor no MS Word
Antes de poder usar o atalho para converter números em texto, você precisa habilitar a aba Desenvolvedor no MS Word. Essa aba fornece acesso a ferramentas importantes que não são visíveis por padrão: 1. Abra o Microsoft Word e clique em Arquivo no canto superior esquerdo.2. Selecione Opções na barra lateral.3. Na janela Opções do Word, escolha Personalizar Faixa de Opções na lista à esquerda.4. No lado direito, marque a caixa rotulada Desenvolvedor e clique em OK para salvar suas alterações.
Etapa 2: Crie uma macro para conversão
Agora que a aba Desenvolvedor está acessível, você criará uma macro que automatiza a conversão de números em texto: 1. Vá para a aba Desenvolvedor e clique em Macros.2. Na caixa de diálogo Macro, insira um nome para sua macro (por exemplo, ConvertNumbersToText).3. Clique em Criar para abrir o editor do Visual Basic for Applications (VBA).4. Na janela de código, você precisará inserir um código de macro específico que habilite a conversão.
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. Copie o código fornecido no editor, substituindo qualquer texto de espaço reservado, se necessário.
Esta macro é crucial, pois define como os números serão transformados em palavras sempre que você executá-la.
Etapa 3: Atribua uma tecla de atalho à sua macro
Para tornar o uso da sua macro mais fácil e rápido, atribuir um atalho de teclado economizará seu tempo: 1. Retorne à caixa de diálogo Macros na guia Desenvolvedor.2. Selecione sua macro na lista e clique em Opções.3. Na caixa de diálogo Opções de Macro, você verá um campo para Shortcut key. Insira o atalho desejado (por exemplo, Ctrl+ Alt+ N).4. Clique em OK para salvar a atribuição do atalho.
Etapa 4: Utilize a macro para converter números em texto
Agora que tudo está configurado, você pode começar a converter números em texto de forma eficiente: 1. Abra qualquer documento no MS Word onde você precisa converter números.2. Digite o número que você deseja converter.3. Pressione a tecla de atalho que você atribuiu (por exemplo, Ctrl+ Alt+ N) para ativar a macro.4. O número mudará automaticamente para o formato de texto.
Dicas extras e problemas comuns
Aqui estão algumas dicas adicionais para melhorar sua experiência ao usar este recurso: – Salvar a macro : certifique-se de que sua macro esteja salva com o formato de documento que suporta macros (como.docm).– Trabalhando com números grandes : se você estiver lidando com números muito grandes, certifique-se de que sua macro trate as exceções adequadamente.– Problema comum : se a tecla de atalho não funcionar inicialmente, verifique se nenhum outro programa está usando o mesmo atalho de teclado, o que pode interferir na funcionalidade.
Conclusão
Agora você tem as ferramentas necessárias para converter números em texto no MS Word com facilidade. Este método direto pode economizar tempo e elevar a apresentação do seu documento, especialmente em contextos profissionais. Não hesite em explorar mais atalhos e recursos disponíveis no MS Word para melhorar ainda mais sua produtividade.
Perguntas frequentes
Quais versões do MS Word suportam esse recurso?
Esse recurso está disponível no MS Word 2010 e versões posteriores, garantindo que a maioria dos usuários possa se beneficiar dele.
Posso modificar o código da macro mais tarde?
Sim, você pode retornar ao editor VBA a qualquer momento para modificar o código. Essa flexibilidade permite que você personalize o script de acordo com suas necessidades.
É possível usar macros em versões online do Word?
Não, o recurso de macro não está disponível em versões online do Word. Você precisará do aplicativo de desktop para usar macros efetivamente.