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

sylun

试试在前面加上如下代码

With Selection
    If .Type = wdSelectionNormal Then
        .Copy   '仅针对word文档的选定区域进行复制
        .HomeKey wdStory
    End If
End With

只是这样就难以进行选定范围的查找

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

yy10

哈哈，用一下就知道是我想要的。这真是懒人的福气，我觉得word的查找功能应该可以有很多扩展的。现将sylun的代码合并一下，这样就省了不少事:

Sub MyFind()
    Dim myData As DataObject
    Set myData = New DataObject
    myData.GetFromClipboard
   With Selection
    If .Type = wdSelectionNormal Then
        .Copy   '仅针对word文档的选定区域进行复制
        .HomeKey wdStory
    End If
   End With

 

With Dialogs(wdDialogEditFind)
        .Find = myData.GetText(1)
        .Show
    End With
   End Sub

yy10

关于即选即查的功能实现了，这里的高手真多，非常感谢各位。我想在这个贴里继续讨论一下关于查找的问题。

  现在想实现标题中所说的对剪贴板的内容进行查找。由于在查找的时候，剪贴板中的内容是不能插入到查找框的，不知有没有人愿意实现一下，我觉得挺有价值的，就是不知可不可行。

   呵呵，我的问题比较多，别嫌啰嗦。

[此贴子已经被作者于2008-4-1 12:50:19编辑过]

yy10

关于sylun的那个程序还想说一点，查找的时候不能对文档进行编辑，这个可否改善一下，觉得自己好挑剔，谢谢了。

sylun

为兼顾先复制后再对选定区域的查找需要，可试试将11楼的代码“If .Type = wdSelectionNormal Then”修改为“If .Type = wdSelectionNormal And .Characters.Count < 50 Then”，因一般情况下要查找的字符不会很多，预留50个应可满足了，选定区域查找的功能还是很有用的。

sylun

QUOTE:

以下是引用yy10在2008-4-1 13:15:48的发言：

关于sylun的那个程序还想说一点，查找的时候不能对文档进行编辑，这个可否改善一下，觉得自己好挑剔，谢谢了。

原程序本来就没有编辑的动作，到显示对话框即停。请楼主将意思说清楚，如何改善？是不是担心误操作，想采取一定的预防性措施，即使按了替换按钮文档内容也不会有改动？

yy10

我的意思是说在不关闭查找框的情况下可以像word正常的查找对话框一样将光标放到word中。

sylun

QUOTE:

以下是引用yy10在2008-4-1 13:34:47的发言：
我的意思是说在不关闭查找框的情况下可以像word正常的查找对话框一样将光标放到word中。

我的理解是用程序调出对话框后，如果对话框未关闭，程序还是处于运行状态，或者说还未结束。程序运行时，前台手动操作会受到限制。也许我的理解并不正确。不知楼主如此想法最终目的是什么？最好是有连贯性的，因任何程序都是有目的的。

yy10

我在查找过程中，需要上下滚屏查看我找到的信息的上下文。

sylun

看看是否如下这种效果？

Sub MyFind()
Dim myRange As Range, myData As DataObject
With Selection
    If .Type = wdSelectionNormal And .Characters.Count < 50 Then
        .Copy
        .HomeKey wdStory
    End If
End With
Set myRange = Selection.Range
Set myData = New DataObject
myData.GetFromClipboard
With Dialogs(wdDialogEditFind)
    .Find = myData.GetText(1)
    .Execute
End With
myRange.Select
SendKeys "^f", False
End Sub

[此贴子已经被作者于2008-4-1 18:06:48编辑过]