Re: Search all the characters then get range for some of them

OK, Jay and Doug, I mis-understood your solutions. BUT, our application (a
document comparison between Office documents) requires we know all the words
in a document, so we can compare them against another document. We also need
to know the positions of each word in a document so we can gray it out later
if there is a matching phrase/paragraph in another document.

So to re-phrase my question better: how do I load all the words/characters
and their positions from a document, so later I can gray them out?

Again, millions of thanks in advance.


"Jay Freedman" wrote:

What Doug was suggesting was _not_ loading the range of the document into an
array, but loading an array with the list of words that you need to search
for. The "array" can be just a single Variant type variable. There are
several ways to load it. For a small amount of data you could use the Split
function to make an array from a string:

Dim WordsToFind As Variant
WordsToFind = Split("one,two,three,four", ",")

Once you have this array, you can rewrite the macro like this:

Sub demo2()
Dim WordsToFind As Variant
Dim idx As Long
Dim oRg As Range

WordsToFind = Split("one,two,three,four", ",")

For idx = 0 To UBound(WordsToFind) ' <===
Set oRg = ActiveDocument.Range
With oRg.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = WordsToFind(idx) ' <===
.Replacement.Text = "^&" ' same as found
.Replacement.Font.Color = wdColorGray35

.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWildcards = False

.Execute Replace:=wdReplaceAll
End With
Next ' <===
End Sub

For the > 1000 words that you mentioned, I assume that you have a list
somewhere, maybe in a Word document or a text file. If you explain where the
list is and what separates the words from each other, we can suggest a good
way of getting the list into the array.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

leverw wrote:
I have only been doing this VSTO programming for the last 4 weeks.
So how do I "... load the words into an array" quickly as you
describe? This is exactly what I need to do. But when I call
Document.Range, it gives me all the word ranges in the document
range, but I have to go through each Word.Range call to get the
actual word, which is not efficient to me, right?

Many thanks in advance again!

"Doug Robbins - Word MVP" wrote:

It's a simple matter to load the words into an array and then use
code similar to Jays to interate through the array, and process each
word in turn.

You probably would not have time to get a cup of coffee while it was
doing it.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"leverw" <leverw@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:8373C72E-2042-4897-8B61-0CAACC9543F7@xxxxxxxxxxxxxxxx
Thanks for your answer. But in our case, we have many words (>>
1000) that
we need to search and replace (actually just gray out the text).
Doing it one at a time is not very scalable, right? I thought I
could get the entire
text and look for them myself. If some are positioned
consecutively, I can
gray out several words at a time.

Thanks again.




.

Relevant Pages

  • Re: Search all the characters then get range for some of them
    ... to know the positions of each word in a document so we can gray it out later ... "Jay Freedman" wrote: ... array, but loading an array with the list of words that you need to search ... Dim WordsToFind As Variant ...
    (microsoft.public.word.vba.general)
  • Re: Search all the characters then get range for some of them
    ... Yes, Jay, those are a few of the features we can do with our document ... document, and compare another document ... position of each word to gray out later, ... array, but loading an array with the list of words that you need to search ...
    (microsoft.public.word.vba.general)
  • Re: Search all the characters then get range for some of them
    ... It's a simple matter to load the words into an array and then use code ... "Jay Freedman" wrote: ... characters and/or their formatting, you can do that by specifying the ... Dim oRg As Range ...
    (microsoft.public.word.vba.general)
  • Re: Hours
    ... Thanks Jay ... However, and forgive me if this is wrong, I set up an array of an ListArray ... Geoff ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: question regarding dynamic cell colors
    ... The entire array is 29 rows by 450 columns. ... want to change the cell color for those days to gray, ... issue and developed a viable solution. ...
    (microsoft.public.excel.programming)