css angaben in Visual Basic Makro für word
Verfasst: 18.09.2011, 19:12
Hallo an alle,
ich habe hier ein Stück VB Makro
welche mir word in wikiformat überführt.
ich möchte gerne css angaben dort rein haben, so das diese automatisch mitkonvertiert werden
hier die stelle:
Das zwischen <b> </b> hätte ich gerne funktionsfähig, das funktioniert aber nicht, wegen den ". in php kann man das durch die nutzung von ' ausgleichen-ich hab aber noch nichts passendes für VB gefunden.
ich habe hier ein Stück VB Makro
welche mir word in wikiformat überführt.
ich möchte gerne css angaben dort rein haben, so das diese automatisch mitkonvertiert werden
hier die stelle:
Das zwischen <b> </b> hätte ich gerne funktionsfähig, das funktioniert aber nicht, wegen den ". in php kann man das durch die nutzung von ' ausgleichen-ich hab aber noch nichts passendes für VB gefunden.
Code: Alles auswählen
For Each tTable In ActiveDocument.Tables
'Memorize table text
ReDim x(1 To tTable.Rows.Count, 1 To tTable.Columns.Count)
i = 0
For Each tRow In tTable.Rows
i = i + 1
j = 0
For Each tCell In tRow.Cells
j = j + 1
strText = tCell.Range.Text
x(i, j) = Left(strText, Len(strText) - 2)
Next tCell
Next tRow
'Delete table and position after table
Set myRange = tTable.Range
myRange.Collapse Direction:=wdCollapseEnd
tTable.Delete
'Rewrite table with memorized text
myRange.InsertParagraphAfter
myRange.InsertAfter ("{| [b]class="wikitable sortable zebra"
|- class="hintergrundfarbe5"[/b]")
myRange.InsertParagraphAfter
For k = 1 To i
For l = 1 To j
myRange.InsertAfter " || " + x(k, l)
Next l
myRange.InsertParagraphAfter
myRange.InsertAfter "|- [b]align="right"
| align="left"[/b]"
myRange.InsertParagraphAfter
Next k
myRange.InsertAfter ("|}")
myRange.InsertParagraphAfter
Next tTable