Partager via

Appliquer un style (bordure) à l'ensemble des objets d'un document

Anonyme
2021-05-06T10:54:56+00:00

Bonjour,

Mon document Word dispose de nombreux objets OLE de type Word.

J'aimerai leur appliquer de manière globale un style (une bordure + une marge), de la même manière qu'il est possible d'en créer pour des titres, des pieds de pages ou encore des tableaux.

Ma question : comment appliquer un style sur l'ensemble de mes objets sans devoir le faire un par un comme dans l'image ci-dessous ?

En vous remerciant par avance.

Microsoft 365 et Office | Word | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

  1. Anonyme
    2021-05-06T12:14:51+00:00

    Nous utilisons un service de traduction pour assister nos utilisateurs. Veuillez nous excuser pour les éventuelles erreurs grammaticales.

    Salut Romain, j’espère que vous allez bien. Je suis Ian, un conseiller indépendant et utilisateur de Microsoft comme vous.

    À partir de maintenant, il n’est pas possible dans Word d’ajouter la bordure à tous les objets OLE.

    En tant que solution de contournement, vous pouvez l’implémenter dans le script VBA Macro

    1. o commencez par, cliquez sur l’onglet « Développeur », puis cliquez sur « Macros »
    2. Créez une macro, entrez un nom macro par exemple « AddBorderToOLE », puis cliquez sur créer
    3. Insérez le code ci-dessous. Sub AddBorderToOLE () ' ' AddBorderToOLE Macro ' ' Dim objInLineShape : InlineShape Dim objDoc comme document Ensemble objDoc = ActiveDocument Avec objDoc Pour chaque objInLineShape In . InlineShapes Pour i = 1 à 4 Avec objInLineShape.Borders(i) . LineStyle = wdLineStyleSingle . Couleur = wdColorBlack . LineWidth = wdLineWidth100pt Terminer par Suivant i prochain Terminer par Sous-marin de fin
    4. Enregistrez et fermez l’éditeur VBA.
    5. Cliquez sur l’onglet « Développeur », puis cliquez sur « Macros »
    6. Choisissez votre macro créée puis cliquez sur Exécuter.

    Il s’agit d’un forum de support utilisateur-utilisateur et je suis un autre utilisateur.

    J’espère que cela aide, mais s’il vous plaît laissez-moi savoir si vous avez besoin d’autre chose.

    1 personne a trouvé cette réponse utile.
    0 commentaires

1 réponse supplémentaire

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2021-05-10T09:55:20+00:00

    Bonjour Ian,

    Votre réponse très complete m'a permis de bien avancer dans la mise en forme de mes objets OLE. Sur le moment je n'avais pas pensé à faire du VBA pour arriver à mes fins.

    N'étant pas familier de l'API d'un document Word, je m'aide de la fonction "Enregistrer une macro" pour me générer un code correspondant à mes actions, et il n'y a plus qu'à prendre ce dont j'ai besoin pour mettre en forme les InlineShapes.

    Merci beaucoup, et très bonne continuation à vous.

    0 commentaires