![]() |
|
#1
|
|||
|
|||
![]()
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!! |
![]() |
Tags |
macro table search |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
a_gunslinger | PowerPoint | 1 | 04-18-2013 07:54 AM |
Format Bold in one line makes all lines bold | Nitte | Word | 2 | 02-07-2013 12:34 AM |
asterisks turned into broken line -- can't get rid of | gsjackson | Word | 3 | 12-02-2011 03:14 PM |
Table of Authorities Entries - Zombie Bold | emilypage | Word | 2 | 10-25-2011 06:56 AM |
Auto-populate an MS Word table cell with text from a diff cell? | dreamrthts | Word Tables | 0 | 03-20-2009 01:49 PM |