Tâches diverses

Cette rubrique inclut Visual Basic exemples pour les tâches identifiées dans les sections suivantes.

Modification de l'affichage

L'objet View comprend des propriétés et des méthodes liées aux attributs du mode d'affichage (afficher tout, trame de fond des champs, quadrillage des tableaux, etc.) pour une fenêtre ou un volet. Cet exemple montre comment passer en mode d'affichage Impression.

Sub ChangeView() 
    ActiveDocument.ActiveWindow.View.Type = wdPrintView 
End Sub

L'objet HeaderFooter est renvoyé par les propriétés Headers, Footers et HeaderFooter. Cet exemple montre comment changer le texte de l'en-tête de la page actif.

Sub AddHeaderText() 
    With ActiveDocument.ActiveWindow.View 
        .SeekView = wdSeekCurrentPageHeader 
        Selection.HeaderFooter.Range.Text = "Header text" 
        .SeekView = wdSeekMainDocument 
    End With 
End Sub

Cet exemple crée un objet Range, qui fait référence au pied de la première rngFooter section du document actif. Une fois que l'objet Range est défini, le texte du pied de page est supprimé. Le champ FILENAME est ajouté au pied de page, suivi de deux tabulations et du champ AUTHOR.

Sub AddFooterText() 
    Dim rngFooter As Range 
    Set rngFooter = ActiveDocument.Sections(1) _ 
        .Footers(wdHeaderFooterPrimary).Range 
    With rngFooter 
        .Delete 
        .Fields.Add Range:=rngFooter, Type:=wdFieldFileName, Text:="\p" 
        .InsertAfter Text:=vbTab & vbTab 
        .Collapse Direction:=wdCollapseStart 
        .Fields.Add Range:=rngFooter, Type:=wdFieldAuthor 
    End With 
End Sub

Définition d'options

L’objet Options inclut des propriétés qui correspondent aux paramètres facultatifs disponibles dans différents menus et boîtes de dialogue dans Word. Cet exemple montre comment définir trois paramètres pour l’application Word.

Sub SetOptions() 
    With Options 
        .AllowDragAndDrop = True 
        .ConfirmConversions = False 
        .MeasurementUnit = wdPoints 
    End With 
End Sub

Modification de la mise en page d'un document

L'objet PageSetup dispose comme propriétés de tous les attributs de mise en page de document (marge de gauche, marge inférieure, format du papier etc.). Cet exemple montre comment définir les tailles des marges du document actif :

Sub ChangeDocumentLayout() 
    With ActiveDocument.PageSetup 
        .LeftMargin = InchesToPoints(0.75) 
        .RightMargin = InchesToPoints(0.75) 
        .TopMargin = InchesToPoints(1.5) 
        .BottomMargin = InchesToPoints(1) 
    End With 
End Sub

Exécution d'une boucle dans les paragraphes d'un document

Cet exemple montre comment exécuter une boucle dans l'ensemble des paragraphes du document actif. Si la hauteur de l'espace situé avant les paragraphes est égale à 6 points, cet exemple montre comment remplacer cet espace par un espace de 12 points.

Sub LoopParagraphs() 
    Dim parCount As Paragraph 
    For Each parCount In ActiveDocument.Paragraphs 
        If parCount.SpaceBefore = 12 Then parCount.SpaceBefore = 6 
    Next parCount 
End Sub

Pour plus d’informations, voir Exécution d’une boucle dans une collection.

Personnalisation des menus et des barres d'outils

L’objet CommandBar représente à la fois les menus et les barres d’outils (dans les versions de Word qui n’utilisent pas le ruban). Utilisez la propriété CommandBars avec le nom d'un menu ou d'une barre d'outils pour renvoyer un seul objet CommandBar. La propriété Controls renvoie un objet CommandBarControls qui fait référence aux éléments figurant dans la barre de commandes spécifiée. Cet exemple montre comment ajouter la commande Word Count (Statistiques) dans la barre d'outils Standard.

Sub AddToolbarItem() 
    Dim btnNew As CommandBarButton 
    CustomizationContext = NormalTemplate 
    Set btnNew = CommandBars("Standard").Controls.Add _ 
        (Type:=msoControlButton, ID:=792, Before:=6) 
    With btnNew 
        .BeginGroup = True 
        .FaceId = 700 
        .TooltipText = "Word Count" 
    End With 
End Sub

Cet exemple montre comment ajouter la commande Double Underline (Soulignement double) dans la barre d'outils Formatting (Mise en forme).

Sub AddDoubleUnderlineButton() 
    CustomizationContext = NormalTemplate 
    CommandBars("Formatting").Controls.Add _ 
        Type:=msoControlButton, ID:=60, Before:=7 
End Sub

Activez l'enregistreur de macros et personnalisez un menu ou une barre d'outils pour déterminer la valeur ID d'une commande donnée (par exemple, ID 60 correspond à la commande SoulignementDouble ).

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.