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.

Browse source
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 ClientLeft = 30
ClientTop = 480 ClientTop = 480
ClientWidth = 7125 ClientWidth = 7125
OleObjectBlob = "ItalicOptions062504.frx":0000 OleObjectBlob = "ItalicOptions080204.frx":0000
StartUpPosition = 1 'CenterOwner StartUpPosition = 1 'CenterOwner
End End
Attribute VB_Name = "ItalicOptions" 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 If InStr(outStr, "HYPERLINK") Then
sInd = InStr(outStr, "HYPERLINK") sInd = InStr(outStr, "HYPERLINK")
hind = InStr(outStr, "http") hind = InStr(outStr, "http")
eInd = InStr(hind, outStr, """") If hind = 0 Then hind = InStr(outStr, """")
linkURL = Mid(outStr, hind, eInd - hind) If Not hind = 0 Then
outStr = "<xref n=""" & linkURL & """>" & Mid(outStr, (eInd + 2)) & "</xref>" eInd = InStr(hind, outStr, """")
linkURL = Mid(outStr, hind, eInd - hind)
outStr = "<xref n=""" & linkURL & """>" & Mid(outStr, (eInd + 2)) & "</xref>"
End If
End If End If
iterateRange = outStr & closeTag iterateRange = outStr & closeTag
End Function End Function