Управление десятичными разрядами в Microsoft Word

Question

Я работаю с множеством таблиц в Microsoft Word 2010. Я хотел бы ограничить числа, которые у меня есть, до трех знаков после запятой, а также округлить их.

Например: 0.1234 станет 0.123, а 1.6789 - 1.679. Это простая задача, но я не смог найти способ сделать это.

Примечание: для чисел, заканчивающихся нулями: я бы предпочел, чтобы они были 1,3 вместо 1,300, если есть способ сделать это!

Answer 1

Кажется, в Word нет встроенного способа сделать это. Есть несколько вариантов, которые я могу придумать, но ни один из них не идеален.

1. Загрузите и установите LibreOffice. Его текстовый процессор (Writer) имеет возможность устанавливать форматы данных в ячейках таблицы, доступ к которым можно получить, выделив ячейки, щелкнув правой кнопкой мыши и выбрав параметр « Формат данных ...». Когда вы закончите, вы можете сохранить его обратно в формате .docx, хотя возможно, что вы потеряете некоторое форматирование в зависимости от того, какие функции Word вы используете. После сохранения в формате .docx информация о типе данных не сохраняется, поэтому числа не будут округляться, если вы отредактируете их позже.

   

2. Используйте макрос VBA, чтобы перебирать таблицы и ячейки и округлять числа. Следующий код должен делать примерно то, что вы хотите, я думаю, но может потребоваться некоторая настройка. Вы можете создать новый макрос, нажав Alt + F8, присвоив ему имя RoundAllNumbersInTables нажав кнопку Создать.

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

Очевидно, что вы должны быть осторожны, чтобы ничего не испортить, поэтому лучше иметь резервную копию вашего файла.

В целом, я бы сказал, что было бы лучше использовать Excel вместо этого, если это возможно, поскольку он гораздо лучше подходит для этого.