114 lines
4 KiB
Text
114 lines
4 KiB
Text
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
|