[求助]如何使用剪贴板的内容进行查找（寻找最有效率的查找）

yy10

     早就知道这里高手如云，想请教一下如何能简化查找步骤，由于经常需要查找文中的内容，常规方法太繁琐，先复制，再打开查找框，再粘贴，想问一下有没有简单的非常规方法，可以将直接查找复制的内容而不用粘贴。

   我感觉这里特别好，以前喜欢潜水，以后决定多请教各位，我觉得好的问题对大家都有益处。

    由于有多个关于查找的问题要请教，在这里一并提出来，谢谢大家：

    （1）即选即查:选中一则文字，单击一个按钮即可对该文字进行查找，已解决，见20楼和24楼，谢谢sylun和守版主。

    （2）不显示查找对话框的即选即查，已解决，见30楼，谢谢sylun。

    （3） 一次将使用ctrl键选择的多个不连续文字块复制成多个项目，而不是一个，有了一些眉目，见32楼。

   （4）使用剪贴板进行查找：查找过程中，单击剪贴板中的内容将其复制到查找框中进行查找，或者使用变通的方法，提示我们要选择剪贴板中的第几个项目进行查找。

   （5）返回查找对象在另一个文档中所处的页码（批量），详见35楼，待解决。

[此贴子已经被作者于2008-4-5 11:55:04编辑过]

yy10

自己顶一下，我想录一个宏来实现，可弄不好，不知该怎么办。

守柔

QUOTE:

以下是引用yy10在2008-3-31 13:44:51的发言：

     早就知道这里高手如云，想请教一下如何能简化查找步骤，由于经常需要查找文中的内容，常规方法太繁琐，先复制，再打开查找框，再粘贴，想问一下有没有简单的非常规方法，可以将直接查找复制的内容而不用粘贴。

   我感觉这里特别好，以前喜欢潜水，以后决定多请教各位，我觉得好的问题对大家都有益处。

欢迎yy10冒泡！

请把问题讲清楚，比如，您为什么需要在复制查找的内容？你的源文本在哪儿？WORD文档么？

您通常需要查找什么内容，是不需要格式查找吗？

能不能举个实际的例子，便于我们分析与理解。

谢谢。

雨雪霏霏

QUOTE:

以下是引用yy10在2008-3-31 13:44:51的发言：

     早就知道这里高手如云，想请教一下如何能简化查找步骤，由于经常需要查找文中的内容，常规方法太繁琐，先复制，再打开查找框，再粘贴，想问一下有没有简单的非常规方法，可以将直接查找复制的内容而不用粘贴。

   我感觉这里特别好，以前喜欢潜水，以后决定多请教各位，我觉得好的问题对大家都有益处。

　　小弟未能专心学习Word，偷懒了好长一段时间，现在重返家园（今日适值奥运圣火抵达北京），愿与yy10 MM一道品味家园的万般妙处！

　　看到yy10 MM的问题之初，觉得很有创意，确实，我们往往习惯于一些既定的规范操作，像yy10 MM这样的想法便不会再有，如今yy10 MM这样一问，确实为大家带来新意——只要肯想，总还是能够不断地改进一些东西的。

　　感谢yy10 MM带来的“好的问题”！

　　守柔老大是专家，请yy10 MM仔细推敲他的分析，再提交一些具体的操作实例，这样有助于问题的深入。

　　Word本身的查找替换功能非常强大，如果不是一时的特殊需要，而是长期地多方面地使用查找替换功能，建议yy10 MM还是先着手学习查找替换的绝大部分功能为好。另外，复制某文本的同时就进行了“查找”的工作，是否与Word本身的“复制”功能有冲突呢？yy10 MM是否还有更好的思路？

　　请yy10 MM具体描述一下需要“复制的同时就进行查找”的实际环境。谢谢！

yuyvtul

楼主的问题是有实用性，根据我的理解将楼主的内容说明和补充一下，大家来实现这个功能。
创建一个宏，实现以下功能：
①如果当前没选中文字，则在当前文档中查找剪贴板中的内容。
②如果当前选中文字，则在当前文档中查找“选中的文字”(最好不含刚选中的一处)。
以上方案可能与楼主的要求有差异，而且没考虑在选中范围中查找，也可这样考虑。
创建一个宏，实现以下功能：
在当前文档或选中范围内查找剪贴板中的内容。

yy10

    没想到大家都这么热情，谢谢大家的热心帮忙，还以为不会有人理我这个新人呢。我最近经常需要在word文档中查找一些内容，我的标题表达得不够准确，可能对剪贴板的内容进行查找不太可能，只想对能否做一个宏实现对选中的文字直接进行查找，一键完成，提高效率。

    我比较懒，不喜欢重复操作，我还有很多没实现的设想，希望得到大家的帮助。我的水平比较低，需要向大家多多学习。

[此贴子已经被作者于2008-4-1 8:52:53编辑过]

yy10

刚才有个新发现，发现word的查找框有记忆功能，有时候你选了文字并复制了，查找框会自动复制你的文字，但有时候不行，不知道为什，刚才试验了一下，我是复制了文字后马上进行查找，不知跟速度有没有关系，而且还发现复制数字的时候，查找框一般会自动复制，觉得很奇怪。

yy10

补充一下，如果能用宏实现的话，最好考虑一下跨文档的问题，有时需要在一个word文档中复制内容，在另一个word文档中查找。

sylun

这样可以吗？

Sub MyFind()
    Dim myData As DataObject
    Set myData = New DataObject
    myData.GetFromClipboard
    With Dialogs(wdDialogEditFind)
        .Find = myData.GetText(1)
        .Show
    End With
End Sub

yy10

谢谢楼上的，厉害，这个基本能满足我的要求，只是还有一点欠缺，还需要人工复制，要是把复制这一步也省了就完美了。