怎样在PB中实现对word的功能级调用?(非常具有挑战性哟！）

[LinuxSon]

怎样在PB中实现对word的功能级调用，例如通过OLE调用word后，针对不同用户，实现不同的菜单和按钮屏蔽，并可以自动根据登陆者的信息修改文章的作者名称。

[dlkfth]

自己查word 函数了

[LinuxSon]

我晕，知道在哪查，我也不问了。你知不知道是那些函数啥，望赐教？

[enet]

那位高手指点一下啊

[eminena]

思路:
1.自定义Word菜单和工具栏,
2.根据不同的用户显示相应的菜单和工具栏
3.以上等于没说!

[eminena]

肯定涉及 VBA

[eminena]

为了这 75 分,晚上我查看一下!

[CodeMagic]

同意eminena(0.3V 力大)，建议你先把VBA的用法搞清楚。

[benbenzyq]

我看到了一个实例。做法基本是先确定数据窗口的行数和列数，然后按数窗的行列数设定word的表格，再把数窗标题头的内容插入到word文档中，最后插入数窗的数据。具体例子是在希望出版的PB8实例教程中看到的。希望对你有帮助。

[CodeMagic]

打开word，按啊Alt+F11键查看VBA的帮助。

[xylr]

哈哈跟你一起等待～

[hongping]

在word 中选择 “工具”-“宏”-“Visual Basic 编辑器”中可以查到操作word的函数，和类库情况。在帮助中有具体用法。

[dibov]

ole_1.activate(InPlace!)

//ole_1.Object.Application.ActiveDocument.CommandBars("Formatting").Visible = False
//ole_1.Object.Application.CommandBars("Standard").Visible = False
//隐藏“标准”工具栏，显示“格式”工具栏
if Ole_1.Object.Application.CommandBars.Item("Standard").Visible then
ole_1.Object.Application.CommandBars.Item("Standard").Visible = False
end if
if Ole_1.Object.Application.CommandBars.Item("Formatting").Visible = False then
ole_1.Object.Application.CommandBars.Item("Formatting").Visible = True
end if

//ole_1.Object.Application.CommandBars.Item("Menu Bar").Controls("文件(&F)").Controls("保存(&S)").Visible = False
//ole_1.Object.Application.CommandBars.Item("Menu Bar").Controls("文件(&F)").Visible = False
//隐藏菜单
int i
for i = 1 to 10
if Ole_1.Object.Application.CommandBars.Item("Menu Bar").Controls(i).Visible then
Ole_1.Object.Application.CommandBars.Item("Menu Bar").Controls(i).Visible = False
end if
next

//Ole_1.Object.Application.CommandBars.Item("Menu Bar").Reset();

ole_1.InsertFile(docname)
w_ole_showword.SetRedraw(True)
ole_1.activate(InPlace!)