Créez un ou des tableaux de deux colonnes. Comment alimenter un contrôle de contenu Liste déroulante avec une plage de données Excel ? Comment obtenir via VBA une date incrémentée par rapport à la date du jour ? document.cookie = c_name + "=" + c_value;
Comment Creer une Case a cocher dans un Document Word Lors de la creation d'une liste, Word 2013 vous permet d'inserer des cases a cocher, de sorte que les utilisateurs peuvent choisir entre plusieurs options. Par defaut, en cliquant sur une case a cocher affiche un symbole X dans la boîte. "C:\Users\nom_utilisateur\Documents\Modèles Office personnalisés\". Pour insérer une vrai case à cocher il faut aller dans l'onglet Développeur > Onglet Contrôles. Enregistrez simplement un nouveau document au format Template avec macro (extension DOTM) et rangez-le dans le dossier dédié aux templates. Est-il possible que la couleur du texte d'un contrôle de contenu soit différente une fois le contrôle rempli ? insérer un arrière plan dans un document Word. Option ExplicitPublic tabloPrivate Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)On Error Resume Nexttablo = no_tablo(Selection.Range)Selection.Tables(1).Rows(1).Cells(2).Range = ""End SubPrivate Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)Dim balise As String, chemin As String, model As StringOn Error Resume Next'mettre le chemin du template ci-dessouschemin = "C:\Users\nom_utilisateur\Documents\Modèles Office personnalisés\"model = chemin & ActiveDocument.AttachedTemplateTemplates.LoadBuildingBlocks If CC.Checked = True Then balise = CC.Tag ActiveDocument.Tables(tablo).Rows(1).Cells(2).Range.Select Selection.MoveLeft Unit:=wdCharacter, Count:=1 Application.Templates(model).BuildingBlockEntries(balise).Insert _
Where:=Selection.Range, RichText:=True End IfEnd SubFunction no_tablo(RNG As Range)If RNG.Tables.Count > 0 Then Dim DOC As Document Set DOC = RNG.Parent Dim rngTMP As Range Set rngTMP = DOC.Range(0, RNG.Tables(1).Range.End) no_tablo = rngTMP.Tables.CountEnd IfEnd Function. Instead of typing the line again, you can quickly and easily change the case of any text in Word without retyping it. Case à cocher (sur le document Word lui-même pas sur papier) Bonjour à tous, je ne m'y connais pas très bien mais j'aimerais insérer sur un document une case à cocher (du type oui/non), qu'on cocherait directement sur le document. Dans le groupe Contrôle, il y a le bouton outils hérités et tu as deux types de case à cocher, l'une en contrôle de formulaire et la seconde en ActiveX. Comment, en une seule opération, appliquer un format particulier à plusieurs expressions disséminés dans un document ? Récupérer par VBA le nom du dossier où se trouve le document. une Fois que vous inserez une case a cocher symbole, vous pouvez trouver la liste dans la Puce de la Bibliotheque, accessible en cliquant sur la fleche en forme de bouton a cote du bouton Puces. Pour changer cela a un autre symbole, cliquez sur une case a cocher, ouvrez l'onglet Developpeur, puis cliquez sur Proprietes dans le groupe de Controles. Dans cet exemple, on va travailler avec des blocs de construction qui permettront de récupérer facilement le texte, et des tableaux qui permettront de les insérer facilement dans le document. faites défiler le menu jusqu'au symbole en forme de coche puis cliquez dessus ; Si vous voulez insérer le coche dans un nouveau document ouvrez le dossier, Si vous ne trouvez pas l'icône en forme de coche, cliquez sur le menu déroulant, Si vous préférez créer un nouveau document, doublecliquez sur l'icône de l'application Word puis sélectionnez, Pour créer un nouveau document, sélectionnez l'icône de l'application Word dans le dossier. Souvenez-vous néanmoins que les contrôles de contenu, quels qu'ils soient, sont assez difficile à manipuler par macro, car il existe très peu de macros événementielles, et donc de macros qui s'activent sur un événement.
Where:=Selection.Range, RichText:=True End IfEnd SubFunction no_tablo(RNG As Range)If RNG.Tables.Count > 0 Then Dim DOC As Document Set DOC = RNG.Parent Dim rngTMP As Range Set rngTMP = DOC.Range(0, RNG.Tables(1).Range.End) no_tablo = rngTMP.Tables.CountEnd IfEnd Function. Instead of typing the line again, you can quickly and easily change the case of any text in Word without retyping it. Case à cocher (sur le document Word lui-même pas sur papier) Bonjour à tous, je ne m'y connais pas très bien mais j'aimerais insérer sur un document une case à cocher (du type oui/non), qu'on cocherait directement sur le document. Dans le groupe Contrôle, il y a le bouton outils hérités et tu as deux types de case à cocher, l'une en contrôle de formulaire et la seconde en ActiveX. Comment, en une seule opération, appliquer un format particulier à plusieurs expressions disséminés dans un document ? Récupérer par VBA le nom du dossier où se trouve le document. une Fois que vous inserez une case a cocher symbole, vous pouvez trouver la liste dans la Puce de la Bibliotheque, accessible en cliquant sur la fleche en forme de bouton a cote du bouton Puces. Pour changer cela a un autre symbole, cliquez sur une case a cocher, ouvrez l'onglet Developpeur, puis cliquez sur Proprietes dans le groupe de Controles. Dans cet exemple, on va travailler avec des blocs de construction qui permettront de récupérer facilement le texte, et des tableaux qui permettront de les insérer facilement dans le document. faites défiler le menu jusqu'au symbole en forme de coche puis cliquez dessus ; Si vous voulez insérer le coche dans un nouveau document ouvrez le dossier, Si vous ne trouvez pas l'icône en forme de coche, cliquez sur le menu déroulant, Si vous préférez créer un nouveau document, doublecliquez sur l'icône de l'application Word puis sélectionnez, Pour créer un nouveau document, sélectionnez l'icône de l'application Word dans le dossier. Souvenez-vous néanmoins que les contrôles de contenu, quels qu'ils soient, sont assez difficile à manipuler par macro, car il existe très peu de macros événementielles, et donc de macros qui s'activent sur un événement.