Originals (previous versions) were from 03-31-04. This revision is from 04-30-04

WordToXML/ItalicOptions.frm

@@ -5,7 +5,7 @@ Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ItalicOptions
    ClientLeft      =   30
    ClientTop       =   480
    ClientWidth     =   7125
-   OleObjectBlob   =   "ItalicOptions033104.frx":0000
+   OleObjectBlob   =   "ItalicOptions043004.frx":0000
    StartUpPosition =   1  'CenterOwner
 End
 Attribute VB_Name = "ItalicOptions"
@@ -13,11 +13,12 @@ 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()
+Public Sub Cancel_Click()
     cancelled = True
     ItalicOptions.Hide
 End Sub
@@ -36,17 +37,29 @@ 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 "Chinese Word"             'ListIndex = 2
-    StyleChoices.AddItem "Sanskrit Word"            'ListIndex = 3
+    StyleChoices.AddItem "French Word"              'ListIndex = 3
-    StyleChoices.AddItem "Chinese Word"             'ListIndex = 4
+    StyleChoices.AddItem "German Word"              'ListIndex = 4
     StyleChoices.AddItem "Japanese Word"            'ListIndex = 5
-    StyleChoices.AddItem "Personal Name Human"      'ListIndex = 6
+    StyleChoices.AddItem "Korean Word"              'ListIndex = 6
-    StyleChoices.AddItem "Personal Name Other"      'ListIndex = 7
+    StyleChoices.AddItem "Nepali Word"              'ListIndex = 7
-    StyleChoices.AddItem "Place Name"               'ListIndex = 8
+    StyleChoices.AddItem "Pali Word"                'ListIndex = 8
-    StyleChoices.AddItem "Organization Name"        'ListIndex = 9
+    StyleChoices.AddItem "Sanskrit Word"            'ListIndex = 9
-    StyleChoices.AddItem "Reference"                'ListIndex = 10
+    StyleChoices.AddItem "Spanish Word"             'ListIndex = 10
-    StyleChoices.AddItem "Strong Emphasis"          'ListIndex = 11
+    StyleChoices.AddItem "Tibetan Word"             'ListIndex = 11
-    StyleChoices.AddItem "Remove Italics"           'ListIndex = 12
+    StyleChoices.AddItem "Page Number"              'ListIndex = 12
+    StyleChoices.AddItem "Page Reference"           'ListIndex = 13
+    StyleChoices.AddItem "Personal Name Human"      'ListIndex = 14
+    StyleChoices.AddItem "Personal Name Other"      'ListIndex = 15
+    StyleChoices.AddItem "Place Name"               'ListIndex = 16
+    StyleChoices.AddItem "Organization Name"        'ListIndex = 17
+    StyleChoices.AddItem "Reference"                'ListIndex = 18
+    StyleChoices.AddItem "Speaker Generic"          'ListIndex = 19
+    StyleChoices.AddItem "Speaker Buddhist Deity"   'ListIndex = 20
+    StyleChoices.AddItem "Speaker Human"            'ListIndex = 21
+    StyleChoices.AddItem "Speaker Other"            'ListIndex = 22
+    StyleChoices.AddItem "Strong Emphasis"          'ListIndex = 23
+    StyleChoices.AddItem "Remove Italics"           'ListIndex = 24
 End Sub
 Public Function wasCancelled() As Boolean
     wasCancelled = cancelled
@@ -62,47 +75,95 @@ Public Function getSelectedStyle() As Style
             Set getSelectedStyle = ActiveDocument.Styles("Text Title,tt")
             Exit Function
             
-        Case 2  ' Tibetan Word
+        Case 2  ' Chinese 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 3  ' French Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang French,fre")
+            Exit Function
+            
+        Case 4  ' German Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang German,ger")
+            Exit Function
+            
         Case 5  ' Japanese Word
             Set getSelectedStyle = ActiveDocument.Styles("Lang Japanese,jap")
             Exit Function
             
-        Case 6  ' Personal Name Human
+        Case 6  ' Korean Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang Korean,kor")
+            Exit Function
+            
+        Case 7  ' Nepali Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang Nepali,nep")
+            Exit Function
+            
+        Case 8  ' Pali Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang Pali,pal")
+            Exit Function
+            
+        Case 9  ' Sanskrit Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang Sanskrit,san")
+            Exit Function
+            
+        Case 10  ' Spanish Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang Spanish,Spa")
+            Exit Function
+            
+        Case 11  ' Tibetan Word
+            Set getSelectedStyle = ActiveDocument.Styles("Lang Tibetan,tib")
+            Exit Function
+            
+        Case 12 ' Page Number
+            Set getSelectedStyle = ActiveDocument.Styles("Page Number,pgn")
+            Exit Function
+        
+        Case 13 ' Page Refence
+            Set getSelectedStyle = ActiveDocument.Styles("Pages,pg")
+            Exit Function
+            
+        Case 14  ' Personal Name Human
             Set getSelectedStyle = ActiveDocument.Styles("Name Personal Human,nph")
             Exit Function
             
-        Case 7  ' Personal Name Other
+        Case 15  ' Personal Name Other
             Set getSelectedStyle = ActiveDocument.Styles("Name Personal other,npo")
             Exit Function
             
-        Case 8  ' Place Name
+        Case 16  ' Place Name
             Set getSelectedStyle = ActiveDocument.Styles("Name Place,np")
             Exit Function
         
-        Case 9  ' Organizational Name
+        Case 17  ' Organizational Name
             Set getSelectedStyle = ActiveDocument.Styles("Name organization,nor")
             Exit Function
             
-        Case 10  ' Reference
+        Case 18  ' Reference
             Set getSelectedStyle = ActiveDocument.Styles("Reference,rf")
             Exit Function
                 
-        Case 11  ' Strong Emphasis
+        Case 19  ' Speaker Generic
+            Set getSelectedStyle = ActiveDocument.Styles("Speaker generic,sg")
+            Exit Function
+            
+        Case 20  ' Speaker Buddhist Deity
+            Set getSelectedStyle = ActiveDocument.Styles("SpeakerBuddhistDeity,sb")
+            Exit Function
+            
+        Case 21  ' Speaker Human
+            Set getSelectedStyle = ActiveDocument.Styles("SpeakerHuman,sh")
+            Exit Function
+            
+        Case 22  ' Speaker Other
+            Set getSelectedStyle = ActiveDocument.Styles("SpeakerOther,so")
+            Exit Function
+            
+        Case 23  ' Strong Emphasis
             Set getSelectedStyle = ActiveDocument.Styles("Emphasis Strong,es")
             Exit Function
             
-        Case 12  ' Remove Italics
+        Case 24  ' Remove Italics
             Set getSelectedStyle = ActiveDocument.Styles("Normal,no")
             Exit Function