How do I differentiate between two directories in Word VBA?

Hello everyone,


the following code is part of a longer macro:

Code:

---

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

Welcome to the VBAX forum Jonas. When suppling code with your post, please wrap the code with code tags. Either highlight your code and then select the # icon or conversely, select the # icon and then insert your code between the tags.

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.