Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Sun Last modified

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 for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!

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

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

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

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

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

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

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

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

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools