Word VBA Macro - записать несколько элементов в текстовый файл?

Question

Я работаю над проектом по сохранению того, что пользователь вырезает / копирует / вставляет в документ Word, и для этого использую макросы VBA.Вот фрагмент из макроса вставки:

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

Я бы хотел, чтобы HoldPastes.txt содержал список всех фрагментов текста, вставленных пользователем.

Во-первых, Write #1, Selection неправильно;он помещает две кавычки в мой текстовый файл.Как я могу получить доступ к тому, что было вставлено из буфера обмена и записать это в мой файл?

Кроме того, это перезаписывает все, что у меня было в HoldPastes.txt.Я хотел бы сохранить все вставки в этом файле, так как я могу сказать макросу выбрать, где он остановился, и добавить в файл?

Answer 1

Добавить к файлу не For Output, а For Append

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

Чтение буфера обмена

Dim myData As DataObject
Dim strClip As String

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

Надеюсь, это поможет