Find and Execute

cksm4 · #1 10-14-2011, 11:14 AM

Hello,

I am trying to find text in a table and then execute a command which involves focusing on a new selection/range. I know the change is my issue but I do not know how to overcome it. Any ideas??

Code:

 
With ActiveDocument
Selection.Find.ClearFormatting
With Selection.Find
   .Text = "TOC"
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
While .Execute
    .MoveDown Unit:=wdLine, Count:=1
    .SelectCell
    ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, _
        EntryAutoText:=SelectedText, CrossReference:="", CrossReferenceAutoText:="", _
        BookmarkName:="", Bold:=False, Italic:=False
Wend
End With

Thanks!

macropod · #2 10-22-2011, 11:36 PM

Hi cksm4,

Try something along the lines of:

Code:

Sub Demo()
Dim tRng As Range
With Selection
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "TOC"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  While .Find.Execute
    With .Range
      If .Information(wdWithInTable) = True Then
        Set tRng = .Tables(1).Cell(.Cells(1).RowIndex + 1, .Cells(1).ColumnIndex).Range
        tRng.End = tRng.End - 1
        ActiveDocument.Indexes.MarkEntry Range:=tRng, EntryAutoText:=.Text, _
          CrossReference:="", CrossReferenceAutoText:="", BookmarkName:="", Bold:=False, Italic:=False
      End If
    End With
  Wend
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is there a way to use "find/replace" to find italics words?	slayda	Word	3	09-14-2011 02:16 PM
VBA find or name a Table	smed	Word VBA	1	01-17-2011 02:18 PM
can Find/Replace NOT find something?	Bobosmite	Word	6	05-27-2010 08:09 PM
Find /Replace Help	ilcaa	Word	2	11-02-2009 08:41 AM
How do I call/execute an Excel macro from Access 2003	KramerJ	Excel	2	05-11-2009 11:33 AM