Controlando casas decimais no Microsoft Word

Question

Controlando casas decimais no Microsoft Word

#1 resposta do (3 votos)

2

Estou trabalhando com várias tabelas no Microsoft Word 2010. Gostaria de limitar os números que tenho a três casas decimais, além de arredondá-los.

Por exemplo: 0.1234 se tornará 0.123 e 1.6789 se tornará 1.679. É uma tarefa simples, mas não consegui encontrar o caminho para fazer isso.

Nota: para números que terminam com zeros: eu preferiria tê-los como 1.3 em vez de 1.300 se houver uma maneira de fazer isso!

microsoft-office microsoft-word

por Error404 04.08.2014 / 12:32

1 resposta

Tags microsoft-office microsoft-word

Removendo o efeito de som da Apple ao alterar os níveis de volume em uma instalação assistida do Windows 8 do Boot Camp O radeon.hw_i2c = 1 tem alguma coisa a ver com as leituras de temperatura?

score 3 · Accepted Answer

Não parece haver uma maneira interna de fazer isso no Word. Há algumas opções que posso imaginar, mas nenhuma delas é ideal.

Faça o download e instale o LibreOffice . Seu processador de texto (Writer) tem a opção de definir formatos de dados nas células da tabela, que podem ser acessados destacando as células, clicando com o botão direito do mouse e escolhendo a opção Data Format ... . Quando terminar, você poderá salvá-lo novamente no formato .docx, embora seja possível que você perca alguma formatação, dependendo dos recursos do Word que estiver usando. Uma vez salvo como .docx, as informações do tipo de dados não são salvas, portanto, os números não serão arredondados se você os editar mais tarde.
UseumamacroVBAparaiterarpelastabelasecélulasearredondarosnúmerosparacima.Ocódigoaseguirdevefazermaisoumenosoquevocêquer,mastalvezprecisedealgunsajustes.VocêpodecriarumanovamacropressionandoAlt+F8,dandoaelaonomeRoundAllNumbersInTableseclicandoemCriar.

Sub RoundAllNumbersInTables()

    Dim currentTbl As Table
    Dim currentCl As Cell
    Dim currentRow As Row
    Dim currentText As String

    For Each currentTbl In ActiveDocument.Tables
        For Each currentRow In currentTbl.Rows
            For Each currentCl In currentRow.Cells

                currentText = Trim(Left(currentCl.Range.Text, Len(currentCl.Range.Text) - 2))

                If IsNumeric(currentText) Then
                    currentCl.Range.Text = Format(Round(currentText, 3), "0.###")
                End If

            Next
        Next
    Next

End Sub

Obviamente, embora você tenha que ter cuidado para que isso não atrapalhe algo, é melhor ter um backup do arquivo.

Em geral, eu diria que seria melhor usar o Excel para esse tipo de coisa, se possível, pois é muito mais adequado para isso.