Hallo
ich möchte eine Tabelle in einer Tabelle auslesen
Diese sieht dann so aus:
Ich möchte jetzt die Daten aus der Zelle 2,2 als Tabelle auslesen
Den ich muss die Strings aus 2,2-1,1 2,2-1,2 und 2,2-1,3 auslesen können und muss in 2,2-2,1 ein Bild einfügen können
Bis jetzt sieht der Code für einfache Tabellen so aus:
Hat vielleicht jmd ne Idee wie ich mit der Tabelle in der Tabelle arbeiten kann?
Bin für jede Hilfestellung dankbar
Danke im Vorraus
ich möchte eine Tabelle in einer Tabelle auslesen
Diese sieht dann so aus:
Ich möchte jetzt die Daten aus der Zelle 2,2 als Tabelle auslesen
Den ich muss die Strings aus 2,2-1,1 2,2-1,2 und 2,2-1,3 auslesen können und muss in 2,2-2,1 ein Bild einfügen können
Bis jetzt sieht der Code für einfache Tabellen so aus:
Visual Basic-Quellcode
- Private Sub SearchInTabel(ByRef actTabel As Microsoft.Office.Interop.Word.Table)
- Dim helpTabel As Microsoft.Office.Interop.Word.Table
- For i = 1 To actTabel.Rows.Count
- For j = 1 To actTabel.Columns.Count
- Try
- If actTabel.Cell(i, j).Range.Text.Contains("KEYWORD") Then
- If (actTabel.Cell(i, j + 2).Range.Text.Contains("{") _
- And actTabel.Cell(i, j + 2).Range.Text.Contains("}")) Then 'Nur ausführen wenn auch der richtige string im Feld 2 weiter steht
- If (actTabel.Cell(i, j + 1).Range.Text.Contains(strNOTE)) Then
- PutNoteInTabel(actTabel)
- ElseIf (actTabel.Cell(i, j + 1).Range.Text.Contains(strDIAGRAM)) Then
- PutPicInTabel(actTabel)
- End If
- End If
- End If
- Catch ex As System.Runtime.InteropServices.COMException
- Try
- helpTabel = actTabel.Cell(i, j) ' <- Das hier geht nicht und wirft eine Cast Exception aus
- ' aber mir ist nix besseres eingefallen wie ich es lösen soll -.-
- SearchInTabel(helpTabel) ' und so hatte ichs mir dann eigentlich gedacht per Rekursion weiter zu suchen
- Catch ex2 As Exception
- End Try
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- Next
- Next
- End Sub
Hat vielleicht jmd ne Idee wie ich mit der Tabelle in der Tabelle arbeiten kann?
Bin für jede Hilfestellung dankbar
Danke im Vorraus