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

希望这有帮助

Answer 2

而不是：
写#1，“文本”
你需要使用：
print #1, "text"

写入命令将始终在保存到文件的数据周围使用 " 标记。