在PB中使用OleControl连接Word,根据需要隐藏部分工具条。
来源:互联网 发布:网络打印机文档挂起 编辑:程序博客网 时间:2024/05/22 07:49
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!)
- 在PB中使用OleControl连接Word,根据需要隐藏部分工具条。
- 在PB中使用OleControl连接Word,根据需要隐藏部分工具条。
- 在PB中控制Word的页边距
- 在PB中嵌入Word文档
- 在Word中隐藏文字
- 在Word中隐藏文字
- 在PB中实现一个类似于Word打印对话框
- 在Word 中显示或隐藏行号(word技巧)
- 在Word里使用部分正则表达式
- 在Word里使用部分正则表达式
- 在Word里使用部分正则表达式
- 在Word里使用部分正则表达式
- 在Word里使用部分正则表达式
- 在PB中使用第三方报表
- 如何在PB中使用WINSOCK控件
- WINSOCK控件在PB中使用--聊天室
- 在PB中使用JavaScript脚本函数
- 在PB中使用OLEObject操作Excel
- hdlc协议的配置
- PB和EAServer共筑多层应用架构
- 斐波那契数列算法汇编实现
- 安装或运行程序时提示 80等端口被占用情况的解决
- 实时和Linux之三:子内核和基准
- 在PB中使用OleControl连接Word,根据需要隐藏部分工具条。
- 将DataTable或二维数组导入到Excel
- 去除WebBrowser的 3D边框、滚动条、右键菜单...
- 通过URL Rewrite实现链接静态化
- Web 2.0
- ORACLE的基本语法集锦
- PowerBuilder数据窗口编程技巧十则
- 争取让我们的.Net面试题集成为互联网最全最新的.Net面试题集。
- 小谈驱动开发中的时钟调试