Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2013年11月22日] [更新 2013年11月22日]　ワード操作フォームEx
ワード操作フォームEx   参考コード類
表示倍率を 100 % にする
動作確認等 Windows 7 U64(SP1) + Delphi XE2 + Word 2010






表示倍率を 100 % にする


組み込みダイアログの wdDialogViewZoom で設定できます．ZoomPercent プロパティの値を 100 にして実行すると文書の表示倍率が 100 % となります．他の値にすると，その倍率で表示します．
表示倍率の設定は，表示形式が印刷レイアウトになっていないと失敗します．


リスト1
表示倍率を 100 % にする		 
procedure TplWordFormEx2.Button1Click(Sender: TObject);
var
  objWordApp : OleVariant;
  objDialog  : OleVariant;
begin
  //念のために印刷レイアウト表示にする
  objWordApp := wdfWordApp.Application;
  objWordApp.ActiveWindow.View.Type := wdPrintView;
  try
    objDialog := objWordApp.Dialogs.Item(wdDialogViewZoom);
    objDialog.ZoomPercent := 100;
    objDialog.Execute;
  except
    raise;
  end;
  wdfSetFocusWord;
end;



ズームの設定ダイアログを表示


上のコードと同じ組み込みダイアログの wdDialogViewZoom で表示できます．
Execute メソッドではなく，Show メソッドを実行するとダイアログを表示します．


図1
ズーム設定ダイアログ

リスト2
ズームの設定ダイアログを表示		 
procedure TplWordFormEx2.Button2Click(Sender: TObject);
var
  objWordApp : OleVariant;
  objDialog  : OleVariant;
begin
  //念のために印刷レイアウト表示にする
  objWordApp := wdfWordApp.Application;
  objWordApp.ActiveWindow.View.Type := wdPrintView;
  try
    objDialog := objWordApp.Dialogs.Item(wdDialogViewZoom);
    objDialog.Show;
  except
    raise;
  end;
  wdfSetFocusWord;
end;


次のコードでも結果は同じです．OleVariant 型を適時使い分けると便利です． 


procedure TplWordFormEx2.Button3Click(Sender: TObject);
var
  objDialog : OleVariant;
begin
  //念のために印刷レイアウト表示にする
  wdfWordApp.ActiveWindow.View.type_ := wdPrintView;
  try
    objDialog := wdfWordApp.Dialogs.Item(wdDialogViewZoom);
    objDialog.Show;
  except
    raise;
  end;
  wdfSetFocusWord;
end;