Microsoft Office Word の組み込みダイアログ ボックスをユーザーに表示せずに呼び出すことで、複雑な操作を 1 つのメソッド呼び出しで実行することができます。 これを行うには、Display メソッドを呼び出さずに、Dialog オブジェクトの Execute メソッドを使用します。
適用対象: このトピックの情報は、Word のドキュメント レベルのプロジェクトおよび VSTO アドインのプロジェクトに適用されます。 詳細については、「Office アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。
例
次のコード例では、[ページ設定] ダイアログ ボックスを非表示モードで使用して、複数のページ設定プロパティをユーザー入力なしで設定する方法を示しています。 この例では、Dialog オブジェクトを使ってカスタム ページ サイズを構成します。 ページ設定の特定の設定 (上余白、下余白など) は、Dialog オブジェクトの遅延バインディング プロパティとして使用できます。 これらのプロパティは、実行時に Word によって動的に作成されます。
次の例は、Option Strict がオフになっている Visual Basic プロジェクトと、.NET Framework 4 を対象とした Visual C# プロジェクトで、このタスクを実行する方法を示したものです。 これらのプロジェクトでは、Visual Basic および Visual C# のコンパイラで、遅延バインディング機能を使用できます。 このコード例を使用するには、プロジェクトの ThisDocument または ThisAddIn クラスからコードを実行します。
dynamic dialog = Application.Dialogs[Word.WdWordDialog.wdDialogFilePageSetup];
dialog.PageWidth = "3.3\"";
dialog.PageHeight = "6\"";
dialog.TopMargin = "0.71\"";
dialog.BottomMargin = "0.81\"";
dialog.LeftMargin = "0.66\"";
dialog.RightMargin = "0.66\"";
dialog.HeaderDistance = "0.28\"";
dialog.Orientation = "0";
dialog.DifferentFirstPage = "0";
dialog.FirstPage = "0";
dialog.OtherPages = "0";
// Apply these settings only to the current selection with this line of code:
dialog.ApplyPropsTo = "3";
// Apply the settings.
dialog.Execute();
次の例は、Option Strict がオンになっている Visual Basic プロジェクトでこのタスクを実行する方法を示したものです。 これらのプロジェクトでは、遅延バインディング プロパティにアクセスするためにリフレクションを使用する必要があります。 このコード例を使用するには、プロジェクトの ThisDocument または ThisAddIn クラスからコードを実行します。
Friend Sub PageSetupDialogHidden()
Dim dialog As Word.Dialog = Application.Dialogs.Item(Word.WdWordDialog.wdDialogFilePageSetup)
' Set the properties of the dialog box.
' ControlChars.Quote() is used to represent the symbol for inches.
InvokeHelper(dialog, "PageWidth", "3.3" & ControlChars.Quote)
InvokeHelper(dialog, "PageHeight", "6" & ControlChars.Quote)
InvokeHelper(dialog, "TopMargin", "0.71" & ControlChars.Quote)
InvokeHelper(dialog, "BottomMargin", "0.81" & ControlChars.Quote)
InvokeHelper(dialog, "LeftMargin", "0.66" & ControlChars.Quote)
InvokeHelper(dialog, "RightMargin", "0.66" & ControlChars.Quote)
InvokeHelper(dialog, "HeaderDistance", "0.28" & ControlChars.Quote)
InvokeHelper(dialog, "Orientation", "0")
InvokeHelper(dialog, "DifferentFirstPage", "0")
InvokeHelper(dialog, "FirstPage", "0")
InvokeHelper(dialog, "OtherPages", "0")
' Apply these settings only to the current selection with this line of code:
InvokeHelper(dialog, "ApplyPropsTo", "3")
' Apply the settings.
dialog.Execute()
End Sub
Private Shared Sub InvokeHelper(ByVal dialog As Word.Dialog, ByVal member As String, ByVal value As String)
Dim dialogType As System.Type = GetType(Word.Dialog)
' Set the appropriate property of the dialog box.
dialogType.InvokeMember(member,
System.Reflection.BindingFlags.SetProperty Or
System.Reflection.BindingFlags.Public Or
System.Reflection.BindingFlags.Instance,
Nothing, dialog, New Object() {value},
System.Globalization.CultureInfo.InvariantCulture)
End Sub