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

【问题标题】：Word VBA Macro -- Write multiple items to a txt file?Word VBA 宏 - 将多个项目写入 txt 文件？
【发布时间】：2011-04-07 16:35:36
【问题描述】：

我正在开发一个项目来存储用户在 Word 文档中剪切/复制/粘贴的内容，并且正在使用 VBA 宏来完成此操作。这是粘贴宏中的一个 sn-p：

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 中的所有内容。我想保留此文件中的所有粘贴，那么如何告诉宏从中断处继续并添加到文件中？

【问题讨论】：

标签： vba ms-word

【解决方案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

希望对你有帮助

【讨论】：

【解决方案2】：

而不是：写#1，“文本” 你需要使用：打印 #1，“文本”

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

【讨论】：