Hello everyone,




the following code is part of a longer macro:


Dim TOFRange As Range

Dim Found As Boolean

Set TOFRange = ActiveDocument.TablesOfFigures(1).Range

With TOFRange.Find

.ClearFormatting

.Font.Italic = True

.Font.Bold = True

.Text = ""

.Forward = True

.Wrap = wdFindStop

Do While .Execute

If Not TOFRange.InRange(ActiveDocument.TablesOfFigures(1) .Range) Then

Exit Do

End If

TOFRange.Font.Italic = False

TOFRange.Font.Bold = True

TOFRange.Collapse wdCollapseEnd
Loop

End With

This part formats a section of my table of figures.

My plan is to have the same functions for tables. Therefore, I have inserted a table of tables, which is also a TOF. Now my question is: How do I change the above code so that Word knows that I mean the table of tables and not the table of figures? I have already replaced the 1 behind TablesOfFigures with all numbers up to 9, but unfortunately this does not change anything.

Thank you and have a nice Easter weekend!

Regards, Jonas

You really shouldn't cross post the same question in two groups without a reference to each post. I've already replied in the other forum and someone else could waste their time giving you the same answer here!!


Where did "9" come from? Replace the 1 in .TablesOfFigures(1) to 2 in both instances. Note, if all the text in the table of figures or table of tables is Bold\Italic then your macro won't find anything.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/