Search:

• Login

• RecentChanges
• FindPage
• HelpContents
• Word2Wiki

• Immutable Page
• Info
• Attachments
• More Actions: Raw Text Print View Render as Docbook Delete Cache ------------ Check Spelling Like Pages Local Site Map ------------ Rename Page Delete Page ------------ My Pages Subscribe User ------------ Remove Spam Package Pages

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

  End If

  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)
      Next Zelle
    Next Zeile

    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

      Next

      r.InsertAfter "|-" r.InsertParagraphAfter

    Next

    r.InsertAfter ("|}") r.InsertParagraphAfter

Next oTable End Sub </pre>

HelpersCategory