Word VBA宏 - 将多个项目写入一个txt文件？

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是错误的;它将两个引号放入我的txt文件中。我如何访问剪贴板上粘贴的内容并将其写入我的文件？

此外，这将覆盖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 

希望这有助于