Il y a des moments où Larry doit absolument créer quatre nouveaux documents vierges ou plus. Il se demande s’il existe un moyen de créer quatre nouveaux documents vierges (ce serait bien de saisir le nombre de documents vierges nécessaires) à la fois.

Il existe plusieurs façons d’aborder ce problème. Si tout ce que vous voulez faire est de créer quatre nouveaux documents, tous basés sur le modèle Normal, le moyen le plus simple consiste simplement à appuyer quatre fois sur Ctrl + N. (En fait, vous pouvez maintenir la touche Ctrl enfoncée et appuyer quatre fois sur N.) Le résultat est quatre documents vierges, prêts à être utilisés.

Si vos documents doivent être basés sur un modèle différent du modèle Normal, il est préférable d’utiliser une macro. La macro suivante demande à l’utilisateur combien de documents doivent être créés, puis les crée en fonction du modèle BusinessReport.

Sub NewDocuments()

Dim Answer As Variant     Dim iNewDocs As Integer     Dim J As Integer

Answer = InputBox("How many new documents?")

iNewDocs = CInt(Answer)

For J = 1 to iNewDocs         Documents.Add Template:="BusinessReport", NewTemplate:=False, _           DocumentType:=wdNewBlankDocument     Next J End Sub

La macro peut être affectée à une touche de raccourci ou à un bouton dans une barre d’outils, prête à créer vos documents. Vous pouvez également adopter une approche légèrement différente avec le même code. Créez un nouveau document basé sur le modèle souhaité (tel que le modèle BusinessReport), puis ajoutez cette macro au modèle:

Sub AutoOpen()

Dim Answer As Variant     Dim iNewDocs As Integer     Dim J As Integer

Answer = InputBox("How many more docs?", "Doc Count")

iNewDocs = CInt(Answer)

For J = 1 To iNewDocs         Documents.Add Template:="BusinessReport", NewTemplate:=False, _           DocumentType:=wdNewBlankDocument     Next End Sub

Enregistrez le document sous un nom tel que «MultipleDocs.docm». La base de la macro est la même que la précédente. La différence est le nom donné à la macro. Puisqu’il utilise le nom spécial AutoOpen, chaque fois que le document MultipleDocs est ensuite ouvert, la macro est automatiquement exécutée et l’utilisateur est invité à combien de documents supplémentaires créer.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (11237) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Creating_Multiple_Blank_Documents_in_One_Step [Création de plusieurs documents vierges en une seule étape].