This works great. If, however, I don't know the number of tables in a document, is there a way to modify the coding so it runs on the active table (the table I have my cursor in), as opposed to a specific table as referenced by 'Tables(1)'
Thanks again
----- Doug Robbins - Word MVP wrote: ----
Hi Tony
Use a macro containing the following code
Dim i As Integer, j As Intege
For i = 1 To ActiveDocument.Tables(1).Rows.Coun
For j = 1 To ActiveDocument.Tables(1).Rows(i).Cells.Coun
If Len(Trim(ActiveDocument.Tables(1).Cell(i, j).Range)) = 2 The
ActiveDocument.Tables(1).Cell(i, j).Range = "X
End I
Next
Next
Please post any further questions or followup to the newsgroups for th
benefit of others who may be interested. Unsolicited questions forwarde
directly to me will only be answered on a paid consulting basis
Hope this help
Doug Robbins - Word MV
TonyLogan said:
Is there any way I can replace all empty cells in a table with the text o
my choosing (the letter X, for example)