Zdravím všetkých znalcov VB
Potreboval by som pomoc. Nižšie je uvedené makro, ktoré v texte MS Word 2003 vyhľadá zoznamy (či už číslované, bulleted alebo outlined) a upraví ich na čistý text s formátovacími tagmi (použiteľnými v tomto prípade v redakčnom systéme Drupal). Viem si poradiť s obyčajným zoznamom, ktorý nie je vnorený. Ak je ale vnorený, neviem to zatiaľ vyriešiť.
Výsledný text po aplikovaní makra by mal vyzerať takto:
Kód:
<OL TYPE="1">
<LI>List Item 1
<OL TYPE="a">
<LI>Nested List Item 1
<LI>Nested List Item 2
</OL>
<LI>List Item 2
<UL>
<LI>Nested List Item 1</UL>
<LI>List Item 3
<LI>List Item 4
</OL>
Tu je makro, ktoré je upravené z makra Word2MediaWiki:
Kód:
Private Sub ConvertLists()
Dim zoznam As List
For Each zoznam In ActiveDocument.Lists
With zoznam.Range
If .ListFormat.ListType = wdListBullet Then
.InsertAfter "</ul>"
Else
.InsertAfter "</ol>"
End If
End With
Next zoznam
Dim para As Paragraph
For Each para In ActiveDocument.ListParagraphs
With para.Range
For i = 1 To .ListFormat.ListLevelNumber
.InsertBefore "<li>"
.InsertAfter "</li>"
Next i
End With
Next para
For Each zoznam In ActiveDocument.Lists
With zoznam.Range
If .ListFormat.ListType = wdListBullet Then
.InsertBefore "<ul>"
Else
.InsertBefore "<ol>"
End If
.ListFormat.RemoveNumbers
End With
Next zoznam
End Sub
Ak mi viete nejako pomôcť, bol by som rád.
Vďaka!
Joe
