diff --git a/WordToXML/ItalicOptions.frm b/WordToXML/ItalicOptions.frm
index bea8b87..badc4c0 100644
--- a/WordToXML/ItalicOptions.frm
+++ b/WordToXML/ItalicOptions.frm
@@ -5,7 +5,7 @@ Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ItalicOptions
    ClientLeft      =   30
    ClientTop       =   480
    ClientWidth     =   7125
-   OleObjectBlob   =   "ItalicOptions043004.frx":0000
+   OleObjectBlob   =   "ItalicOptions052604.frx":0000
    StartUpPosition =   1  'CenterOwner
 End
 Attribute VB_Name = "ItalicOptions"
diff --git a/WordToXML/ItalicOptions.frx b/WordToXML/ItalicOptions.frx
index 62ac822..5454b30 100644
Binary files a/WordToXML/ItalicOptions.frx and b/WordToXML/ItalicOptions.frx differ
diff --git a/WordToXML/NewMacros.bas b/WordToXML/NewMacros.bas
index df1f838..dc8a440 100644
--- a/WordToXML/NewMacros.bas
+++ b/WordToXML/NewMacros.bas
@@ -412,6 +412,14 @@ Function iterateRange(ByVal rng)
             
         ElseIf char1.Style = "Footnote Reference,fr" Then
             outStr = outStr & "<note>" & iterateNote(char1.Footnotes(1).Range) & "</note>"
+            
+        ElseIf char1.Style = "Hyperlink,hl" Then
+            textToDis = char1.Hyperlinks(1).TextToDisplay
+            outStr = Left(outStr, Len(outStr) - (14 + Len(textToDis)))
+            outStr = outStr & "<a href=""" & char1.Hyperlinks(1).Address & """>" _
+                & textToDis & "</a>"
+            n = n + Len(textToDis)
+            
         Else:
             If char1.Style = currStyle Then
                 outStr = outStr & char1.Text
@@ -453,6 +461,13 @@ Function iterateNote(ByVal rng As Range)
             End If
             outStr = outStr & char1.Text
             
+        ElseIf char1.Style = "Hyperlink,hl" Then
+            textToDis = char1.Hyperlinks(1).TextToDisplay
+            outStr = Left(outStr, Len(outStr) - 1)
+            outStr = outStr & "<a href=""" & char1.Hyperlinks(1).Address & """>" _
+                & textToDis & "</a>"
+            ct = ct + Len(textToDis) - 2
+            
         Else:
             If char1.Style = currStyle Then
                 outStr = outStr & char1.Text
@@ -861,6 +876,7 @@ Function isCharStyle(ByVal rng As Range) As Boolean
 
     If StyleName = "Emphasis Weak,ew" Or _
         StyleName = "Annotations,an" Or _
+        StyleName = "Hyperlink,hl" Or _
         StyleName = "Lang Tibetan,tib" Or _
         StyleName = "Lang Sanskrit,san" Or _
         StyleName = "Lang Chinese,chi" Or _