Sub HilightRows() Dim TargetText1 As String Dim TargetText As String Dim oRow As Row Dim iCol As Integer 'initialize the target characters to find TargetText = "(" TargetText1 = ")" 'Make sure we're in a table If Selection.Information(wdWithInTable) Then 'Clear all the old shading Selection.Tables(1).Shading.BackgroundPatternColor = wdColorWhite 'do all the rows For Each oRow In Selection.Tables(1).Rows If InStr(oRow.Range.Text, TargetText) > 0 Then _ oRow.Shading.BackgroundPatternColor = wdColorYellow If InStr(oRow.Range.Text, TargetText1) > 0 Then _ oRow.Shading.BackgroundPatternColor = wdColorYellow Next oRow End If End Sub
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (11435) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. You can find a version of this tip for the older menu interface of Word here: Noting Table Rows Containing a Character.
Do More in Less Time! Are you ready to harness the full power of Word 2013 to create professional documents? In this comprehensive guide you'll learn the skills and techniques for efficiently building the documents you need for your professional and your personal life. Check out Word 2013 In Depth today!
What do you do if you add numbered captions to an element of your document (such as tables) and Word skips a number? ...
Discover MoreExcel makes it very easy to add sequential numbers to a range of cells. Not so in Word's tables, where adding such ...
Discover MoreIf you have problems getting the printout of a table to look correct, it can be frustrating. This tip provides a few ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2018-05-06 23:51:39
Stella
Why do you define 'iCol' as 'Integer' and then not use 'iCol' anywhere in the macro?
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2022 Sharon Parq Associates, Inc.
Comments