Hi - I am trying to create a Word macro that searches a column in a table for all bold sentences and adds 2 asterisks at the beginning of each sentence. So far I have come up with the code below. But it only finds the first sentence over and over again. I will have cells that have more than 1 bold sentence so I don't want to use range and move from cell to cell because it ignores the other sentences.

Thanks in advance for your help!


Sum AsteriskText()

Dim keepSearch As Boolean

keepSearch = False



Selection.Tables(1).Columns(3).Select


Do
Selection.Find.ClearFormatting
Selection.Find.Font.Bold = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute


If Selection.Find.Found Then
keepSearch = True
Else
keepSearch = False
End If

With Selection
.InsertBefore "**"

End With


Loop While keepSearch


End Sub

Please use code tags when posting codes.
No, you DO want to use range, because it does NOT ignore other sentences.
Assuming of course you really do mean sentences, not paragraphs.

Oh, and the above REQUIRES that the selection is in the cells that you want to act. It will fail if the selection is not in a table. Best practice would actually test to make sure it IS in a table first. I did not bother...you should do it though.

Your code works great ---but I need help getting the selection/range to advance to the next sentence & next cell. Here is what I have:

Dim keepSearch As Boolean
Dim r As Range
Dim SentenceRange As Range
Dim tRow As Row
Dim tCell As Cell
Dim myTable As Table

Set myTable = ActiveDocument.Tables(1)
For Each tRow In myTable.Rows
Set tCell = tRow.Cells(3)
Set r = Selection.Range.Cells(1).Range
For Each SentenceRange In r.Sentences
If SentenceRange.Font.Bold = True Then
SentenceRange.InsertBefore "BOMBME"
End If
Next
Next


This doesn't move to the 3rd cell (not sure how to set this). When I start in the right cell, it goes to first sentence in the cell (column 3), then the 2nd sentence, but never makes it to the third sentence or out of the first cell [in column 3].

Can you help me move the selection forward? Many thanks!!

If you are going to use a table object, then you do not need to use selection at all. Nor do you need to use rows and columns if you are processing all cells. And again, please use code tags when you are posting code.
This goes through every cell in table(1). The Selection does not need to be in the table. If there is some reason you have to be in cell(3), then please state that. Please state exactly what you want.

Do be aware that what Word VBA treats as a sentence often isn't what most people would consider so...

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

This code runs perfect! Many thanks!

If I only want to run it for the 3rd column in the table (instead of all cells) how would I set the range?

(Newbie to forum posting - will use Code tag in future)

Please note what macropod posted. "Sentences" often surprise people. What Word considers a sentence is NOT intuitive.

Change:
For Each aCell In myTable.Range.Cells
to:
For Each aCell In myTable.Columns(3).Cells

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

perfect. many thanks!