Добрый день, подскажите как прописать команду, чтобы при выводе отчета в Ворд в таблице округлялись значения до двух после запятой. На кнопке у меня сейчас такое:
Private Sub Кнопка100_Click()

Dim WD As Object
Set WD = CreateObject("Word.Application")
WD.Documents.Open FileName:=CurrentProject.Path & "\февраль1.dot"
WD.Visible = True
WD.Application.WindowState = 1
WD.Activate


WD.activedocument.Bookmarks("СТОЛБЕЦ1").Range.Text = Nz(Поле1, "") Я так понимаю тут чтото нужно прописать?
WD.activedocument.Bookmarks("СТОЛБЕЦ2").Range.Text = Nz(Поле2, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ3").Range.Text = Nz(Поле3, "")

WD.activedocument.Bookmarks("СТОЛБЕЦ5").Range.Text = Nz(Поле5, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ6").Range.Text = Nz(Поле6, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ7").Range.Text = Nz(Поле7, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ8").Range.Text = Nz(Поле8, "")

WD.activedocument.Bookmarks("СТОЛБЕЦ10").Range.Text = Nz(Поле10, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ11").Range.Text = Nz(Поле11, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ12").Range.Text = Nz(Поле12, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ13").Range.Text = Nz(Поле13, "")





End Sub
Заранее всем спасибо за совет и помощь. МИРА ДОБРА СЧАСТЬЯ

Serg197311Function Round(Number, [NumDigitsAfterDecimal As Long])

Я понял что функция Round? а как правильно прописать не получаетсяя (

Serg197311=Round(Nz(Поле1, ""), 2)
СПАСИБО ДРУГ.

за ваш вариант тоже СПАСИБО, буду пробовать.

Кривцов АнатолийBenidormпропущено...

СПАСИБО ДРУГ.
Неправильно!
Если в Поле1 значение Null, то функция Round получит пустую строку и вылетит с ошибкой. Тогда уж =Nz(Round(Поле1, 2), ""), но имейте ввиду, что Round значение 1,115 округлит до 1,12, а 1,125 тоже до 1,12, т.е. до ближайшего четного. К тому же, например, число 1,2 не превратится в 1,20, как, вероятно, вы хотели бы.

В вашем случае лучше применить функцию Format. Например:
=Format(Поле1,"0.00;;;""""") - округление и отображение с 2-мя знаками и пустая строка вместо Null. 0 отображается как 0,00.
=Format(Поле1,"0.00;;0;""""") - то же, но 0 отображается как 0.
=Format(Поле1,"# ##0.00;;0;""""") - то же, плюс разделитель триад (1 234 457.89)
=Format(Поле1,"# ##0.00;;"""";""""") - то же, но 0 не отображается.

Serg197311,
Друзья, подскажите еще такой момент, как прописать , чтобы при нажатии кнопки автоматически сразу выводилось на печать


Private Sub Кнопка100_Click()

Dim WD As Object
Set WD = CreateObject("Word.Application")
WD.Documents.Open FileName:=CurrentProject.Path & "\февраль2.dot"
WD.Visible = True
WD.Application.WindowState = 1
WD.Activate

WD.activedocument.Bookmarks("СТОЛБЕЦ1").Range.Text = Nz(Поле1, "")
WD.activedocument.Bookmarks("СТОЛБЕЦ2").Range.Text = Format(Поле2, "0.00;;;""""")
WD.activedocument.Bookmarks("СТОЛБЕЦ3").Range.Text = Format(Поле3, "0.00;;;""""")

WD.activedocument.Bookmarks("СТОЛБЕЦ5").Range.Text = Format(Поле5, "0.00;;;""""")
WD.activedocument.Bookmarks("СТОЛБЕЦ6").Range.Text = Format(Поле6, "0.00;;;""""")
WD.activedocument.Bookmarks("СТОЛБЕЦ7").Range.Text = Format(Поле7, "0.00;;;""""")
WD.activedocument.Bookmarks("СТОЛБЕЦ8").Range.Text = Format(Поле8, "0.00;;;""""")

WD.activedocument.Bookmarks("СТОЛБЕЦ10").Range.Text = Format(Поле10, "0.00;;;""""")
WD.activedocument.Bookmarks("СТОЛБЕЦ11").Range.Text = Format(Поле11, "0.00;;;""""")
WD.activedocument.Bookmarks("СТОЛБЕЦ12").Range.Text = Format(Поле12, "0.00;;;""""")
WD.activedocument.Bookmarks("СТОЛБЕЦ13").Range.Text = Format(Поле13, "0.00;;;""""")


End Sub