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![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
Danke im Vorraus
ich möchte eine Tabelle in einer Tabelle auslesen
Diese sieht dann so aus:
![](/img-proxy-lite.php?url=http://img804.imageshack.us/img804/4831/tabelled.png)
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
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
Danke im Vorraus