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

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

Browse source
This commit is contained in:
thangarson 2004-08-11 21:28:24 +00:00
parent d7605e3538
commit 6b999b177b
3 changed files with 4 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 = "ItalicOptions062304.frx":0000 OleObjectBlob = "ItalicOptions062504.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.

6
WordToXML/NewMacros.bas
View file

@ -445,8 +445,8 @@ Function iterateRange(ByVal rng)
ElseIf char1.Style = "Hyperlink,hl" Then ElseIf char1.Style = "Hyperlink,hl" Then
textToDis = char1.Hyperlinks(1).TextToDisplay textToDis = char1.Hyperlinks(1).TextToDisplay
leftPt = InStr(outStr, " HYPERLINK") - 1 leftPt = InStr(outStr, "HYPERLINK") - 1
outStr = Left(outStr, leftPt) If leftPt > 0 Then outStr = Left(outStr, leftPt)
outStr = outStr & "<xref n=""" & char1.Hyperlinks(1).Address & """>" _ outStr = outStr & "<xref n=""" & char1.Hyperlinks(1).Address & """>" _
& textToDis & "</xref>" & textToDis & "</xref>"
n = n + Len(textToDis) n = n + Len(textToDis)
@ -471,7 +471,7 @@ Function iterateRange(ByVal rng)
End If End If
Next n Next n
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, """") eInd = InStr(hind, outStr, """")
linkURL = Mid(outStr, hind, eInd - hind) linkURL = Mid(outStr, hind, eInd - hind)