Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2009年06月07日] [更新 2013年11月28日]　ワード操作フォームEx
ワード操作フォームEx   参考コード類
編集記号・段落記号等の表示トグルと Options
動作確認等 Windows 7 U64(SP1) + Delphi XE Pro + Word 2010






編集記号の表示トグル


編集記号の表示・非表示のトグルのコマンド実行例です．人によっては，この編集記号が表示されていないと編集がうまくいかない場合があるようです．


図1
編集記号表示ON
図2
編集記号表示OFF

リスト1
編集記号の表示トグル 
procedure TplWordFormEx2.Button1Click(Sender: TObject);
var
  objView : Word2000.View;
begin
  objView := wdfWordApp.ActiveWindow.View;
  objView.ShowAll := not objView.ShowAll;
end;



段落記号の表示トグル


段落 (改行文字) 記号の表示・非表示のトグルのコマンド実行例です．これも好みがあるようです．編集記号の表示がOFFになっていないと機能しません．
筆者の環境の Word 2010 では機能しているようには見えませんでした．


図3
段落記号表示ON
図4
段落記号表示OFF

リスト2
段落記号の表示トグル 
procedure TplWordFormEx2.Button2Click(Sender: TObject);
var
  objView : Word2000.View;
begin
  objView := wdfWordApp.ActiveWindow.View;
  objView.ShowParagraphs := not objView.ShowParagraphs;
end;



表のグリッド線の表示トグル


表のグリッド線の表示トグルコード例です．


図5
表のグリッド線表示ON
図6
表のグリッド線表示OFF

リスト3
表のグリッド線表示トグル 
procedure TplWordFormEx2.Button3Click(Sender: TObject);
var
  i     : Integer;
  objPane : Word2000.Pane;
begin
  for i:= 1 to wdfWordApp.ActiveWindow.Panes.Count do begin
    objPane := wdfWordApp.ActiveWindow.Panes.Item(i);
    objPane.View.TableGridlines := not objPane.View.TableGridlines;
  end;
end;



文書のグリッド線の表示トグル


文書のグリッド線の表示トグルコード例です．このグリッド線表示がデフォルトとなっているワープロソフトもあります．


図7
文書のグリッド線表示ON
図8
文書のグリッド線表示OFF

リスト4
文書のグリッド線表示トグル 
procedure TplWordFormEx2.Button4Click(Sender: TObject);
var
  objWordOptions : Word2000.OPtions;
begin
  //Optionsオブジェクトを取得
  objWordOptions := wdfWordApp.Options;
  objWordOptions.DisplayGridLines := not objWordOptions.DisplayGridLines;
end;



文字列選択時のミニツールバーの表示トグル


Word 2007 からの機能であるミニツールバーの表示トグルです．
文字列を選択すると表示されます．この表示のトグル動作用コードです．


図9
文字列を選択した時のミニツールバー

リスト5
文字列選択時のミニツールバーの表示トグル		 
procedure TplWordFormEx2.Button5Click(Sender: TObject);
var
  objWordOptions : OleVariant;
begin
  if wdfWordVersionNo >= 12 then begin
    objWordOptions := wdfWordApp.Options;
    objWordOptions.ShowSelectionFloaties := not objWordOptions.ShowSelectionFloaties;
  end;
end;



ポップアップメニュー時のミニツールバーの表示トグル


Word 2007 からの機能であるミニツールバーの表示トグルです．
マウスの右ボタンをクリックしてポップアップメニューを表示すると，この上に表示されます．この両方の表示のトグル動作用コードです．


図10
ポップアップ時のミニツールバー

リスト6
ポップアップメニュー時のミニツールバーの表示トグル		 
procedure TplWordFormEx2.Button6Click(Sender: TObject);
var
  objWordOptions : OleVariant;
begin
  if wdfWordVersionNo >= 12 then begin
    objWordOptions := wdfWordApp.Options;
    objWordOptions.ShowMenuFloaties := not objWordOptions.ShowMenuFloaties;
  end;
end;



Options オブジェクトとワードのオプション


[文書のグリッド表示トグル] のコードで使用している Options オブジェクトのプロパティには，ワードのオプションの設定内容がほとんど含まれています．
[オプション] は，Word 2003 までは [ツール] [オプション] で，Word 2007 では [Office] ボタンの [Word のオプション] から表示されるダイアログの内容です．Word 2010 では [Office] ボタンはなくなりました．
これらのオプションは，マクロの記録操作では記録できないものがあります．Word の VBA のヘルプを [Options] で検索すると，プロパティのリストを確認できます．ここから調査することになります．チェックボタンで設定する項目がトグル動作に相当します．


図11
Word 2000 のオプション設定
  • タブごとに別のダイアログで表示可能
図12
Word 2007 のオプション設定
  • [Office] ボタンの [Word オプション]
  • [Word オプション] は下の方にある
図13
Word 2010 のファイルメニュー
  • [Office] ボタンはなくなった
  • [ファイル] タブをクリック
  • [オプション] をクリック
図14
Word 2010 のオプション設定

下図は，Word 2007 の VBA のヘルプを Options で検索した結果です．一応日本語です．
MSDN の記事は，2013年12月02日現在では日本語の記事はありますが，英語版に比べると内容が省略されています．その意味では VBA のヘルプは貴重です．
Visual Studio の開発関係には日本語の記事が MSDN オンラインにあります．これも内容が英語版に比べると省略はされていますが，ある程度は利用価値があると思われます．

  • 図15
  • Word 2007 の VBA のヘルプで，Options を検索した結果