Solution : en utilisant des raccourcis clavier.
Apparu avec la version 95 de Word, le Pique-Notes ressemble à un fourre-tout oú il est possible de stocker de nombreux objets d’un document (mots, phrases, paragraphes, images, équations, etc.). Très pratique, il s’impose comme une alternative à la fonction copier-coller de Word. En effet, bien souvent pour recopier des éléments d’un document sur un autre, vous exécutez un fastidieux va-et-vient entre les deux textes entrecoupé de + et de +.Avec le Pique-Notes, la manipulation est beaucoup plus simple. Dans le premier document, sélectionnez un élément (mots, phrases, paragraphes, images, équations, etc.) à copier et appuyez sur +. L’objet disparaît et il vous faut presser sur + pour l’afficher. Sélectionnez un autre objet et appuyez de nouveau sur +. Le Pique-Notes s’enrichit d’un nouvel élément. N’oubliez pas de presser sur + pour faire réapparaître l’objet. Picorez ainsi ce qui vous intéresse dans le premier document, puis ouvrez le fichier oú vous souhaitez placer l’intégralité des éléments collectés.La combinaison de touches ++ vide le Pique-Notes de son contenu et l’insère dans le document à partir de l’emplacement du curseur. C’est mieux que le Presse-papiers mais il est encore possible d’améliorer cette fonction. En effet, à l’aide d’un programme en VBA, le + suivi du + devient un simple clic sur un bouton d’une barre d’outils. La procédure PiqueNotesGo() se substitue aux deux opérations grâce à l’alliance du copier-coller et du Pique-Notes. Au passage, on constate que le Pique-Notes (Spike) est un élément privilégié de la liste des insertions automatiques. La procédure PiqueNotesFlush est équivalente à la combinaison ++.Pour exploiter pleinement les deux programmes, recopiez-les dans l’éditeur Visual Basic de Word, puis associez-les à des boutons d’une barre doutils. En modifiant légèrement la procédure PiqueNotesFlush vous pouvez visualiser, dans un nouveau document, le contenu du Pique-Notes sans pour autant le vider de ses données.
Listing :
Sub PiqueNotesGo()
If Len(Selection.Range.Text) >= 1 Then
Selection.Copy
NormalTemplate.AutoTextEntries.AppendToSpike Range:=Selection.Range
Selection.Paste
End If
End Sub
Sub PiqueNotesFlush()
With NormalTemplate.AutoTextEntries(“Spike”)
.Insert Where:=Selection.Range, RichText:=True
.Delete
End With
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
