From 80bec761e02c737ee477de0cf45a914dd163c187 Mon Sep 17 00:00:00 2001
From: thangarson <thangarson>
Date: Wed, 11 Aug 2004 21:24:10 +0000
Subject: [PATCH] This revision is from 05-26-04

---
 WordToXML/ItalicOptions.frm |   2 +-
 WordToXML/ItalicOptions.frx | Bin 3096 -> 3096 bytes
 WordToXML/NewMacros.bas     |  16 ++++++++++++++++
 3 files changed, 17 insertions(+), 1 deletion(-)

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 62ac8221d69346370901f5d5b8b71bcbc6b94579..5454b303058089a0229ba2ecadf4e98828f70b99 100644
GIT binary patch
delta 38
tcmbOsF+*ZQ3k%DJqth)ncd)!-X5^S$%n{6#%{ci4hZB(6%)`mU3;+vK3(x=n

delta 38
tcmbOsF+*ZQ3k!<^_imNV9W1Yy85t)Ra|AOz=a_tg!wE=j=HcXF1_1Fd3zPr=

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 _