也就是說讓ole在激活打開后像pb自己的控制元件而不是嵌入的別的東西。
另外，如何屏蔽word的控制元件？
uj5u.com熱心網友回復：
最后那個問題敲錯了，是：如何屏蔽word的工具列和選單？uj5u.com熱心網友回復：
幫你頂一下，關注中！uj5u.com熱心網友回復：
我也關注這個問題，沒有高手知道嗎uj5u.com熱心網友回復：
可以隱藏的，不過效果不會很好，推薦用NTKO控制元件,以下代碼在pb11.2+office2007下運行良好,
OleObject ole_app
OleObject ole_CommandBars
ole_word.setfocus()
//得到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)
//messagebox('',ls_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 = 0.9
Catch(runtimeerror e)
//出錯了，哈哈
MessageBox(ls_name,e.GetMessage())
End Try
//ole_word.Activate(Inplace!)
ole_word.object.application.CommandBars.item("standard").Visible =false
ole_word.object.ActiveWindow.View.Zoom.Percentage = 90
ole_word.setredraw(true)
uj5u.com熱心網友回復：
4#的方法在pb中運行報錯啊，說物件沒有這個屬性~~ole_app = ole_word.Object.Application 就停了~~是什么原因呢？
uj5u.com熱心網友回復：
錯誤顯示沒有visible的屬性？
uj5u.com熱心網友回復：
你加個try catch..有些要忽略的~~uj5u.com熱心網友回復：
弱問一個，忽略了那選單不是還是顯示在視窗的目錄上？word還是不能在OLE控制元件范圍內啊~~
uj5u.com熱心網友回復：
某個vba的幫助手冊里面說.visible是只讀的，而且在pb里面更改這個屬性的時候總是報錯？
這個方法只能隱藏工具列，用什么方法可以隱藏目錄呢？
uj5u.com熱心網友回復：
忽略的時候有些組件是不能設定成隱藏的，忽略只是使那些不支持設定的組件不報錯出來，具體設定的資訊可以查看相關檔案，我的資源庫里面有vba for word的檔案下載
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/100845.html
標籤：控件與界面
上一篇：pb利用ole嵌入word的問題
下一篇：insert into 欄位問題