From c101b2b474ec92924e49ba1daf5d8313474ab842 Mon Sep 17 00:00:00 2001 From: thangarson Date: Wed, 11 Aug 2004 21:14:35 +0000 Subject: [PATCH] Initial revision --- WordToXML/ItalicOptions.frm | 114 ++++ WordToXML/ItalicOptions.frx | Bin 0 -> 3096 bytes WordToXML/NewMacros.bas | 1089 +++++++++++++++++++++++++++++++++++ WordToXML/metatable.rtf | 168 ++++++ 4 files changed, 1371 insertions(+) create mode 100644 WordToXML/ItalicOptions.frm create mode 100644 WordToXML/ItalicOptions.frx create mode 100644 WordToXML/NewMacros.bas create mode 100644 WordToXML/metatable.rtf diff --git a/WordToXML/ItalicOptions.frm b/WordToXML/ItalicOptions.frm new file mode 100644 index 0000000..3162527 --- /dev/null +++ b/WordToXML/ItalicOptions.frm @@ -0,0 +1,114 @@ +VERSION 5.00 +Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ItalicOptions + Caption = "Options for Italics" + ClientHeight = 1650 + ClientLeft = 30 + ClientTop = 480 + ClientWidth = 7125 + OleObjectBlob = "ItalicOptions033104.frx":0000 + StartUpPosition = 1 'CenterOwner +End +Attribute VB_Name = "ItalicOptions" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Dim lastChoice As Integer +Dim cancelled As Boolean + + +Private Sub Cancel_Click() + cancelled = True + ItalicOptions.Hide +End Sub + +Private Sub Submit_Click() + lastChoice = ItalicOptions.StyleChoices.ListIndex + ItalicOptions.Hide +End Sub + +Private Sub UserForm_Activate() + ItalicOptions.StyleChoices.SetFocus + ItalicOptions.StyleChoices.ListIndex = lastChoice + cancelled = False +End Sub + +Private Sub UserForm_Initialize() + StyleChoices.AddItem "Weak Emphasis" 'ListIndex = 0 + StyleChoices.AddItem "Title" 'ListIndex = 1 + StyleChoices.AddItem "Tibetan Word" 'ListIndex = 2 + StyleChoices.AddItem "Sanskrit Word" 'ListIndex = 3 + StyleChoices.AddItem "Chinese Word" 'ListIndex = 4 + StyleChoices.AddItem "Japanese Word" 'ListIndex = 5 + StyleChoices.AddItem "Personal Name Human" 'ListIndex = 6 + StyleChoices.AddItem "Personal Name Other" 'ListIndex = 7 + StyleChoices.AddItem "Place Name" 'ListIndex = 8 + StyleChoices.AddItem "Organization Name" 'ListIndex = 9 + StyleChoices.AddItem "Reference" 'ListIndex = 10 + StyleChoices.AddItem "Strong Emphasis" 'ListIndex = 11 + StyleChoices.AddItem "Remove Italics" 'ListIndex = 12 +End Sub +Public Function wasCancelled() As Boolean + wasCancelled = cancelled +End Function +Public Function getSelectedStyle() As Style + + Select Case lastChoice + Case 0 ' Weak Emphasis + Set getSelectedStyle = ActiveDocument.Styles("Emphasis Weak,ew") + Exit Function + + Case 1 ' Title English + Set getSelectedStyle = ActiveDocument.Styles("Text Title,tt") + Exit Function + + Case 2 ' Tibetan Word + Set getSelectedStyle = ActiveDocument.Styles("Lang Tibetan,tib") + Exit Function + + Case 3 ' Sanskrit Word + Set getSelectedStyle = ActiveDocument.Styles("Lang Sanskrit,san") + Exit Function + + Case 4 ' Chinese Word + Set getSelectedStyle = ActiveDocument.Styles("Lang Chinese,chi") + Exit Function + + Case 5 ' Japanese Word + Set getSelectedStyle = ActiveDocument.Styles("Lang Japanese,jap") + Exit Function + + Case 6 ' Personal Name Human + Set getSelectedStyle = ActiveDocument.Styles("Name Personal Human,nph") + Exit Function + + Case 7 ' Personal Name Other + Set getSelectedStyle = ActiveDocument.Styles("Name Personal other,npo") + Exit Function + + Case 8 ' Place Name + Set getSelectedStyle = ActiveDocument.Styles("Name Place,np") + Exit Function + + Case 9 ' Organizational Name + Set getSelectedStyle = ActiveDocument.Styles("Name organization,nor") + Exit Function + + Case 10 ' Reference + Set getSelectedStyle = ActiveDocument.Styles("Reference,rf") + Exit Function + + Case 11 ' Strong Emphasis + Set getSelectedStyle = ActiveDocument.Styles("Emphasis Strong,es") + Exit Function + + Case 12 ' Remove Italics + Set getSelectedStyle = ActiveDocument.Styles("Normal,no") + Exit Function + + Case Default + Set getSelectedStyle = ActiveDocument.Styles("Emphasis Weak,ew") + + End Select + +End Function diff --git a/WordToXML/ItalicOptions.frx b/WordToXML/ItalicOptions.frx new file mode 100644 index 0000000000000000000000000000000000000000..8bcff2a9ad536dfaa9f5c4220ac6ef494d9b0fc7 GIT binary patch literal 3096 zcmeHIO=uHQ5dL;IX|0XW2$rZt_8?e2#5Pu{QKYq2sO<}?E1~_Mw3b<)Qf?m`-n_x18-Nh- z$#IlNDcHUUoSt%f}C zgIpzkA^|^^HAKHo^&dSj0+T-rI{GoqF^{>@Rjz7mMex_1mwK?A+4Jm8>tgu!4cx={ z$>DM%cK5vYVd1HwanqKLZNeMY-3M5O%3V;cp@Lt?%xV?Z!0~)VOv&d6k2PQw+v2CQ z{`m^}=>HtfV;D(HRp6>wY+lFr^BG{Qy(TpHGPwNZ{s$>i^Z7Kmb-jt>MoP24-sF$v zKCjPf*8>Q&V;~d`Nt^>c@}@fupLSrLdC>`sN#OmajVv`^y}TH{wZyx9>hT%Loh!=s zoeCPp5|d^w;iXPU_Akk;XvbIfOfOqfK1S)F09$avN@T~3qSXbp1v){ZGrk*mE(xec zu%83-(7wr$q)<8ls!p>2Ioe_*lgeB$(z@7+e`5llmW!yi;SmSXr`;aU#uN3ojfiVQ zhz%w3=k(q}`~}awC@lY~TZjv{UL|M~iR}Y-1{z6jN2H{?7H>~acnhb|*<>zbm7f{G ztpA_KRr9~MQm-#Doiegj>IuOr8u`3-VP33+o_J7Vb&R4gR)dM8k&P8C!L7zh$q?*e zidw?%^RU;XhS1UP83UFao3?R)qG2mWt+}kxH)&>4Mxl#;l(3R7!a-EKeS836crGhi zN&QbO!-zvZHb|`JrlNI!7ce7+)DTYuJ})S6XuqN*E@GZn}EcZ;9(AXyjy literal 0 HcmV?d00001 diff --git a/WordToXML/NewMacros.bas b/WordToXML/NewMacros.bas new file mode 100644 index 0000000..a916d7b --- /dev/null +++ b/WordToXML/NewMacros.bas @@ -0,0 +1,1089 @@ +Attribute VB_Name = "NewMacros" + +Sub conversionHelp() + Dim msgTitle, msg As String + + msgTitle = "Conversion Macro Help" + msg = "The shortcut keys for the conversion macros are as follows:" & vbCrLf & _ + vbTab & "Convert Document to XML:" & vbTab & " Ctrl + Alt + c" & vbCrLf & _ + vbTab & "Convert Italics to Specific Styles: Alt + i" & vbCrLf & _ + vbTab & "Display This Help Message: " & vbTab & " Alt + Shift + ?" + res = MsgBox(msg, vbOKOnly, msgTitle) + +End Sub + +Sub convertToXML() + Dim teiHead, flName, temp, writepath As String + Dim rng As Range + + ActiveDocument.Endnotes.Convert + writepath = ThisDocument.Path + + ' Replace entities + Application.StatusBar = "Proceessing document: replacing entities!" + replaceEntities + + ' Do Metadata + Application.StatusBar = "Proceessing document: converting metadata!" + teiHead = doMetadata + + ' Deal with italicized commas + Application.StatusBar = "Proceessing document: de-italicizing commas!" + unItalicizeCommas + + 'Deal with tables + Application.StatusBar = "Processing document: processing tables!" + doTables + + ' Do specific character styles + Application.StatusBar = "Proceessing document: processing character styles!" + doCharacterStyles + + ' Do the Links + Application.StatusBar = "Proceessing document: processing links!" + doLinks + + ' Do FootNotes + Application.StatusBar = "Proceessing document: processing foot- or endnotes!" + doFootNotes + doNoteTags + + ' Do the Italics Bold and Underline + Application.StatusBar = "Proceessing document: marking bold, italic, and underline!" + doItalicsBoldUnderline + + ' Do the Paragraph tags + doParas + + ' Do the Divs + Application.StatusBar = "Proceessing document: marking outline divisions!" + doDivs + + ' Clean up + replaceAllEmptyP + + Application.StatusBar = "Proceessing document: finalizing markup!" + Selection.HomeKey unit:=wdStory + Selection.TypeParagraph + Selection.MoveUp unit:=wdLine, Count:=1 + Selection.Style = "Normal,no" + Selection.TypeText Text:=teiHead + Selection.EndKey unit:=wdStory + + Selection.TypeText Text:="" + Selection.EndKey unit:=wdStory, Extend:=wdExtend + Selection.Cut + + Selection.HomeKey unit:=wdStory + MsgBox ("Conversion complete! Copy the results and paste into your XML editor!") + + Exit Sub + +End Sub +Sub doDivs() + Dim tagName, closeTag, lastTag, headNum, styleName As String + Dim cnt, ind1, ind2, lvl, lastLvl, numOfLevels As Integer + + numOfLevels = findHighestHeader() + ActiveWindow.ActivePane.View.Type = wdMasterView + ActiveWindow.View.ShowHeading 9 + cnt = ActiveWindow.ActivePane.Document.Paragraphs.Count - 1 + With Selection + .HomeKey unit:=wdStory + lastLvl = 0 + For n = 1 To cnt + styleName = .Style + If InStr(styleName, "Head") > 0 Then + ind1 = InStr(styleName, " ") + 1 + ind2 = InStr(styleName, ",") - ind1 + headNum = Mid(styleName, ind1, ind2) + lvl = Val(headNum) + If numOfLevels < 8 Then + tagName = "div" & headNum + closeTag = tagName + Else: + tagName = "div n=""" & lvl & """" + closeTag = "div" + End If + If lastLvl = lvl Then + .TypeText ("") + ElseIf lastLvl > lvl Then + For lvNum = lastLvl To lvl Step -1 + If numOfLevels < 8 Then + .TypeText ("") + Else: + .TypeText ("") + End If + Next lvNum + End If + lastLvl = lvl + .TypeText ("<" & tagName & ">") + If n < cnt Then + .MoveDown unit:=wdParagraph, Count:=1 + .MoveLeft unit:=wdCharacter, Count:=1 + Else + .EndKey unit:=wdStory + End If + .TypeText ("") + End If + .MoveDown unit:=wdParagraph, Count:=1 + Next n + ActiveWindow.ActivePane.View.Type = wdNormalView + .EndKey unit:=wdStory + For n = lvl To 1 Step -1 + If numOfLevels < 8 Then + .TypeText ("") + Else + .TypeText ("") + End If + Next n + End With + + +End Sub +Function findHighestHeader() As Integer + Dim para As Paragraph + Dim lvl, highest As Integer + highest = 1 + For Each para In ActiveDocument.Paragraphs + styleName = para.Style + If InStr(styleName, "Head") > 0 Then + ind1 = InStr(styleName, " ") + 1 + ind2 = InStr(styleName, ",") - ind1 + headNum = Mid(styleName, ind1, ind2) + lvl = Val(headNum) + If lvl > highest Then highest = lvl + End If + Next para + findHighestHeader = highest +End Function +Sub doParas() + + Dim inList, inVerse As Boolean + Dim rng As Range + Dim openTag, endTag, tagName As String + Dim ct As Integer + + inList = False: inVerse = False + Selection.HomeKey unit:=wdStory + + ct = ActiveDocument.Paragraphs.Count + + For n = 1 To ct + Set para = ActiveDocument.Paragraphs(n) + Application.StatusBar = "Proceessing document: marking paragraphs (" & n & ")!" + If InStr(para.Style, "Heading") > 0 Then GoTo 50 + If isTable(para) Then GoTo 50 + tagName = "": openTag = "": endTag = "" + Select Case para.Style + + Case "List Number,ln" + If inVerse Then + inVerse = False + openTag = "" + End If + If Not inList Then + openTag = openTag & "" + inList = True + End If + tagName = "item" + + Case "List Bullet,lb" + If inVerse Then + inVerse = False + openTag = "" + End If + If Not inList Then + openTag = openTag & "" + inList = True + End If + tagName = "item" + + Case "Citation Prose,cp" + If inList Then + openTag = "" + inList = False + End If + If inVerse Then + inVerse = False + openTag = "" + End If + tagName = "q" + + Case "Citation Verse 1,cv1" + If inList Then + openTag = "" + inList = False + End If + If Not inVerse Then + openTag = openTag & "" + inVerse = True + End If + tagName = "l" + + Case "Citation Verse 2,cv2" + If inList Then + openTag = "" + inList = False + End If + If Not inVerse Then + openTag = openTag & "" + inVerse = True + End If + tagName = "l" + + Case Else + If inList Then + openTag = "" + inList = False + ElseIf inVerse Then + openTag = "" + inVerse = False + End If + tagName = "p" + End Select + + Set rng = ActiveDocument.Paragraphs(n).Range + rng.StartOf + rng.Text = openTag & "<" & tagName & ">" + + Set rng = ActiveDocument.Paragraphs(n).Range + rng.End = rng.End - 1 + rng.EndOf + rng.Text = "" & endTag + ActiveDocument.Paragraphs(n).Style = "Normal,no" + +50 Next n + +End Sub +Function isTable(ByVal para As Paragraph) As Boolean + Dim tct, pst, pend, tst, tend As Integer + pst = para.Range.Start + pend = para.Range.End + tct = ActiveDocument.Tables.Count + For n = 1 To tct + With ActiveDocument.Tables(n) + tst = .Range.Start + tend = .Range.End + End With + If pst >= tst And pst <= tend Then + isTable = True + Exit Function + End If + If pend >= tst And pend <= tend Then + isTable = True + Exit Function + End If + Next n + isTable = False +End Function +Sub doTables() + Dim tble As Table + Dim wrkCell As Cell + Dim outStr As String + Dim rwInd As Integer + Dim insertRng As Range + + While ActiveDocument.Tables.Count > 0 + outStr = "" + Set tble = ActiveDocument.Tables.Item(1) + Set wrkCell = tble.Cell(1, 1) + rwInd = 1 + While Not (wrkCell Is Nothing) + If wrkCell.Row.Index > rwInd Then + outStr = outStr & "" + End If + rwInd = wrkCell.RowIndex + outStr = outStr & addToTable(wrkCell) + Set wrkCell = wrkCell.Next + Wend + outStr = outStr & "" + Set insertRng = tble.Range + insertRng.Collapse wdCollapseStart + tble.Delete + insertRng.Select + Selection.TypeText Text:=outStr + Wend +End Sub +Function addToTable(ByVal cl As Cell) As String + Dim rng As Range + Set rng = cl.Range + rng.End = rng.End - 1 + addToTable = "" & rng.Text & "" +End Function +Sub doFootNotes() +Attribute doFootNotes.VB_Description = "Macro recorded 8/12/2003 by Than G" +Attribute doFootNotes.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.FootnoteTest" +' +' FootnoteTest Macro +' Macro recorded 8/12/2003 by Than G +' + Dim fn As Footnote + Dim n, fnNum As Integer + Dim rng As Range + + ActiveDocument.Endnotes.Convert + fnNum = ActiveDocument.Footnotes.Count + If fnNum > 0 Then + For n = 1 To fnNum + doFootnoteItalEtc (n) + Set fn = ActiveDocument.Footnotes.Item(n) + fn.Range.Select + Selection.Text = Replace(Selection.Text, Chr(13), "") + Selection.Copy + ActiveWindow.ActivePane.Close + With Selection + .GoTo what:=wdGoToFootnote, Which:=wdGoToFirst, Count:=n, Name:="" + .TypeText Text:="~" + .Paste + .TypeText Text:="^" + .MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend + End With + + Next n + + n = 1 + Do + ActiveDocument.Footnotes.Item(1).Delete + n = n + 1 + If n > fnNum Then Exit Do + Loop While ActiveDocument.Footnotes.Count > 0 + End If +End Sub + +Sub doLinks() + Dim hyl As Hyperlink + Dim n, hyNum As Integer + Dim rng As Range + Dim addr As String + + hyNum = ActiveDocument.Hyperlinks.Count + + For n = 1 To hyNum + Set hyl = ActiveDocument.Hyperlinks.Item(n) + addr = hyl.Address + Set rng = hyl.Range + With rng.Font + .Italic = False + .Bold = False + .Underline = wdUnderlineNone + End With + rng.StartOf + rng.Text = "" + Set rng = hyl.Range + rng.End = rng.End - 1 + rng.EndOf + rng.Text = "" + Next n + +End Sub + +Sub doItalicsBoldUnderline() + Dim rngToSearch, srchResult, wrng As Range + Dim fcount, addOn, y, max As Integer + Dim doingFeet As Boolean + + ' Do the body of the text now + Set rngToSearch = ActiveDocument.Range + Set srchResult = rngToSearch.Duplicate + max = 100 + + ' Search and Replace ITALICS + y = 0 + Do + y = y + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Italic = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + + Set wrng = srchResult.Duplicate + addOn = 1 + If wrng.Style = "Normal,no" Or InStr(wrng.Style, "List") > 0 Then + If Not isCharStyle(wrng) Then + Set wrng = fixRange(wrng) + wrng.Font.Italic = False + wrng.StartOf + wrng.Text = "" + Set wrng = srchResult.Duplicate + wrng.End = wrng.End - 1 + wrng.EndOf + wrng.Text = "" + wrng.Font.Italic = False + addOn = 5 + End If + End If + srchResult.Start = wrng.End + addOn + srchResult.End = rngToSearch.End + If y > 100 Then Exit Do + Loop Until Not srchResult.Find.Found + + ' Search and Replace BOLD + y = 0 + Set srchResult = rngToSearch.Duplicate + Do + y = y + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Bold = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + + Set wrng = srchResult.Duplicate + addOn = 1 + If wrng.Style = "Normal,no" Or InStr(wrng.Style, "List") > 0 Then + If Not isCharStyle(wrng) Then + Set wrng = fixRange(wrng) + wrng.Font.Bold = False + wrng.StartOf + wrng.Text = "" + Set wrng = srchResult.Duplicate + wrng.End = wrng.End - 1 + wrng.EndOf + wrng.Text = "" + wrng.Font.Bold = False + addOn = 5 + End If + End If + srchResult.Start = wrng.End + addOn + srchResult.End = rngToSearch.End + If y > 100 Then Exit Do + Loop Until Not srchResult.Find.Found + + ' Do Underline + y = 0 + Set srchResult = rngToSearch.Duplicate + Do + y = y + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Underline = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + + Set wrng = srchResult.Duplicate + addOn = 1 + If wrng.Style = "Normal,no" Or InStr(wrng.Style, "List") > 0 Then + If Not isCharStyle(wrng) Then + Set wrng = fixRange(wrng) + wrng.Font.Underline = wdUnderlineNone + wrng.StartOf + wrng.Text = "" + Set wrng = srchResult.Duplicate + wrng.End = wrng.End - 1 + wrng.EndOf + wrng.Text = "" + wrng.Font.Underline = wdUnderlineNone + addOn = 5 + End If + End If + srchResult.Start = wrng.End + addOn + srchResult.End = rngToSearch.End + If y > 100 Then Exit Do + Loop Until Not srchResult.Find.Found + +End Sub + + +Function doMetadata() As String +Attribute doMetadata.VB_Description = "Macro recorded 8/13/2003 by Than G" +Attribute doMetadata.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.tableaccess" + +' +' tableaccess Macro +' Macro recorded 8/13/2003 by Than G +' + Dim metaTable As Table + Dim inData, header As String + + Open "C:\xml\teiHeader.dat" For Input As #1 + + Do While Not EOF(1) + Line Input #1, inData + header = header & inData & vbCrLf + Loop + + Close #1 + + Set metaTable = ActiveDocument.Tables(1) + + header = Replace(header, "{Eng Lang}", doTrim(metaTable.Cell(3, 2))) + header = Replace(header, "{Eng Title}", doTrim(metaTable.Cell(1, 2))) + header = Replace(header, "{Orig Lang}", doTrim(metaTable.Cell(3, 4))) + header = Replace(header, "{Orig Title}", doTrim(metaTable.Cell(2, 2))) + header = Replace(header, "{Author}", doTrim(metaTable.Cell(4, 2))) + header = Replace(header, "{Author Date}", doTrim(metaTable.Cell(4, 4))) + header = Replace(header, "{Trans}", doTrim(metaTable.Cell(5, 2))) + header = Replace(header, "{Trans Date}", doTrim(metaTable.Cell(5, 4))) + header = Replace(header, "{Editor}", doTrim(metaTable.Cell(6, 2))) + header = Replace(header, "{Editor Date}", doTrim(metaTable.Cell(6, 4))) + header = Replace(header, "{Markup}", doTrim(metaTable.Cell(7, 2))) + header = Replace(header, "{Markup Date}", doTrim(metaTable.Cell(7, 4))) + header = Replace(header, "{Journal Title}", doTrim(metaTable.Cell(3, 2))) + header = Replace(header, "{Editor Coll}", doTrim(metaTable.Cell(9, 2))) + header = Replace(header, "{Vol}", doTrim(metaTable.Cell(8, 4))) + header = Replace(header, "{Pages}", doTrim(metaTable.Cell(8, 6))) + header = Replace(header, "{Pub Place}", doTrim(metaTable.Cell(11, 2))) + header = Replace(header, "{Pub Per}", doTrim(metaTable.Cell(10, 2))) + header = Replace(header, "{Pub Date}", doTrim(metaTable.Cell(10, 4))) + header = Replace(header, "{Description}", doTrim(metaTable.Cell(12, 2))) + header = Replace(header, "{Domain URL}", doTrim(metaTable.Cell(13, 2))) + header = Replace(header, "{Domain Text}", doTrim(metaTable.Cell(13, 4))) + header = Replace(header, "{Portal URL}", doTrim(metaTable.Cell(14, 2))) + header = Replace(header, "{Portal Text}", doTrim(metaTable.Cell(14, 4))) + header = Replace(header, "{Project URL}", doTrim(metaTable.Cell(15, 2))) + header = Replace(header, "{Project Text}", doTrim(metaTable.Cell(15, 4))) + header = Replace(header, "{Home URL}", doTrim(metaTable.Cell(16, 2))) + header = Replace(header, "{Home Text}", doTrim(metaTable.Cell(16, 4))) + + ActiveDocument.Tables(1).Delete + + doMetadata = header + +End Function + +Function doTrim(ByVal aCell As Cell) As String + + Dim rng As Range + + Set rng = aCell.Range + rng.End = rng.End - 1 + doTrim = rng.Text + + +End Function +Function fixRange(ByVal rng As Range) As Range + Dim gtPlace, ltPlace As Integer + + rng.Select + rng.Style = "Plain Text" + rng.Font.Bold = False + rng.Font.Italic = False + rng.Font.Underline = wdUnderlineNone + + gtPlace = InStr(rng.Text, ">") + ltPlace = InStr(rng.Text, "<") + If gtPlace < ltPlace Then + If gtPlace > 0 Then rng.Start = rng.Start + gtPlace + If ltPlace > 0 Then rng.End = rng.Start + ltPlace - 1 + ElseIf gtPlace > ltPlace Then + rng.End = rng.Start + ltPlace - 1 + End If + Set fixRange = rng +End Function + +Sub doNoteTags() + Selection.Find.ClearFormatting + Selection.Find.Replacement.ClearFormatting + With Selection.Find + .Text = "~" + .Replacement.Text = "" + .Forward = True + .Wrap = wdFindContinue + .Format = False + .MatchCase = False + .MatchWholeWord = False + .MatchWildcards = False + .MatchSoundsLike = False + .MatchAllWordForms = False + End With + Selection.Find.Execute Replace:=wdReplaceAll + + Selection.Find.ClearFormatting + Selection.Find.Replacement.ClearFormatting + With Selection.Find + .Text = "^" + .Replacement.Text = "" + .Forward = True + .Wrap = wdFindContinue + .Format = False + .MatchCase = False + .MatchWholeWord = False + .MatchWildcards = False + .MatchSoundsLike = False + .MatchAllWordForms = False + End With + Selection.Find.Execute Replace:=wdReplaceAll + +End Sub + +Sub doFootnoteItalEtc(ByVal fn As Integer) +Attribute doFootnoteItalEtc.VB_Description = "Macro recorded 8/13/2003 by Than G" +Attribute doFootnoteItalEtc.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.closeFootnotes" +' +' closeFootnotes Macro +' Macro recorded 8/13/2003 by Than G +' + 'ActiveDocument.Endnotes.Convert + Dim loopCt, addOn As Integer + + loopCt = 0 + Set rngToSearch = ActiveDocument.Footnotes.Item(fn).Range + rngToSearch.End = rngToSearch.End - 1 + Set srchResult = rngToSearch.Duplicate + Do + loopCt = loopCt + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Italic = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + addOn = 2 + Set wrng = srchResult.Duplicate + If Not isCharStyle(wrng) Then + wrng.StartOf + wrng.Text = "" + Set wrng = srchResult.Duplicate + wrng.End = wrng.End - 1 + wrng.EndOf + wrng.Text = "" + addOn = 5 + End If + srchResult.Start = wrng.End + addOn + srchResult.End = rngToSearch.End + If loopCt > 10 Then Exit Do + Loop Until Not srchResult.Find.Found + + loopCt = 0 + Set srchResult = rngToSearch.Duplicate + Do + loopCt = loopCt + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Bold = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + + Set wrng = srchResult.Duplicate + addOn = 2 + If Not isCharStyle(wrng) Then + wrng.StartOf + wrng.Text = "" + Set wrng = srchResult.Duplicate + wrng.End = wrng.End - 1 + wrng.EndOf + wrng.Text = "" + addOn = 5 + End If + srchResult.Start = wrng.End + addOn + srchResult.End = rngToSearch.End + If loopCt > 10 Then Exit Do + Loop Until Not srchResult.Find.Found + + loopCt = 0 + Set srchResult = rngToSearch.Duplicate + Do + loopCt = loopCt + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Underline = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + + Set wrng = srchResult.Duplicate + addOn = 2 + If Not isCharStyle(wrng) Then + wrng.StartOf + wrng.Text = "" + Set wrng = srchResult.Duplicate + wrng.End = wrng.End - 1 + wrng.EndOf + wrng.Text = "" + End If + srchResult.Start = wrng.End + addOn + srchResult.End = rngToSearch.End + If loopCt > 10 Then Exit Do + Loop Until Not srchResult.Find.Found + + End Sub + +Sub replaceAllEmptyP() +Attribute replaceAllEmptyP.VB_Description = "Macro recorded 8/18/2003 by Than G" +Attribute replaceAllEmptyP.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.replaceAllP" +' +' replaceAllP Macro +' Macro recorded 8/18/2003 by Than G +' + Selection.Find.ClearFormatting + Selection.Find.Replacement.ClearFormatting + With Selection.Find + .Text = "

" + .Replacement.Text = "" + .Forward = True + .Wrap = wdFindContinue + .Format = False + .MatchCase = False + .MatchWholeWord = False + .MatchWildcards = False + .MatchSoundsLike = False + .MatchAllWordForms = False + End With + Selection.Find.Execute Replace:=wdReplaceAll +End Sub +Sub convertItalics() +Attribute convertItalics.VB_Description = "Macro recorded 8/18/2003 by Than G" +Attribute convertItalics.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.searchItalics" +' +' searchItalics Macro +' Macro recorded 8/18/2003 by Than G +' + Dim rngToSearch, srchResult As Range + Dim textRun, openTag, endTage As String + Dim resInt, loopCt As Integer + + loopCt = 0 + unItalicizeCommas + + Load ItalicOptions + ItalicOptions.Hide + + Set rngToSearch = ActiveDocument.Range.Duplicate + If ActiveDocument.Tables.Count > 0 Then + rngToSearch.Start = ActiveDocument.Tables(1).Range.End + 1 + End If + Set srchResult = rngToSearch.Duplicate + + Do + loopCt = loopCt + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Italic = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Or loopCt > 200 Then Exit Do + If InStr(srchResult.Style, "Heading") = 0 And Not isCharStyle(srchResult) Then + textRun = srchResult.Text + ItalicOptions.ItalText.Caption = textRun + ItalicOptions.Show + If ItalicOptions.wasCancelled Then + Unload ItalicOptions + Exit Sub + End If + srchResult.Style = ItalicOptions.getSelectedStyle() + If ItalicOptions.getSelectedStyle() = "Normal,no" Then + srchResult.Font.Italic = False + End If + End If + srchResult.Start = srchResult.End + 1 + srchResult.End = rngToSearch.End + + Loop Until Not srchResult.Find.Found + + convertFootnoteItalics + End Sub + Sub convertFootnoteItalics() + Dim loopCt As Integer + + ActiveDocument.Endnotes.Convert + For n = 1 To ActiveDocument.Footnotes.Count + Set rngToSearch = ActiveDocument.Footnotes(n).Range.Duplicate + Set srchResult = rngToSearch.Duplicate + loopCt = 0 + + Do + loopCt = loopCt + 1 + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "" + .Font.Italic = True + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Or loopCt > 20 Then Exit Do + If InStr(srchResult.Style, "Heading") = 0 And Not isCharStyle(srchResult) Then + textRun = srchResult.Text + ItalicOptions.ItalText.Caption = textRun + ItalicOptions.Show + If ItalicOptions.wasCancelled Then + Unload ItalicOptions + Exit Sub + End If + srchResult.Style = ItalicOptions.getSelectedStyle() + If ItalicOptions.getSelectedStyle() = "Normal,no" Then + srchResult.Font.Italic = False + End If + End If + srchResult.Start = srchResult.End + 2 + srchResult.End = rngToSearch.End + + Loop Until Not srchResult.Find.Found + + Next n + +End Sub +Sub doCharacterStyles() + Dim styleData(50, 3) As String + Dim styleCount As Integer + Dim rngToSearch, srchResult, wrng As Range + + styleData(1, 1) = "Emphasis Weak,ew": styleData(1, 2) = "": styleData(1, 3) = "" + styleData(2, 1) = "Text Title,tt": styleData(2, 2) = "": styleData(2, 3) = "" + styleData(3, 1) = "Lang Tibetan,tib": styleData(3, 2) = "": styleData(3, 3) = "" + styleData(4, 1) = "Lang Sanskrit,san": styleData(4, 2) = "": styleData(4, 3) = "" + styleData(5, 1) = "Lang Chinese,chi": styleData(5, 2) = "": styleData(5, 3) = "" + styleData(6, 1) = "Lang Japanese,jap": styleData(6, 2) = "": styleData(6, 3) = "" + styleData(7, 1) = "Name Personal Human,nph": styleData(7, 2) = "": styleData(7, 3) = "" + styleData(8, 1) = "Name Personal other,npo": styleData(8, 2) = "": styleData(8, 3) = "" + styleData(9, 1) = "Name Place,np": styleData(9, 2) = "": styleData(9, 3) = "" + styleData(10, 1) = "Name organization,nor": styleData(10, 2) = "": styleData(10, 3) = "" + styleData(11, 1) = "Reference,rf": styleData(11, 2) = "": styleData(11, 3) = "" + styleData(12, 1) = "Emphasis Strong,es": styleData(12, 2) = "": styleData(12, 3) = "" + styleData(13, 1) = "Dates , dt": styleData(13, 2) = "": styleData(13, 3) = "" + styleCount = 13 + + For x = 1 To styleCount + Set rngToSearch = ActiveDocument.Range + Set srchResult = rngToSearch.Duplicate + y = 0 + Do + Application.StatusBar = "Proceessing document: processing character styles (" & styleData(x, 1) & ")! " & y + + With srchResult.Find + .ClearFormatting + .Format = True + .Style = styleData(x, 1) + .Text = "" + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If Not srchResult.Find.Found Or InStr(srchResult.Text, "") > 0 Then Exit Do + + Set wrng = fixRange(srchResult.Duplicate) + wrng.Select + Selection.Style = "Plain Text" + wrng.StartOf + wrng.Text = styleData(x, 2) + wrng.Select + Selection.Style = "Plain Text" + Set wrng = srchResult.Duplicate + wrng.EndOf + wrng.Text = styleData(x, 3) + wrng.Select + Selection.Style = "Plain Text" + srchResult.Start = wrng.End + Len(styleData(x, 3)) + srchResult.End = rngToSearch.End +50 y = y + 1 + If y > 100 Then Exit Do + Loop Until Not srchResult.Find.Found + Next x + + Application.StatusBar = "Proceessing document: processing character styles in footnotes!" + For n = 1 To ActiveDocument.Footnotes.Count + For x = 1 To styleCount + Application.StatusBar = "Proceessing document: processing footnote character styles (" & styleData(x, 1) & ")!" + Set rngToSearch = ActiveDocument.Footnotes(n).Range + Set srchResult = rngToSearch.Duplicate + y = 0 + Do + With srchResult.Find + .ClearFormatting + .Format = True + .Style = styleData(x, 1) + .Text = "" + .Wrap = wdFindStop + .Forward = True + .Execute + End With + + If srchResult.Find.Found = False Or InStr(srchResult.Text, "") > 0 Then Exit Do + Set wrng = fixRange(srchResult.Duplicate) + + wrng.Select + Selection.Style = "Plain Text" + wrng.StartOf + wrng.Text = styleData(x, 2) + wrng.Select + Selection.Style = "Plain Text" + Set wrng = srchResult.Duplicate + wrng.EndOf + wrng.Text = styleData(x, 3) + wrng.Select + Selection.Style = "Plain Text" + srchResult.Start = wrng.End + Len(styleData(x, 2)) + Len(styleData(x, 3)) + 2 + srchResult.End = rngToSearch.End +100 y = y + 1 + If y > 10 Then Exit Do + Loop Until Not srchResult.Find.Found + Next x + Next n + +End Sub +Function isCharStyle(ByVal rng As Range) As Boolean + styleName = rng.Style + isCharStyle = False + If styleName = "Emphasis Weak,ew" Then + isCharStyle = True + ElseIf styleName = "Text Title,tt" Then + isCharStyle = True + ElseIf styleName = "Lang Tibetan,tib" Then + isCharStyle = True + ElseIf styleName = "Lang Sanskrit,san" Then + isCharStyle = True + ElseIf styleName = "Lang Chinese,chi" Then + isCharStyle = True + ElseIf styleName = "Lang Japanese,jap" Then + isCharStyle = True + ElseIf styleName = "Name Personal Human,nph" Then + isCharStyle = True + ElseIf styleName = "Name Personal other,npo" Then + isCharStyle = True + ElseIf styleName = "Name Place,np" Then + isCharStyle = True + ElseIf styleName = "Name organization,nor" Then + isCharStyle = True + End If +End Function + +Sub unItalicizeCommas() +Attribute unItalicizeCommas.VB_Description = "Macro recorded 8/19/2003 by Than G" +Attribute unItalicizeCommas.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.unItalicizeCommas" +' +' unItalicizeCommas Macro +' Macro recorded 8/19/2003 by Than G +' + Dim rngToSearch, srchResult As Range + + Set rngToSearch = ActiveDocument.Range.Duplicate + Set srchResult = rngToSearch.Duplicate + Do + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "," + .Font.Italic = True + .Wrap = wdFindStop + .Forward = True + .MatchWildcards = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + srchResult.Font.Italic = False + srchResult.Start = srchResult.End + 1 + srchResult.End = rngToSearch.End + Loop Until Not srchResult.Find.Found + + For n = 1 To ActiveDocument.Footnotes.Count + Set rngToSearch = ActiveDocument.Footnotes(n).Range + Set srchResult = rngToSearch.Duplicate + Do + With srchResult.Find + .ClearFormatting + .Format = True + .Text = "," + .Font.Italic = True + .Wrap = wdFindStop + .Forward = True + .MatchWildcards = True + .Execute + End With + + If Not srchResult.Find.Found Then Exit Do + srchResult.Font.Italic = False + srchResult.Start = srchResult.End + 1 + srchResult.End = rngToSearch.End + Loop Until Not srchResult.Find.Found + + Next n + +End Sub + +Sub replaceEntities() + Selection.Find.ClearFormatting + Selection.Find.Replacement.ClearFormatting + With Selection.Find + .Text = "&" + .Replacement.Text = "&" + .Forward = True + .Wrap = wdFindContinue + .Format = False + .MatchCase = False + .MatchWholeWord = False + .MatchWildcards = False + .MatchSoundsLike = False + .MatchAllWordForms = False + End With + Selection.Find.Execute Replace:=wdReplaceAll + Selection.Find.ClearFormatting + Selection.Find.Replacement.ClearFormatting + With Selection.Find + .Text = "<" + .Replacement.Text = "<" + .Forward = True + .Wrap = wdFindContinue + .Format = False + .MatchCase = False + .MatchWholeWord = False + .MatchWildcards = False + .MatchSoundsLike = False + .MatchAllWordForms = False + End With + Selection.Find.Execute Replace:=wdReplaceAll + Selection.Find.ClearFormatting + Selection.Find.Replacement.ClearFormatting + With Selection.Find + .Text = ">" + .Replacement.Text = ">" + .Forward = True + .Wrap = wdFindContinue + .Format = False + .MatchCase = False + .MatchWholeWord = False + .MatchWildcards = False + .MatchSoundsLike = False + .MatchAllWordForms = False + End With + Selection.Find.Execute Replace:=wdReplaceAll + + + + +End Sub + diff --git a/WordToXML/metatable.rtf b/WordToXML/metatable.rtf new file mode 100644 index 0000000..4c6ff60 --- /dev/null +++ b/WordToXML/metatable.rtf @@ -0,0 +1,168 @@ +{\rtf1\adeflang1103\ansi\ansicpg1252\uc1\adeff0\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1033\deflangfe1033{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;} +{\f1\fswiss\fcharset0\fprq2{\*\panose 020b0604020202020204}Arial;}{\f2\fmodern\fcharset0\fprq1{\*\panose 02070309020205020404}Courier New;}{\f34\fswiss\fcharset128\fprq2{\*\panose 020b0604020202020204}Arial Unicode MS;} +{\f224\fswiss\fcharset128\fprq2{\*\panose 020b0604020202020204}@Arial Unicode MS;}{\f382\froman\fcharset238\fprq2 Times New Roman CE;}{\f383\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f385\froman\fcharset161\fprq2 Times New Roman Greek;} +{\f386\froman\fcharset162\fprq2 Times New Roman Tur;}{\f387\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f388\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f389\froman\fcharset186\fprq2 Times New Roman Baltic;} +{\f390\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f392\fswiss\fcharset238\fprq2 Arial CE;}{\f393\fswiss\fcharset204\fprq2 Arial Cyr;}{\f395\fswiss\fcharset161\fprq2 Arial Greek;}{\f396\fswiss\fcharset162\fprq2 Arial Tur;} +{\f397\fswiss\fcharset177\fprq2 Arial (Hebrew);}{\f398\fswiss\fcharset178\fprq2 Arial (Arabic);}{\f399\fswiss\fcharset186\fprq2 Arial Baltic;}{\f400\fswiss\fcharset163\fprq2 Arial (Vietnamese);}{\f402\fmodern\fcharset238\fprq1 Courier New CE;} +{\f403\fmodern\fcharset204\fprq1 Courier New Cyr;}{\f405\fmodern\fcharset161\fprq1 Courier New Greek;}{\f406\fmodern\fcharset162\fprq1 Courier New Tur;}{\f407\fmodern\fcharset177\fprq1 Courier New (Hebrew);} +{\f408\fmodern\fcharset178\fprq1 Courier New (Arabic);}{\f409\fmodern\fcharset186\fprq1 Courier New Baltic;}{\f410\fmodern\fcharset163\fprq1 Courier New (Vietnamese);}{\f724\fswiss\fcharset0\fprq2 Arial Unicode MS Western;} +{\f722\fswiss\fcharset238\fprq2 Arial Unicode MS CE;}{\f723\fswiss\fcharset204\fprq2 Arial Unicode MS Cyr;}{\f725\fswiss\fcharset161\fprq2 Arial Unicode MS Greek;}{\f726\fswiss\fcharset162\fprq2 Arial Unicode MS Tur;} +{\f727\fswiss\fcharset177\fprq2 Arial Unicode MS (Hebrew);}{\f728\fswiss\fcharset178\fprq2 Arial Unicode MS (Arabic);}{\f729\fswiss\fcharset186\fprq2 Arial Unicode MS Baltic;}{\f730\fswiss\fcharset163\fprq2 Arial Unicode MS (Vietnamese);} +{\f731\fswiss\fcharset222\fprq2 Arial Unicode MS (Thai);}{\f2624\fswiss\fcharset0\fprq2 @Arial Unicode MS Western;}{\f2622\fswiss\fcharset238\fprq2 @Arial Unicode MS CE;}{\f2623\fswiss\fcharset204\fprq2 @Arial Unicode MS Cyr;} +{\f2625\fswiss\fcharset161\fprq2 @Arial Unicode MS Greek;}{\f2626\fswiss\fcharset162\fprq2 @Arial Unicode MS Tur;}{\f2627\fswiss\fcharset177\fprq2 @Arial Unicode MS (Hebrew);}{\f2628\fswiss\fcharset178\fprq2 @Arial Unicode MS (Arabic);} +{\f2629\fswiss\fcharset186\fprq2 @Arial Unicode MS Baltic;}{\f2630\fswiss\fcharset163\fprq2 @Arial Unicode MS (Vietnamese);}{\f2631\fswiss\fcharset222\fprq2 @Arial Unicode MS (Thai);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255; +\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0; +\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{\qj \li0\ri0\sl-240\slmult0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 \af0\afs24\alang1025 \fcs0 +\f34\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 \snext0 \styrsid16650104 Normal,no;}{\s1\qj \li0\ri0\sb240\sa60\sl-240\slmult0\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel0\adjustright\rin0\lin0\itap0 \fcs1 \af0\afs24\alang1025 \fcs0 +\b\caps\fs24\ul\cf1\lang1033\langfe1033\kerning28\loch\f34\hich\af34\dbch\af34\cgrid\langnp1033\langfenp1033 \sbasedon0 \snext0 \styrsid9965374 heading 1,h1;}{\s2\qj \li0\ri0\sb240\sa60\sl-240\slmult0 +\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \fcs1 \ab\ai\af1\afs28\alang1025 \fcs0 \b\i\scaps\fs24\lang1033\langfe1033\loch\f34\hich\af34\dbch\af34\cgrid\langnp1033\langfenp1033 \sbasedon0 \snext0 \styrsid9965374 +heading 2,h2;}{\s3\qj \li0\ri0\sb240\sa60\sl-240\slmult0\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel2\adjustright\rin0\lin0\itap0 \fcs1 \ab\af1\afs26\alang1025 \fcs0 \b\f34\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 +\sbasedon0 \snext0 \styrsid9965374 heading 3,h3;}{\*\cs10 \additive \ssemihidden Default Paragraph Font;}{\* +\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv +\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 \af0\afs20 \fcs0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}{\s15\qj \li0\ri0\sb240\sl-280\slmult0\widctlpar +\tx360\tx720\tx1080\tx1440\tx1800\tx2160\tx2520\tx2880\tx3240\tx3600\tx3960\tx4320\tx4680\tx5040\tx5400\tx5760\tx6120\tx6480\tx6840\tx7200\tx7560\tx7920\tx8280\tx8640\tx9000\tx9720\tx10080\tx10440\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 +\af0\afs20\alang1025 \fcs0 \f34\fs22\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 \sbasedon0 \snext0 Triple,t;}{\s16\qj \li0\ri0\sl240\slmult0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 \af2\afs24\alang1025 \fcs0 +\f2\fs20\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 \sbasedon0 \snext16 \styrsid91415 Plain Text;}}{\*\latentstyles\lsdstimax156\lsdlockeddef0}{\*\pgptbl {\pgp\ipgp0\itap0\li0\ri0\sb0\sa0}{\pgp\ipgp0\itap0\li0\ri0\sb0\sa0}}{\*\rsidtbl \rsid83015 +\rsid91415\rsid1465280\rsid1534417\rsid2237508\rsid3305356\rsid3673047\rsid4138990\rsid4878106\rsid5709781\rsid6704448\rsid7953796\rsid8278687\rsid9568672\rsid9965374\rsid14953160\rsid16650104}{\*\generator Microsoft Word 11.0.5604;}{\info +{\title E-Text Title:}{\author Than G}{\operator Than Garson}{\creatim\yr2004\mo8\dy11\hr17\min2}{\revtim\yr2004\mo8\dy11\hr17\min2}{\version2}{\edmins1}{\nofpages1}{\nofwords76}{\nofchars434}{\*\company THDL}{\nofcharsws509}{\vern24689}} +\widowctrl\ftnbj\aenddoc\ftnrstpg\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1701\dgvorigin1984\dghshow1\dgvshow1 +\jexpand\viewkind4\viewscale100\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nojkernpunct\rsidroot91415 \fet0{\*\ftnsep \pard\plain \qj \li0\ri0\sl-240\slmult0 +\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 \af0\afs24\alang1025 \fcs0 \f34\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\fcs1 \af0 \fcs0 \insrsid5709781 \chftnsep +\par }}{\*\ftnsepc \pard\plain \qj \li0\ri0\sl-240\slmult0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 \af0\afs24\alang1025 \fcs0 \f34\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\fcs1 \af0 \fcs0 \insrsid5709781 \chftnsepc + +\par }}{\*\aftnsep \pard\plain \qj \li0\ri0\sl-240\slmult0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 \af0\afs24\alang1025 \fcs0 \f34\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\fcs1 \af0 \fcs0 \insrsid5709781 \chftnsep + +\par }}{\*\aftnsepc \pard\plain \qj \li0\ri0\sl-240\slmult0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fcs1 \af0\afs24\alang1025 \fcs0 \f34\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\fcs1 \af0 \fcs0 \insrsid5709781 \chftnsepc + +\par }}\sectd \linex576\headery1080\footery1080\endnhere\sectdefaultcl\sftnbj\sftnrstpg {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang +{\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7 +\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\trowd \irow0\irowband0 +\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt +\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth7324\clshdrawnil \cellx9664\pard\plain \qj \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \fcs1 \af0\afs24\alang1025 \fcs0 \f34\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 { +\fcs1 \af34\afs22 \fcs0 \b\fs22\dbch\af34\insrsid4138990 \hich\af34\dbch\af34\loch\f34 E-Text Title:}{\fcs1 \af34\afs22 \fcs0 \b\fs22\dbch\af34\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard +\ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow0\irowband0\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr +\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth7324\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 E-Text Title Original:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }\pard \qj \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow1\irowband1 +\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt +\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth7324\clshdrawnil \cellx9664\row }\trowd \irow2\irowband2\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 +\trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\pard \ql \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Language of text:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 +\hich\af34\dbch\af0\loch\f34 eng}{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Original Language:}{\fcs1 \af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 +\hich\af34\dbch\af0\loch\f34 eng}{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow2\irowband2\ts11\trgaph108\trleft0\trkeep +\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl +\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 +\clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 +\b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Author:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Date:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 +\cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow3\irowband3\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 +\trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb +\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400 +\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr +\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Translator:}{ +\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Date:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard +\ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow4\irowband4\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr +\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 +\clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Editor:}{\fcs1 \ab\af0 \fcs0 +\b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Date:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard +\ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow5\irowband5\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr +\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 +\clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Mark-up:}{\fcs1 \ab\af0 +\fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Date:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard +\ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow6\irowband6\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr +\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 +\clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Inputter:}{\fcs1 \ab\af0 +\fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Date:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard +\ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow7\irowband7\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr +\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 +\clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\trowd \irow8\irowband8\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 +\trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth720\clshdrawnil \cellx6120\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth720\clshdrawnil \cellx6840\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl +\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1440\clshdrawnil \cellx8280\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1384\clshdrawnil \cellx9664\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Journal or Collection:}{\fcs1 +\ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Vol.:}{\fcs1 \af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 +\fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Pagination:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 +\fcs0 \f0\fs20\insrsid4138990 \trowd \irow8\irowband8\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 +\trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth720\clshdrawnil \cellx6120\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth720\clshdrawnil \cellx6840\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl +\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1440\clshdrawnil \cellx8280\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1384\clshdrawnil \cellx9664\row }\trowd \irow9\irowband9\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 +\trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\pard \ql \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Editor of Collection:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 +\fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Date:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 +\f0\fs20\insrsid4138990 \trowd \irow9\irowband9\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 +\trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 P\hich\af34\dbch\af0\loch\f34 ublisher:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 +\hich\af34\dbch\af0\loch\f34 Tibetan & Himalayan Digital Library}{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Date:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 +\insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow10\irowband10\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 +\trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr +\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2284\clshdrawnil \cellx7684\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1980\clshdrawnil \cellx9664\row }\trowd \irow11\irowband11\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv +\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340 +\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth7324\clshdrawnil \cellx9664\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 { +\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Place of Pub.:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \hich\af34\dbch\af0\loch\f34 Charlottesville, VA 22904}{\fcs1 \af0 \fcs0 \insrsid4138990 +\cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow11\irowband11\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb +\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr +\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth7324\clshdrawnil \cellx9664\row }\pard +\ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Description:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }\pard \qj \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 +\trowd \irow12\irowband12\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 +\trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth7324\clshdrawnil \cellx9664\row }\trowd \irow13\irowband13\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 +\trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr +\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1800\clshdrawnil \cellx7200\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2464\clshdrawnil \cellx9664\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Domain URL:}{\fcs1 \ab\af0 \fcs0 +\b\insrsid4138990 \cell }\pard \qj \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Domain Text:}{\fcs1 \af0 +\fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow13\irowband13\ts11\trgaph108\trleft0\trkeep +\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl +\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1800\clshdrawnil \cellx7200\clvertalt\clbrdrt\brdrs\brdrw10 +\clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2464\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 +\b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Portal URL:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }\pard \qj \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \af0 +\fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Portal Text:}{\fcs1 \af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 +\f0\fs20\insrsid4138990 \trowd \irow14\irowband14\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 +\trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth1800\clshdrawnil \cellx7200\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2464\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Project URL:}{\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \cell }\pard \qj \li0\ri0\sl-240\slmult0 +\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Project Text:}{\fcs1 \af0 \fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 +\insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow15\irowband15\ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 +\trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr +\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt +\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1800\clshdrawnil \cellx7200\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth2464\clshdrawnil \cellx9664\row }\pard \ql \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Home URL:}{\fcs1 \ab\af0 +\fcs0 \b\insrsid4138990 \cell }\pard \qj \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0 \fcs0 \insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Home Text:}{\fcs1 \af0 +\fcs0 \b\insrsid4138990 \cell }{\fcs1 \af0 \fcs0 \insrsid4138990 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow16\irowband16\ts11\trgaph108\trleft0\trkeep +\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl +\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2340\clshdrawnil \cellx2340\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth3060\clshdrawnil \cellx5400\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth1800\clshdrawnil \cellx7200\clvertalt\clbrdrt\brdrs\brdrw10 +\clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth2464\clshdrawnil \cellx9664\row }\trowd \irow17\irowband17\lastrow \ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb +\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr +\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth3780\clshdrawnil \cellx3780\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth5884\clshdrawnil \cellx9664\pard +\qj \li0\ri0\sl-240\slmult0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \ab\af0 \fcs0 \b\insrsid4138990 \hich\af34\dbch\af0\loch\f34 Breadcrumb Name for this doc:}{\fcs1 \af0 \fcs0 \insrsid4138990 \cell \cell }\pard +\ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fcs1 \af0\afs20 \fcs0 \f0\fs20\insrsid4138990 \trowd \irow17\irowband17\lastrow \ts11\trgaph108\trleft0\trkeep\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 +\trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 +\cltxlrtb\clftsWidth3\clwWidth3780\clshdrawnil \cellx3780\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrs\brdrw10 \clbrdrb\brdrs\brdrw10 \clbrdrr\brdrs\brdrw10 \cltxlrtb\clftsWidth3\clwWidth5884\clshdrawnil \cellx9664\row }\pard \qj \li0\ri0\sl-240\slmult0 +\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid4138990 {\fcs1 \af0 \fcs0 \insrsid83015\charrsid4138990 +\par }} \ No newline at end of file