1

.find 期间是否可以获取单词索引？我做 .find.text 来获取这个词，但我需要它的索引位置，然后将它保存在一个数组中。

通常，它是

    documents("doc").word(index)

但如果我是这样的：

    dim indexarray() as long
    dim i as long
    i = 0

    with documents("doc").content.find

         .text = word

         do while .execute
            redim preserve indexarray(i)
            indexarray(i) = index
            i = i+1
         loop

    end with

是否可以在没有循环的情况下获取索引？

4

1 回答 1

4

无法获得您选择/找到的单词数，但根据您的需要有一些可能的解决方法。在这里，我将提出一个想法。

我已经更改了您提供的一些代码 - 请参阅里面的一些评论：

Sub Workaround()

    Dim indexarray() As Long
    Dim i As Long
    Dim Index
    i = 0

    'searching by Range object variable
    Dim DocRNG
    Set DocRNG = ActiveDocument.Content 'here change into your document object

    'start searching with reference to variable
    With DocRNG.Find

         .Text = "commodo"  'here your text to search

         Do While .Execute

            ReDim Preserve indexarray(i)

            'possible workaround!!!
            Index = ActiveDocument.Range(0, DocRNG.End).Words.Count

            indexarray(i) = Index
            i = i + 1
         Loop

    End With
End Sub

重要的！请记住，一些字符，如：逗号、点、分号等Words collection也属于 。因此这些句子：

Nunc viverra, imperdiet enim. Fusce est; Vivamus a tellus!

返回 13 个单词，而您可以数出其中的 9 个单词。但是，我尝试和测试过的建议解决方法将正常工作。

于 2013-06-10T17:35:05.340 回答