剪贴板上的运行时错误 424.GetText / SetText

Question

我必须将大量文本从PDF文件复制并粘贴到Word文档中，并且它们带有所有PDF换行符，这些换行符不需要在Word上换行，所以我正在尝试编写一个宏，如果它有效，可以节省大量时间，在我的复制和粘贴操作之间，在系统剪贴板上用空格字符替换换行符。这是我尝试过的：

Sub PdfPaste()
Dim PdfPaste As String
PdfPaste = Clipboard.GetText
PdfPaste = Replace(PdfPaste, vbNewLine, " ")
Clipboard.SetText = PdfPaste
End Sub

这会在第 3 行和第 5 行(剪贴板.GetText 和 .设置文本方法)。

我显然是一个新手，所以如果我在这里的方法大错特错，请原谅我的无知......

Answer 1

正如 Alex K 所指出的，我实际上是在使用VBA，而不是VB6，这就是我问题的答案。问题中提到的代码应该在 VB6 中工作。
我使用以下代码完成了我需要的内容，该代码适用于VBAfor Office：

Sub PastePDF() 
Dim PdfPaste As String
Dim objData As New MSForms.DataObject
objData.GetFromClipboard
PdfPaste = objData.GetText()
PdfPaste = Replace(PdfPaste, vbNewLine, " ")
objData.SetText PdfPaste
objData.PutInClipboard 
End Sub