From 73951666e09901396c60f09e4d69869536679fa5 Mon Sep 17 00:00:00 2001
From: thangarson <thangarson>
Date: Wed, 11 Aug 2004 21:29:38 +0000
Subject: [PATCH] This revision is from 08-02-04. All changes primarily to the
 NewMacros code. This represents the code for the latest version of the Word
 to XML converter.

---
 WordToXML/ItalicOptions.frm |   2 +-
 WordToXML/ItalicOptions.frx | Bin 3096 -> 3096 bytes
 WordToXML/NewMacros.bas     |   9 ++++++---
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/WordToXML/ItalicOptions.frm b/WordToXML/ItalicOptions.frm
index d368d1d..014c0bc 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   =   "ItalicOptions062504.frx":0000
+   OleObjectBlob   =   "ItalicOptions080204.frx":0000
    StartUpPosition =   1  'CenterOwner
 End
 Attribute VB_Name = "ItalicOptions"
diff --git a/WordToXML/ItalicOptions.frx b/WordToXML/ItalicOptions.frx
index a669aa5844d46d5fb0fe27db0ca2b4100209c967..d6b40ca383e45fd8fa3c8628f51e5bbde3989054 100644
GIT binary patch
delta 32
ncmbOsF+*ZQ3k%Bx|Bu@?cd*#8Fr_h0KEdGxq&D+#@-PDcz#$3p

delta 32
ncmbOsF+*ZQ3kwT_#;oO=J6P;km|k#9KEdGxq&D+#@-PDcv6>0z

diff --git a/WordToXML/NewMacros.bas b/WordToXML/NewMacros.bas
index 7c2c365..f8ceb04 100644
--- a/WordToXML/NewMacros.bas
+++ b/WordToXML/NewMacros.bas
@@ -473,9 +473,12 @@ Function iterateRange(ByVal rng)
     If InStr(outStr, "HYPERLINK") Then
         sInd = InStr(outStr, "HYPERLINK")
         hind = InStr(outStr, "http")
-        eInd = InStr(hind, outStr, """")
-        linkURL = Mid(outStr, hind, eInd - hind)
-        outStr = "<xref n=""" & linkURL & """>" & Mid(outStr, (eInd + 2)) & "</xref>"
+        If hind = 0 Then hind = InStr(outStr, """")
+        If Not hind = 0 Then
+            eInd = InStr(hind, outStr, """")
+            linkURL = Mid(outStr, hind, eInd - hind)
+            outStr = "<xref n=""" & linkURL & """>" & Mid(outStr, (eInd + 2)) & "</xref>"
+        End If
     End If
     iterateRange = outStr & closeTag
 End Function