Overcome issues in tables with vertically merged cells

rocky2 · #1 12-20-2016, 11:12 PM

This is the code I used (I marked the line in which I get an exception):

Code:

Sub FixWhiteFontInTable()

With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Style = ActiveDocument.Styles("Table Heading")
    .Text = ""
    .Forward = True
    .Execute Format:=True, Forward:=True
  End With
  Do While .Find.Found
    If .Information(wdWithInTable) Then
      If .Cells(1).RowIndex > 2 Then
        
        Selection.Font.ColorIndex = wdBlack
        
      End If
   
    End If
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With

End Sub

What did I miss?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to vertically align a merged cell to fit text	paik1002	Excel	6	09-20-2016 03:00 AM
Combining 2 tables into 1 and use Table2's column widths (hoping for workaround dealing merged cells	CodingGuruInTraining	Word VBA	24	10-07-2015 07:48 PM
Table will not allow sorting because "cells are merged". I can't find the merged cells.	wendyloooo	Word Tables	1	05-26-2015 01:19 PM
Unable to vertically center align texts in table cells?	tinfanide	Word	3	11-24-2013 06:37 AM
How to merge matching cells vertically?	Odiseh	Excel	1	01-02-2010 02:41 PM