Table Caption Deletion

[tyang01]

Hi I was wondering if there is a way to automate deletion of table and figure captions?

I've tried:

Selection = ActiveDocument.TablesOfFigures(2)
Selection.Delete

and other alternatives if you have any suggestions please let me know.

Thanks.

 

[tyang01]

This is in MS Word 2003.

 

[fumei]

Table and Figues Captions has no direct relation to the table and figures they caption. They are simply paragraphs in a specific ("Caption") style.

Selection = ActiveDocument.TablesOfFigures(2)

That is an interesting line of code. Could you elaborate?

Are looking to delete the actual paragraph lines "Table 1", "Figure 2" etc.? Or are you trying to delete a Table of Figures?

If you are trying to do the former, then:

Sub RemoveCaptions()
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
   If oPara.Style = "Caption" Then
      oPara.Range.Delete
   End If
Next
End Sub

does that.

BTW: as you seem to be posting this as a code question, please post to the VBA forum.

Gerry