Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #109433

Re: Search Word document based on text in Excel cell.

Show all headers | View raw

Hi Ronald,

Here's an example:

Sub Macro1()
Dim keywords As String, c As Range, n As Integer
keywords = "green" ' adapt
With Worksheets(1).Range("a1:a500")
     Set c = .Find(keywords, LookIn:=xlValues)
     If Not c Is Nothing Then
         firstAddress = c.Address

         Do
             n = Application.Find("green", c)
             With c.Characters(Start:=n, Length:=Len(keywords))
               .Font.Color = RGB(255, 0, 0)
             End With

             Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress

     End If
End With
End Sub

isabelle

Le 2016-10-19 à 15:51, Ronald a écrit :
> Hello all,
>
> I have this recurrent task where I need to search trough a document for a
> bunch of keywords and highlight them somehouw, preferred with a different
> color. Of course I can do an Cntl-F enter text and search for it but the
> keywords are too much.
>
> Let me explain it on a easy way,
>
> Excel: A list of cells (in one column) with keywords, say: green dog, big
> cat, small bird, green tree etc.
>
> Word: A portion of text where the spoken keywords may appear randomly.
>
> Desired: If a keyword (actually sentence because it can have multiple words)
> is found in the Word text it should be highlighted (preferrable a different
> color for keyword). Would be superduper if a cell in Excel near to the
> keyword would display if the keyword was found or not.
>
> Just wanted to know if some of you experts saw somewhere a solution for this
> and can tell me where to fing it. Any help would be grateful!
>
> Cheers,
>
> Fred.
>

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-19 12:51 -0700
  Re: Search Word document based on text in Excel cell. isabelle <i@v.invalid> - 2016-10-19 19:24 -0400
    Re: Search Word document based on text in Excel cell. isabelle <i@v.invalid> - 2016-10-19 19:32 -0400
      Re: Search Word document based on text in Excel cell. isabelle <i@v.invalid> - 2016-10-19 19:44 -0400
        Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-20 02:42 -0700
  Re: Search Word document based on text in Excel cell. Claus Busch <claus_busch@t-online.de> - 2016-10-20 03:30 +0200
  Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-20 02:39 -0700
    Re: Search Word document based on text in Excel cell. Claus Busch <claus_busch@t-online.de> - 2016-10-20 12:09 +0200
      Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-20 04:26 -0700
        Re: Search Word document based on text in Excel cell. Claus Busch <claus_busch@t-online.de> - 2016-10-20 13:39 +0200
          Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-20 04:57 -0700
            Re: Search Word document based on text in Excel cell. Claus Busch <claus_busch@t-online.de> - 2016-10-20 14:03 +0200
              Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-20 11:17 -0700
                Re: Search Word document based on text in Excel cell. Claus Busch <claus_busch@t-online.de> - 2016-10-21 08:02 +0200
                Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-21 04:04 -0700
                Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-24 07:21 -0700
                Re: Search Word document based on text in Excel cell. Ronald <rmoleveld@gmail.com> - 2016-10-24 07:30 -0700
                Re: Search Word document based on text in Excel cell. Claus Busch <claus_busch@t-online.de> - 2016-10-25 13:21 +0200

csiph-web