set objWord = CreateObject("Word.Application")
            set objDoc = objWord.Documents.Add() 
            set selection = objWord.Selection

            reportHeader = "Продажи за день за " & selectedDate

            set range = objDoc.Range()

            range.InsertBefore(reportHeader)
            range.Font.Name = "Arial"
            range.Font.Size =  14 . 5 
            range.Font.Bold = true
            range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            range.SetRange range.End, range.End 
            selection.TypeParagraph()

            '========== Add table to doc ===============
            objDoc.Tables.Add range,  1 ,  8  '1 rows, 8 columns
            set table = objDoc.tables( 1 )

            '========== Table sett ===============
            table.Borders.Enable = true ' работает
            table.Range.Font.Size =  8  ' работает
            table.Range.Font.Bold = true ' НЕ РАБОТАЕТ!!!!!!

'            ========== Add table header ===============

            table.Cell( 1 ,  1 ).Range.Text = "п."
            table.Cell( 1 ,  1 ).Range.Font.Bold = true ' И ТАК НЕ РАБОТАЕТ!!!!!!

            table.Cell( 1 ,  2 ).Range.Text = "Накладная №"
            table.Cell( 1 ,  3 ).Range.Text = "Наименование" & vbNewLine & "Торговая марка"
            table.Cell( 1 ,  4 ).Range.Text = "Кол-во"
            table.Cell( 1 ,  5 ).Range.Text = "Стоим., " & vbNewLine & "руб"
            table.Cell( 1 ,  6 ).Range.Text = "Сумма, руб " & vbNewLine & "По накл., руб"
            table.Cell( 1 ,  7 ).Range.Text = "Покупатель"
            table.Cell( 1 ,  8 ).Range.Text = "Скид."

 While Not rs.EOF 

        table.Rows.Add()
        'table.Range.Font.Bold = false ' если отключить
' ...