Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2009年06月20日] [更新 2013年11月27日]　ワード操作フォームEx
ワード操作フォームEx   参考コード類
印刷しない文字列の設定
動作確認等 Windows 7 U64(SP1) + Delphi XE2 + Word 2010






wdfHeaderFooterPrint プロパティを使う


ヘッダフッタ部に挿入した文字列や図形は，wdfHeaderFooterPrint プロパティをFalseにすると印刷しません．帳票の入力画面等で，台紙となる帳票をヘッダ部に入れておき，台紙は印刷させないような用途に利用できます．




隠し文字を使う


文字列を「隠し文字」にすると，印刷しないように設定することができます．
隠し文字は次のように設定します．隠し文字にすると，デフォルトでは文字列に点線の下線が描画されます．


図1
隠し文字には点線の下線が付く 

//=============================================================================
//  選択中の文字列を隠し文字にする
//  解除するにはHiddenプロパティの値を0にする
//=============================================================================
procedure TplWordFormEx2.Button1Click(Sender: TObject);
begin
  wdfWordApp.Selection.Font.Hidden := 1;
end;


そして，隠し文字を以下のコードで印刷しないようにします． 


//=============================================================================
//  隠し文字列を表示するが，印刷の時は印刷しないようにする設定
//=============================================================================
procedure TplWordFormEx2.Button2Click(Sender: TObject);
begin
  //隠し文字を表示する
  wdfWordApp.ActiveWindow.View.ShowHiddenText := True;
  //隠し文字を印刷しない
  wdfWordApp.Options.PrintHiddenText := False;
end;



隠し文字の設定をダイアログで行う


ダイアログで設定するには，まず，印刷したくない文字列を選択して，フォントの設定ダイアログを表示します．このダイアログで [隠し文字] の項目をチェックします．


図2
隠し文字にする 

//=============================================================================
//  フォントの設定ダイアログを表示
//  選択中の文字列を隠し文字にする
//=============================================================================
procedure TplWordFormEx2.Button3Click(Sender: TObject);
begin
  wdfSetFocusWord;
  wdfWordApp.Dialogs.Item(wdDialogFormatFont).Show(EmptyParam);
  wdfSetFocusWord;
end;


隠し文字を印刷しないようにするには，Word オプションのダイアログの項目 [表示] を選択し，次の作業を行います．
  • [常に画面に表示する編集記号] の [隠し文字] をチェック
  • [印刷オプション] の [隠し文字を印刷する] のチェックを外す
下のコードがこのダイアログを表示するコードで，図がそのダイアログです．


図3
隠し文字関係の設定		 

//=============================================================================
//  Wordのオプションの[表示]ダイアログを表示
//  隠し文字を表示する印刷するかの設定をする
//=============================================================================
procedure TplWordFormEx2.Button4Click(Sender: TObject);
begin
  wdfSetFocusWord;
  wdfWordApp.Dialogs.Item(wdDialogToolsOptionsView).Show(EmptyParam);
  wdfSetFocusWord;
end;