5,388
社区成员
发帖
与我相关
我的任务
分享
var
doc: _Document;
i: integer;
vName : string;
begin
OleContainer1.CreateObjectFromFile('D:\String.doc',false);
oleContainer1.DoVerb(0);
//隐藏工具栏
doc := OleContainer1.OleObjectInterface as _Document;
for i:=1 to doc.CommandBars.Count do
begin
vName :=doc.CommandBars[i].Name;
if (Length(vName)>0) and doc.CommandBars[vName].Visible then
doc.CommandBars[vName].Set_Visible(False);
end;
OleContainer1.OleObject.Application.ActiveWindow.ActivePane.view.Zoom.Percentage:=85;//调整显示比例
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.CreateObjectFromFile('D:\String.doc',false);
oleContainer1.DoVerb(0);
OleContainer1.OleObject.Application.ActiveWindow.ActivePane.view.Zoom.Percentage:=85;//调整显示比例
end;