VB-Script to convert word tables to wiki format
Based on http://www.homeopathy.at/wiki/index.php?title=Word2Wiki&redirect=no
<pre> Sub WordTabelleNachZweidimensionalenArray1()
- Dim x() As String, r As Range, i As Long, j As Long, k As Long, l As Long, s As String Dim oTable As Table, Zeile As Row, Zelle As Cell, strText As String
If ActiveDocument.Tables.Count = 0 Then
MsgBox "Das Dokument enthält keine Tabelle.", vbInformation Exit Sub
For Each oTable In ActiveDocument.Tables 'Set oTable = ActiveDocument.Tables(1)
ReDim x(1 To oTable.Rows.Count, 1 To oTable.Columns.Count) i = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll For Each Zeile In oTable.Rows
- i = i + 1 j = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll For Each Zelle In Zeile.Cells
- j = j + 1 strText = Zelle.Range.Text
- x(i, j) = Left(strText, Len(strText) - 2)
- j = j + 1 strText = Zelle.Range.Text
Set r = ActiveDocument.Range r.InsertParagraphAfter r.InsertAfter ("{| Border=1") r.InsertParagraphAfter For k = 1 To i 'Zeilen
- For l = 1 To j 'die Spalten
r.InsertAfter "|" + x(k, l) r.InsertParagraphAfter
r.InsertAfter "|-" r.InsertParagraphAfter
r.InsertAfter ("|}") r.InsertParagraphAfter
- i = i + 1 j = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll For Each Zelle In Zeile.Cells
Next oTable End Sub </pre>
