thdltools
/
VBAProjects
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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.

This commit is contained in:
thangarson 2004-08-11 21:29:38 +00:00
parent 6b999b177b
commit 73951666e0
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
WordToXML/ItalicOptions.frm
View File

@ -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"

BIN
WordToXML/ItalicOptions.frx
View File

Binary file not shown.

9
WordToXML/NewMacros.bas
View File

@ -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