KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

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

AutorSun Data de Modificação

Adicionar Separador de Milhares a números num documento do Word pode melhorar significativamente a legibilidade, especialmente ao lidar com valores elevados. Embora o Microsoft Word não disponha de uma funcionalidade direta para Adicionar Separador de Milhares, existem métodos eficazes para o conseguir utilizando VBA (Visual Basic for Applications) ou uma ferramenta prática como o Kutools para Word.

Neste tutorial, vamos guiá-lo pelos passos necessários para adicionar o separador de milhares a números no seu documento do Word, quer com VBA, quer com o Kutools para Word.

Adicionar Separador de Milhares com VBA

Adicionar Separador de Milhares com Kutools para Word boa ideia

Adicionar Separador de Milhares com VBA

Inserir separadores de milhares em números grandes pode ser moroso, especialmente se tiver de o fazer repetidamente. Com um código VBA, pode automatizar este processo: basta selecionar um número e premir F5 para adicionar imediatamente os separadores.

  1. Selecione o número que pretende formatar com separadores de milhares e, em seguida, prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
  2. Clique em Inserir>Módulo, copie e cole o seguinte código no editor do Módulo. 
    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. Prima a tecla F5e os separadores de milhares serão adicionados ao número selecionado.

    São inseridos separadores de milhares no número selecionado

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

Adicionar Separador de Milhares com Kutools para Word

Se pretender inserir separadores de milhares em vários números numa seleção ou em todo o documento do Word, a utilidade Adicionar Separador de Milhares do Kutools para Word resolve esta tarefa com apenas alguns cliques.

Kutools para Word

O Kutools para Word ajuda-o a realizar tarefas diárias com documentos de forma mais rápida, graças a ferramentas práticas integradas diretamente no Microsoft Word — sem necessidade de programação nem configuração complexa.

  • Redação, aperfeiçoamento, tradução e resumo com IA
  • Localizar e Substituir em Lote em todos os documentos
  • Combine e divida documentos do Word facilmente
  • Conversão em lote entre Word ↔ PDF
TransferirSaber mais

Após instalar o Kutools para Word, siga estes passos:

  1. Para aplicar Adicionar Separador de Milhares a todos os números em todo o documento, não selecione quaisquer dados e clique em Kutools>Inserir>Adicionar Separador de Milhares.
    Opção Adicionar Separador de Milhares no separador Kutools na faixa de opções
  2. É apresentada uma caixa de diálogo a perguntar se pretende aplicar esta função a O documento inteiro; clique em Sim.
    Caixa de diálogo de confirmação com a mensagem 'Pretende adicionar separadores de milhares a todos os números em todo o documento?'
  3. Agora, todos os números incluem separadores de milhares.
    São inseridos separadores de milhares em todos os números

Notas:

  • Se pretender Adicionar Separador de Milhares a números numa seleção específica, selecione primeiro a secção e, em seguida, clique em Kutools>Inserir>Adicionar Separador de Milhares.
    São inseridos separadores de milhares nos números no intervalo selecionado
  • Para remover os separadores de milhares, clique em Kutools>Remover>Remover Todos os Separadores de Milhares na Faixa Selecionada.
    Opção Remover Separadores de Milhares no separador Kutools na faixa de opções

Demonstração: Adicionar Separador de Milhares a números num documento do Word

Kutools para Word potencia o Microsoft Word com uma vasta gama de ferramentas práticas, ajudando-o a economizar tempo e a reduzir o trabalho repetitivo na edição diária de documentos.

TransferirSaber mais

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: Assistente de IA / 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...) / Conversão em Lote para PDF...

✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Kutools for Word separadores na faixa de opções
 
 

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

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

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

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

Transferência GratuitaComprar AgoraSaber Mais sobre o Kutools