Skip to main content

Explore a nova versão gratuita do Kutools para Outlook hoje!

Como adicionar separadores de milhares a números em documentos do Word?

Author: Sun Last Modified: 2025-06-04

Adicionar separadores de milhares aos números em um documento do Word pode melhorar muito a legibilidade, especialmente ao lidar com grandes valores. Embora o Microsoft Word não tenha uma função direta para adicionar separadores de milhares, existem métodos eficientes para alcançar isso usando VBA (Visual Basic for Applications) ou uma ferramenta prática como o Kutools para Word.

Neste tutorial, vamos guiá-lo pelas etapas para adicionar separadores de milhares aos números no seu Documento do Word usando tanto o VBA quanto o Kutools para Word.

Adicionar separadores de milhares com VBA

Adicionar separadores de milhares com Kutools para Word good idea

Adicionar separadores de milhares com VBA

Inserir separadores de milhares em números grandes pode ser tedioso, especialmente se você precisar fazer isso repetidamente. Usando código VBA, você pode automatizar esse processo, permitindo que simplesmente selecione um número e pressione F5 para adicionar instantaneamente os separadores.

  1. Selecione o número que deseja formatar com separadores de milhares, depois pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
  2. Clique Inserir > Módulo, depois copie e cole o seguinte código no Módulo editor. 
    Sub InsertThousandSeparators()
    Dim selectedText As String
    Dim formattedText As String
    Dim decimalPos As Integer
    Dim wholePart As String
    Dim decimalPart As String
    Dim temp As String
    Dim i As Integer
    Dim charCount As Integer
    Dim trailingSpace As String
    Dim trailingParagraphMark As String
    
    If Selection.Type <> wdSelectionIP Then
        selectedText = Selection.Text
        trailingSpace = ""
        trailingParagraphMark = ""
        
        If Right(selectedText, 1) = " " Then
            trailingSpace = " "
            selectedText = Trim(selectedText)
        End If
        
        If Right(selectedText, 1) = Chr(13) Then
            trailingParagraphMark = Chr(13)
            selectedText = Left(selectedText, Len(selectedText) - 1)
        End If
        
        If IsNumeric(selectedText) Then
            decimalPos = InStr(1, selectedText, ".")
            
            If decimalPos > 0 Then
                wholePart = Left(selectedText, decimalPos - 1)
                decimalPart = Mid(selectedText, decimalPos + 1)
            Else
                wholePart = selectedText
                decimalPart = ""
            End If
            
            wholePart = Replace(wholePart, ",", "")
            
            temp = ""
            charCount = 0
            
            For i = Len(wholePart) To 1 Step -1
                temp = Mid(wholePart, i, 1) & temp
                charCount = charCount + 1
                
                If charCount Mod 3 = 0 And i > 1 Then
                    temp = "," & temp
                End If
            Next i
            
            wholePart = temp
            
            If decimalPart <> "" Then
                formattedText = wholePart & "." & decimalPart
            Else
                formattedText = wholePart
            End If
            
            Selection.Text = formattedText & trailingSpace & trailingParagraphMark
        Else
            MsgBox "Please select a valid number."
        End If
    Else
        MsgBox "Please select a number first."
    End If
End Sub
  3. Pressione a tecla F5, e os separadores de milhares serão adicionados ao número selecionado.

    Thousand separators are inserted into the selected number

  4. Para adicionar separadores a outro número, basta selecionar o novo número e voltar à janela Módulo e pressionar F5 novamente.

Adicionar separadores de milhares com Kutools para Word

Se você quiser inserir separadores em vários números em uma seleção ou em todo o Documento do Word, a ferramenta Adicionar Separador de Milhares do Kutools para Word pode resolver essa tarefa com apenas alguns cliques.

Kutools para Word,equipado com IA 🤖, oferece mais de 100 recursos práticos para simplificar suas tarefas.

Após instalar o Kutools para Word, siga estas etapas:

  1. Para adicionar separadores de milhares a todos os números em todo o documento, não selecione nenhum dado e clique em Kutools > Inserir > Adicionar Separador de Milhares.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. Uma caixa de diálogo aparece perguntando se você deseja aplicar essa função a todo o documento, clique em Sim.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. Agora, todos os números terão separadores de milhares inseridos.
    Thousand separators are inserted into all numbers

Notas:

  • Se você deseja adicionar separadores de milhares a números em uma seleção específica, selecione a seção primeiro e depois clique em Kutools > Inserir > Adicionar Separador de Milhares.
    Thousand separators are inserted into numbers in the selected range
  • Para remover os separadores de milhares, clique em Kutools > Remover > Remover Todos os Separadores de Milhares nas Faixas Selecionadas.
    Remove Thousand Separators option on the Kutools tab on the ribbon

Demonstração: Adicionar separadores de milhares a números em um Documento do Word

Descubra a aba Kutools / Kutools Plus neste vídeo do Kutools for Word. Aproveite 100+ recursos e utilitários de IA permanentemente gratuitos. Faça o download agora!

Melhores Ferramentas de Produtividade para Office

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Office

Kutools para Word – 100+ Ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools