This revision is from 06-14-04. All changes primarily to the NewMacros code.

WordToXML/ItalicOptions.frm

@@ -5,7 +5,7 @@ Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ItalicOptions
    ClientLeft      =   30
    ClientTop       =   480
    ClientWidth     =   7125
-   OleObjectBlob   =   "ItalicOptions061104.frx":0000
+   OleObjectBlob   =   "ItalicOptions061404.frx":0000
    StartUpPosition =   1  'CenterOwner
 End
 Attribute VB_Name = "ItalicOptions"

WordToXML/NewMacros.bas

@@ -111,7 +111,37 @@ Attribute convert.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.Macro1"
     For n = 0 To c
         Selection.TypeText Text:=outDoc(n)
     Next n
-
+        Selection.Find.ClearFormatting
+    Selection.Find.Replacement.ClearFormatting
+    With Selection.Find
+        .Text = "&"
+        .Replacement.Text = "&"
+        .Forward = True
+        .Wrap = wdFindContinue
+        .Format = False
+        .MatchCase = False
+        .MatchWholeWord = False
+        .MatchWildcards = False
+        .MatchSoundsLike = False
+        .MatchAllWordForms = False
+    End With
+    Selection.Find.Execute Replace:=wdReplaceAll
+    Selection.Find.ClearFormatting
+    Selection.Find.Replacement.ClearFormatting
+    With Selection.Find
+        .Text = "&"
+        .Replacement.Text = "&"
+        .Forward = True
+        .Wrap = wdFindContinue
+        .Format = False
+        .MatchCase = False
+        .MatchWholeWord = False
+        .MatchWildcards = False
+        .MatchSoundsLike = False
+        .MatchAllWordForms = False
+    End With
+    Selection.Find.Execute Replace:=wdReplaceAll
+    MsgBox ("Conversion Done! Paste contents of new document into XML editor.")
     
 End Sub
 Sub doHeaders()
@@ -415,9 +445,10 @@ Function iterateRange(ByVal rng)
             
         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>"
+            leftPt = InStr(outStr, " HYPERLINK") - 1
+            outStr = Left(outStr, leftPt)
+            outStr = outStr & "<xref n=""" & char1.Hyperlinks(1).Address & """>" _
+                & textToDis & "</xref>"
             n = n + Len(textToDis)
             
         Else:
@@ -439,6 +470,13 @@ Function iterateRange(ByVal rng)
             Application.StatusBar = statusStr
         End If
     Next n
+    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>"
+    End If
     iterateRange = outStr & closeTag
 End Function
 Function iterateNote(ByVal rng As Range)
@@ -463,9 +501,10 @@ Function iterateNote(ByVal rng As Range)
             
         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>"
+            leftPt = InStr(outStr, " HYPERLINK") - 1
+            outStr = Left(outStr, leftPt)
+            outStr = outStr & "<xref n=""" & char1.Hyperlinks(1).Address & """>" _
+                & textToDis & "</xref>"
             ct = ct + Len(textToDis) - 2
             
         Else: