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!)
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!)