Добрый день, подскажите как прописать команду, чтобы при выводе отчета в Ворд в таблице округлялись значения до двух после запятой. На кнопке у меня сейчас такое:
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
Заранее всем спасибо за совет и помощь. МИРА ДОБРА СЧАСТЬЯ

http://www.sql.ru/forum/1302416/okruglit-s-perenosom-v-vord