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

This revision is from 05-26-04

This commit is contained in:
thangarson 2004-08-11 21:24:10 +00:00
parent 85732a1707
commit 80bec761e0
3 changed files with 17 additions and 1 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 = "ItalicOptions043004.frx":0000
OleObjectBlob = "ItalicOptions052604.frx":0000
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "ItalicOptions"

BIN
WordToXML/ItalicOptions.frx
View File

Binary file not shown.

16
WordToXML/NewMacros.bas
View File

@ -412,6 +412,14 @@ Function iterateRange(ByVal rng)
ElseIf char1.Style = "Footnote Reference,fr" Then
outStr = outStr & "<note>" & iterateNote(char1.Footnotes(1).Range) & "</note>"
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>"
n = n + Len(textToDis)
Else:
If char1.Style = currStyle Then
outStr = outStr & char1.Text
@ -453,6 +461,13 @@ Function iterateNote(ByVal rng As Range)
End If
outStr = outStr & char1.Text
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>"
ct = ct + Len(textToDis) - 2
Else:
If char1.Style = currStyle Then
outStr = outStr & char1.Text
@ -861,6 +876,7 @@ Function isCharStyle(ByVal rng As Range) As Boolean
If StyleName = "Emphasis Weak,ew" Or _
StyleName = "Annotations,an" Or _
StyleName = "Hyperlink,hl" Or _
StyleName = "Lang Tibetan,tib" Or _
StyleName = "Lang Sanskrit,san" Or _
StyleName = "Lang Chinese,chi" Or _