Word VBA Macro - Écrire plusieurs éléments dans un fichier txt?

Question

Je travaille sur un projet pour stocker ce qu'un utilisateur coupe/copie/colle dans un document Word, et j'utilise les macros VBA pour y parvenir. Voici un extrait de la macro pâte:

Open "C:\Temp\HoldPastes.txt" For Output As #1 
     Write #1, "TestTestTest." 
     Write #1, Selection 
     Close #1 

Je voudrais HoldPastes.txt d'avoir une liste de chaque morceau de texte que l'utilisateur a collé.

Tout d'abord, Write #1, Selection est faux; il met deux guillemets dans mon fichier txt. Comment puis-je accéder à ce qui a été collé à partir du presse-papiers et l'écrire dans mon fichier?

De plus, ceci écrase tout ce que j'avais dans HoldPastes.txt. Je voudrais conserver toutes les pâtes dans ce fichier, alors comment puis-je dire à la macro de reprendre là où il s'était arrêté et d'ajouter au fichier?

Answer 1

Append à un fichier n'est pas For Output mais For Append

Open "C:\Temp\HoldPastes.txt" For Append As #1 

Lire le Presse-papiers

Dim myData As DataObject 
Dim strClip As String 

Set myData = New DataObject 
myData.GetFromClipboard 
strClip = myData.GetText 

Hope this helps