Function hideCommandBars(wrd As Word.Application)
Dim c
On Error Resume Next
    ' в цикле по всем панелям инструментов
    wrd.CommandBars.Add "1", msoBarTop, True
    For Each c In wrd.CommandBars
        ' прячем панель
        c.Visible = False
    Next c
    wrd.CommandBars.DisableCustomize = True
    ' скрываем все панели главного меню не разбираясь русская или английская версия
'    For Each c In wrd.CommandBars("Menu bar").Controls
'        c.Delete
'    Next c
    'wrd.CommandBars("Menu bar").Position = msoBarRight
    'wrd.CommandBars("1").Position = msoBarMenuBar
    Err.Clear
End Function