Gerade ein Reh überfahren. Muss das erstmal verarbeiten. (Dieter, 57, Metzger)

Boah, wie schrecklich: eine Tabelle in Word (in der Kopfzeile) soll bearbeitet werden: in einer Zelle sitzt ein Bild – das soll gelöscht werden.

Mit dem VBA-Befehl Cells kann man in der Form Cells(1,1) auf die einzelnen Zellen zugreifen. Jedoch: sind Zellen verbunden, dann liefert beispielsweise Cells(2,2) ein Fehler, weil diese Zelle nicht vorhanden ist!

On Error Resume Next

Set wdDatei = wdApp.Documents.Open(Datei)


For i = 1 To wdDatei.Sections.Count


    For j = 1 To wdKopf.Range.Tables.Count
        Set wdTabelle = wdKopf.Range.Tables(j)

        intZeilenAnzahl = wdTabelle.Rows.Count
        intSpaltenAnzahl = wdTabelle.Columns.Count

        For intZeile = 1 To intZeilenAnzahl
            For intSpalte = 1 To intSpaltenAnzahl
                If wdTabelle.Cell(intZeile, intSpalte).Range.InlineShapes.Count > 0 Then
                    Set wdMyRange = wdTabelle.Cell(intZeile, intSpalte).Range.InlineShapes(1).Range

                    wdTabelle.Cell(intZeile, intSpalte).Range.InlineShapes(1).Delete

                End If
            Next intSpalte
        Next intZeile

    Next j