請問如何將word系統之儲存檔案與另存新檔之功能失效 |
|
尚未結案
|
|
shing.net
中階會員   發表：207 回覆：124 積分：66 註冊：2002-03-16 發送簡訊給我 |
|
|
likush
高階會員 發表：5 回覆：235 積分：103 註冊：2002-10-08 發送簡訊給我 |
|
|
shing.net
中階會員 發表：207 回覆：124 積分：66 註冊：2002-03-16 發送簡訊給我 |
|
|
likush
高階會員 發表：5 回覆：235 積分：103 註冊：2002-10-08 發送簡訊給我 |
|
|
shing.net
中階會員 發表：207 回覆：124 積分：66 註冊：2002-03-16 發送簡訊給我 |
|
|
likush
高階會員 發表：5 回覆：235 積分：103 註冊：2002-10-08 發送簡訊給我 |
|
|
saydo
一般會員  發表：0 回覆：9 積分：1 註冊：2004-01-05 發送簡訊給我 |
uses Excel97, Word97; procedure TForm1.Button1Click(Sender: TObject);
var
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
ItemIndex:OleVariant;
i : integer;
f_temp : string;
begin
WordApplication1 := TWordApplication.Create(Application);
WordDocument1 := TWordDocument.Create(Application);
WordApplication1.Connect;
WordApplication1.Documents.Add(EmptyParam, EmptyParam);
ItemIndex := WordApplication1.Documents.Count;
WordDocument1.connectTo(WordApplication1.Documents.Item(ItemIndex));
WordApplication1.Visible:= True ;
//**** 請將測試程式加在這裡 ****//
end; //*********************************************************
// 問題：如何將【檔案】按鍵 Enabled 設為 False
//*********************************************************
for i:=1 to WordApplication1.CommandBars.Get_Item('Menu Bar').Controls.Count do
begin
f_temp := WordApplication1.CommandBars.Get_Item('Menu Bar').Controls.Item[i].Get_accName(EmptyParam);
if (f_temp = '檔案')
then WordApplication1.CommandBars.Get_Item('Menu Bar').Controls[i].Set_Enabled(False);
end;
//*********************************************************
// 問題：如何將【檔案】按鍵 移除
//*********************************************************
for i:=1 to WordApplication1.CommandBars.Get_Item('Menu Bar').Controls.Count do
begin
f_temp := WordApplication1.CommandBars.Get_Item('Menu Bar').Controls.Item[i].Get_accName(EmptyParam);
if (f_temp = '檔案')
then WordApplication1.CommandBars.Get_Item('Menu Bar').Controls[i].Delete(False);
end;
//*********************************************************
// 問題：如何將【Menu Bar】恢復
//*********************************************************
WordApplication1.CommandBars.Get_Item('Menu Bar').Reset;
//*********************************************************
// 問題：如何將【檔案】內【另存新檔...】按鍵 Enabled 設為 False
//*********************************************************
for i:=1 to WordApplication1.CommandBars.Get_Item('File').Controls.Count do
begin
f_temp := WordApplication1.CommandBars.Get_Item('File').Controls.Item[i].Get_accName(EmptyParam);
if (f_temp = '另存新檔...')
then WordApplication1.CommandBars.Get_Item('File').Controls[i].Set_Enabled(False);
end;
//*********************************************************
// 問題：如何將【檔案】內【另存新檔...】按鍵 移除
//*********************************************************
for i:=1 to WordApplication1.CommandBars.Get_Item('File').Controls.Count do
begin
f_temp := WordApplication1.CommandBars.Get_Item('File').Controls.Item[i].Get_accName(EmptyParam);
if (f_temp = '另存新檔...')
then WordApplication1.CommandBars.Get_Item('File').Controls[i].Delete(False);
end;
//*********************************************************
// 問題：如何將【檔案】內按鍵 恢復
//*********************************************************
WordApplication1.CommandBars.Get_Item('File').Reset; ...我想多學點...
...我想多賺點...
|
|
saydo
一般會員 發表：0 回覆：9 積分：1 註冊：2004-01-05 發送簡訊給我 |
//*********************************************************
// 問題：如何將【檔案】內【另存新檔...】按鍵 Enabled 設為 TRUE
//*********************************************************
for i:=1 to WordApplication1.CommandBars.Get_Item('File').Controls.Count do
begin
f_temp := WordApplication1.CommandBars.Get_Item('File').Controls.Item[i].Get_accName(EmptyParam);
if (f_temp = '另存新檔...')
then WordApplication1.CommandBars.Get_Item('File').Controls[i].Set_Enabled(TRUE);
end; ...我想多學點...
...我想多賺點...
|
發表時間：2004-08-18 15:01:41
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-06-26 23:40:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |