Comment : utiliser des boîtes de dialogue Word en mode masqué

Mise à jour : novembre 2007

Vous pouvez effectuer des opérations complexes à l'aide d'un seul appel de méthode en appelant les boîtes de dialogue intégrées dans Microsoft Office Word sans les afficher à l'utilisateur. Pour ce faire, utilisez la méthode Execute de l'objet Dialog sans appeler la méthode Display.

Exemple

Friend Sub PageSetupDialogHidden()
    Dim dlg 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.
    With dlg
        .PageWidth = 3.3 & ControlChars.Quote
        .PageHeight = 6 & ControlChars.Quote
        .TopMargin = 0.71 & ControlChars.Quote
        .BottomMargin = 0.81 & ControlChars.Quote
        .LeftMargin = 0.66 & ControlChars.Quote
        .RightMargin = 0.66 & ControlChars.Quote
        .HeaderDistance = 0.28 & ControlChars.Quote
        .Orientation = Word.WdOrientation.wdOrientPortrait
        .DifferentFirstPage = False
        .FirstPage = 0
        .OtherPages = 0

        ' Apply these settings only to the current selection with this line of code:
        .ApplyPropsTo = 3

        ' Apply the settings.
        .Execute()
    End With
End Sub

private void PageSetupDialogHidden() 
{ 
    Word.Dialog dlg = Application.Dialogs[Word.WdWordDialog.wdDialogFilePageSetup];

    invokeHelper(dlg,"PageWidth","3.3\"");
    invokeHelper(dlg,"PageHeight","6\"");
    invokeHelper(dlg,"TopMargin","0.71\"");
    invokeHelper(dlg,"BottomMargin","0.81\"");
    invokeHelper(dlg,"LeftMargin","0.66\"");
    invokeHelper(dlg,"RightMargin","0.66\"");
    invokeHelper(dlg,"HeaderDistance","0.28\"");
    invokeHelper(dlg,"Orientation","0");
    invokeHelper(dlg,"DifferentFirstPage","0");
    invokeHelper(dlg,"FirstPage","0");
    invokeHelper(dlg,"OtherPages","0");

    // Apply these settings only to the current selection with this line of code:
    invokeHelper(dlg,"ApplyPropsTo","3"); 

    // Apply the settings.
    dlg.Execute(); 
}

private static void invokeHelper(Word.Dialog dlg, string member, string value)
{
    System.Type dlgType = typeof(Word.Dialog);

    // Set the appropriate property of the dialog box.
    dlgType.InvokeMember(member,
        System.Reflection.BindingFlags.SetProperty |
            System.Reflection.BindingFlags.Public |
            System.Reflection.BindingFlags.Instance,
        null, dlg, new object[] {value},
        System.Globalization.CultureInfo.InvariantCulture);
}

Compilation du code

Exécutez ce code à partir de la classe ThisDocument ou ThisAddIn de votre projet Visual Studio Tools pour Office.

Cet exemple utilise l'énumération wdDialogFilePageSetup pour définir plusieurs propriétés de mise en page sans aucune saisie. Le code utilise un objet Dialog pour configurer la taille d'une page personnalisée.

Cet exemple exige la définition de Option Strict Off dans votre code Visual Basic. Cette opération est nécessaire car aucun des paramètres spécifiques pour la mise en page, tels que la marge supérieure, la marge inférieure, etc., n'est membre de la classe Dialog. Ces propriétés font l'objet d'une liaison tardive, car elles sont créées de manière dynamique par Word au moment de l'exécution lorsque l'énumération wdDialogFilePageSetup est évaluée. En réalité, elles sont créées au moment de l'exécution pour correspondre aux contrôles sur chaque boîte de dialogue.

Remarque :
Vous pouvez prendre en compte le code qui doit être exécuté avec Option Strict Off dans une classe séparée.

Voir aussi

Tâches

Comment : utiliser les boîtes de dialogue intégrées dans Word

Concepts

Vue d'ensemble du modèle objet Word