在PB中使用OleControl连接Word，根据需要隐藏部分工具条。

OleObject ole_app
OleObject ole_CommandBars
//得到Word的工具条集合，隐藏一些没必要的工具条
Try
    ole_app = ole_word.Object.Application
    ole_CommandBars = ole_app.CommandBars
   
    Long i,ll_count
    String ls_name
    ll_count = ole_CommandBars.count
    //隐藏其它工具条，保留“常用”和“格式”工具条
    For i = 1 To ll_count
        Try
            ls_name = String(ole_CommandBars.Item[i].Name)
            If Lower(Trim(ls_name)) = "menu bar" Or &
                Lower(Trim(ls_name)) = "standard" Or &
                Lower(Trim(ls_name)) = "formatting" Then
               
                ole_CommandBars.Item[i].Visible = True
            Else
                If ole_CommandBars.Item[i].Visible Then
                    ole_CommandBars.Item[i].Visible = False
                End If
            End If
        Catch(runtimeerror Error)
            //MessageBox(ls_name,Error.GetMessage())
        End Try
    Next
    //显示比例
    ole_app.ActiveWindow.View.Zoom.Percentage = ii_zoom
Catch(runtimeerror e)
    //出错了，哈哈
End Try
ole_word.Activate(Inplace!)