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，“文字” 您需要使用： 打印＃1，“文字”

write命令将始终在要保存到文件的数据周围使用“”标记。