Convert CHM ke Word Document

Sejauh ini, software yang paling baik dan tersedia cracknya:
Softany CHM to Doc Converter 2.01

Pas waktu mau ngeprint hasil konversinya, sepertinya sayang jika print index-nya, sedangkan index tidak dilengkapi dengan informasi halaman. Akhirnya buat macro word untuk menambahkan informasi halaman di samping index.


Sub halamanHyp()
Dim oHyp As Hyperlink
Dim sAddr As String
Dim oRg As Range

With ActiveDocument
For Each oHyp In .Hyperlinks
On Error Resume Next
'cari nama bookmark dari nama hyperlink
nameHyp = oHyp.Name
.Bookmarks(nameHyp).Select
oPage = Selection.Information(wdActiveEndPageNumber)

If InStr(1, nameHyp, "index", vbTextCompare) > 0 Then
Set oRg = oHyp.Range
oRg.Collapse wdCollapseEnd
sAddr = " (" & oPage & ")"
oRg.Text = sAddr
End If
Next
End With
End Sub