Поделиться через

Программное использование диалоговых окон Word в скрытом режиме

  • Статья

Сложные операции можно выполнять с одним вызовом метода, вызывая встроенные диалоговые окна в Microsoft Office Word, не отображая их пользователю. Это можно сделать с помощью Execute метода Dialog объекта без вызова Display метода.

Область применения. Сведения в этом разделе относятся к проектам уровня документа и проектам надстроек VSTO для Word. Дополнительные сведения см. в разделе "Функции", доступные по Приложение Office ликации и типу проекта.

Примеры

В следующих примерах кода показано, как использовать диалоговое окно "Настройка страницы" в скрытом режиме, чтобы задать несколько свойств настройки страниц без ввода пользователем. В примерах используется Dialog объект для настройки настраиваемого размера страницы. Определенные параметры для настройки страницы, такие как верхние поля, нижнее поле и т. д., доступны как свойства Dialog с поздней привязкой объекта. Эти свойства динамически создаются Word во время выполнения.

В следующем примере показано, как выполнить эту задачу в проектах Visual Basic, где параметр Strict отключен и в проектах Visual C#, предназначенных для платформа .NET Framework 4. В этих проектах можно использовать функции поздней привязки в компиляторах 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();

В следующем примере показано, как выполнить эту задачу в проектах Visual Basic, где включен параметр Strict . В этих проектах необходимо использовать отражение для доступа к свойствам с поздней привязкой. Чтобы использовать этот пример, запустите его из 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

Связанный контент