Option Explicit
Sub Test()
Dim objTof As Word.TableOfFigures
For Each objTof In ThisDocument.TablesOfFigures
If objTof.Caption = GetBuildInCaptionLabel(wdCaptionFigure) Then
Debug.Print "'"; objTof.Caption; "' listet Abbildungen auf. (Range: " & objTof.Range.Start & ", " & objTof.Range.End & ")"
ElseIf objTof.Caption = GetBuildInCaptionLabel(wdCaptionTable) Then
Debug.Print "'"; objTof.Caption; "' listet Tabellen auf. (Range: " & objTof.Range.Start & ", " & objTof.Range.End & ")"
Else
Debug.Print "'"; objTof.Caption; "' listet Sonstiges/Benutzerdefiniertes auf. (Range: " & objTof.Range.Start & "," & objTof.Range.End & ")"
End If
Next
End Sub
Private Function GetBuildInCaptionLabel(ID As WdCaptionLabelID) As String
Dim objCaptionLabel As Word.CaptionLabel
For Each objCaptionLabel In CaptionLabels
If objCaptionLabel.ID = ID Then
GetBuildInCaptionLabel = objCaptionLabel.Name
Exit Function
End If
Next
End Function
Funktioniert unabhängig der eingestellten Sprache.
PS: Das ganze habe ich mir in 15min aus der Dokumentation zusammen gelesen.
|