숨겨진 모드에서 프로그래밍 방식으로 Word 대화 상자 사용
사용자에게 표시하지 않고 Microsoft Office Word에서 기본 제공 대화 상자를 호출하여 하나의 메서드 호출로 복잡한 작업을 수행할 수 있습니다. 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