Como converter números em palavras em um documento do Word?
Este artigo está falando sobre o método de conversão de números para palavras em inglês em um documento do Word. Continue para ver os detalhes se estiver interessado.
Converta o número para palavras em inglês com VBA
Converta números em palavras em inglês no Excel com o Kutools para Excel
Converta o número para palavras em inglês com VBA
1. Selecione o número que deseja converter em palavras, pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, e copie os códigos abaixo e cole-os no Módulo script.
VBA: converter número em palavras
Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
Dim xDigit As Double
Dim xBuff As String
On Error Resume Next
Selection.MoveLeft wdWord, 1, wdMove
Selection.MoveRight wdWord, 1, wdExtend
xDigit = Val(Trim(Selection.Text))
If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
If xDigit > 999999 Then
If xDigit <= 999999999 Then
xBuff = Trim(Int(Str(xDigit / 1000000)))
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xBuff = Selection.Text & " million "
xDigit = Right(Str(xDigit), 6)
End If
End If
If xDigit <= 999999 Then
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xDigit = xBuff & Selection.Text
Selection.TypeText xDigit + " "
Else
MsgBox "Number too large", vbOKOnly, "Kutool for Word"
End If
End Sub
3. Pressione F5 para executar o código, agora o número foi convertido em palavras.
Note: O código funciona apenas em um número de cada vez.
Converta números em palavras em inglês com o Kutools para Excel
Se você deseja converter números em palavras na planilha do Excel, existe uma ferramenta útil - Números para Palavras do Kutools para Excel, que pode converter números em palavras em inglês ou chinês, ou converter números em moeda inglesa ou chinesa.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalação grátis Kutools para Excel, faça o seguinte:
1. Selecione as células nas quais deseja converter números em palavras e clique em Kutools > Conteúdo > Números para Palavras.
2. Na caixa de diálogo pop-up, verifique Inglês e Não convertido em moeda opções.
3. Clique Ok or Inscreva-se, os números selecionados serão convertidos em palavras.
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...