formatdk; * Converts first tab or NL in a start-definition paragraphdk: to ... . (controlled by the value of "Break Tag"dk in the table.dk TODO:dk4 * Find out what the right header tag is for author.dkE One authoring tool used "", butplit into at the first tab, if there is one, or at the first NL. The Break Tag column tells what tag to use at the break.
The value none is required to indicate a null value (). For some reason, selecting an empty cell in Word Basic produces a weird value (or two), instead of a null string.
To see the conversion as it happens, open this template first and make it real small. Then the accesses to the table wont keep putting this template in front of the document where it obscures the processing.
Text formatting is automatically converted to logical tags by the macro: Bold text is converted to Italic text is converted to Striketrhough is converted to
Special characters <, >, ", and & are converted to HTML literals (ex: "<" => "<") UNLESS they are in italics. That allows HTML controls to be embedded in the file, but they must be italicized. THIS ALSO APPLIES TO THE QUOTES. For example, in linkText, the quotes must be italicized as well.
FILENAME \* Lower\p \* MERGEFORMAT c:\eric\maclib\doc2html.dot SAVEDATE \@ "d-MMM-yy" \* MERGEFORMAT 21-Mar-96 Page PAGE \* MERGEFORMAT 2 of NUMPAGES \* MERGEFORMAT 2 Eric Armstrong Revision # REVNUM \* MERGEFORMAT 50
/= dk
DOC2HTML:dk# Creates a file called "XXXX.htm".dk; Where "XXXX" is the name of the currently active document.dk USAGE NOTESdk< * Things are easier to see if you open up this template anddk$ reduce it to a very small windowdk * To close the .HTM file:dk! 1. From File menu, choose CLOSEdk 2. Choose "Save changes YES" dk( 3. Choose "Text Only with Line Breaks"dk* 4. Unless particular spacing is desired,dk. a lot of documents should convert cleanlydk in a single pass.dk
FEATURES:dk/ * Creates basic HTML structure (header & body)dk) * Creates HTML header information using:dk5 * Document properties Title & Author, if they existdk3 * Or using Title/Byline paragraphs, if they existdk; * Uses paragraph styles to create logical HTML format tagsdk@ * Table-driven conversion using editable table in this templatedk: * If paragraph has BorderTop() true, its preceded by
dk2 * Handles nested lists. Indents to show nesting.dk * Convert NL's to breaksdk1 * Convert non-heading bold & italic text styles dk (to logical format tags)dk. * Convert strikethrough text to formatdk; * Converts first tab or NL in a start-definition paragraphdk: to ... . (controlled by the value of "Break Tag"dk in the table.dk TODO:dk4 * Find out what the right header tag is for author.dkE One authoring tool used "", but Netscape is displaying it.dk7 * Convert contained bmp files to Gif files and includedk * Convert tablesdk8 * Convert help file bitmap references to gif referencesdk$ and convert bmp files to Gif filesdk* * Convert help file links to HTML anchorsdkB * Read "addSpaceLimit" and text-substitution values from templatedk' (at the moment, they are hard-coded)dk RESTRICTIONS:dk< * A bug in Word prevents reading the Property sheet for thedkB Author value. For some reason, the reference to "stats.Author"dkA fails, even though the to reference to "stats.Title" succeeds.dkB (stats is the DocumentStatistics record). Workaround is to usedk4 the .LastSavedBy value, which is usually correct.dd/0istats4gN d/0i workWindow$d/0iconversionTableFile$d/0iconversionWindow$d/0i specialTag$d/0i startTag$d/0iendTag$d/0i listLeveld/0i
listStartTag$d/0i listEndTag$d/0i
listTagStack$l d/0i breakTag$d/0iindent$Rk Indent for nested listsd/0i
addSpaceLimitdRk8 If paragraph's space-before value is greater than this,dRk9 Then add and extra line for spacing. (Using 5, for now)ddiInitdk Setup output filedicurrDir$ idocDir$d icurrDir$ j dRg+j&Current document has not been saved. gl
rdonj/Please save it and make sure that DOC2HTML.DOT rdonjis in the same directory.dRgGl dTdifn$ idocName$di firstWindow$ g;d gD l gDl Rk go to Window statedidWidth gdidHeight gdidLeft gFdidTop gEddk Open conversion tablediconversionTableFile$ i
templatePath$dgP s iconversionTableFile$sU l dRk* .ReadOnly = 1 was a nice idea, but becamedRk5 a nuisance -- cannot easily edit the table and retrydiconversionWindow$ g;dgl
lH dglH Rk 72 points, 1 inchdg2idLeftl
idTopidHeightl k Underneath work windowddk Save HTM versiondgbi firstWindow$di pathname$ icurrDir$j\ifn$j.htmdgT s i pathname$s l dg2idLeftl
idTopl di workWindow$ g;ddk Re-open the original filedgP s icurrDir$j\ifn$j.docdg3idWidthidHeightdg2idLeftidTopdgbi workWindow$ddk' Set up a style tag for processed linesdiindent$ j Rk 4 space indent for nested listsdi
addSpaceLimit l di specialTag$ jHTMLdg s i specialTag$s{ jNormals, dg s l s l rdRs l sD l dg s( l s# l s' l rdRs l s l s l rdRs] l s; l s$ l s% l ddddiMAINdiGetStatsdiInitddi ProcessTextRk/ Before adding structure, to handle "<" and ">"di
IndentCodediFixSectionBreaksdiAddStartStructurediProcessParagraphsdiProcessGraphicsdiAddEndStructurediCleanUpSpacingdiEraseHeaderFooterInfoddk) Leave the newly converted file open opendk- Leave conversion table open for adjustments.dk Activate conversionWindow$dk FileClose 2ddddiCleanUpSpacingdk PRETTY PRINTINGdk; List Continue styles (endList tag="NoChg") have addeddk< when they are not already part of a list. This makes extradk3 spacing, because they also start with
or .dk This routine cleans that up.dkA Look for
followed by paragraph mark (^p) and
(or ).dk2 --Also allow for indentation (whitespace or ^w) dk before the
or
.dk. (This fast fix messes up the indentation.)di
SpecialFixj
^p
jRk search string, what to insertdi
SpecialFixj ^p^w
jdi
SpecialFixj ^pj
di
SpecialFixj ^p^wj
di
SpecialFixj ^p
jk --fix
sequencesddk/ Any
^p combinations remaining are spacers.dk5 But
won't work after an
- . Replace with
dgu s j
^pRs j
^psrdRs l s l rdRs l s l s l rdRs l s} l ddiAddSpacingLinesddddiAddSpacingLinesdk* Add a para break before & after a
tagdgdgp s j
s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRgdRg d"ddk# Add a para break after a
tagdgdgp s js l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRgdRg d"ddkB Add a para break before a heading tag .. or dgdgp s j \]s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk+ Add a para break before a tagdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddddi
SpecialFixis$ir$dk: This routine takes into account the special case when thedk9
or is followed by a paragraph mark, rather thandk2 text. In that case, leave it -- its for spacing.dk; It expects the search string to end with a paragraph mark,dk; and inserts one after the replacement (can't insert "^p"!)dgdgp s is$s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj\seljtempdRgdR gg
l
dok0 Not at a paragraph mark. This is not a spacer.dok# Remove it, but preserve whitespacedogz jtempdogp s j^wRk! Find whitespace in the selectiondo g׀ dogm ok Save whitespacedogz jtempRk Replace original selection,dogir$ok removing the
or
tagdogdogn ok Reinsert whitespacedo dogir$dogdoTdRTdRgp s is$s l s l rdos l s l s l rdos l s} l d"ddddi ProcessTextdRk Process Special CharactersdRdRk" TURN OFF SUBSTITUTIONS IN ITALICSdRk/ THAT MEANS HTML CAN BE EMBEDDED, IF ITALICIZEDdRgt dRgq s% l dRdRk ampersand-&dRi
FixNonCodej&j&dRdRk dRi
FixNonCodej>j>dRdRk quote-"dRi
FixNonCodegl" j"dRdRk Non-breaking spacedRi
FixNonCodej^sj dRdRk+ Process Bold, Italic, & Strikethrough TextdRiCleanParagraphMarksRk* Remove char formatting in paragraph marksdRgt dRgq s$ l dRiFixNonHeadingTextjj dRgt dRgq s% l dRiFixNonHeadingTextjjdRgt dRgq s l dRiFixNonHeadingTextjjddddiProcessGraphicsdRgdRk Search For graphicsdRgp s j^gs l s l rdos l s l s l rdos l s} l dR!g׀dog dR"ddddiCleanParagraphMarksdRk1 Remove font characteristics from paragraph marksdRgt dRgy dRgv s( l s# l rdos l s l s l rdos' l s] l s; l rdos$ l s% l dRgu s j^ps j^psrdos l s l rdos l s l s l rdos l s} l ddddiFixSectionBreaksdgdgp s j^bs l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRiAddLinej^pdRg d"ddddi
FixNonCodeiold$inew$dk- Do the conversion, except in Code paragraphsdgdgp s iold$s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR gis$l
jCode doginew$dRTdRg d"ddddiFixNonHeadingTextibeginIt$iendIt$dk9 Do the conversion, except in Heading or Title paragraphsdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR ngis$l
jHeadingrdRgis$l
jTitle dogj \EndOfSeljEndPointdog.dogz j \StartOfSeldog.Rk' In case there is something ahead of usdogibeginIt$dogz jEndPointdog s jEndPoints dok% Necessary to fix Word bug. Where itdok" finds the bookmark as bold, next.dog.dogiendIt$dRTdRg d"ddddiProcessParagraphsdgdi
laststartTag$ j di lastEndTag$ j di
lastListLevel l d!g܁dR g" jHTML *iNextTagdRdRk Horizontal Rule ProcessingdR g$ l doi AddIndenti listLeveldoiAddLinej
Rk Top Border => Horiz. RuledRTdRi
Style2Tag$dRdRk* Special Title Processing (Title & Title2)dR ni startTag$ i
lastStartTag$rdRiendTag$ j doiAddj
do*iNextTagdRTdRdRk Finish old tagdR i lastEndTag$
j doi AddIndenti
lastListLeveldoiAddLinei lastEndTag$dRTdRdRk List ProcessingdR i listEndTag$ jNoChg dok2 If not already in a list at this level, start onedok, This happens for "List Continue" paragraphsdo ni
listTagStack$i listLevel j doi
listStartTag$ jdoi listEndTag$ j
doi
listTagStack$i listLevel i listEndTag$doTdRTdR i listLeveli
lastListLevel dok Start new listdoi AddIndenti listLeveldoiAddi
listStartTag$dR k listLevel <= lastListLeveldok Close all deeper-level listsdo#ii i
lastListLevel$i listLevell %l doi AddIndentiido i
listTagStack$ii
j doiAddLinei
listTagStack$iidoi
listTagStack$ii j doTdo&iidok> If still in a list, check list type to make sure its the samedo ni listLevel
l rdoi listEndTag$
jNoChgrdoi
listTagStack$i listLevel
i listEndTag$ dok! Close old list and start new onedo i
listTagStack$i listLevel
j doi AddIndenti
lastListLeveldoiAddLinei
listTagStack$i listLeveldoTdo i
listStartTag$
j doi AddIndenti listLeveldoiAddLinei
listStartTag$doTdoi
listTagStack$i listLevel i listEndTag$doTdRTddRk Special Tag ProcessingdR/ipFormat4g dR>ipFormatdRis$ ipFormats ok="3 pt", or "12 pt", etc.dRispaceBef ggis$gis$j l dR ni startTag$ j or
dok) Tag to use depends on space-before valuedo nispaceBefi
addSpaceLimit doi startTag$ j
do doi startTag$ j
doTdRTdR ni startTag$
j
rdRi startTag$
j
dok+ Add an extra line, when needed for leadingdoisn$ g"do nispaceBefi
addSpaceLimitrdogisn$l
jHeadingrdoisn$
jTitlerdoisn$
jTitle2rdoisn$
jSubtitlerdoisn$
jSummary doiAddLinej
doTdRTdR i breakTag$ j
- dok2 Replace first tab or NL in paragraph w/ break tagdogz j\Parank Restrict to curr paragraphdok Replace first tab.dogu s j^ts i breakTag$rdoss l s l rdos l s l s l rdos l s} l do g׀ dok" Tab not found. Replace first NL.dogu s j^ls i breakTag$rdoss l s l rdos l s l s l rdos l s} l doTdok- Return To original position at start of paradogz j\Paradog dRTdRdRk Start new tagdRi AddIndenti listLeveldRiAddi startTag$Rk
Noop if nulldRiConvertNewlinesdeNextTagdRgi specialTag$dRgdRi
lastStartTag$ i startTag$dRi lastEndTag$ iendTag$dRi
lastListLevel i listLeveldR ni listLevell rdRi listEndTag$
jNoChg doi
listTagStack$i listLevel i listEndTag$dRTd"ddddi
IndentCodedRgdRgt dRgs s jCodedRgp s j s l s l rdos l s l s l rdos l s} l dR!g׀dog dogj dogz j\Paradogdogp s j s l s l rdos l s l s l rdos l s} l dR"ddddiConvertNewlinesdis$ j^piIndentSpacing$i listLevelj
dgz j\Paradgu s j^lrdos is$srdos l s l s l rdos l s l s l rdos} l ddddi
Style2Tag$dis$ g"dgbiconversionWindow$dgdg dgp s is$s l s l rdRs l s l s l rdRs l s} l d g׀ dRi startTag$ iGetNextCellVal$dRiendTag$ iGetNextCellVal$dRi listLevel giGetNextCellVal$dRi
listStartTag$ iGetNextCellVal$dRi listEndTag$ iGetNextCellVal$dRi breakTag$ iGetNextCellVal$d dRiresponse g+jUndefined style: is$rdonj. Using default tags. rdonj7To eliminate this message, put an entry in DOC2HTML.DOTrdnjDOC2HTMLl dR iresponse l gGl dRi startTag$ jdRiendTag$ j dRkB Note: Leave current list level and list start/end tags unchanged.dTdeDonedgbi workWindow$dddd iGetNextCellVal$dgπdis$ gd is$ jnone is$ j diGetNextCellVal$ is$d dddiAddStartStructuredgdiAddLinejdiAddLinej
di
ProcessHeaderdiAddLinejdiAddLinej Rk Extra para breakdkAddLine("")diAddLinejddddiAddEndStructuredgdgRk (Don't use AddLine here)ddk Close any open listsd#ii l $l %l dR i
listTagStack$ii
j doi AddIndentiidoiAddLinei
listTagStack$iidoi
listTagStack$ii j dR d&iiddiAddLinejdiAddLinejddddi
ProcessHeaderdiSavePosdit$ i docTitle$dia$ i
docAuthor$di
RestorePosd it$
j iAddLinejit$j dk< Is the right tag? Its showing up in the document,dk' even though its defined in the header.dk8 If a$ <> "" Then AddLine("" + a$ + " ")ddddiAdditag$dgitag$dgi specialTag$ddddiAddLineitag$dk Adds a tag line dk& Does not change existing para's styledgitag$dgdg dgi specialTag$dgddddi AddIndentileveld ilevell dR#ii l $ileveldogiindent$dR&iidTdddd iIndentSpacing$ileveldis$ j d ilevell dR#ii l $ileveldois$ is$iindent$dR&iidTdiIndentSpacing$ is$d dddiGetStatsdgV s.RkUpdate doc statsd>istatsdddd i
docAuthor$dk! Returns name of current documentdk, WORD BUG: "stats.Author" = "undefined fielddk3 EVEN THOUGH: When saving, the syntax is recognizeddk- ("Author" is automatically init-capped)dis$ istatssk Rk Workaroundd is$
j *iDoneddk. Look for "byline" or "Byline" paragraph styledgd gejbyline
j dRgs s jbylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTd gejByline
j dRgs s jBylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTdeDonedi
docAuthor$ is$d ddd i docTitle$dRk! Returns name of current documentdRk Look for title paragraphs(s)dRgdRgs s jTitledRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdRTdRidoit l dR!idoit l dok" Concatenate additional paragraphsdogl Rk Go to next parado g" osoft Word for Windows 95 @ @ ܧ@ `t@ .L_: 5 ՜. +,0 H P \ d l t | # DOCument To HTML Conversion Filter
F Microsoft Word Document
MSWordDoc Word.Document.6 9q Oh +'0 8 D
l x
# DOCument To HTML Conversion Filter D Eric Armstrong O
Doc2html.dot Eric Armstrong 142 Micrh A:1 5 _
$ R "DOCument To HTML Conversion Filter Eric ArmstrongEric Armstrong y Stevenson IDG Books, Foster City
b,Nancy Stevenson IDG Books, Foster City
c)IDG Books, Foster City Michael Koch
l)IDG Books, Foster City Michael Koch
l)IDG Books, Foster City Michael Koch
l-IDG Books, Foster City Forrest Houlette
F-Forrest Houlette IDG Books, Foster City
o,Nancy Stevenson IDG Books, Foster City 7"Nancy Stevenson Michael Koch
l "Nancy Stevenson Michael Koch
l "Nancy Stevenson Michael Koch
l "Nancy Stevenson Michael Koch
l } H G jTitlerdog" jTitle2 dog dog
l dog l l Rk Eliminate the paragraph markdois$ is$j gdoidoit l do doidoit l doTdR"dRgt dRi docTitle$ is$d ddd idocName$dk! Returns name of current documentdis$ istatssg didotIndex gis$j.didocName$ gis$idotIndexl d ddd idocDir$dk6 Returns the directory containing the current documentdidocDir$ istatssh d dddiSavePosdk7 Saves the current position for later use by RestorePosdg jsaveLocs ddddi
RestorePosdk, Returns to the position saved with SavePos.dgz jsaveLocdg jsaveLocs ddddiEraseHeaderFooterInfodgd g
l gNk Go to Header aread gn l gQRk Go to Header areadg dgdgNRk Go to Footer areadg dgdgdddd i
TemplatePath$ditPath$ j disize gl d#ii l $isizedRitp$ gyiil dR gitp$j DOC2HTML.DOT
l doitPath$ itp$do*iDonedRTd&dk4 MsgBox msg$, "Current Global Templates and Add-Ins"d itPath$ j dRg+j4DOC2HTML.DOT needs to be added as a global template.rdoj gl
rdoj"Choose File:Templates, click Add, rdoj and browse for the template.rdogl
rdojThen click OK.dRgGl dTeDonedi
TemplatePath$ itPath$d
g o 5 6 7 8 _ ` i j p q T T &r 5 6 6 6 dw ew * - 6 7 F X Y A Q R S T U V W Z u a uD [ UN ! . : I V ` a f k p r w | 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R l vX # 4 l X vX #
! & + - 2 7 < = E V [ ] b g l m w | 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ l vX # * % * / 0 : ? E G L Q V W \ a f h q x } ~ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ l vX # *
# % * 0 5 6 D I N P U [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j l vX # *r" is automatically init-capped)dis$ istatssk Rk Workaroundd is$
j *iDoneddk. Look for "byline" or "Byline" paragraph styledgd gejbyline
j dRgs s jbylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTd gejByline
j dRgs s jBylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDoܥh W e r j & j & : : : : : ^
@ C = = ^ Î Î Î I < H < X J R
: + ,
: : 8 H : : ~ "`_:N b " : : : : Word Para StyleHTML Start TagHTML End TagList LevelList Start TagList End TagBreak TagHTMLnonenone0nonenonenoneTitle0nonenonenoneSubtitle0nonenonenoneSummary or
" says to use if the paragraph's space-before property is 6 pts or more, and to use
" if it is less than 6 pts. This only applies to non-Heading, non-Title styles.
2 The list levels in the table tell the DOC2HTML macro when to start a new list and when to end an old one.
2bi
2 (Also, take a look at the comments at the top of this file.)
2
macro
2
2 dk
DOC2HTML:dk# Creates a file called "XXXX.htm".dk; Where "XXXX" is the name of the curren&Nancy Stevenson Forrest Houlette
; "Nancy Stevenson Michael Koch
l!,Nancy Stevenson IDG Books, Foster City
o""Nancy Stevenson Michael Koch
l#Tonymck$)IDG Books, Foster City Michael Koch
Z%,Nancy Stevenson IDG Books, Foster City f 3&,Nancy Stevenson IDG Books, Foster City &
'"Nancy Stevenson Michael Koch
("Nancy Stevenson Michael Koch
%)"Nancy Stevenson Michael Koch
5*"Nancy Stevenson Michael Koch
9+"Nancy Stevenson Michael Koch
,"Nancy Stevenson tly active document.dk USAGE NOTESdk< * Things are easier to see if you open up this template anddk$ reduce it to a very small windowdk * To close the .HTM file:dk! 1. From File menu, choose CLOSEdk 2. Choose "Save changes YES" dk( 3. Choose "Text Only with Line Breaks"dk* 4. Unless particular spacing is desired,dk. a lot of documents should convert cleanlydk in a single pass.dk
FEATURES:dk/ * Creates basic HTML structure (header & body)dk) * Creates HTML header information using:dk5 * l
rdonj/Please save it and make sure that DOC2HTML.DOT rdonjis in the same directory.dRgGl dTdifn$ idocName$di firstWindow$ g;d gD l gDl Rk go to Window statedidWidth gdidHeight gdidLeft gFdidTop gEddk Open conversion tablediconversionTableFile$ i
templatePath$dgP s iconversionTableFile$sU l dRk* .ReadOnly = 1 was a nice idea, but becamedRk5 a nuisance -- cannot easily edit the table and retrydiconversionWindow$ g;dgl
lH dglH Rk 72 points, 1 inchdg2idLeftl
idTopidHeightl k Underneath work windowddk Save HTM versiondgbi firstWindow$di pathname$ icurrDir$j\ifn$j.htmdgT s i pathname$s l dg2idLeftl
idTopl di workWindow$ g;ddk Re-open the original filedgP s icurrDir$j\ifn$j.docdg3idWidthidHeightdg2idLeftidTopdgbi workWindow$ddk' Set up a style tag for processed linesdiindent$ j Rk 4 space indent for nested listsdi
addSpaceLimit l di specialTag$ jHTMLdg s i specialTag$s{ jNormals,
dg s l s l rdRs l sD l dg s( l s# l s' l rdRs l s l s l rdRs] l s; l s$ l s% l ddddiMAINdiGetStatsdiInitddi ProcessTextRk/ Before adding structure, to handle "<" and ">"di
IndentCodediFixSectionBreaksdiAddStartStructurediProcessParagraphsdiProcessGraphicsdiAddEndStructurediCleanUpSpacingdiEraseHeaderFooterInfoddk) Leave the newly converted file open opendk- Leave conversion table open for adjustments.dk Activate conversionWindow$dk FileClose 2d D o c u m e n t S u m m a r y I n f o r m a t i o n 8
Netscape is displaying it.dk7 * Convert contained bmp files to Gif files and includedk * Convert tablesdk8 * Convert help file bitmap references to gif referencesdk$ and convert bmp files to Gif filesdk* * Convert help file links to HTML anchorsdkB * Read "addSpaceLimit" and text-substitution values from templatedk' (at the moment, they are hard-coded)dk RESTRICTIONS:dk< * A bug in Word prevents reading the Property sheet for thedkB Author value. For some reason, the reference to "stats.Author"dkA fails, even though the to reference to "stats.Title" succeeds.dkB (stats is the DocumentStatistics record). Workaround is to usedk4 the .LastSavedBy value, which is usually correct.dd/0istats4gN d/0i workWindow$d/0iconversionTableFile$d/0iconversionWindow$d/0i specialTag$d/0i startTag$d/0iendTag$d/0i listLeveld/0i
listStartTag$d/0i listEndTag$d/0i
listTagStack$l d/0i breakTag$d/0iindent$Rk Indent for nested listsd/0i
addSpaceLimitdRk8 If paragraph's space-before value is greater than this,dRDocument properties Title & Author, if they existdk3 * Or using Title/Byline paragraphs, if they existdk; * Uses paragraph styles to create logical HTML format tagsdk@ * Table-driven conversion using editable table in this templatedk: * If paragraph has BorderTop() true, its preceded by
dk2 * Handles nested lists. Indents to show nesting.dk * Convert NL's to breaksdk1 * Convert non-heading bold & italic text styles dk (to logical format tags)dk. * Convert strikethrough text to formatdk; * Converts first tab or NL in a start-definition paragraphdk: to - ...
- . (controlled by the value of "Break Tag"dk in the table.dk TODO:dk4 * Find out what the right header tag is for author.dkE One authoring tool used "
", but Netscape is displaying it.dk7 * Convert contained bmp files to Gif files and includedk * Convert tablesdk8 * Convert help file bitmap references to gif referencesdk$ and convert bmp files to Gif filesdk* * Convert help file links to HTML anchorsdkB * Read "addSpacek9 Then add and extra line for spacing. (Using 5, for now)ddiInitdk Setup output filedicurrDir$ idocDir$d icurrDir$ j dRg+j&Current document has not been saved. gl
rdonj/Please save it and make sure that DOC2HTML.DOT rdonjis in the same directory.dRgGl dTdifn$ idocName$di firstWindow$ g;d gD l gDl Rk go to Window statedidWidth gdidHeight gdidLeft gFdidTop gEddk Open conversion tablediconversionTableFile$ i
templatePath$dgP s iconversionTableFilerrent document has not been saved. gl
rdonj/Please save it and make sure that DOC2HTML.DOT rdonjis in the same directory.dRgGl dTdifn$ idocName$di firstWindow$ g;d gD l gDl Rk go to Window statedidWidth gdidHeight gdidLeft gFdidTop gEddk Open conversion tablediconversionTableFile$ i
templatePath$dgP s iconversionTableFile$sU l dRk* .ReadOnly = 1 was a nice idea, but becamedRk5 a nuisance -- cannot easily edit the table and retrydiconversionWindow$ g;dgl
lH dglH Rk 72 points, 1 inchdg2idLeftl
idTopidHeightl k Underneath work windowddk Save HTM versiondgbi firstWindow$di pathname$ icurrDir$j\ifn$j.htmdgT s i pathname$s l dg2idLeftl
idTopl di workWindow$ g;ddk Re-open the original filedgP s icurrDir$j\ifn$j.docdg3idWidthidHeightdg2idLeftidTopdgbi workWindow$ddk' Set up a style tag for processed linesdiindent$ j Rk 4 space indent for nested listsdi
addSpaceLimit l di specialTag$ jHTMdddiCleanUpSpacingdk PRETTY PRINTINGdk; List Continue styles (endList tag="NoChg") have addeddk< when they are not already part of a list. This makes extradk3 spacing, because they also start with
or .dk This routine cleans that up.dkA Look for
followed by paragraph mark (^p) and
(or ).dk2 --Also allow for indentation (whitespace or ^w) dk before the
or
.dk. (This fast fix messes up the indentation.)di
SpecialFixj
^p
jRk search string, what toLdg s i specialTag$s{ jNormals, dg s l s l rdRs l sD l dg s( l s# l s' l rdRs l s l s l rdRs] l s; l s$ l s% l ddddiMAINdiGetStatsdiInitddi ProcessTextRk/ Before adding structure, to handle "<" and ">"di
IndentCodediFixSectionBreaksdiAddStartStructurediProcessParagraphsdiProcessGraphicsdiAddEndStructurediCleanUpSpacingdiEraseHeaderFooterInfoddk) Leave the newly converted file open opendk- Leave conversion table open for adjustments.dk Activate conversionWindow$dk FileClose 2ddddiCleanUpSpacingdk PRETTY PRINTINGdk; List Continue styles (endList tag="NoChg") have addeddk< when they are not already part of a list. This makes extradk3 spacing, because they also start with
or .dk This routine cleans that up.dkA Look for
followed by paragraph mark (^p) and
(or ).dk2 --Also allow for indentation (whitespace or ^w) dk before the
or
.dk. (This fast fix messes up the indentation.)di
SpecialFixj
^p
jRk search string, what to insertdi
SpecialFixj ^p^w
jdi
SpecialFixj ^pj
di
SpecialFixj ^p^wj
di
SpecialFixj ^p
jk --fix
sequencesddk/ Any
^p combinations remaining are spacers.dk5 But
won't work after an
- . Replace with
dgu s j
^pRs j
^psrdRs l s l rdRs l s l s l rdRs l s} l ddiAddSpacingLinesddddiAddSpacingLinesdk* Add a para break before & after a
tagdgdgp s j
s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRgdRg d"ddk# Add a para break after a
tagdgdgp s js l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRgdRg d"ddkB Add a para break before a heading tag .. or dgdgp s j \]s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk+ Add a para break before a tagdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk# Move
tags to end of prev linedgdgp s j
s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj
dRgdRgp s j
s l rdos l s l rdos l s l rdos l s} l d"ddddi
SpecialFixis$ir$dk: This routine takes into account the special case when thedk9
or is followed by a paragraph mark, rather thandk2 text. In that case, leave it -- its for spacing.dk; It expects the search string to end with a paragraph mark,dk; and inserts one after the replacement (can't insert "^p"!)dgdgp s is$s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj\seljtempdRgdR gg
l
dok0 Not at a paragraph mark. This is not a spacer.dok# Remove it, but preserve whitespacedogz jtempdogp s j^wRk! Find whitespace in the selectiondo g׀ dogm ok Save whitespacedogz jtempRk Replace original selection,dogir$ok removing the
or
tagdogdogn ok Reinsert whitespacedo dogir$dogdoTdRTdRgp s is$s l s l rdos l s l s l rdos l s} l d"ddddi ProcessTextdRk Process Special CharactersdRdRk" TURN OFF SUBSTITUTIONS IN ITALICSdRk/ THAT MEANS HTML CAN BE EMBEDDED, IF ITALICIZEDdRgt dRgq s% l dRdRk ampersand-&dRi
FixNonCodej&j&dRdRk dRi
FixNonCodej>j>dRdRk quote-"dRi
FixNonCodegl" j"dRdRk Non-breaking spacedRi
FixNonCodej^sj dRdRk+ Process Bold, Italic, & Strikethrough TextdRiCleanParagraphMarksRk* Remove char formatting in paragraph marksdRgt dRgq s$ l dRiFixNonHeadingTextjj dRgt dRgq s% l dRiFixNonHeadingTextjjdRgt dRgq s l dRiFixNonHeadingTextjjddddiProcessGraphicsdRgdRk Search For graphicsdRgp s j^gs l s l rdos l s l s l rdos l s} l dR!g׀dog dR"ddddiCleanParagraphMarksdRk1 Remove font characteristics from paragraph marksdRgt dRgy dRgv s( l s# l rdos l s l s l rdos' l s] l s; l rdos$ l s% l dRgu s j^ps j^psrdos l s l rdos l s l s l rdos l s} l ddddiFixSectionBreaksdgdgp s j^bs l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRiAddLinej^pdRg d"ddddi
FixNonCodeiold$inew$dk- Do the conversion, except in Code paragraphsdgdgp s iold$s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR gis$l
jCode doginew$dRTdRg d"ddddiFixNonHeadingTextibeginIt$iendIt$dk9 Do the conversion, except in Heading or Title paragraphsdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR ngis$l
jHeadingrdRgis$l
jTitle dogj \EndOfSeljEndPointdog.dogz j \StartOfSeldog.Rk' In case there is something ahead of usdogibeginIt$dogz jEndPointdog s jEndPoints dok% Necessary to fix Word bug. Where itdok" finds the bookmark as bold, next.dog.dogiendIt$dRTdRg d"ddddiProcessParagraphsdgdi
laststartTag$ j di lastEndTag$ j di
lastListLevel l d!g܁dR g" jHTML *iNextTagdRdRk Horizontal Rule ProcessingdR g$ l doi AddIndenti listLeveldoiAddLinej
Rk Top Border => Horiz. RuledRTdRi
Style2Tag$dRdRk* Special Title Processing (Title & Title2)dR ni startTag$ i
lastStartTag$rdRiendTag$ j doiAddj
do*iNextTagdRTdRdRk Finish old tagdR i lastEndTag$
j doi AddIndenti
lastListLeveldoiAddLinei lastEndTag$dRTdRdRk List ProcessingdR i listEndTag$ jNoChg dok2 If not already in a list at this level, start onedok, This happens for "List Continue" paragraphsdo ni
listTagStack$i listLevel j doi
listStartTag$ jdoi listEndTag$ j
doi
listTagStack$i listLevel i listEndTag$doTdRTdR i listLeveli
lastListLevel dok Start new listdoi AddIndenti listLeveldoiAddi
listStartTag$dR k listLevel <= lastListLeveldok Close all deeper-level listsdo#ii i
lastListLevel$i listLevell %l doi AddIndentiido i
listTagStack$ii
j doiAddLinei
listTagStack$iidoi
listTagStack$ii j doTdo&iidok> If still in a list, check list type to make sure its the samedo ni listLevel
l rdoi listEndTag$
jNoChgrdoi
listTagStack$i listLevel
i listEndTag$ dok! Close old list and start new onedo i
listTagStack$i listLevel
j doi AddIndenti
lastListLeveldoiAddLinei
listTagStack$i listLeveldoTdo i
listStartTag$
j doi AddIndenti listLeveldoiAddLinei
listStartTag$doTdoi
listTagStack$i listLevel i listEndTag$doTdRTddRk Special Tag ProcessingdR/ipFormat4g dR>ipFormatdRis$ ipFormats ok="3 pt", or "12 pt", etc.dRispaceBef ggis$gis$j l dR ni startTag$ j or
dok) Tag to use depends on space-before valuedo nispaceBefi
addSpaceLimit doi startTag$ j
do doi startTag$ j
doTdRTdR ni startTag$
j
rdRi startTag$
j
dok+ Add an extra line, when needed for leadingdoisn$ g"do nispaceBefi
addSpaceLimitrdogisn$l
jHeadingrdoisn$
jTitlerdoisn$
jTitle2rdoisn$
jSubtitlerdoisn$
jSummary doiAddLinej
doTdRTdR i breakTag$ j
- dok2 Replace first tab or NL in paragraph w/ break tagdogz j\Parank Restrict to curr paragraphdok Replace first tab.dogu s j^ts i breakTag$rdoss l s l rdos l s l s l rdos l s} l do g׀ dok" Tab not found. Replace first NL.dogu s j^ls i breakTag$rdoss l s l rdos l s l s l rdos l s} l doTdok- Return To original position at start of paradogz j\Paradog dRTdRdRk Start new tagdRi AddIndenti listLeveldRiAddi startTag$Rk
Noop if nulldRiConvertNewlinesdeNextTagdRgi specialTag$dRgdRi
lastStartTag$ i startTag$dRi lastEndTag$ iendTag$dRi
lastListLevel i listLeveldR ni listLevell rdRi listEndTag$
jNoChg doi
listTagStack$i listLevel i listEndTag$dRTd"ddddi
IndentCodedRgdRgt dRgs s jCodedRgp s j s l s l rdos l s l s l rdos l s} l dR!g׀dog dogj dogz j\Paradogdogp s j s l s l rdos l s l s l rdos l s} l dR"ddddiConvertNewlinesdis$ j^piIndentSpacing$i listLevelj
dgz j\Paradgu s j^lrdos is$srdos l s l s l rdos l s l s l rdos} l ddddi
Style2Tag$dis$ g"dgbiconversionWindow$dgdg dgp s is$s l s l rdRs l s l s l rdRs l s} l d g׀ dRi startTag$ iGetNextCellVal$dRiendTag$ iGetNextCellVal$dRi listLevel giGetNextCellVal$dRi
listStartTag$ iGetNextCellVal$dRi listEndTag$ iGetNextCellVal$dRi breakTag$ iGetNextCellVal$d dRiresponse g+jUndefined style: is$rdonj. Using default tags. rdonj7To eliminate this message, put an entry in DOC2HTML.DOTrdnjDOC2HTMLl dR iresponse l gGl dRi startTag$ jdRiendTag$ j dRkB Note: Leave current list level and list start/end tags unchanged.dTdeDonedgbi workWindow$dddd iGetNextCellVal$dgπdis$ gd is$ jnone is$ j diGetNextCellVal$ is$d dddiAddStartStructuredgdiAddLinejdiAddLinej
di
ProcessHeaderdiAddLinejdiAddLinej Rk Extra para breakdkAddLine("")diAddLinejddddiAddEndStructuredgdgRk (Don't use AddLine here)ddk Close any open listsd#ii l $l %l dR i
listTagStack$ii
j doi AddIndentiidoiAddLinei
listTagStack$iidoi
listTagStack$ii j dR d&iiddiAddLinejdiAddLinejddddi
ProcessHeaderdiSavePosdit$ i docTitle$dia$ i
docAuthor$di
RestorePosd it$
j iAddLinejit$j dk< Is the right tag? Its showing up in the document,dk' even though its defined in the header.dk8 If a$ <> "" Then AddLine("" + a$ + " ")ddddiAdditag$dgitag$dgi specialTag$ddddiAddLineitag$dk Adds a tag line dk& Does not change existing para's styledgitag$dgdg dgi specialTag$dgddddi AddIndentileveld ilevell dR#ii l $ileveldogiindent$dR&iidTdddd iIndentSpacing$ileveldis$ j d ilevell dR#ii l $ileveldois$ is$iindent$dR&iidTdiIndentSpacing$ is$d dddiGetStatsdgV s.RkUpdate doc statsd>istatsdddd i
docAuthor$dk! Returns name of current documentdk, WORD BUG: "stats.Author" = "undefined fielddk3 EVEN THOUGH: When saving, the syntax is recognizeddk- ("Author" is automatically init-capped)dis$ istatssk Rk Workaroundd is$
j *iDoneddk. Look for "byline" or "Byline" paragraph styledgd gejbyline
j dRgs s jbylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTd gejByline
j dRgs s jBylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTdeDonedi
docAuthor$ is$d ddd i docTitle$dRk! Returns name of current documentdRk Look for title paragraphs(s)dRgdRgs s jTitledRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdRTdRidoit l dR!idoit l dok" Concatenate additional paragraphsdogl Rk Go to next parado g" jTitlerdog" jTitle2 dog dog
l dog l l Rk Eliminate the paragraph markdois$ is$j gdoidoit l do doidoit l doTdR"dRgt dRi docTitle$ is$d ddd idocName$dk! Returns name of current documentdis$ istatssg didotIndex gis$j.didocName$ gis$idotIndexl d ddd idocDir$dk6 Returns the directory containing the current documentdidocDir$ istatssh d dddiSavePosdk7 Saves the current position for later use by RestorePosdg jsaveLocs ddddi
RestorePosdk % 5 ! " # $ > ' ( ) * + , - . / 0 1 2 3 4 F 6 7 8 9 : ; < = > ? @ A B C D E 5 H I P J K L M N O & Q R S T U V W Limit" and text-substitution values from templatedk' (at the moment, they are hard-coded)dk RESTRICTIONS:dk< * A bug in Word prevents reading the Property sheet for thedkB Author value. For some reason, the reference to "stats.Author"dkA fails, even though the to reference to "stats.Title" succeeds.dkB (stats is the DocumentStatistics record). Workaround is to usedk4 the .LastSavedBy value, which is usually correct.dd/0istats4gN d/0i workWindow$d/0iconversionTableFile$d/0iconversionWindow$d/0i specialTag$d/0i startTag$d/0iendTag$d/0i listLeveld/0i
listStartTag$d/0i listEndTag$d/0i
listTagStack$l d/0i breakTag$d/0iindent$Rk Indent for nested listsd/0i
addSpaceLimitdRk8 If paragraph's space-before value is greater than this,dRk9 Then add and extra line for spacing. (Using 5, for now)ddiInitdk Setup output filedicurrDir$ idocDir$d icurrDir$ j dRg+j&Current document has not been saved. gl
rdonj/Please save it and make sure that DOC2HTML.DOT rdonjis in the same directory.dRgGl dTdifn$ idocName$di firstWindow$ g;d gD l gDl Rk go to Window statedidWidth gdidHeight gdidLeft gFdidTop gEddk Open conversion tablediconversionTableFile$ i
templatePath$dgP s iconversionTableFile$sU l dRk* .ReadOnly = 1 was a nice idea, but becamedRk5 a nuisance -- cannot easily edit the table and retrydiconversionWindow$ g;dgl
lH dglH Rk 72 points, 1 inchdg2idLeftl
idTopidHeightl k Underneath work windowddk Save HTM versiondgbi firstWindow$di pathname$ icurrDir$j\ifn$j.htmdgT s i pathname$s l dg2idLeftl
idTopl di workWindow$ g;ddk Re-open the original filedgP s icurrDir$j\ifn$j.docdg3idWidthidHeightdg2idLeftidTopdgbi workWindow$ddk' Set up a style tag for processed linesdiindent$ j Rk 4 space indent for nested listsdi
addSpaceLimit l di specialTag$ jHTMLdg s i specialTag$s{ jNormals, dg s l s l rdRs l sD l dg s( l s# l s' l rdRs l s l s l rdRs] l s; l s$ l s% l ddddiMAINdiGetStatsdiInitddi ProcessTextRk/ Before adding structure, to handle "<" and ">"di
IndentCodediFixSectionBreaksdiAddStartStructurediProcessParagraphsdiProcessGraphicsdiAddEndStructurediCleanUpSpacingdiEraseHeaderFooterInfoddk) Leave the newly converted file open opendk- Leave conversion table open for adjustments.dk Activate conversionWindow$dk FileClose 2ddddiCleanUpSpacingdk PRETTY PRINTINGdk; List Continue styles (endList tag="NoChg") have addeddk< when they are not already part of a list. This makes extradk3 spacing, because they also start with
or .dk This routine cleans that up.dkA Look for
followed by paragraph mark (^p) and
(or ).dk2 --Also allow for indentation (whitespace or ^w) dk before the
or
.dk. (This fast fix messes up the indentation.)di
SpecialFixj
^p
jRk search string, what to insertdi
SpecialFixj ^p^w
jdi
SpecialFixj ^pj
di
SpecialFixj ^p^wj
di
SpecialFixj ^p
jk --fix
sequencesddk/ Any
^p combinations remaining are spacers.dk5 But
won't work after an
- . Replace with
dgu s j
^pRs j
^psrdRs l s l rdRs l s l s l rdRs l s} l ddiAddSpacingLinesddddiAddSpacingLinesdk* Add a para break before & after a
tagdgdgp s j
s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRgdRg d"ddk# Add a para break after a
tagdgdgp s js l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRgdRg d"ddkB Add a para break before a heading tag .. or dgdgp s j \]s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk+ Add a para break before a tagdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk# Move
tags to end of prev linedgdgp s j^p
s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj
dRgdRgp s j
s l rdos l s l rdos l s l rdos l s} l d"ddddi
SpecialFixis$ir$dk: This routine takes into account the special case when thedk9
or is followed by a paragraph mark, rather thandk2 text. In that case, leave it -- its for spacing.dk; It expects the search string to end with a paragraph mark,dk; and inserts one after the replacement (can't insert "^pKQUOTE>0nonenonenoneBylinenonenone0nonenonenoneByline2
none0nonenonenoneHeading 1
0nonenonenoneHeading 20nonenonenoneHeading 30nonenonenoneHeading 40nonenonenoneHeading 50nonenonenoneHeading 60nonenonenoneCodenonenone1noneNormal or
none0nonenonenoneNormal Indent
or
none0
noneList Bullet- none1
noneList Bullet 2 - none2
noneList Bullet 3 - none3
noneList Bullet 4 - none4
noneList Bullet 5 - none5
noneList Number - none1
noneList Number 2 - none2
noneList Number 3 - none3
noneList Number 4 - none4
noneList Number 5 - none5
noneList Continue or
none1noneNoChgnoneList Continue 2
or
none2noneNoChgnoneList Continue 3
or
none3noneNoChgnoneList Continue 4
or
none4noneNoChgnoneList Continue 5
or
none5noneNoChgnoneTerm
- none1
- Term Cont
- none1
noneTerm2 - none2
- Term2 Cont
- none2
noneTerm3 - none3
- Term3 Cont
- none3
noneNotes:
This template must be in the same directory as the document you are converting. Open the file in Word and use File->Templates->Add to add this template to the list of templates in use. (If you want, you can have one copy in your templates directory and another in the directory containing the file. Its the one in your working directory that is opened in order to read the conversion table above.)
The conversion table above is used by the doc2html conversion macro. Edit this table to control the HTML conversion.
The table must be the first item in file. After opening this file, the macro does StartofDocument and then Select Column to select column one and search for a matching paragraph tag.
Non-list paragraph styles are indicated by setting list-level to 0.
or
says to use if the paragraphs space-before property is 6 pts or more, and to use
if it is less than 6 pts. This only applies to non-Heading, non-Title styles.
List levels 1..5 indicate nesting level of the list. However, in Word you could use a Level 3 list at any time and get Level 3 indenting. In HTML, a Level 3 list without Levels 2 and 1 preceding it is the same as a Level 1 list. Similarly, a Level 3 list inside a Level 1 list is the same as Level 2. Etc.
List Continue paragraph styles: NoChg means no change from current value. If in a bullet list, the list is ..
. If in a numbered list, the list is ..
. If a list has not already been started, a list is assumed. These paragraphs do not have the - tag, so there is no bullet or number.
Term-definition paragraphs are sjTitlerdog" jTitle2 dog dog
l dog l l Rk Eliminate the paragraph markdois$ is$j gdoidoit l do doidoit l doTdR"dRgt dRi docTitle$ is$d ddd idocName$dk! Returns name of current documentdis$ istatssg didotIndex gis$j.didocName$ gis$idotIndexl d ddd idocDir$dk6 Returns the directory containing the current documentdidocDir$ istatssh d dddiSavePosdk7 Saves the current position for later use by RestorePosdg jsaveLocs ddddi
RestorePosdk, Retur Michael Koch
-"Nancy Stevenson Michael Koch
."Nancy Stevenson Michael Koch
(/"Nancy Stevenson Michael Koch
E0"Nancy Stevenson Michael Koch
M1"Nancy Stevenson Michael Koch
N2)IDG Books, Foster City Michael Koch
p3)IDG Books, Foster City Michael Koch
s4,Nancy Stevenson IDG Books, Foster City f 35"Nancy Stevenson Michael Koch
{6"Nancy Stevenson Michael Koch
7"Nancy Stevenson Michael Koch
8"Nancy Stevenson Michael Koch
f9"Nancy Stevenson Michael Koch
ܙ:,Nancy Stevenson IDG Books, Foster City f 3;,Nancy Stevenson IDG Books, Foster City f 3{<,Nancy Stevenson IDG Books, Foster City &
=,Nancy Stevenson IDG Books, Foster City &
>,Nancy Stevenson IDG Books, Foster City &
?,Nancy Stevenson IDG Books, Foster City &
@,Nancy Stevenson IDG Books, Foster City F
A,Nancy Stevenson IDG Books, Foster City F
B,Nancy Stevenson IDG Books, Foster City F
C,Nancy Stevenson IDG Books, Foster City F
D,Nancy Stevenson IDG Books, Foster City F
E,Nancy Stevenson IDG Books, Foster City F
@F,Nancy Stevenson IDG Books, Foster City f 3G,Nancy Stevenson IDG Books, Foster City F
xH,Nancy Stevenson IDG Books, Foster City F
I,Nancy Stevenson IDG Books, Foster City F
J,Nancy Stevenson IDG Books, Foster City F
K,Nancy Stevenson IDG Books, Foster City f 3L,Nancy Stevenson IDG Books, Foster City f
M,Nancy Stevenson IDG Books, Foster City f
N,Nancy Stevenson IDG Books, Foster City f
O,Nancy Stevenson IDG Books, Foster City f
P,Nancy Stevenson IDG Books, Foster City f
TQ,Nancy Stevenson IDG Books, Foster City f 3R,Nancy Stevenson IDG Books, Foster City f 3S,Nancy Stevenson IDG Books, Foster City f
{T,Nancy Stevenson IDG Books, Foster City f 3U,Nancy Stevenson IDG Books, Foster City f
V,Nancy Stevenson IDG Books, Foster City f
W,Nancy Stevenson IDG Books, Foster City f
X,Nancy Stevenson IDG Books, Foster City f
Y,Nancy Stevenson IDG Books, Foster City f 3Z,Nancy Stevenson IDG Books, Foster City f 3[,Nancy Stevenson IDG Books, Foster City f
\,Nancy Stevenson IDG Books, Foster City f 3],Nancy Stevenson IDG Books, Foster City f
^,Nancy Stevenson IDG Books, Foster City f
_,Nancy Stevenson IDG Books, Foster City f
`,Nancy Stevenson IDG Books, Foster City f
a,Nancy Stevenson IDG Books, Foster City f
b,Nancy Stevenson IDG Books, Foster City f 3c,Nancy Stevenson IDG Books, Foster City f 3d,Nancy Stevenson IDG Books, Foster City
e,Nancy Stevenson IDG Books, Foster City
f,Nancy Stevenson IDG Books, Foster City
ug,Nancy Stevenson IDG Books, Foster City
wh,Nancy Stevenson IDG Books, Foster City
Ei,Nancy Stevenson IDG Books, Foster City
Rj,Nancy Stevenson IDG Books, Foster City f 3k,Nancy Stevenson IDG Books, Foster City f 3l,Nancy Stevenson IDG Books, Foster City
Vm"Nancy Stevenson Michael Koch & ]5n"Nancy Stevenson Michael Koch & ](o"Nancy Stevenson Michael Koch & ]p"Nancy Stevenson Michael Koch & ]Tq"Nancy Stevenson Michael Koch & ]8r"Nancy Stevenson Michael Koch & ]Ss"Nancy Stevenson Michael Koch & ]st"Nancy Stevenson Michael Koch & ]Wu"Nancy Stevenson Michael Koch & \v"Nancy Stevenson Michael Koch & \w)Michael Koch IDG Books, Foster City DRx"Nancy Stevenson Michael Koch f my,IDG Books, Foster City Nancy Stevenson z,IDG Books, Foster City Nancy Stevenson f m {,IDG Books, Foster City Jennifer Avelar &5C|,IDG Books, Foster City Jennifer Avelar &5&},IDG Books, Foster City Nancy Stevenson f l~)IDG Books, Foster City Michael Koch & ],IDG Books, Foster City Nancy Stevenson f l)IDG Books, Foster City Michael Koch & ],Nancy Stevenson IDG Books, Foster City 44,IDG Books, Foster City Nancy Stevenson ku,IDG Books, Foster City Jennifer Avelar &5:"Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenns to the position saved with SavePos.dgz jsaveLocdg jsaveLocs ddddiEraseHeaderFooterInfodgd g
l gNk Go to Header aread gn l gQRk Go to Header areadg dgdgNRk Go to Footer areadg dgdgdddd i
TemplatePath$ditPath$ j disize gl d#ii l $isizedRitp$ gyiil dR gitp$j DOC2HTML.DOT
l doitPath$ itp$do*iDonedRTd&dk4 MsgBox msg$, "Current Global Templates and Add-Ins"d itPath$ j dRg+j4DOC2HTML.DOT needs to be added as a global template.rdoj l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTdeDonedi
docAuthor$ is$d ddd i docTitle$dRk! Returns name of current documentdRk Look for title paragraphs(s)dRgdRgs s jTitledRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdRTdRidoit l dR!idoit l dok" Concatenate additional paragraphsdogl Rk Go to next parado g" jTitlerdog" jTitle2 dog dog
l dog l l Rk Eliminate the paragraph markdois$ is$j gdoidoit l do doidoit l doTdR"dRgt dRi docTitle$ is$d ddd idocName$dk! Returns name of current documentdis$ istatssg didotIndex gis$j.didocName$ gis$idotIndexl d ddd idocDir$dk6 Returns the directory containing the current documentdidocDir$ istatssh d dddiSavePosdk7 Saves the current position for later use by RestorePosdg jsaveLocs ddddi
RestorePosdk, Returns to the position saved with SavePos.dgz jsaveLocdg jsaveLocs ddddiEraseHeaderFooterInfodgd g
l gNk Go to Header aread gn l gQRk Go to Header areadg dgdgNRk Go to Footer areadg dgdgdddd i
TemplatePath$ditPath$ j disize gl d#ii l $isizedRitp$ gyiil dR gitp$j DOC2HTML.DOT
l doitPath$ itp$do*iDonedRTd&dk4 MsgBox msg$, "Current Global Templates and Add-Ins"d itPath$ j dRg+j4DOC2HTML.DOT needs to be added as a global template.rdoj gl
rdoj"Choose File:Templates, click Add, rdoj and browse for the template.rdogl
rdojThen click OK.dRgGl dTeDonedi
TemplatePath$ itPath$d
dk
DOC2HTML:dk# Creates a file called "XXXX.htm".dk; Where "XXXX" is the name of the currently active document.dk USAGE NOTESdk< * Things are easier to see if you open up this template anddk$ reduce it to a very small windowdk * To close the .HTM file:dk! 1. From File menu, choose CLOSEdk 2. Choose "Save changes YES" dk( 3. Choose "Text Onson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & "Michael Koch Nancy Stevenson & )IDG Books, Foster City Michael Koch ۓ)IDG Books, Foster City Michael Koch ܔ)IDG Books, Foster City Michael Koch ݕ)IDG Books, Foster City Michael Koch ,IDG Books, Foster City Jennily with Line Breaks"dk* 4. Unless particular spacing is desired,dk. a lot of documents should convert cleanlydk in a single pass.dk
FEATURES:dk/ * Creates basic HTML structure (header & body)dk) * Creates HTML header information using:dk5 * Document properties Title & Author, if they existdk3 * Or using Title/Byline paragraphs, if they existdk; * Uses paragraph styles to create logical HTML format tagsdk@ * Table-driven conversion using editable table in this templatedk: * If paragraph has Bord insertdi
SpecialFixj
^p^w
jdi
SpecialFixj ^pj
di
SpecialFixj ^p^wj
di
SpecialFixj ^p
jk --fix
sequencesddk/ Any
^p combinations remaining are spacers.dk5 But
won't work after an
- . Replace with
dgu s j
^pRs j
^psrdRs l s l rdRs l s l s l rdRs l s} l ddiAddSpacingLinesddddiAddSpacingLinesdk* Add a para break before & after a
tagdgdgp s j
s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRgdRg d"ddk# Add a para break after a
tagdgdgp s js l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRgdRg d"ddkB Add a para break before a heading tag .. or dgdgp s j \]s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk+ Add a para break before a tagdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk# Move
tags to end of prev linedgdgp s j^p
s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj
dRgdRgp s j
s l rdos l s l rdos l s l rdos l s} l d"ddddi
SpecialFixis$ir$dk: This routine takes into account the special case when thedk9
or is followed by a paragraph mark, rather thandk2 text. In that case, leave it -- its for spacing.dk; It expects the search string to end with a paragraph mark,dk; and inserts one after the replacement (can't insert "^p"!)dgdgp s is$s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj\seljtempdRgdR gg
l
dok0 Not at a paragraph mark. This is not a spacer.dok# Remove it, but preserve whitespacedogz jtempdogp s j^wRk! Find whitespace in the selectiondo g׀ dogm ok Save whitespacedogz jtempRk Replace original selection,dogir$ok removing the
or
tagdogdogn ok Reinsert whitespacedo dogir$dogdoTdRTdRgp s is$s l s l rdos l s l s l rdos l s} l d"ddddi ProcessTextdRk Process Special CharactersdRdRk" TURN OFF SUBSTITUTIONS IN ITALICSdRk/ THAT MEANS HTML CAN BE EMBEDDED, IF ITALICIZEDdRgt dRgq s% l dRdRk ampersand-&dRi
FixNonCodej&j&dRdRk dRi
FixNonCodej>j>dRdRk quote-"dRi
FixNonCodegl" j"dRdRk Non-breaking spacedRi
FixNonCodej^sj dRdRk+ Process Bold, Italic, & Strikethrough TextdRiCleanParagraphMarksRk* Remove char formatting in paragraph marksdRgt dRgq s$ l dRiFixNonHeadingTextjj dRgt dRgq s% l dRiFixNonHeadingTextjjdRgt dRgq s l dRiFixNonHeadingTextjjddddiProcessGraphicsdRgdRk Search For graphicsdRgp s j^gs l s l rdos l s l s l rdos l s} l dR!g׀dog dR"ddddiCleanParagraphMarksdRk1 Remove font characteristics from paragraph marksdRgt dRgy dRgv s( l s# l rdos l s l s l rdos' l s] l s; l rdos$ l s% l dRgu s j^ps j^psrdos l s l rdos l s l s l rdos l s} l ddddiFixSectionBreaksdgdgp s j^bs l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRiAddLinej^pdRg d"ddddi
FixNonCodeiold$inew$dk- Do the conversion, except in Code paragraphsdgdgp s iold$s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR gis$l
jCode doginew$dRTdRg d"ddddiFixNonHeadingTextibeginIt$iendIt$dk9 Do the conversion, except in Heading or Title paragraphsdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR ngis$l
jHeadingrdRgis$l
jTitle dogj \EndOfSeljEndPointdog.dogz j \StartOfSeldog.Rk' In case there is something ahead of usdogibeginIt$dogz jEndPointdog s jEndPoints dok% Necessary to fix Word bug. Where itdok" finds the bookmark as bold, next.dog.dogiendIt$dRTdRg d"ddddiProcessParagraphsdgdi
laststartTag$ j di lastEndTag$ j di
lastListLevel l d!g܁dR g" jHTML *iNextTagdRdRk Horizontal Rule ProcessingdR g$ l doi AddIndenti listLeveldoiAddLinej
Rk Top Border => Horiz. RuledRTdRi
Style2Tag$dRdRk* Special Title Processing (Title & Title2)dR ni startTag$ i
lastStartTag$rdRiendTag$ j doiAddj
do*iNextTagdRTdRdRk Finish old tagdR i lastEndTag$
j doi AddIndenti
lastListLeveldoiAddLinei lastEndTag$dRTdRdRk List ProcessingdR i listEndTag$ jNoChg dok2 If not already in a list at this level, start onedok, This happens for "List Continue" paragraphsdo ni
listTagStack$i listLevel j doi
listStartTag$ jdoi listEndTag$ j
doi
listTagStack$i listLevel i listEndTag$doTdRTdR i listLeveli
lastListLevel dok Start new listdoi AddIndenti listLeveldoiAddi
listStartTag$dR k listLevel <= lastListLeveldok Close all deeper-level listsdo#ii i
lastListLevel$i listLevell %l doi AddIndentiido i
listTagStack$ii
j doiAddLinei
listTagStack$iidoi
listTagStack$ii j doTdo&iidok> If still in a list, check list type to make sure its the samedo ni listLevel
l rdoi listEndTag$
jNoChgrdoi
listTagStack$i listLevel
i listEndTag$ dok! Close old list and start new onedo i
listTagStack$i listLevel
j doi AddIndenti
lastListLeveldoiAddLinei
listTagStack$i listLeveldoTdo i
listStartTag$
j doi AddIndenti listLeveldoiAddLinei
listStartTag$doTdoi
listTagStack$i listLevel i listEndTag$doTdRTddRk Special Tag ProcessingdR/ipFormat4g dR>ipFormatdRis$ ipFormats ok="3 pt", or "12 pt", etc.dRispaceBef ggis$gis$j l dR ni startTag$ j or
dok) Tag to use depends on space-before valuedo nispaceBefi
addSpaceLimit doi startTag$ j
do doi startTag$ j
doTdRTdR ni startTag$
j
rdRi startTag$
j
dok+ Add an extra line, when neederTop() true, its preceded by
dk2 * Handles nested lists. Indents to show nesting.dk * Convert NL's to breaksdk1 * Convert non-heading bold & italic text styles dk (to logical format tags)dk. * Convert strikethrough text to formatdk; * Converts first tab or NL in a start-definition paragraphdk: to - ...
- . (controlled by the value of "Break Tag"dk in the table.dk TODO:dk4 * Find out what the right header tag is for author.dkE One authoring tool used "
", but Netscape is died for leadingdoisn$ g"do nispaceBefi
addSpaceLimitrdogisn$l
jHeadingrdoisn$
jTitlerdoisn$
jTitle2rdoisn$
jSubtitlerdoisn$
jSummaryrdoisn$
jByline doiAddLinejdoTdRTdR i breakTag$ j
- dok2 Replace first tab or NL in paragraph w/ break tagdogz j\Parank Restrict to curr paragraphdok Replace first tab.dogu s j^ts i breakTag$rdoss l s l rdos l s l s l rdos l s} l do g׀ dok" Tab not found. Replace first NL.dogu s j^ls i breakTag$rdoss l s l rdos l s l s l rdos l s} l doTdok- Return To original position at start of paradogz j\Paradog dRTdRdRk Start new tagdRi AddIndenti listLeveldRiAddi startTag$Rk
Noop if nulldRiConvertNewlinesdeNextTagdRgi specialTag$dRgdRi
lastStartTag$ i startTag$dRi lastEndTag$ iendTag$dRi
lastListLevel i listLeveldR ni listLevell rdRi listEndTag$
jNoChg doi
listTagStack$i listLevel i listEndTag$dRTd"ddddi
IndentCodedRgdRgt dRgs s jCodedRgp s j s l s l rdos l s l s l rdos l s} l dR!g׀dog dogj dogz j\Paradogdogp s j s l s l rdos l s l s l rdos l s} l dR"ddddiConvertNewlinesdis$ j^piIndentSpacing$i listLevelj
dgz j\Paradgu s j^lrdos is$srdos l s l s l rdos l s l s l rdos} l ddddi
Style2Tag$dis$ g"dgbiconversionWindow$dgdg dgp s is$s l s l rdRs l s l s l rdRs l s} l d g׀ dRi startTag$ iGetNextCellVal$dRiendTag$ iGetNextCellVal$dRi listLevel giGetNextCellVal$dRi
listStartTag$ iGetNextCellVal$dRi listEndTag$ iGetNextCellVal$dRi breakTag$ iGetNextCellVal$d dRiresponse g+jUndefined style: is$rdonj. Using default tags. rdonj7To eliminate this message, put an entry in DOC2HTML.DOTrdnjDOC2HTMLl dR iresponse l gGl dRi startTag$ jdRiendTag$ j dRkB Note: Leave current list level and list start/end tags unchanged.dTdeDonedgbi workWindow$dddd iGetNextCellVal$dgπdis$ gd is$ jnone is$ j diGetNextCellVal$ is$d dddiAddStartStructuredgdiAddLinejdiAddLinej
di
ProcessHeaderdiAddLinejdiAddLinej Rk Extra para breakdkAddLine("")diAddLinejddddiAddEndStructuredgdgRk (Don't use AddLine here)ddk Close any open listsd#ii l $l %l dR i
listTagStack$ii
j doi AddIndentiidoiAddLinei
listTagStack$iidoi
listTagStack$ii j dR d&iiddiAddLinejdiAddLinejddddi
ProcessHeaderdiSavePosdit$ i docTitle$dia$ i
docAuthor$di
RestorePosd it$
j iAddLinejit$j dk< Is the right tag? Its showing up in the document,dk' even though its defined in the header.dk8 If a$ <> "" Then AddLine("" + a$ + " ")ddddiAdditag$dgitag$dgi specialTag$ddddiAddLineitag$dk Adds a tag line dk& Does not change existing para's styledgitag$dgdg dgi specialTag$dgddddi AddIndentileveld ilevell dR#ii l $ileveldogiindent$dR&iidTdddd iIndentSpacing$ileveldis$ j d ilevell dR#ii l $ileveldois$ is$iindent$dR&iidTdiIndentSpacing$ is$d dddiGetStatsdgV s.RkUpdate doc statsd>istatsdddd i
docAuthor$dk! Returns name of current documentdk, WORD BUG: "stats.Author" = "undefined fielddk3 EVEN THOUGH: When saving, the syntax is recognizeddk- ("Author" is automatically init-capped)dis$ istatssk Rk Workaroundd is$
j *iDoneddk. Look for "byline" or "Byline" paragraph styledgd gejbyline
j dRgs s jbylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTd gejByline
j dRgs s jBylinedRgp s j s l s l rdos gl
rdoj"Choose File:Templates, click Add, rdoj and browse for the template.rdogl
rdojThen click OK.dRgGl dTeDonedi
TemplatePath$ itPath$d
g o 5 6 7 8 _ ` i j p q T T &r 5 6 6 6 dw ew * - 6 7 F X Y A Q R S T U V W Z _ r 7 8 9 : u a uD [ UZ ! . : I V ` a f k p r w | 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R l vX # 4 l X vX # $sU l dRk* .ReadOnly = 1 was a nice idea, but becamedRk5 a nuisance -- cannot easily edit the table and retrydiconversionWindow$ g;dgl
lH dglH Rk 72 points, 1 inchdg2idLeftl
idTopidHeightl k Underneath work windowddk Save HTM versiondgbi firstWindow$di pathname$ icurrDir$j\ifn$j.htmdgT s i pathname$s l dg2idLeftl
idTopl di workWindow$ g;ddk Re-open the original filedgP s icurrDir$j\ifn$j.docdg3idWidthidHeightdg2idLeftidTopdgbi workWindow$
! & + - 2 7 < = E V [ ] b g l m w | 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ l vX # * % * / 0 : ? E G L Q V W \ a f h q x } ~ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ l vX # *
# % * 0 5 6 D I N P U [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j l vX # *mentdidocDir$ istatssh d dddiSavePosdk7 Saves the current position for later use by RestorePosdg jsaveLocs ddddi
RestorePosdk, Returns to the position saved with SavePos.dgz jsaveLocdg jsaveLocs ddddiEraseHeaderFooterInfodgd g
l gNk Go to Header aread gn l gQRk Go to Header areadg dgdgNRk Go to Footer areadg dgdgdddd i
TemplatePath$ditPath$ j disize gl d#ii l $isizedRitp$ gyiil dR gitp$j DOC2HTML.DOT
l doitPath$ itp$do*iDone } H G fer Avelar &4m,IDG Books, Foster City Jennifer Avelar &42IDG Books, Foster City IDG Books Foster City &k_,IDG Books, Foster City Jennifer Avelar &4,IDG Books, Foster City Jennifer Avelar &4͛,IDG Books, Foster City Jennifer Avelar &4ٜ,IDG Books, Foster City Jennifer Avelar &4,IDG Books, Foster City Nancy Stevenson e,IDG Books, Foster City Jennifer Avelar d)IDG Books Worldwide Jennifer Avelar &4%IDG Books Worldwide Marilyn Kyd
Henry Abrecht'IDG Books Worldwide
Henry Abrecht fp'Henry Abrecht IDG Books Worldwide u'IDG Books Worldwide
Henry Abrecht fՃ'IDG Books Worldwide
Henry Abrecht fy%IDG Books Worldwide Julia Kelly F#/%Julia Kelly IDG Books Worldwide l%Julia Kelly IDG Books Worldwide i%IDG Books Worldwide Julia Kelly %IDG Books Worldwide Marilyn Kyd #u%IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly "%IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly #%IDG Books Worldwide Julia Kelly B%IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly $%IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly &%IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly %IDG Books Worldwide Julia Kelly W Julia Kelly Marilyn Kyd #%IDG Books Worldwide Julia Kelly fJ%Julia Kelly IDG Books Worldwide %IDG Books Worldwide Julia Kelly F'%Julia Kelly IDG Books Worldwide [%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia K[ ` a o t y {
R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R l vX # * ! & + - 2 8 = > L Q V X ] c h i w | 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ l vX # * # % * 0 5 6 F R W Y ^ d i j z j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ l vX # * ! " - 2 7 9 > D I J P U Z \ i o t u j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j R R 4 [ j l vX # * = o p
~ / T R R 4 [ j R R ! ! ! ! ! ! ! ! ! ! ! ! ( " " 4 l X vX # l vX # ( K @ Normal x a , @ , Heading 1 h U] c k ( @ ( Heading 2 U] c ( @ ( Heading 3
< Uc & @ & Heading 4 x Vc " A@ " Default Paragraph Font Z 0@ Z List Bullet @
h 4 h * >@ * Title
< U] c k O Title2 h 6@ "h
List Bullet 2 K
4 h P ^ E@ 2^ List Continue 2 @
4 h . \ :@ B\
List Number 2 @
4 h . \ 7@ R\
List Bullet 3 @
8 4 h \ 8@ b\
List Bullet 4 @
4 h \ 9@ r\
List Bullet 5 @
4 h ^ F@ ^ List Continue 3 @
8 4 h . ^ G@ ^ List Continue 4 @
4 h . b D@ b
List Continue E
h< 4 h . @ Header ! @ Footer ! " @ "
Normal Indent h ^ H@ ^ List Continue 5 @
4 h . @ -@@
Macro Text ! ` @
] a @ TOC 1 !
O
Table Text ! c Z 1@ "Z List Number @ "
h 4 h . \ ;@ 2\
List Number 3 @ #
8 4 h . \ <@ B\
List Number 4 @ $
4 h . \ =@ R\
List Number 5 @ %
4 h . * O b* Term2 & < ] Oar
Term2 Cont ' dk
DOC2HTML:dk# Creates a file called "XXXX.htm".dk; Where "XXXX" is the name of the currently active document.dk USAGE NOTESdk< * Things are easier to see if you open up this template anddk$ reduce it to a very small windowdk * To close the .HTM file:dk! 1. From File menu, choose CLOSEdk 2. Choose "Save changes YES" dk( 3. Choose "Text Only with Line Breaks"dk* 4. Unless particular spacing is desired,dk. a lot of documents should convert cleanlydk in a single pass.dk
FEATURES:dk/ * Creates basic HTML structure (header & body)dk) * Creates HTML header information using:dk5 * Document properties Title & Author, if they existdk3 * Or using Title/Byline paragraphs, if they existdk; * Uses paragraph styles to create logical HTML format tagsdk@ * Table-driven conversion using editable table in this templatedk: * If paragraph has BorderTop() true, its preceded by
dk2 * Handles nested lists. Indents to show nesting.dk * Convert NL's to breaksdk1 * Convert non-heading bold & italic text styles dk (to logical format tags)dk. * Convert strikethrough text to formatdk; * Converts first tab or NL in a start-definition paragraphdk: to - ...
- . (controlled by the value of "Break Tag"dk in the table.dk TODO:dk4 * Find out what the right header tag is for author.dkE One authoring tool used "
", but Netscape is displaying it.dk7 * Convert contained bmp files to Gif files and includedk * Convert tablesdk8 * Convert help file bitmap references to gif referencesdk$ and convert bmp files to Gif filesdk* * Convert help file links to HTML anchorsdkB * Read "addSpaceLimit" and text-substitution values from templatedk' (at the moment, they are hard-coded)dk RESTRICTIONS:dk< * A bug in Word prevents reading the Property sheet for thedkB Author value. For some reason, the reference to "stats.Author"dkA fails, even though the to reference to "stats.Title" succeeds.dkB (stats is the DocumentStatistics record). Workaround is to usedk4 the .LastSavedBy value, which is usually correct.dd/0istats4gN d/0i workWindow$d/0iconversionTableFile$d/0iconversionWindow$d/0i specialTag$d/0i startTag$d/0iendTag$d/0i listLeveld/0i
listStartTag$d/0i listEndTag$d/0i
listTagStack$l d/0i breakTag$d/0iindent$Rk Indent for nested listsd/0i
addSpaceLimitdRk8 If paragraph's space-before value is greater than this,dRk9 Then add and extra line for spacing. (Using 5, for now)ddiInitdk Setup output filedicurrDir$ idocDir$d icurrDir$ j dRg+j&Cuelly f{%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly Z%Julia Kelly IDG Books Worldwide Fr%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly f{%Julia Kelly IDG Books Worldwide Fr%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly f{ %IDG Books Worldwide Julia Kelly f{
%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly G%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly fz%IDG Books Worldwide Julia Kelly f{ %Julia Kelly IDG Books Worldwide Frm%Julia Kelly IDG Books Worldwide &l%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &k%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &k%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &j%Julia Kelly IDG Books Worldwide &jsplaying it.dk7 * Convert contained bmp files to Gif files and includedk * Convert tablesdk8 * Convert help file bitmap references to gif referencesdk$ and convert bmp files to Gif filesdk* * Convert help file links to HTML anchorsdkB * Read "addSpaceLimit" and text-substitution values from templatedk' (at the moment, they are hard-coded)dk RESTRICTIONS:dk< * A bug in Word prevents reading the Property sheet for thedkB Author value. For some reason, the reference to "stats.Author"dkA fails, even though the to reference to "stats.Title" succeeds.dkB (stats is the DocumentStatistics record). Workaround is to usedk4 the .LastSavedBy value, which is usually correct.dd/0istats4gN d/0i workWindow$d/0iconversionTableFile$d/0iconversionWindow$d/0i specialTag$d/0i startTag$d/0iendTag$d/0i listLeveld/0i
listStartTag$d/0i listEndTag$d/0i
listTagStack$l d/0i breakTag$d/0iindent$Rk Indent for nested listsd/0i
addSpaceLimitdRk8 If paragraph's space-before value is greater than this,dRk9 Then add andddk' Set up a style tag for processed linesdiindent$ j Rk 4 space indent for nested listsdi
addSpaceLimit l di specialTag$ jHTMLdg s i specialTag$s{ jNormals, dg s l s l rdRs l sD l dg s( l s# l s' l rdRs l s l s l rdRs] l s; l s$ l s% l ddddiMAINdiGetStatsdiInitddi ProcessTextRk/ Before adding structure, to handle "<" and ">"di
IndentCodediFixSectionBreaksdiAddStartStructurediProcessParagraphsdiProcessGraphicsdiAddEndStructurediCleanUpSpacingdiEraseHeaderFooterInfoddk) Leave the newly converted file open opendk- Leave conversion table open for adjustments.dk Activate conversionWindow$dk FileClose 2ddddiCleanUpSpacingdk PRETTY PRINTINGdk; List Continue styles (endList tag="NoChg") have addeddk< when they are not already part of a list. This makes extradk3 spacing, because they also start with
or .dk This routine cleans that up.dkA Look for
followed by paragraph mark (^p) and
(or ).dk2 --Also allow for indentation (whitespace or ^w) dk before the
or
.dk. (This fast fix messes up the indentation.)di
SpecialFixj
^p
jRk search string, what to insertdi
SpecialFixj ^p^w
jdi
SpecialFixj ^pj
di
SpecialFixj ^p^wj
di
SpecialFixj ^p
jk --fix
sequencesddk/ Any
^p combinations remaining are spacers.dk5 But
won't work after an
- . Replace with
dgu s j
^pRs j
^psrdRs l s l rdRs l s l s l rdRs l s} l ddiAddSpacingLinesddddiAddSpacingLinesdk* Add a para break before & after a
tagdgdgp s j
s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRgdRg d"ddk# Add a para break after a
tagdgdgp s js l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRgdRg d"ddkB Add a para break before a heading tag .. or dgdgp s j \]s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk+ Add a para break before a tagdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk# Move
tags to end of prev linedgdgp s j^p
s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj
dRgdRgp s j
s l rdos l s l rdos l s l rdos l s} l d"ddddi
SpecialFixis$ir$dk: This routine takes into account the special case when thedk9
or is followed by a paragraph mark, rather thandk2 text. In that case, leave it -- its for spacing.dk; It expects the search string to end with a paragraph mark,dk; and inserts one after the replacement (can't insert "^p"!)dgdgp s is$s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj\seljtempdRgdR gg
l
dok0 Not at a paragraph mark. This is not a spacer.dok# Remove it, but preserve whitespacedogz jtempdogp s j^wRk! Find whitespace in the selectiondo g׀ dogm ok Save whitespacedogz jtempRk Replace original selection,dogir$ok removing the
or
tagdogdogn ok Reinsert whitespacedo dogir$dogdoTdRTdRgp s is$s l s l rdos l s l s l rdos l s} l d"ddddi ProcessTextdRk Process Special CharactersdRdRk" TURN OFF SUBSTITUTIONS IN ITALICSdRk/ THAT MEANS HTML CAN BE EMBEDDED, IF ITALICIZEDdRgt dRgq s% l dRdRk ampersand-&dRi
FixNonCodej&j&dRdRk dRi
FixNonCodej>j>dRdRk quote-"dRi
FixNonCodegl" j"dRdRk Non-breaking spacedRi
FixNonCodej^sj dRdRk+ Process Bold, Italic, & Strikethrough TextdRiCleanParagraphMarksRk* Remove char formatting in paragraph marksdRgt dRgq s$ l dRiFixNonHeadingTextjj dRgt dRgq s% l dRiFixNonHeadingTextjjdRgt dRgq s l dRiFixNonHeadingTextjjddddiProcessGraphicsdRgdRk Search For graphicsdRgp s j^gs l s l rdos l s l s l rdos l s} l dR!g׀dog dR"ddddiCleanParagraphMarksdRk1 Remove font characteristics from paragraph marksdRgt dRgy dRgv s( l s# l rdos l s l s l rdos' l s] l s; l rdos$ l s% l dRgu s j^ps j^psrdos l s l rdos l s l s l rdos l s} l ddddiFixSectionBreaksdgdgp s j^bs l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRiAddLinej^pdRg d"ddddi
FixNonCodeiold$inew$dk- Do the conversion, except in Code paragraphsdgdgp s iold$s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR gis$l
jCode doginew$dRTdRg d"ddddiFixNonHeadingTextibeginIt$iendIt$dk9 Do the conversion, except in Heading or Title paragraphsdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR ngis$l
jHeadingrdRgis$l
jTitle dogj \EndOfSeljEndPointdog.dogz j \StartOfSeldog.Rk' In case there is something ahead of usdogibeginIt$dogz jEndPointdog s jEndPoints dok% Necessary to fix Word bug. Where itdok" finds the bookmark as bold, next.dog.dogiendIt$dRTdRg d"ddddiProcessParagraphsdgdi
laststartTag$ j di lastEndTag$ j di
lastListLevel l d!g܁dR g" jHTML *iNextTagdRdRk Horizontal Rule ProcessingdR g$ l doi AddIndenti listLeveldoiAddLinej
Rk Top Border => Horiz. RuledRTdRi
Style2Tag$dRdRk* Special Title Processing (Title & Title2)dR ni startTag$ i
lastStartTag$rdRiendTag$ j doiAddj
do*iNextTagdRTdRdRk Finish old tagdR i lastEndTag$
j doi AddIndenti
lastListLeveldoiAddLinei lastEndTag$dRTdRdRk List ProcessingdR i listEndTag$ jNoChg dok2 If not already in a list at this level, start onedok, This happens for "List Continue" paragraphsdo ni
listTagStack$i listLevel j doi
listStartTag$ jdoi listEndTag$ j
doi
listTagStack$i listLevel i listEndTag$doTdRTdR i listLeveli
lastListLevel dok Start new listdoi AddIndenti listLeveldoiAddi
listStartTag$dR k listLevel <= lastListLeveldok Close all deeper-level listsdo#ii i
lastListLevel$i listLevell %l doi AddIndentiido i
listTagStack$ii
j doiAddLinei
listTagStack$iidoi
listTagStack$ii j doTdo&iidok> If still in a list, check list type to make sure its the samedo ni listLevel
l rdoi listEndTag$
jNoChgrdoi
listTagStack$i listLevel
i listEndTag$ dok! Close old list and start new onedo i
listTagStack$i listLevel
j doi AddIndenti
lastListLeveldoiAddLinei
listTagStack$i listLeveldoTdo i
listStartTag$
j doi AddIndenti listLeveldoiAddLinei
listStartTag$doTdoi
listTagStack$i listLevel i listEndTag$doTdRTddRk Special Tag ProcessingdR/ipFormat4g dR>ipFormatdRis$ ipFormats ok="3 pt", or "12 pt", etc.dRispaceBef ggis$gis$j l dR ni startTag$ j or
dok) Tag to use depends on space-before valuedo nispaceBefi
addSpaceLimit doi startTag$ j
do doi startTag$ j
doTdRTdR ni startTag$
j
rdRi startTag$
j
dok+ Add an extra line, when needed for leadingdoisn$ g"do nispaceBefi
addSpaceLimitrdogisn$l
jHeadingrdoisn$
jTitlerdoisn$
jTitle2rdoisn$
jSubtitlerdoisn$
jSummary doiAddLinej
doTdRTdR i breakTag$ j
- dok2 Replace first tab or NL in paragraph w/ break tagdogz j\Parank Restrict to curr paragraphdok Replace first tab.dogu s j^ts i breakTag$rdoss l s l rdos l s l s l rdos l s} l do g׀ dok" Tab not found. Replace first NL.dogu s j^ls i breakTag$rdoss l s l rdos l s l s l rdos l s} l doTdok- Return To original position at start of paradogz j\Paradog dRTdRdRk Start new tagdRi AddIndenti listLeveldRiAddi startTag$Rk
Noop if nulldRiConvertNewlinesdeNextTagdRgi specialTag$dRgdRi
lastStartTag$ i startTag$dRi la extra line for spacing. (Using 5, for now)ddiInitdk Setup output filedicurrDir$ idocDir$d icurrDir$ j dRg+j&Current document has not been saved. gl
rdonj/Please save it and make sure that DOC2HTML.DOT rdonjis in the same directory.dRgGl dTdifn$ idocName$di firstWindow$ g;d gD l gDl Rk go to Window statedidWidth gdidHeight gdidLeft gFdidTop gEddk Open conversion tablediconversionTableFile$ i
templatePath$dgP s iconversionTableFile$sU l dRk* .ReadOnly = 1 was a nice idea, but becamedRk5 a nuisance -- cannot easily edit the table and retrydiconversionWindow$ g;dgl
lH dglH Rk 72 points, 1 inchdg2idLeftl
idTopidHeightl k Underneath work windowddk Save HTM versiondgbi firstWindow$di pathname$ icurrDir$j\ifn$j.htmdgT s i pathname$s l dg2idLeftl
idTopl di workWindow$ g;ddk Re-open the original filedgP s icurrDir$j\ifn$j.docdg3idWidthidHeightdg2idLeftidTopdgbi workWindow$ddk' Set up a style tag for processed linesdiindent$ j Rk 4 space indent for nested listsdi
addSpaceLimit l di specialTag$ jHTMLdg s i specialTag$s{ jNormals, dg s l s l rdRs l sD l dg s( l s# l s' l rdRs l s l s l rdRs] l s; l s$ l s% l ddddiMAINdiGetStatsdiInitddi ProcessTextRk/ Before adding structure, to handle "<" and ">"di
IndentCodediFixSectionBreaksdiAddStartStructurediProcessParagraphsdiProcessGraphicsdiAddEndStructurediCleanUpSpacingdiEraseHeaderFooterInfoddk) Leave the newly converted file open opendk- Leave conversion table open for adjustments.dk Activate conversionWindow$dk FileClose 2ddddiCleanUpSpacingdk PRETTY PRINTINGdk; List Continue styles (endList tag="NoChg") have
addeddk< when they are not already part of a list. This makes extradk3 spacing, because they also start with
or .dk This routine cleans that up.dkA Look for
followed by paragraph mark (^p) and
(or ).dk2 --Also allow for indentation (whitespace or ^w) dk before the
or
.dk. (This fast fix messes up the indentation.)di
SpecialFixj
^p
jRk search string, what to insertdi
SpecialFixj ^p^w
jdi
SpecialFixj ^pj
di
SpecialFixj ^p^wj
di
SpecialFixj ^p
jk --fix
sequencesddk/ Any
^p combinations remaining are spacers.dk5 But
won't work after an
- . Replace with
dgu s j
^pRs j
^psrdRs l s l rdRs l s l s l rdRs l s} l ddiAddSpacingLinesddddiAddSpacingLinesdk* Add a para break before & after a
tagdgdgp s j
s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRgdRg d"ddk# Add a para break after a
tagdgdgp s js l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRgdRg d"ddkB Add a para break before a heading tag .. or dgdgp s j \]s l s l rdRs l s l s l rdRs %Julia Kelly IDG Books Worldwide &j%IDG Books Worldwide Marilyn Kyd Julia Kelly Marilyn Kyd %Julia Kelly IDG Books Worldwide \ %Julia Kelly IDG Books Worldwide \%Julia Kelly IDG Books Worldwide \%Julia Kelly IDG Books Worldwide \%Julia Kelly IDG Books Worldwide Fro Julia Kelly Marilyn Kyd Julia Kelly Marilyn Kyd %Julia Kelly IDG Books Worldwide \%Julia Kelly IDG Books Worldwide \%Julia Kelly IDG Books Worldwide &k %IDG Books Worldwide Marilyn Kyd
%IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Julia Kelly f{
%IDG Books Worldwide Julia Kelly +
%IDG Books Worldwide Julia Kelly ,%IDG Books Worldwide Julia Kelly 4%IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly :%IDG Books Worldwide Julia Kelly ;%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly f{%IDG l s} l d!g׀dRg dRgdRgl dRg d"ddk+ Add a para break before a tagdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRg dRgdRgl dRg d"ddk# Move
tags to end of prev linedgdgp s j^p
s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj
dRgdRgp s j
s l rdos l s l rdos l s l rdos l s} l d"ddddi
SpecialFixis$ir$dk: This routine takes into account the special case when thedk9
or is followed by a paragraph mark, rather thandk2 text. In that case, leave it -- its for spacing.dk; It expects the search string to end with a paragraph mark,dk; and inserts one after the replacement (can't insert "^p"!)dgdgp s is$s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj\seljtempdRgdR gg
l
dok0 Not at a paragraph mark. This is not a spacer.dok# Remove it, but preserve whitespacedogz jtempdogp s j^wRk! Find whitespace in the selectiondo g׀ dogm ok Save whitespacedogz jtempRk Replace original selection,dogir$ok removing the
or
tagdogdogn ok Reinsert whitespacedo dogir$dogdoTdRTdRgp s is$s l s l rdos l s l s l rdos l s} l d"ddddi ProcessTextdRk Process Special CharactersdRdRk" TURN OFF SUBSTITUTIONS IN ITALICSdRk/ THAT MEANS HTML CAN BE EMBEDDED, IF ITALICIZEDdRgt dRgq s% l dRdRk ampersand-&dRi
FixNonCodej&j&dRdRk dRi
FixNonCodej>j>dRdRk quote-"dRi
FixNonCodegl" j"dRdRk Non-breaking spacedRi
FixNonCodej^sj dRdRk+ Process Bold, Italic, & Strikethrough TextdRiCleanParagraphMarksRk* Remove char formatting in paragraph marksdRgt dRgq s$ l dRiFixNonHeadingTextjj dRgt dRgq s% l dRiFixNonHeadingTextjjdRgt dRgq s l dRiFixNonHeadingTextjjddddiProcessGraphicsdRgdRk Search For graphicsdRgp s j^gs l s l rdos l s l s l rdos l s} l dR!g׀dog dR"ddddiCleanParagraphMarksdRk1 Remove font characteristics from paragraph marksdRgt dRgy dRgv s( l s# l rdos l s l s l rdos' l s] l s; l rdos$ l s% l dRgu s j^ps j^psrdos l s l rdos l s l s l rdos l s} l ddddiFixSectionBreaksdgdgp s j^bs l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRiAddLinej^pdRg d"ddddi
FixNonCodeiold$inew$dk- Do the conversion, except in Code paragraphsdgdgp s iold$s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR gis$l
jCode doginew$dRTdRg d"ddddiFixNonHeadingTextibeginIt$iendIt$dk9 Do the conversion, except in Heading or Title paragraphsdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR ngis$l
jHeadingrdRgis$l
jTitle dogj \EndOfSeljEndPointdog.dogz j \StartOfSeldog.Rk' In case there is something ahead of usdogibeginIt$dogz jEndPointdog s jEndPoints dok% Necessary to fix Word bug. Where itdok" finds the bookmark as bold, next.dog.dogiendIt$dRTdRg d"ddddiProcessParagraphsdgdi
laststartTag$ j di lastEndTag$ j di
lastListLevel l d!g܁dR g" jHTML *iNextTagdRdRk Horizontal Rule ProcessingdR g$ l doi AddIndenti listLeveldoiAddLinej
Rk Top Border => Horiz. RuledRTdRi
Style2Tag$dRdRk* Special Title Processing (Title & Title2)dR ni startTag$ i
lastStartTag$rdRiendTag$ j doiAddj
do*iNextTagdRTdRdRk Finish old tagdR i lastEndTag$
j doi AddIndenti
lastListLeveldoiAddLinei lastEndTag$dRTdRdRk List ProcessingdR i listEndTag$ jNoChg dok2 If not already in a list at this level, start onedok, This happens for "List Continue" paragraphsdo ni
listTagStack$i listLevel j doi
listStartTag$ jdoi listEndTag$ j
doi
listTagStack$i listLevel i listEndTag$doTdRBooks Worldwide Julia Kelly f{%IDG Books Worldwide Marilyn Kyd %IDG Books Worldwide Julia Kelly E%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly f{%IDG Books Worldwide Julia Kelly f{ %IDG Books Worldwide Julia Kelly f{ %Julia Kelly IDG Books Worldwide &k %Julia Kelly IDG Books Worldwide &k %IDG Books Worldwide Julia Kelly M %IDG Books Worldwide Julia Kelly N!%IDG Books Worldwide Julia Kelly f{"%Julia Kelly IDG Books Worldwide &kp#%IDG Books Worldwide Julia Kelly f{$%IDG Books Worldwide Julia Kelly f{ %%IDG Books Worldwide Julia Kelly f{ &%IDG Books Worldwide Julia Kelly f{ '%IDG Books Worldwide Julia Kelly f{ (%Julia Kelly IDG Books Worldwide &k)%Julia Kelly IDG Books Worldwide &kt*%IDG Books Worldwide Julia Kelly f{!+%IDG Books Worldwide Julia Kelly f{,%IDG Books Worldwide Julia Kelly f{-%IDG Books Worldwide Julia Kelly S.%IDG Books Worldwide Julia Kelly U/%IDG Books Worldwide Marilyn Kyd 0%IDG Books Worldwide Julia Kelly f{"1%IDG Books Worldwide Julia Kelly f{$2%IDG Books Worldwide Julia Kelly f{3%IDG Books Worldwide Julia Kelly f|W4%IDG Books Worldwide Julia Kelly f|X5%IDG Books Worldwide Julia Kelly f|b6%IDG Books Worldwide Marilyn Kyd !7%IDG Books Worldwide Marilyn Kyd "8%IDG Books Worldwide Julia Kelly Y9%IDG Books Worldwide Julia Kelly f{&:%IDG Books Worldwide Julia Kelly !;%IDG Books Worldwide Julia Kelly #<%IDG Books Worldwide "!)dgdgp s is$s l s l rdRs l s l s l rdRs l s} l d!g׀dRgj\seljtempdRgdR gg
l
dok0 Not at a paragraph mark. This is not a spacer.dok# Remove it, but preserve whitespacedogz jtempdogp s j^wRk! Find whitespace in the selectiondo g׀ dogm ok Save whitespacedogz jtempRk Replace original selection,dogir$ok removing the
or tagdogdogn ok Reinsert whitespacedo dogir$dogdoTdRTdRgp s is$s l s l rdos l s l s l rdos l s} l d"ddddi ProcessTextdRk Process Special CharactersdRdRk" TURN OFF SUBSTITUTIONS IN ITALICSdRk/ THAT MEANS HTML CAN BE EMBEDDED, IF ITALICIZEDdRgt dRgq s% l dRdRk ampersand-&dRi
FixNonCodej&j&dRdRk dRi
FixNonCodej>j>dRdRk quote-"dRi
FixNonCodegl" j"dRdRk Non-breaking spacedRi
FixNonCodej^sj dRdRk+ Process Bold, Italic, & Strikethrough TextdRiCleanParagraphMarksRk* Remove char formatting in paragraph marksdRgt dRgq s$ l dRiFixNonHeadingTextjjdRgt dRgq s% l dRiFixNonHeadingTextjjdRgt dRgq s l dRiFixNonHeadingTextjjddddiProcessGraphicsdRgdRk Search For graphicsdRgp s j^gs l s l rdos l s l s l rdos l s} l dR!g׀dog dR"ddddiCleanParagraphMarksdRk1 Remove font characteristics from paragraph marksdRgt dRgy dRgv s( l s# l rdos l s l s l rdos' l s] l s; l rdos$ l s% l dRgu s j^ps j^psrdos l s l rdos l s l s l rdos l s} l ddddiFixSectionBreaksdgdgp s j^bs l s l rdRs l s l s l rdRs l s} l d!g׀dRgdRiAddLinej^pdRg d"ddddi
FixNonCodeiold$inew$dk- Do the conversion, except in Code paragraphsdgdgp s iold$s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR gis$l
jCode doginew$dRTdRg d"ddddiFixNonHeadingTextibeginIt$iendIt$dk9 Do the conversion, except in Heading or Title paragraphsdgdgp s j s l s l rdRs l s l s l rdRs l s} l d!g׀dRis$ g"dR ngis$l
jHeadingrdRgis$l
jTitle dogj \EndOfSeljEndPointdog.dogz j \StartOfSeldog.Rk' In case there is something ahead of usdogibeginIt$dogz jEndPointdog s jEndPoints dok% Necessary to fix Word bug. Where itdok" finds the bookmark as bold, next.dog.dogiendIt$dRTdRg d"ddddiProcessParagraphsdgstEndTag$ iendTag$dRi
lastListLevel i listLeveldR ni listLevell rdRi listEndTag$
jNoChg doi
listTagStack$i listLevel i listEndTag$dRTd"ddddi
IndentCodedRgdRgt dRgs s jCodedRgp s j s l s l rdos l s l s l rdos l s} l dR!g׀dog dogj dogz j\Paradogdogp s j s l s l rdos l s l s l rdos l s} l dR"ddddiConvertNewlinesdis$ j^piIndentSpacing$i listLevelj
dgz j\Paradgu s j^lrdos is$srdos l s l s l rdos l s l s l rdos} l ddddi
Style2Tag$dis$ g"dgbiconversionWindow$dgdg dgp s is$s l s l rdRs l s l s l rdRs l s} l d g׀ dRi startTag$ iGetNextCellVal$dRiendTag$ iGetNextCellVal$dRi listLevel giGetNextCellVal$dRi
listStartTag$ iGetNextCellVal$dRi listEndTag$ iGetNextCellVal$dRi breakTag$ iGetNextCellVal$d dRiresponse g+jUndefined style: is$rdonj. Using default tags. rdonj7To eliminate this message, put an entry in DOC2HTML.DOTrdnjDOC2HTMLl dR iresponse l gGl dRi startTag$ jdRiendTag$ j dRkB Note: Leave current list level and list start/end tags unchanged.dTdeDonedgbi workWindow$dddd iGetNextCellVal$dgπdis$ gd is$ jnone is$ j diGetNextCellVal$ is$d dddiAddStartStructuredgdiAddLinejdiAddLinej
di
ProcessHeaderdiAddLinejdiAddLinej Rk Extra para breakdkAddLine("")diAddLinejddddiAddEndStructuredgdgRk (Don't use AddLine here)ddk Close any open listsd#ii l $l %l dR i
listTagStack$ii
j doi AddIndentiidoiAddLinei
listTagStack$iidoi
listTagStack$ii j dR d&iiddiAddLinejdiAddLinejddddi
ProcessHeaderdiSavePosdit$ i docTitle$dia$ i
docAuthor$di
RestorePosd it$
j iAddLinejit$j dk< Is the right tag? Its showing up in the document,dk' even though its defined in the header.dk8 If a$ <> "" Then AddLine("" + a$ + " ")ddddiAdditag$dgitag$dgi specialTag$ddddiAddLineitag$dk Adds a tag line dk& Does not change existing para's styledgitag$dgdg dgi specialTag$dgddddi AddIndentileveld ilevell dR#ii l $ileveldogiindent$dR&iidTdddd iIndentSpacing$ileveldis$ j d ilevell dR#ii l $ileveldois$ is$iindent$dR&iidTdiIndentSpacing$ is$d dddiGetStatsdgV s.RkUpdate doc statsd>istatsdddd i
docAuthor$dk! Returns name of current documentdk, WORD BUG: "stats.Author" = "undefined fielddk3 EVEN THOUGH: When saving, the syntax is recognizeddk- ("Author" is automatically init-capped)dis$ istatssk Rk Workaroundd is$
j *iDoneddk. Look for "byline" or "Byline" paragraph styledgd gejbyline
j dRgs s jbylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTd gejByline
j dRgs s jBylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTdeDonedi
docAuthor$ is$d ddd i docTitle$dRk! Returns name of current documentdRk Look for title paragraphs(s)dRgdRgs s jTitledRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdRTdRidoit l dR!idoit l dok" Concatenate additional paragraphsdogl Rk Go to next parado g" jTitlerdog" jTitle2 dog dog
l dog l l Rk Eliminate the paragraph markdois$ is$j gdoidoit l do doidoit l doTdR"dRgt dRi docTitle$ is$d ddd idocName$dk! Returns name of current documentdis$ istatssg didotIndex gis$j.didocName$ gis$idotIndexl d ddd idocDir$dk6 Returns the directory containing the current docudi
laststartTag$ j di lastEndTag$ j di
lastListLevel l d!g܁dR g" jHTML *iNextTagdRdRk Horizontal Rule ProcessingdR g$ l doi AddIndenti listLeveldoiAddLinej
Rk Top Border => Horiz. RuledRTdRi
Style2Tag$dRdRk* Special Title Processing (Title & Title2)dR ni startTag$ i
lastStartTag$rdRiendTag$ j doiAddj
do*iNextTagdRTdRdRk Finish old tagdR i lastEndTag$
j doi AddIndenti
lastListLeveldoiAddLinei lastEndTag$dRTdRdRk List ProcessingdR i listEndTag$ jNoChg dok2 If not already in a list at this level, start onedok, This happens for "List Continue" paragraphsdo ni
listTagStack$i listLevel j doi
listStartTag$ jdoi listEndTag$ j
doi
listTagStack$i listLevel i listEndTag$doTdRTdR i listLeveli
lastListLevel dok Start new listdoi AddIndenti listLeveldoiAddi
listStartTag$dR k listLevel <= lastListLeveldok Close all deeper-level listsdo#ii i
lastListLevel$i listLevell %l doi AddIndentiido i
listTagStack$ii
j doi Julia Kelly o=%IDG Books Worldwide Marilyn Kyd >%IDG Books Worldwide Julia Kelly ?%IDG Books Worldwide Julia Kelly @%IDG Books Worldwide Julia Kelly A%IDG Books Worldwide Julia Kelly )B%IDG Books Worldwide Julia Kelly OC%IDG Books Worldwide Julia Kelly D%IDG Books Worldwide Julia Kelly E%IDG Books Worldwide Julia Kelly F%IDG Books Worldwide Julia Kelly G%IDG Books Worldwide Marilyn Kyd #H%IDG Books Worldwide Julia Kelly I%IDG Books Worldwide Julia Kelly J%IDG Books Worldwide Julia Kelly K%IDG Books Worldwide Marilyn Kyd #L%IDG Books Worldwide Marilyn Kyd #M%IDG Books Worldwide Marilyn Kyd #N%IDG Books Worldwide Julia Kelly O%IDG Books Worldwide Julia Kelly P%IDG Books Worldwide Marilyn Kyd #Q%IDG Books Worldwide Julia Kelly 0R%IDG Books Worldwide Julia Kelly S%IDG Books Worldwide Julia Kelly T%IDG Books Worldwide Julia Kelly PU%IDG Books Worldwide Julia Kelly F#&V%IDG dos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTd gejByline
j dRgs s jBylinedRgp s j s l s l rdos l s l s l rdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdo*iDonedRTdTdeDonedi
docAuthor$ is$d ddd i docTitle$dRk! Returns name of current documentdRk Look for title paragraphs(s)dRgdRgs s jTitledRgp s j s l s l rdos l s l s l Books Worldwide Julia Kelly :dW%IDG Books Worldwide Julia Kelly :pX%IDG Books Worldwide Marilyn Kyd ZY%Julia Kelly IDG Books Worldwide nZ%IDG Books Worldwide Julia Kelly 4\[%IDG Books Worldwide Julia Kelly 3\ Da John Read] John Osborn^ Jerry Condon_Raymond Novello`
IDG Editoriala % A C k u | !
H T * / ^ c ( , { D Srdos l s} l dR g׀ dog l l Rk Eliminate the paragraph markdois$ gdRTdRidoit l dR!idoit l dok" Concatenate additional paragraphsdogl Rk Go to next parado g" jTitlerdog" jTitle2 dog dog
l dog l l Rk Eliminate the paragraph markdois$ is$j gdoidoit l do doidoit l doTdR"dRgt dRi docTitle$ is$d ddd idocName$dk! Returns name of current documentdis$ istatssg didotIndex gis$j.didocName$ gis$idotIndexl d ddd idocDir$dk6 Returns the directory containing the current documentdidocDir$ istatssh d dddiSavePosdk7 Saves the current position for later use by RestorePosdg jsaveLocs ddddi
RestorePosdk, Returns to the position saved with SavePos.dgz jsaveLocdg jsaveLocs ddddiEraseHeaderFooterInfodgd g
l gNk Go to Header aread gn l gQRk Go to Header areadg dgdgNRk Go to Footer areadg dgdgdddd i
TemplatePath$ditPath$ j disize gl d#ii l $isizedRitp$ gyiil dR gitp$j DOC2HTML.DOT
l doitPath$ itp$do*iDonedRTd&dk4 MsgBox msg$, "Current Global Templates and Add-Ins"d itPath$ j dRg+j4DOC2HTML.DOT needs to be added as a global template.rdoj gl
rdoj"Choose File:Templates, click Add, rdoj and browse for the template.rdogl
rdojThen click OK.dRgGl dTeDonedi
TemplatePath$ itPath$d
dk
DOC2HTML:dk# Creates a file called "XXXX.htm".dk; Where "XXXX" is the name of the currently active document.dk USAGE NOTESdk< * Things are easier to see if you open up this template anddk$ reduce it to a very small windowdk * To close the .HTM file:dk! 1. From File menu, choose CLOSEdk 2. Choose "Save changes YES" dk( 3. Choose "Text Only with Line Breaks"dk* 4. Unless particular spacing is desired,dk. a lot of documents should convert cleanlydk in a single pass.dk
FEATURES:dk/ * Creates basic HTML structure (header & body)dk) * Creates HTML header information using:dk5 * Document properties Title & Author, if they existdk3 * Or using Title/Byline paragraphs, if they existdk; * Uses paragraph styles to create logical HTML format tagsdk@ * Table-driven conversion using editable table in this templatedk: * If paragraph has BorderTop() true, its preceded by
dk2 * Handles nested lists. Indents to show nesting.dk * Convert NL's to breaksdk1 * Convert non-heading bold & italic text styles dk (to logical format tags)dk. * Convert strikethrough text to formatdk; * Converts first tab or NL in a start-definition paragraphdk: to - ...
- . (controlled by the value of "Break Tag"dk in the table.dk TODO:dk4 * Find out what the right header tag is for author.dkE One authoring tool used "
", but Netscape is displaying it.dk7 * Convert contained bmp files to Gif files and includedk * Convert tablesdk8 * Convert help file bitmap references to gif referencesdk$ and convert bmp files to Gif filesdk* * Convert help file links to HTML anchorsdkB * Read "addSpaceLimit" and text-substitution values from templatedk' (at the moment, they are hard-coded)dk RESTRICTIONS:dk< * A bug in Word prevents reading the Property sheet for thedkB Author value. For some reason, the reference to "stats.Author"dkA fails, even though the to reference to "stats.Title" succeeds.dkB (stats is the DocumentStatistics record). Workaround is to usedk4 the .LastSavedBy value, which is usually correct.dd/0istats4gN d/0i workWindow$d/0iconversionTableFile$d/0iconversionWindow$d/0i specialTag$d/0i startTag$d/0iendTag$d/0i listLeveld/0i
listStartTag$d/0i listEndTag$d/0i
listTagStack$l d/0i breakTag$d/0iindent$Rk Indent for nested listsd/0i
addSpaceLimitdRk8 If paragraph's space-before value is greater than this,dRk9 Then add and extra line for spacing. (Using 5, for now)ddiInitdk Setup output filedicurrDir$ idocDir$d icurrDir$ j dRg+j&Current document has not been saved. gl
rdonj/Please save it and make sure that DOC2HTML.DOT rdonjis in the same directory.dRgGl dTdifn$ idocName$di firstWindow$ g;d gD l gDl Rk go to Window statedidWidth gdidHeight gdidLeft gFdidTop gEddk Open conversion tablediconversionTableFile$ i
templatePath$dgP s iconversionTableFile$sU l dRk* .ReadOnly = 1 was a nice idea, but becamedRk5 a nuisance -- cannot easily edit the table and retrydiconversionWindow$ g;dgl
lH dglH Rk 72 points, 1 inchdg2idLeftl
idTopidHeightl k Underneath work windowddk Save HTM versiondgbi firstWindow$di pathname$ icurrDir$j\ifn$j.htmdgT s i pathname$s l dg2idLeftl
idTopl di workWindow$ g;ddk Re-open the original filedgP s icurrDir$j\ifn$j.docdg3idWidthidHeightdg2idLeftidTopdgbi workWindow$ddk' Set up a style tag for processed linesdiindent$ j Rk 4 space indent for nested listsdi
addSpaceLimit l di specialTag$ jHTMLdg s i specialTag$s{ jNormals, dg s l s l rdRs l sD l dg s( l s# l s' l rdRs l s l s l rdRs] l s; l s$ l s% l ddddiMAINdiGetStatsdiInitddi ProcessTextRk/ Before adding structure, to handle "<" and ">"di
IndentCodediFixSectionBreaksdiAddStartStructurediProcessParagraphsdiProcessGraphicsdiAddEndStructurediCleanUpSpacingdiEraseHeaderFooterInfoddk) Leave the newly converted file open opendk- Leave conversion table open for adjustments.dk Activate conversionWindow$dk FileClose 2ddddiCleanUpSpacingdk PRETTY PRINTINGdk; List Continue styles (endList tag="NoChg") have addeddk< when they are not already part of a list. This
( * B E ?
D
. 0 3 @ P V Eric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTEric Armstrong C:\APPS\WRD-BIN\DOC2HTML.DOTN lastDateLevel130J lastDateLevel14$4J lastDateLevel15mD matchedText
F 04-May-95 03-may-95 03-may-95
wed 03-may-95 U p @ { doc2html kConverts a word document to an HTML text file. A table gvies para. style => logical format tag conversions. p DOC2HTML @HP LaserJet 6P/6MP - Enhanced LPT1: HPBXLA HP LaserJet 6P/6MP - Enhanced HP LaserJet 6P/6MP - Enhanced D ) . X ) HP LaserJet 6P/6MP - Enhanced D ) . X ) ~
+ , }
/ 0 ( ) @ A W A A A @ @ / @ o A * A - A 6 A 7 A F A X A Y A A @ o
A A A @ A A S A n A T @ @ A A @ @ @ C Times New Roman Symbol & Arial 5 Courier New " A h :1 ~ _
$ R "DOCument To HTML Conversion Filter Eric ArmstrongEric Armstrong