Zach不断将PDF文件中的引号粘贴到他的Word文档的正文中。他希望有一个专门用于从PDF粘贴的宏，该宏无需任何格式即可粘贴，并自动删除粘贴文本每一行末尾的段落分隔符。

以这种方式在宏中处理文本相对容易。您需要做的就是将信息从剪贴板移动到字符串变量。一旦将其放入变量中，就不再有与文本关联的格式，您可以搜索并替换段落分隔符。下面的宏执行两个步骤：

Sub PastePDFClean()

Dim MyData As DataObject     Dim sTextIn As String     Dim x As Integer     Dim y As Integer

Set MyData = New DataObject     MyData.GetFromClipboard     sTextIn = MyData.GetText

x = InStr(sTextIn, vbCr)

y = 1     While x > 0         sTextIn = Left(sTextIn, x - 1) & Mid(sTextIn, x + 1)

y = x + 1         x = InStr(y, sTextIn, vbCr)

Wend

Selection.TypeText sTextIn     Set MyData = Nothing End Sub

记得;宏可用于剪贴板中的任何内容。因此，为了在PDF选择中正确运行宏，您需要在运行宏之前将选择复制到剪贴板并切换到Word文档。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）此技巧（11626）适用于Microsoft Word 2007和2010。您可以在此处找到适用于Word的较早菜单界面的该技巧的版本：

处理从PDF文件粘贴的信息。